From 01f91622da2b5cd3630c685d28757d6136745750 Mon Sep 17 00:00:00 2001 From: Mason James Date: Tue, 17 Mar 2009 00:49:01 +1300 Subject: [PATCH] fixes many 'Use of uninitialized value in string eq at ...' warnings.. at admin/branches.pl line 242. Signed-off-by: Galen Charlton --- admin/branches.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/admin/branches.pl b/admin/branches.pl index 6ce54a3631..8525f1a306 100755 --- a/admin/branches.pl +++ b/admin/branches.pl @@ -231,8 +231,10 @@ sub editbranchform { # printer loop foreach my $thisprinter ( keys %$printers ) { + my $selected = 1 - if $oldprinter eq $printers->{$thisprinter}->{'printqueue'}; + if $oldprinter and ( $oldprinter eq $printers->{$thisprinter} ); + my %row = ( value => $thisprinter, selected => $selected, -- 2.39.5