2 files changed, 7 insertions, 3 deletions
diff --git a/CGI.pl b/CGI.pl
index a0a64fdad..4555ea856 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -481,7 +481,7 @@ name=PleaseMailAPassword>
 
 
 sub PutHeader {
-    my ($title, $h1, $h2) = (@_);
+    my ($title, $h1, $h2, $extra) = (@_);
 
     if (!defined $h1) {
 	$h1 = $title;
@@ -489,11 +489,14 @@ sub PutHeader {
     if (!defined $h2) {
 	$h2 = "";
     }
+    if (!defined $extra) {
+	$extra = "";
+    }
 
     print "<HTML><HEAD>\n<TITLE>$title</TITLE>\n";
     print Param("headerhtml") . "\n</HEAD>\n";
     print "<BODY   BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\"\n";
-    print "LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";
+    print "LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\" $extra>\n";
 
     print PerformSubsts(Param("bannerhtml"), undef);
 
diff --git a/query.cgi b/query.cgi
index 72047f644..4408dbfbb 100755
--- a/query.cgi
+++ b/query.cgi
@@ -349,7 +349,8 @@ function selectProduct(f) {
 #    set legal_product [concat $default{"product"} [lreplace $legal_product $w $w]]
 # }
 
-PutHeader("Bugzilla Query Page", "Query Page");
+PutHeader("Bugzilla Query Page", "Query Page", "",
+          q{onLoad="selectProduct(document.forms[0]);"});
 
 push @::legal_resolution, "---"; # Oy, what a hack.
 push @::legal_target_milestone, "---"; # Oy, what a hack.