summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--CGI.pl7
-rwxr-xr-xquery.cgi3
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.