From 0ab45f453138d275cb3311cd44dff580bdb238f0 Mon Sep 17 00:00:00 2001 From: "terry%mozilla.org" <> Date: Tue, 1 Feb 2000 02:19:44 +0000 Subject: 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.) --- query.cgi | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'query.cgi') diff --git a/query.cgi b/query.cgi index 0afb630ba..bb4dfb527 100755 --- a/query.cgi +++ b/query.cgi @@ -694,6 +694,8 @@ my @types = ( ); +print qq{ \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{ \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, "" . join(qq{ or \n}, @cols) . - qq{}); + qq{}); } print qq{
@@ -740,13 +742,13 @@ for ($chart=0 ; exists $::FORM{"field$chart-0-0"} ; $chart++) { }; print join('And', @rows); print qq{ - + }; my $n = $chart + 1; if (!exists $::FORM{"field$n-0-0"}) { print qq{       - +       What is this stuff? }; -- cgit v1.2.3-24-g4f1b