1 _info?> body<=
Category: \n"; my $sth = $dbh->prepare("SELECT faqcat, faqcatname FROM faqcat ORDER BY catorder"); $sth->execute; while (($fc, $fcname) = $sth->fetchrow_array) { if ($id) { next unless ($ac_add{'*'} || $ac_add{$fc} || ($fc eq $faqcat)); } else { next unless ($ac_add{'*'} || $ac_add{$fc}); } $selected = ($fc eq $faqcat) ? " SELECTED" : ""; $ret .= "" . LJ::ehtml($fcname) . "\n"; } $ret .= ""; $ret .= "SortOrder (1-100): "; $ret .= "(sort order is how to sort within the category. categories themselves are also sorted.)"; $ret .= "
Question: (as brief as possible, do not span multiple lines)$q(erase question to delete FAQ entry)\n"; $ret .= "
Answer: (long as you want, give URLs to links, not HTML)$a\n"; my $faqd = LJ::Lang::get_dom("faq"); if ($faqd) { $ret .= "
Select modification level: "; $ret .= LJ::html_select({ 'name' => "sev", "selected" => 1 }, 0 => "Typo/etc (no notify)", 1 => "Minor (notify translators)", 2 => "Major (require translation updates)"); $ret .= "
"; return $ret; _code?>