From 2443030bd2ffd752d323bc96a0fe87719bafefef Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 2 Oct 2015 09:51:07 +0100 Subject: [PATCH] Bug 14739: Fix plack compatibility perlcritic raised "Declare variables outside of the condition" Works as expected Signed-off-by: Josef Moravec --- patroncards/edit-batch.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl index f554a33..e30fc62 100755 --- a/patroncards/edit-batch.pl +++ b/patroncards/edit-batch.pl @@ -54,9 +54,10 @@ my $display_columns = [ {_card_number => {label => 'Card Number', link_field = ]; my $op = $cgi->param('op') || 'new'; my $batch_id = $cgi->param('element_id') || $cgi->param('batch_id') || 0; -my @label_ids = $cgi->param('label_id') if $cgi->param('label_id'); -my @item_numbers = $cgi->param('item_number') if $cgi->param('item_number'); -my @borrower_numbers = $cgi->param('borrower_number') if $cgi->param('borrower_number'); +my ( @label_ids, @item_numbers, @borrower_numbers ); +@label_ids = $cgi->param('label_id') if $cgi->param('label_id'); +@item_numbers = $cgi->param('item_number') if $cgi->param('item_number'); +@borrower_numbers = $cgi->param('borrower_number') if $cgi->param('borrower_number'); my $errstr = $cgi->param('error') || ''; my $bor_num_list = $cgi->param('bor_num_list') || undef; my $branch_code = C4::Context->userenv->{'branch'}; -- 2.1.4