aboutsummaryrefslogtreecommitdiffstats
path: root/report.cgi
diff options
context:
space:
mode:
authorbbaetz%student.usyd.edu.au <>2002-10-26 08:56:55 +0000
committerbbaetz%student.usyd.edu.au <>2002-10-26 08:56:55 +0000
commit818ce46d9780c7a04ac04a3f116021f1edadd476 (patch)
tree37a73f7a26876a5690ca7f477c10ee3979689b07 /report.cgi
parent37993682fd10962e944a1e5bf9633c7b08ad49e6 (diff)
downloadbugs-818ce46d9780c7a04ac04a3f116021f1edadd476.tar
bugs-818ce46d9780c7a04ac04a3f116021f1edadd476.tar.gz
bugs-818ce46d9780c7a04ac04a3f116021f1edadd476.tar.bz2
bugs-818ce46d9780c7a04ac04a3f116021f1edadd476.tar.xz
bugs-818ce46d9780c7a04ac04a3f116021f1edadd476.zip
Bug 147833 - start using CGI.pm
r=gerv, justdave
Diffstat (limited to 'report.cgi')
-rwxr-xr-xreport.cgi18
1 files changed, 11 insertions, 7 deletions
diff --git a/report.cgi b/report.cgi
index 9e60c1dc9..f4cb74dad 100755
--- a/report.cgi
+++ b/report.cgi
@@ -26,7 +26,7 @@ use lib ".";
require "CGI.pl";
-use vars qw($template $vars);
+use vars qw($cgi $template $vars);
use Bugzilla::Search;
@@ -77,11 +77,13 @@ my @axis_fields = ($row_field, $col_field, $tbl_field);
my @selectnames = map($columns{$_}, @axis_fields);
+# Clone the params, so that Bugzilla::Search can modify them
+my $params = new Bugzilla::CGI($cgi);
my $search = new Bugzilla::Search('fields' => \@selectnames,
- 'url' => $::buffer);
+ 'params' => $params);
my $query = $search->getSQL();
-SendSQL($query, $::userid);
+SendSQL($query);
# We have a hash of hashes for the data itself, and a hash to hold the
# row/col/table names.
@@ -108,12 +110,14 @@ $vars->{'names'} = \%names;
$vars->{'data'} = \%data;
$vars->{'time'} = time();
-$::buffer =~ s/format=[^&]*&?//g;
+$cgi->delete('format');
# Calculate the base query URL for the hyperlinked numbers
-$vars->{'buglistbase'} = CanonicaliseParams($::buffer,
- ["x_axis_field", "y_axis_field", "z_axis_field", @axis_fields]);
-$vars->{'buffer'} = $::buffer;
+$vars->{'querybase'} = $cgi->canonicalise_query("x_axis_field",
+ "y_axis_field",
+ "z_axis_field",
+ @axis_fields);
+$vars->{'query'} = $cgi->query_string();
# Generate and return the result from the appropriate template.
my $format = GetFormat("reports/report", $::FORM{'format'}, $::FORM{'ctype'});