default option on one-article screen is back of queue

[modbot-mtm.git] / webstump / scripts / html_output.pl

diff --git a/webstump/scripts/html_output.pl b/webstump/scripts/html_output.pl
index aca05099ff64af4af4a6b279818461a30247086f..5503b4ae6104a3566e993c03f5ad1f69b87c9281 100644 (file)
--- a/webstump/scripts/html_output.pl
+++ b/webstump/scripts/html_output.pl
@@ -247,7 +247,7 @@ sub html_moderate_article {
   &html_print_credentials;
   print "<SELECT NAME=\"decision_$file\">
 <OPTION VALUE=\"approve\">Approve</OPTION>
-<OPTION VALUE=\"leave\">Put to back of queue</OPTION>
+<OPTION VALUE=\"leave\" SELECTED>Put to back of queue</OPTION>
 <OPTION VALUE=\"consider\">Back of queue, adding mark requesting further consideration</OPTION>
 ";
 
@@ -676,7 +676,7 @@ sub html_search_logs {
   if ($request{'download_logs'}) {
       print "<h2>Complete log download</h2>\n";
       $min= 2;
-  } elsif ($request{'messagenum'} =~ m/^(\d+)$/) {
+  } elsif ($request{'messagenum'} =~ m/^\s*(\d+)\s*$/) {
       $reqnum= $1;
       $forwards= -1;
       $min= 1;
@@ -703,14 +703,17 @@ and are often quoted in message headers in [square brackets].<p>
       my @vals = split / \| /, $';
       return 0 unless @vals >= 5;
       my $subj= pop @vals;
-      my ($group,$dir,$act,$reason) = @vals;
+      my ($group,$dir,$act,$reason,$timet) = @vals;
+      my $date= $timet ? (strftime "%Y-%m-%d %H:%M:%S GMT", gmtime $timet)
+          : "(unknown)";
       return 0 unless $group eq $request{'newsgroup'};
       return 0 unless $subj =~ m,/(\d+)$,;
       my $treqnum= $1;
       return 0 if defined($reqnum) and $treqnum ne $reqnum;
-      print "<table rules=all><tr><th>Reference<th>Disposal<th>Reason</tr>\n"
+      print "<table rules=all><tr><th>Date<th>Reference<th>Disposal<th>Reason</tr>\n"
           unless $sofar;
-      print "<tr>", (map { "<td>".escapeHTML($_) } $treqnum,$act,$reason);
+      print "<tr>", (map { "<td>".escapeHTML($_) }
+                     $date,$treqnum,$act,$reason);
       print "</tr>\n";
       return defined($reqnum) ? 2 : 1;
   });
@@ -718,7 +721,8 @@ and are often quoted in message headers in [square brackets].<p>
       print "</table>" if $sofar;
       print "\n";
   } else {
-      print "Reference not found.";
+      print "Reference not found.".
+          "  (Perhaps message has expired, or is still in the queue?)";
   }
   &end_html;
 }