diff options
author | harrison%netscape.com <> | 1998-10-27 18:54:27 +0000 |
---|---|---|
committer | harrison%netscape.com <> | 1998-10-27 18:54:27 +0000 |
commit | 26a9b7cb423cd27b6909e3acde6cc1ab320cdfdf (patch) | |
tree | 651a78831b1b8b3673a89180be550cd8f0cd6f4f /reports.cgi | |
parent | 8995fafb5fa7701a332c3f3864ee4f028711efc0 (diff) | |
download | bugs-26a9b7cb423cd27b6909e3acde6cc1ab320cdfdf.tar bugs-26a9b7cb423cd27b6909e3acde6cc1ab320cdfdf.tar.gz bugs-26a9b7cb423cd27b6909e3acde6cc1ab320cdfdf.tar.bz2 bugs-26a9b7cb423cd27b6909e3acde6cc1ab320cdfdf.tar.xz bugs-26a9b7cb423cd27b6909e3acde6cc1ab320cdfdf.zip |
output key no longer required, silently defaults to most_doomed.
(people were linking into report.cgi without an output key
specified, this fix prevents perl from squealing.)
Diffstat (limited to 'reports.cgi')
-rwxr-xr-x | reports.cgi | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/reports.cgi b/reports.cgi index 1ac1883b3..612a2576f 100755 --- a/reports.cgi +++ b/reports.cgi @@ -66,6 +66,8 @@ else ConnectToDatabase(); GetVersionTable(); +$::FORM{'output'} = $::FORM{'output'} || "most_doomed"; # a reasonable default + if (! defined $::FORM{'product'}) { &choose_product; @@ -76,7 +78,7 @@ else # can be called from outside. modify %reports # accordingly when a new report type is added - if (! defined $reports{$::FORM{'output'}}) + if (! exists $reports{$::FORM{'output'}}) { $::FORM{'output'} = "most_doomed"; # a reasonable default } |