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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-12-23 13:06:02 -0500 (Tue, 23 Dec 2008)
New Revision: 11663

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
only fetch the user if needed for perm checking

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-12-23 16:30:16 UTC (rev 11662)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-12-23 18:06:02 UTC (rev 11663)
@@ -1845,9 +1845,9 @@
 
 	my $e = new_editor(authtoken=>$auth);
 	return $e->event unless $e->checkauth;
-    my $user = $e->retrieve_actor_user($userid) or return $e->event;
 
 	if( $userid ne $e->requestor->id ) {
+        my $user = $e->retrieve_actor_user($userid) or return $e->event;
 		unless($e->allowed('VIEW_CIRCULATIONS', $user->home_ou)) {
 
             # see if there is a friend link allowing circ.view perms