From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Fri, 2 Oct 2015 08:51:07 +0000 (+0100)
Subject: Bug 14739: Fix plack compatibility
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=a7818b35c781fe273aed15ffd55c9b5bd7ded1fd;p=koha.git

Bug 14739: Fix plack compatibility

perlcritic raised "Declare variables outside of the condition"

Works as expected
Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---

diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl
index f554a33c78..e30fc6202b 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'};