Lines 807-813
sub CheckReserves {
Link Here
|
807 |
my $priority = 10000000; |
807 |
my $priority = 10000000; |
808 |
foreach my $res (@reserves) { |
808 |
foreach my $res (@reserves) { |
809 |
if ( $res->{'itemnumber'} == $itemnumber && $res->{'priority'} == 0) { |
809 |
if ( $res->{'itemnumber'} == $itemnumber && $res->{'priority'} == 0) { |
810 |
return ( "Waiting", $res, \@reserves ); # Found it |
810 |
if ($res->{'found'} eq 'W') { |
|
|
811 |
return ( "Waiting", $res, \@reserves ); # Found it, it is waiting |
812 |
} else { |
813 |
return ( "Reserved", $res, \@reserves ); # Found determinated hold, e. g. the tranferred one |
814 |
} |
811 |
} else { |
815 |
} else { |
812 |
my $patron; |
816 |
my $patron; |
813 |
my $iteminfo; |
817 |
my $iteminfo; |
814 |
- |
|
|