[Koha-patches] [PATCH] [SIGNED-OFF] BZ6088: remove Perl warning
Marcel de Rooy
M.de.Rooy at rijksmuseum.nl
Thu Apr 7 13:09:27 CEST 2011
From: Paul Poulain <paul.poulain at biblibre.com>
caused by use warnings;
Signed-off-by: Marcel de Rooy <m.de.rooy at rijksmuseum.nl>
---
acqui/neworderempty.pl | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index e6ceccc..386dda7 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.6.0.6
More information about the Koha-patches
mailing list