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 |
- |
|
|