From 65c21fa52f9a44920e341f39b23bd877f5c87c84 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Thu, 7 Apr 2011 11:09:27 +0000 Subject: [PATCH] Bug 6088: remove Perl warning caused by use warnings; Signed-off-by: Marcel de Rooy Signed-off-by: Chris Cormack --- acqui/neworderempty.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index e6ceccc9ea..386dda73b9 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 ); -- 2.39.5