navigation_header() should work even if $::FORM{'id'} isn't defined.

diff --git a/CGI.pl b/CGI.pl
index ce58c54d1247c07bda6fac2b58c49f1cdc9dd508..595c8ab323b30a2b81e3ac640f44c0abfd360f4c 100644 (file)
--- a/CGI.pl
+++ b/CGI.pl
@@ -192,7 +192,8 @@ sub value_quote {
 }
 
 sub navigation_header {
-    if (defined $::COOKIE{"BUGLIST"} && $::COOKIE{"BUGLIST"} ne "") {
+    if (defined $::COOKIE{"BUGLIST"} && $::COOKIE{"BUGLIST"} ne "" &&
+        defined $::FORM{'id'}) {
        my @bugs = split(/:/, $::COOKIE{"BUGLIST"});
        my $cur = lsearch(\@bugs, $::FORM{"id"});
        print "<B>Bug List:</B> (@{[$cur + 1]} of @{[$#bugs + 1]})\n";