From b25b18f8a0fd3f34e7e33996d9cf2014f68cad70 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 1 Oct 2008 00:29:18 +0000
Subject: [PATCH] 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

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10739 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 1f26708dfc..dfa1820d4d 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -284,7 +284,7 @@ sub translate_legacy_args {
     }
 
     if( $$args{precat} ) {
-        $$args{is_precat} = $$args{precat};
+        $$args{is_precat} = $$args{request_precat} = $$args{precat};
         delete $$args{precat};
     }
 }
@@ -339,6 +339,7 @@ my @AUTOLOAD_FIELDS = qw/
     check_penalty_on_renew
     is_noncat
     is_precat
+    request_precat
     is_checkin
     noncat_type
     editor
@@ -666,7 +667,7 @@ sub do_permit {
         $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));
-- 
2.11.0