From b8ebd3b6dc5a543cf16ac2132ca91d9be0dfd28b Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Mon, 11 Mar 2013 11:33:05 +0100
Subject: [PATCH] Bug 9367: Followup: Code optimization: CheckReserves is too
 often called

---
 C4/Circulation.pm |    9 ++++-----
 C4/Reserves.pm    |   14 +++++++++++---
 2 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index 0999acf..abd4981 100644
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -2473,18 +2473,17 @@ sub CanBookBeRenewed {
 
     $sthcount->execute( $borrowernumber, $itemnumber );
     if ( my $data1 = $sthcount->fetchrow_hashref ) {
-        
         if ( ( $data1->{renewalsallowed} && $data1->{renewalsallowed} > $data1->{renewals} ) || $override_limit ) {
             $renewokay = 1;
         }
         else {
-			$error="too_many";
-		}
-		
+            $error = "too_many";
+        }
+
         my $resstatus = C4::Reserves::GetReserveStatus($itemnumber);
         if ( $resstatus eq "Waiting" or $resstatus eq "Reserved" ) {
             $renewokay = 0;
-            $error->{message} = "on_reserve";
+            $error = "on_reserve";
         }
     }
     return ($renewokay,$error);
diff --git a/C4/Reserves.pm b/C4/Reserves.pm
index ee31ea9..644be68 100644
--- a/C4/Reserves.pm
+++ b/C4/Reserves.pm
@@ -735,12 +735,21 @@ sub GetReservesForBranch {
     return (@transreserv);
 }
 
+=head2 GetReserveStatus
+
+  $reservestatus = GetReserveStatus($itemnumber, $biblionumber);
+
+Take an itemnumber or a biblionumber and return the status of the reserve places on it.
+If several reserves exist, the reserve with the lower priority is given.
+
+=cut
+
 sub GetReserveStatus {
     my ($itemnumber, $biblionumber) = @_;
 
     my $dbh = C4::Context->dbh;
 
-    my ($sth, $found, $priority);
+    my ($sth, $found, $priority) = (undef, q{}, 0);
     if ( $itemnumber ) {
         $sth = $dbh->prepare("SELECT found, priority FROM reserves WHERE itemnumber = ? order by priority LIMIT 1");
         $sth->execute($itemnumber);
@@ -1455,8 +1464,7 @@ sub IsAvailableForItemLevelRequest {
     if (C4::Context->preference('AllowOnShelfHolds')) {
         return $available_per_item;
     } else {
-        my $status = GetReserveStatus($itemnumber);
-        return ($available_per_item and ($item->{onloan} or $status eq "Waiting" or $status = "Reserved"));
+        return ($available_per_item and ($item->{onloan} or GetReserveStatus($itemnumber) eq "Waiting"));
     }
 }
 
-- 
1.7.10.4