long_list.cgi: code style, remove CGI usage

hinted-selects
Vitaliy Filippov 2014-10-08 14:35:01 +04:00
parent 0594a0a1c4
commit f49cda89ce
1 changed files with 6 additions and 8 deletions

View File

@ -1,6 +1,4 @@
#!/usr/bin/perl -wT
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
@ -25,12 +23,12 @@ use strict;
use lib qw(. lib);
use Bugzilla;
my $cgi = Bugzilla->cgi;
my $ARGS = Bugzilla->input_params;
# Convert comma/space separated elements into separate params
my $buglist = $cgi->param('buglist') || $cgi->param('bug_id') || $cgi->param('id');
my @ids = split (/[\s,]+/, $buglist);
my $buglist = $ARGS->{buglist} || $ARGS->{bug_id} || $ARGS->{id};
my @ids = split /[\s,]+/, $buglist;
my $ids = join '', map { $_ = "&id=" . $_ } @ids;
my $ids = join('', map { $_ = "&id=" . $_ } @ids);
print $cgi->redirect("show_bug.cgi?format=multiple$ids");
print Bugzilla->cgi->redirect("show_bug.cgi?format=multiple$ids");
exit;