[Koha-patches] [PATCH] BZ6088: remove Perl warning

[paul.poulain at biblibre.com]

From: Paul Poulain <paul.poulain at biblibre.com>

caused by use warnings;
---
 acqui/neworderempty.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index 9c5d30b..d3f5e38 100755
--- a/acqui/neworderempty.pl
+++ b/acqui/neworderempty.pl
@@ -243,7 +243,7 @@ foreach my $thisbranch ( sort {$branches->{$a}->{'branchname'} cmp $branches->{$
         value      => $thisbranch,
         branchname => $branches->{$thisbranch}->{'branchname'},
     );
-    $row{'selected'} = 1 if( $thisbranch eq $data->{branchcode}) ;
+    $row{'selected'} = 1 if( $thisbranch && $data->{branchcode} && $thisbranch eq $data->{branchcode}) ;
     push @branchloop, \%row;
 }
 $template->param( branchloop => \@branchloop );
-- 
1.7.1