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

diff --git a/reports.cgi b/reports.cgi
index 1ac1883b37e9bce4b76eb92cb0995f1d42798d62..612a2576f8a88834913645f499f37d637d40d6e1 100755 (executable)
--- 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
                }