\n";
$ret .= "| From: | ";
if ($remote && $remote->{'userid'}) {
$ret .= "{'user'} ljuser?>";
} else {
$ret .= "(not logged in)";
}
$ret .= " |
\n";
if ($ans_type{'answer'} || $ans_type{'screened'})
{
# FAQ reference
$ret .= "| Reference FAQ: | \n";
my %faqcat;
my %faqq;
$sth = $dbh->prepare("SELECT faqcat, faqcatname, catorder FROM faqcat WHERE faqcat<>'int-abuse'");
$sth->execute;
while ($_ = $sth->fetchrow_hashref) {
$faqcat{$_->{'faqcat'}} = $_;
}
$sth = $dbh->prepare("SELECT faqid, question, sortorder, faqcat, lastmodtime FROM faq WHERE faqcat<>'int-abuse'");
$sth->execute;
while ($_ = $sth->fetchrow_hashref) {
$faqq{$_->{'faqid'}} = $_;
}
my @faqlist = ('0', "(don't reference FAQ)");
foreach my $faqcat (sort { $faqcat{$a}->{'catorder'} <=> $faqcat{$b}->{'catorder'} } keys %faqcat)
{
push @faqlist, ('0', "[ $faqcat{$faqcat}->{'faqcatname'} ]");
foreach my $faqid (sort { $faqq{$a}->{'sortorder'} <=> $faqq{$b}->{'sortorder'} }
grep { $faqq{$_}->{'faqcat'} eq $faqcat } keys %faqq)
{
next unless ($faqq{$faqid}->{'question'});
my $q = "... $faqq{$faqid}->{'question'}";
$q =~ s/^\s+//;
$q =~ s/\s+$//;
$q =~ s/\n/ /g;
if (length($q) > 50) {
$q = substr($q, 0, 50) . "...";
}
push @faqlist, ($faqid, $q);
}
}
$ret .= LJ::html_select({ 'name' => 'faqid' }, @faqlist) . "\n";
$ret .= " |
\n";
}
# answer type
{
$ret .= "| Reply Type: | ";
if (@ans_type > 2) {
$ret .= LJ::html_select({ 'name' => 'replytype' }, @ans_type) . "\n";
} else {
$ret .= LJ::html_hidden('replytype', $ans_type[0]) . "\n";
$ret .= "$ans_type[1]";
}
$ret .= " |
\n";
}
# helpers can do actions:
if (LJ::Support::can_perform_actions($dbh, $sp, $remote) &&
! LJ::Support::is_poster($sp, $remote, $auth))
{
$ret .= " | \n";
$ret .= "";
$ret .= "Change Category:
";
$ret .= LJ::html_select({ 'name' => 'changecat' },
('', $sp->{'_cat'}->{'catname'}),
map { $_->{'spcatid'}, "---> $_->{'catname'}" }
LJ::Support::sorted_cats($cats));
$ret .= " | ";
if (@screened && LJ::Support::can_help($dbh, $sp, $remote)) {
$ret .= "Approve Screened Answer:
";
$ret .= LJ::html_select({ 'name' => 'approveans' },
('', ''),
map { $_->{'splid'}, "\#$_->{'splid'} ($userinfo{$_->{'userid'}}->{'user'})" }
@screened);
$ret .= LJ::html_select({ 'name' => 'approveas' },
("answer" => "as answer", "comment" => "as comment",));
$ret .= " | ";
}
$ret .= " \n";
$ret .= " |
\n";
$ret .= "| Touch request: | ";
$ret .= LJ::html_check({ 'type' => 'checkbox', 'name' => 'touch' });
$ret .= "\n";
$ret .= " |
\n";
if (LJ::Support::can_help($dbh, $sp, $remote)) {
$ret .= "| Change summary: | ";
$ret .= LJ::html_check({ 'type' => 'checkbox', 'name' => 'changesum' });
$ret .= "\n";
$ret .= " |
\n";
}
}
# textarea for their message body
$ret .= "| Message: | ";
$ret .= LJ::html_textarea({ 'rows' => '10', 'cols' => '50', 'wrap' => 'virtual', 'name' => 'body' }) . "
";
$ret .= "URLs are automatically link-ified, so just reference those. de?>
";
$ret .= LJ::html_submit('submitpost', "Post Comment/Solution");
$ret .= " |
\n";
$ret .= "