From: Matthew Vernon <matthewv@chiark.greenend.org.uk>
Date: Wed, 19 Feb 2014 15:18:02 +0000 (+0000)
Subject: Revert to drop-down for single article page (largely reversion of f21bfd
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~webstump/git?a=commitdiff_plain;h=53440d05dc7077de105c2cfb440e4be1a9313700;p=modbot-ulm.git

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 dcbc41d..7134ba7 100644
--- 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>