Import fix for issue with radio buttons on admin page

See also ericvaandering#13

Author: gwarf

DocDB/cgi/AdministerElements.pm

@@ -29,17 +29,15 @@ sub AdministerActions (%) {
   my $Form = $Params{-form}  || "";
   my $AddTransfer = $Params{-addTransfer}  || $FALSE;
 
-  my %Action = ();
+  # XXX: EGI applied https://github.com/ericvaandering/DocDB/pull/13
+  my @Action = ('New', 'Delete', 'Modify');
 
-  $Action{Delete}    = "Delete";
-  $Action{New}       = "New";
-  $Action{Modify}    = "Modify";
   if ($AddTransfer) {
-    $Action{Transfer}    = "Transfer";
+    unshift(@Action, "Transfer");
   }
   print FormElementTitle(-helplink => "admaction", -helptext => "Action");
   print $query -> radio_group(-name => "admaction",
-                              -values => \%Action, -default => "-",
+                              -values => \@Action, -default => "-",
                               -onclick => "disabler_$Form();");
 };