From 26a9b7cb423cd27b6909e3acde6cc1ab320cdfdf Mon Sep 17 00:00:00 2001
From: "harrison%netscape.com" <>
Date: Tue, 27 Oct 1998 18:54:27 +0000
Subject: 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.)

---
 reports.cgi | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'reports.cgi')

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
 		}
-- 
cgit v1.2.3-24-g4f1b