From 24db33ffa91ac4025406138c9e36dc8225682bf6 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 5 Aug 2008 12:34:03 +0000
Subject: [PATCH] no need to bail out on no-copy.  if precat, send null copy id
 to circ test

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index ca91fa1572..8cefede17b 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -503,8 +503,7 @@ sub mk_env {
 	    } elsif( $self->copy_barcode ) {
     
 		    $copy = $e->search_asset_copy(
-			    [{barcode => $self->copy_barcode, deleted => 'f'}, $flesh ])->[0]
-			    or return $e->event;
+			    [{barcode => $self->copy_barcode, deleted => 'f'}, $flesh ])->[0];
 	    }
     
         if($copy) {
@@ -822,7 +821,7 @@ sub run_indb_circ_test {
                 {   from => [
                         $dbfunc,
                         $self->editor->requestor->ws_ou,
-                        $self->copy->id, 
+                        ($self->is_precat) ? undef : $self->copy->id, 
                         $self->patron->id,
                     ]
                 }
-- 
2.11.0