X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FCGI.pm;h=45673059af4e7996b927344af17f239fdd845c0b;hb=c7d55ac58283a33852f1a6bd7cd73e1b1cf72974;hp=c39a6caba347de5399015577081528398acc4b7a;hpb=ffd123b86842fd406d15b7e7defc01b5df4857c8;p=debbugs.git

diff --git a/Debbugs/CGI.pm b/Debbugs/CGI.pm
index c39a6ca..4567305 100644
--- a/Debbugs/CGI.pm
+++ b/Debbugs/CGI.pm
@@ -820,23 +820,6 @@ sub option_form{
 	  # we'll add extra comands here once I figure out what they
 	  # should be
      }
-     # add in a few utility routines
-     $variables->{output_select_options} = sub {
-	  my ($options,$value) = @_;
-	  my @options = @{$options};
-	  my $output = '';
-	  while (my ($o_value,$name) = splice @options,0,2) {
-	       my $selected = '';
-	       if (defined $value and $o_value eq $value) {
-		    $selected = ' selected';
-	       }
-	       $output .= q(<option value=").html_escape($o_value).qq("$selected>).
-		   html_escape($name).qq(</option>\n);
-	  }
-	  return $output;
-     };
-     $variables->{make_list} = sub { make_list(@_);
-     };
      # now at this point, we're ready to create the template
      return Debbugs::Text::fill_in_template(template=>$param{template},
 					    (exists $param{language}?(language=>$param{language}):()),