From 53440d05dc7077de105c2cfb440e4be1a9313700 Mon Sep 17 00:00:00 2001
From: Matthew Vernon <matthewv@chiark.greenend.org.uk>
Date: Wed, 19 Feb 2014 15:18:02 +0000
Subject: [PATCH] Revert to drop-down for single article page (largely
 reversion of f21bfd

---
 webstump/scripts/html_output.pl | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

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>
-- 
2.30.2