fixing buggy reserve script

Signed-off-by: Chris Cormack <crc@liblime.com>

diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl
index 5e85aa8..3480e01 100755 (executable)
--- a/opac/opac-reserve.pl
+++ b/opac/opac-reserve.pl
@@ -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 ) {