From 8d06d1ef539f3f8becc56953b040bc710ec9a859 Mon Sep 17 00:00:00 2001 From: "lpsolit%gmail.com" <> Date: Wed, 10 Aug 2005 08:30:39 +0000 Subject: Bug 301508: Remove CGI.pl - Patch by Frédéric Buclin r=mkanat,wicked a=justdave MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- report.cgi | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'report.cgi') diff --git a/report.cgi b/report.cgi index 30c7cade8..e7b94ffc2 100755 --- a/report.cgi +++ b/report.cgi @@ -24,7 +24,7 @@ use strict; use lib "."; -require "CGI.pl"; +require "globals.pl"; use vars qw($template $vars @legal_opsys @legal_platform @legal_severity); @@ -32,6 +32,7 @@ use Bugzilla; use Bugzilla::Constants; my $cgi = Bugzilla->cgi; +my $buffer = $cgi->query_string(); # Go straight back to query.cgi if we are adding a boolean chart. if (grep(/^cmd-/, $cgi->param())) { @@ -266,9 +267,9 @@ if ($action eq "wrap") { # We need to keep track of the defined restrictions on each of the # axes, because buglistbase, below, throws them away. Without this, we # get buglistlinks wrong if there is a restriction on an axis field. - $vars->{'col_vals'} = join("&", $::buffer =~ /[&?]($col_field=[^&]+)/g); - $vars->{'row_vals'} = join("&", $::buffer =~ /[&?]($row_field=[^&]+)/g); - $vars->{'tbl_vals'} = join("&", $::buffer =~ /[&?]($tbl_field=[^&]+)/g); + $vars->{'col_vals'} = join("&", $buffer =~ /[&?]($col_field=[^&]+)/g); + $vars->{'row_vals'} = join("&", $buffer =~ /[&?]($row_field=[^&]+)/g); + $vars->{'tbl_vals'} = join("&", $buffer =~ /[&?]($tbl_field=[^&]+)/g); # We need a number of different variants of the base URL for different # URLs in the HTML. -- cgit v1.2.3-24-g4f1b