Revert to drop-down for single article page (largely reversion of f21bfd

diff --git a/webstump/scripts/html_output.pl b/webstump/scripts/html_output.pl
index dcbc41d0a556bc40f17c6243f92675e3088cbf5f..7134ba787cf8e3fc93f1d4406f637b308937c111 100644 (file)
--- a/webstump/scripts/html_output.pl
+++ b/webstump/scripts/html_output.pl
@@ -245,14 +245,16 @@ sub html_moderate_article {
   print "
 <INPUT NAME=action VALUE=approval_decision TYPE=hidden>";
   &html_print_credentials;
-        print "<INPUT TYPE=radio NAME=\"decision_$file\" VALUE=approve>Approve\n";
-        print "<INPUT TYPE=radio NAME=\"decision_$file\" VALUE=skip>Leave\n";
-        print "<INPUT TYPE=radio NAME=\"decision_$file\" VALUE=leave>Back of queue\n";
-        foreach (@short_rejection_reasons) {
-          print "<INPUT TYPE=radio NAME=\"decision_$file\" VALUE=\"reject $_\">Reject \u$_\n";
-        }
+  print "<SELECT NAME=\"decision_$file\">
+<OPTION VALUE=\"approve\">Approve</OPTION>
+<OPTION VALUE=\"skip\" SELECTED>Leave</OPTION>
+<OPTION VALUE=\"leave\">Back of queue</OPTION>
+";
 
-      print "<BR> <BR> Comment (to poster, in rejection message): <INPUT NAME=comment VALUE=\"\" SIZE=80><BR>";
+  foreach (@short_rejection_reasons) {
+      print "<OPTION VALUE=\"reject $_\">Reject \u$_</OPTION>\n";
+  }
+  print "</SELECT> <BR> Comment (to poster, in rejection message): <INPUT NAME=comment VALUE=\"\" SIZE=80><BR>";
 
   print "<BR>
 <INPUT TYPE=radio NAME=poster_decision VALUE=nothing CHECKED>Don't change poster's status</INPUT>