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