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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-08-11 13:05:16 -0400 (Mon, 11 Aug 2008)
New Revision: 10334

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
no need to fetch patron on item checkin

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-08-11 15:35:43 UTC (rev 10333)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-08-11 17:05:16 UTC (rev 10334)
@@ -521,14 +521,14 @@
         }
     }
 
+    return undef if $self->is_checkin;
 
     # --------------------------------------------------------------------------
     # Grab the patron
     # --------------------------------------------------------------------------
     my $patron;
-    my $p_evt;
 	if( $self->patron_id ) {
-		$patron = $e->retrieve_actor_user($self->patron_id) or $p_evt = $e->event;
+		$patron = $e->retrieve_actor_user($self->patron_id) or return $e->event;
 
 	} elsif( $self->patron_barcode ) {