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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-08-05 08:34:03 -0400 (Tue, 05 Aug 2008)
New Revision: 10259

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
no need to bail out on no-copy.  if precat, send null copy id to circ test

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-08-05 03:15:03 UTC (rev 10258)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-08-05 12:34:03 UTC (rev 10259)
@@ -503,8 +503,7 @@
 	    } 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 @@
                 {   from => [
                         $dbfunc,
                         $self->editor->requestor->ws_ou,
-                        $self->copy->id, 
+                        ($self->is_precat) ? undef : $self->copy->id, 
                         $self->patron->id,
                     ]
                 }