Lines 853-863
sub CheckReserves {
Link Here
|
853 |
|
853 |
|
854 |
my $priority = 10000000; |
854 |
my $priority = 10000000; |
855 |
foreach my $res (@reserves) { |
855 |
foreach my $res (@reserves) { |
856 |
if ($res->{'found'} eq 'W') { |
856 |
if ($res->{'found'} && $res->{'found'} eq 'W') { |
857 |
return ( "Waiting", $res, \@reserves ); # Found it, it is waiting |
857 |
return ( "Waiting", $res, \@reserves ); # Found it, it is waiting |
858 |
} elsif ($res->{'found'} eq 'P') { |
858 |
} elsif ($res->{'found'} && $res->{'found'} eq 'P') { |
859 |
return ( "Processing", $res, \@reserves ); # Found determinated hold, e. g. the transferred one |
859 |
return ( "Processing", $res, \@reserves ); # Found determinated hold, e. g. the transferred one |
860 |
} elsif ($res->{'found'} eq 'T') { |
860 |
} elsif ($res->{'found'} && $res->{'found'} eq 'T') { |
861 |
return ( "Transferred", $res, \@reserves ); # Found determinated hold, e. g. the transferred one |
861 |
return ( "Transferred", $res, \@reserves ); # Found determinated hold, e. g. the transferred one |
862 |
} else { |
862 |
} else { |
863 |
my $patron; |
863 |
my $patron; |
864 |
- |
|
|