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.)

output key no longer required, silently defaults to most_doomed.
26a9b7cb · harrison%netscape.com · 8995fafb · 26a9b7cb
Commit 26a9b7cb authored Oct 27, 1998 by harrison%netscape.com
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

reports.cgi reports.cgi +3 -1

No files found.
--- 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
 		}