fixing buggy reserve script

Signed-off-by: Chris Cormack <crc@liblime.com>
This commit is contained in:
Paul POULAIN 2007-08-08 11:59:59 +02:00 committed by Chris Cormack
parent f60f27dea7
commit f8fcab514b
1 changed files with 4 additions and 4 deletions

View File

@ -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 ) {