fixing buggy reserve script
Signed-off-by: Chris Cormack <crc@liblime.com>
This commit is contained in:
parent
f60f27dea7
commit
f8fcab514b
|
|
@ -296,12 +296,12 @@ else {
|
|||
debarred => 1
|
||||
);
|
||||
}
|
||||
my @reserves = GetReservesFromBorrowernumber( $borrowernumber );
|
||||
$template->param( RESERVES => \@reserves );
|
||||
if ( scalar(@$reserves) >= $MAXIMUM_NUMBER_OF_RESERVES ) {
|
||||
my (@reserves) = GetReservesFromBorrowernumber( $borrowernumber );
|
||||
$template->param( RESERVES => $reserves );
|
||||
if ( $#reserves+1 >= $MAXIMUM_NUMBER_OF_RESERVES ) {
|
||||
$template->param( message => 1 );
|
||||
$noreserves = 1;
|
||||
$template->param( too_many_reserves => scalar($reserves));
|
||||
$template->param( too_many_reserves => $#reserves+1 );
|
||||
}
|
||||
foreach my $res (@$reserves) {
|
||||
if ( $res->{'biblionumber'} == $biblionumber ) {
|
||||
|
|
|
|||
Loading…
Reference in New Issue