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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index ca91fa1..8cefede 100644 (file)
--- 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,
                     ]
                 }