Fixing a bug with notforloan being checked properly

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index 1694444..a689f8b 100644 (file)
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -715,6 +715,22 @@ sub CanBookBeIssued {
     {
         $issuingimpossible{NOT_FOR_LOAN} = 1;
     }
+       elsif ( !$item->{'notforloan'} ){
+               # we have to check itemtypes.notforloan also
+               if (C4::Context->preference('item-level_itypes')){
+                       # this should probably be a subroutine
+                       my $sth = $dbh->prepare("SELECT notforloan FROM itemtypes WHERE itemtype = ?");
+                       $sth->execute($item->{'itemtype'});
+                       my $notforloan=$sth->fetchrow_hashref();
+                       $sth->finish();
+                       if ($notforloan->{'notforloan'} == 1){
+                               $issuingimpossible{NOT_FOR_LOAN} = 1;                           
+                       }
+               }
+               elsif ($biblioitem->{'notforloan'} == 1){
+                       $issuingimpossible{NOT_FOR_LOAN} = 1;
+               }
+       }
     if ( $item->{'wthdrawn'} && $item->{'wthdrawn'} == 1 )
     {
         $issuingimpossible{WTHDRAWN} = 1;