[open-ils-commits] r10739 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-30 20:29:18 -0400 (Tue, 30 Sep 2008)
New Revision: 10739

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
needed an extra bit of logic to tell checkout.full not to treat a precat as a stop-event if the caller knows it is a precat

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-09-30 17:42:42 UTC (rev 10738)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-10-01 00:29:18 UTC (rev 10739)
@@ -284,7 +284,7 @@
     }
 
     if( $$args{precat} ) {
-        $$args{is_precat} = $$args{precat};
+        $$args{is_precat} = $$args{request_precat} = $$args{precat};
         delete $$args{precat};
     }
 }
@@ -339,6 +339,7 @@
     check_penalty_on_renew
     is_noncat
     is_precat
+    request_precat
     is_checkin
     noncat_type
     editor
@@ -666,7 +667,7 @@
         $self->is_renewal and not $self->check_penalty_on_renew;
     return if $self->bail_out;
 
-    if( $self->is_precat ) {
+    if($self->is_precat and not $self->request_precat) {
         $self->push_events(
             OpenILS::Event->new(
                 'ITEM_NOT_CATALOGED', payload => $self->mk_permit_key));