Bug 16476: Do not call CGI->param in list context, some more

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
This commit is contained in:
Jonathan Druart 2016-05-09 15:03:12 +01:00 committed by Chris Cormack
parent 6674325729
commit 1e908ec9c6
4 changed files with 5 additions and 5 deletions

View File

@ -117,7 +117,7 @@ sub get_template {
$template->param(
CLASS => $self->{'class'},
METHOD => $self->{'cgi'}->param('method'),
METHOD => scalar $self->{'cgi'}->param('method'),
PLUGIN_PATH => $self->get_plugin_http_path(),
);

View File

@ -128,7 +128,7 @@ unless ( $cgi->param('service') ) {
}
# If user requested a service description, then display it
if ( $cgi->param('service') eq "Describe" and any { $cgi->param('verb') eq $_ } @services ) {
if ( scalar $cgi->param('service') eq "Describe" and any { scalar $cgi->param('verb') eq $_ } @services ) {
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{ template_name => "ilsdi.tt",
query => $cgi,
@ -137,7 +137,7 @@ if ( $cgi->param('service') eq "Describe" and any { $cgi->param('verb') eq $_ }
debug => 1,
}
);
$template->param( $cgi->param('verb') => 1 );
$template->param( scalar $cgi->param('verb') => 1 );
output_html_with_http_headers $cgi, $cookie, $template->output;
exit 0;
}

View File

@ -31,7 +31,7 @@ my $input = new CGI;
exit unless $input->param('template_path');
my ($template, $user, $cookie) = get_template_and_user({
template_name => $input->param('template_path'),
template_name => scalar $input->param('template_path'),
query => $input,
type => "intranet",
authnotrequired => 0,

View File

@ -13,7 +13,7 @@ my $input = new CGI;
exit unless $input->param('template_path');
my ($template, $user, $cookie) = get_template_and_user({
template_name => $input->param('template_path'),
template_name => scalar $input->param('template_path'),
query => $input,
type => "intranet",
authnotrequired => 0,