[open-ils-commits] r7703 - trunk/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

Author: miker
Date: 2007-08-17 17:02:46 -0400 (Fri, 17 Aug 2007)
New Revision: 7703

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Proxy.pm
Log:
debugging

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Proxy.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Proxy.pm	2007-08-17 20:56:14 UTC (rev 7702)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Proxy.pm	2007-08-17 21:02:46 UTC (rev 7703)
@@ -108,6 +108,8 @@
 
 	$ws_ou ||= $user->home_ou;
 
+	warn "Checking perms " . join(',', @$perms) . " for user " . $user->id . " at location $ws_ou\n";
+
 	my $failures = OpenSRF::AppSession
 		->create('open-ils.actor')
 		->request('open-ils.actor.user.perm.check', $auth_ses, $user->id, $ws_ou, $perms)