diff options
| author | gerv%gerv.net <> | 2002-10-11 13:27:34 +0000 |
|---|---|---|
| committer | gerv%gerv.net <> | 2002-10-11 13:27:34 +0000 |
| commit | eeec04a1f0a645b3922b2fad4ca76383a2fc8d39 (patch) | |
| tree | cd2190533d57ac530739d995a61a051266a0cd1b /report.cgi | |
| parent | 314c7b66a5b15ae0955598cad680d026341e78ee (diff) | |
| download | bugs-eeec04a1f0a645b3922b2fad4ca76383a2fc8d39.tar bugs-eeec04a1f0a645b3922b2fad4ca76383a2fc8d39.tar.gz bugs-eeec04a1f0a645b3922b2fad4ca76383a2fc8d39.tar.bz2 bugs-eeec04a1f0a645b3922b2fad4ca76383a2fc8d39.tar.xz bugs-eeec04a1f0a645b3922b2fad4ca76383a2fc8d39.zip | |
Bug 173719 - warnings in report.cgi. Patch by gerv; r=bbaetz.
Diffstat (limited to 'report.cgi')
| -rwxr-xr-x | report.cgi | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/report.cgi b/report.cgi index 35055110e..9e60c1dc9 100755 --- a/report.cgi +++ b/report.cgi @@ -21,7 +21,6 @@ # Contributor(s): Gervase Markham <gerv@gerv.net> # <rdean@cambianetworks.com> -use diagnostics; use strict; use lib "."; @@ -92,8 +91,8 @@ my %names; # Read the bug data and increment the counts. while (MoreSQLData()) { my ($row, $col, $tbl) = FetchSQLData(); - $col = "" if ($col == $columns{''}); - $tbl = "" if ($tbl == $columns{''}); + $col = "" if ($col eq $columns{''}); + $tbl = "" if ($tbl eq $columns{''}); $data{$tbl}{$col}{$row}++; $names{"col"}{$col}++; @@ -118,6 +117,6 @@ $vars->{'buffer'} = $::buffer; # Generate and return the result from the appropriate template. my $format = GetFormat("reports/report", $::FORM{'format'}, $::FORM{'ctype'}); -print "Content-Type: $format->{'contenttype'}\n\n"; +print "Content-Type: $format->{'ctype'}\n\n"; $template->process("$format->{'template'}", $vars) || ThrowTemplateError($template->error()); |