From aa3f662fa48667e63551c52df0351c756e4e7ee1 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 11 Aug 2008 17:05:16 +0000
Subject: [PATCH] no need to fetch patron on item checkin

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10334 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm | 4 ++--
 1 file changed, 2 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 8cefede17b..5ff9ca767a 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -521,14 +521,14 @@ sub mk_env {
         }
     }
 
+    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 ) {
 
-- 
2.43.2