Commit 26a9b7cb authored by harrison%netscape.com's avatar harrison%netscape.com

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.)
parent 8995fafb
...@@ -66,6 +66,8 @@ else ...@@ -66,6 +66,8 @@ else
ConnectToDatabase(); ConnectToDatabase();
GetVersionTable(); GetVersionTable();
$::FORM{'output'} = $::FORM{'output'} || "most_doomed"; # a reasonable default
if (! defined $::FORM{'product'}) if (! defined $::FORM{'product'})
{ {
&choose_product; &choose_product;
...@@ -76,7 +78,7 @@ else ...@@ -76,7 +78,7 @@ else
# can be called from outside. modify %reports # can be called from outside. modify %reports
# accordingly when a new report type is added # 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 $::FORM{'output'} = "most_doomed"; # a reasonable default
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment