fixes many 'Use of uninitialized value in string eq at ...' warnings.. at admin/branc...

[koha.git] / admin / branches.pl

diff --git a/admin/branches.pl b/admin/branches.pl
index 6ce54a3..8525f1a 100755 (executable)
--- 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,