[open-ils-commits] r13948 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-02 08:53:56 -0400 (Wed, 02 Sep 2009)
New Revision: 13948

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
bypass hold fulfillment attempt when checking out pre/non cat items

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-02 12:41:21 UTC (rev 13947)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-02 12:53:56 UTC (rev 13948)
@@ -1257,6 +1257,10 @@
     $self->bail_out(1);
 }
 
+
+# ------------------------------------------------------------------------------
+# When an item is checked out, see if we can fulfill a hold for this patron
+# ------------------------------------------------------------------------------
 sub handle_checkout_holds {
    my $self    = shift;
    my $copy    = $self->copy;
@@ -1265,6 +1269,9 @@
    my $e = $self->editor;
    $self->fulfilled_holds([]);
 
+   # pre/non-cats can't fulfill a hold
+   return if $self->is_precat or $self->is_noncat;
+
     my $hold = $e->search_action_hold_request({   
         current_copy        => $copy->id , 
         cancel_time         => undef,