diff options
author | terry%mozilla.org <> | 2000-02-01 02:19:44 +0000 |
---|---|---|
committer | terry%mozilla.org <> | 2000-02-01 02:19:44 +0000 |
commit | 0ab45f453138d275cb3311cd44dff580bdb238f0 (patch) | |
tree | 872513bc3ea44016e3eb2ed96f8529c44b5858f9 /query.cgi | |
parent | 2966b6c086d892599d3640f3f91b0bc794986e82 (diff) | |
download | bugs-0ab45f453138d275cb3311cd44dff580bdb238f0.tar bugs-0ab45f453138d275cb3311cd44dff580bdb238f0.tar.gz bugs-0ab45f453138d275cb3311cd44dff580bdb238f0.tar.bz2 bugs-0ab45f453138d275cb3311cd44dff580bdb238f0.tar.xz bugs-0ab45f453138d275cb3311cd44dff580bdb238f0.zip |
The "And" and "Or" buttons now work faster, if you have Javascript
enabled. (If you don't have Javascript, they work just like they did
before.)
Diffstat (limited to 'query.cgi')
-rwxr-xr-x | query.cgi | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -694,6 +694,8 @@ my @types = ( ); +print qq{<A NAME="chart"> </A>\n}; + foreach my $cmd (grep(/^cmd-/, keys(%::FORM))) { if ($cmd =~ /^cmd-add(\d+)-(\d+)-(\d+)$/) { $::FORM{"field$1-$2-$3"} = "xyzzy"; @@ -709,7 +711,7 @@ if (!exists $::FORM{'field0-0-0'}) { $::FORM{'field0-0-0'} = "xyzzy"; } -print qq{<A NAME="chart"> </A>\n}; +my $jsmagic = qq{ONCLICK="document.forms[0].action='query.cgi#chart' ; document.forms[0].method='POST' ; return 1;"}; my $chart; for ($chart=0 ; exists $::FORM{"field$chart-0-0"} ; $chart++) { @@ -732,7 +734,7 @@ for ($chart=0 ; exists $::FORM{"field$chart-0-0"} ; $chart++) { push(@cols, $line); } push(@rows, "<TR>" . join(qq{<TD ALIGN="center"> or </TD>\n}, @cols) . - qq{<TD><INPUT TYPE="submit" VALUE="Or" NAME="cmd-add$chart-$row-$col"></TD></TR>}); + qq{<TD><INPUT TYPE="submit" VALUE="Or" NAME="cmd-add$chart-$row-$col" $jsmagic></TD></TR>}); } print qq{ <HR> @@ -740,13 +742,13 @@ for ($chart=0 ; exists $::FORM{"field$chart-0-0"} ; $chart++) { }; print join('<TR><TD>And</TD></TR>', @rows); print qq{ -<TR><TD><INPUT TYPE="submit" VALUE="And" NAME="cmd-add$chart-$row-0"> +<TR><TD><INPUT TYPE="submit" VALUE="And" NAME="cmd-add$chart-$row-0" $jsmagic> }; my $n = $chart + 1; if (!exists $::FORM{"field$n-0-0"}) { print qq{ -<INPUT TYPE="submit" VALUE="Add another boolean chart" NAME="cmd-add$n-0-0"> +<INPUT TYPE="submit" VALUE="Add another boolean chart" NAME="cmd-add$n-0-0" $jsmagic> <NOBR><A HREF="booleanchart.html">What is this stuff?</A></NOBR> }; |