Lines 732-738
sub CheckReserves {
Link Here
|
732 |
my $priority = 10000000; |
732 |
my $priority = 10000000; |
733 |
foreach my $res (@reserves) { |
733 |
foreach my $res (@reserves) { |
734 |
if ( $res->{'itemnumber'} == $itemnumber && $res->{'priority'} == 0) { |
734 |
if ( $res->{'itemnumber'} == $itemnumber && $res->{'priority'} == 0) { |
735 |
return ( "Waiting", $res, \@reserves ); # Found it |
735 |
if ($res->{'found'} eq 'W') { |
|
|
736 |
return ( "Waiting", $res, \@reserves ); # Found it, it is waiting |
737 |
} else { |
738 |
return ( "Reserved", $res, \@reserves ); # Found determinated hold, e. g. the tranferred one |
739 |
} |
736 |
} else { |
740 |
} else { |
737 |
my $patron; |
741 |
my $patron; |
738 |
my $iteminfo; |
742 |
my $iteminfo; |
739 |
- |
|
|