Bug 132634 - remove warning in reports.cgi when quips aren't used. Patch by…

Bug 132634 - remove warning in reports.cgi when quips aren't used. Patch by cedric.caron@urbanet.ch; fixed up by xor@ivwnet.com; 2xr=gerv.

Bug 132634 - remove warning in reports.cgi when quips aren't used. Patch by…
90713bc2 · gerv%gerv.net · 962489b3 · 90713bc2
Commit 90713bc2 authored Mar 23, 2002 by gerv%gerv.net
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
@@ -334,7 +334,9 @@ FIN
                push @cdata, $_;
            }
            close COMMENTS;
-            $quip = "<i>" . $cdata[int(rand($#cdata + 1))] . "</i>";
+            if(@cdata) {
+                $quip = "<i>" . $cdata[int(rand(scalar(@cdata)))] . "</i>";
+            }
        }
    }