Patch by holger@holger.om.org (Holger Schurig) -- several cleanups.

CGI.pl

@@ -29,11 +29,9 @@ require 'globals.pl';
 
 sub GeneratePersonInput {
     my ($field, $required, $def_value, $extraJavaScript) = (@_);
-    if (!defined $extraJavaScript) {
-        $extraJavaScript = "";
-    }
+    $extraJavaScript ||= "";
     if ($extraJavaScript ne "") {
-        $extraJavaScript = "onChange=\" $extraJavaScript \"";
+        $extraJavaScript = "onChange=\"$extraJavaScript\"";
     }
     return "<INPUT NAME=\"$field\" SIZE=32 $extraJavaScript VALUE=\"$def_value\">";
 }

buglist.cgi

@@ -546,14 +546,13 @@ while (@row = FetchSQLData()) {
                 next;
             }
             my $value = shift @row;
-            my $nowrap = "";
 
             if ($::needquote{$c}) {
                 $value = html_quote($value);
             } else {
                 $value = "<nobr>$value</nobr>";
             }
-            pnl "<td $nowrap>$value";
+            pnl "<td>$value";
         }
         if ($dotweak) {
             my $value = shift @row;

query.cgi

@@ -57,7 +57,7 @@ if (!defined $::buffer || $::buffer eq "") {
     $::buffer = $::COOKIE{"DEFAULTQUERY"};
 }
 
-my %default;
+use vars qw(%default);
 my %type;
 
 foreach my $name ("bug_status", "resolution", "assigned_to", "rep_platform",

reports.cgi

@@ -261,6 +261,9 @@ FIN
 	# start painting report #
 	#########################
 
+        $bugs_status{'NEW'}      ||= '0';
+        $bugs_status{'ASSIGNED'} ||= '0';
+        $bugs_status{'REOPENED'} ||= '0';
 	print <<FIN;
 <h1>$quip</h1>
 <table border=1 cellpadding=5>