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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-06-02 23:35:28 -0400 (Mon, 02 Jun 2008)
New Revision: 9760

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
adding is_true wrapper on super_user test.  toggled boolean test to allow superuser to edit perms

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-06-03 03:33:42 UTC (rev 9759)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-06-03 03:35:28 UTC (rev 9760)
@@ -842,7 +842,7 @@
 	my $perms = $session->request('open-ils.storage.permission.user_perms.atomic', $user_obj->id)->gather(1);
 
 	my $all = undef;
-	$all = 1 if ($user_obj->super_user());
+	$all = 1 if ($U->is_true($user_obj->super_user()));
     $all = 1 unless ($U->check_perms($user_obj->id, $user_obj->home_ou, 'EVERYTHING'));
 
 	for my $map (@$maps) {
@@ -855,8 +855,7 @@
 			$map->clear_id;
 		}
 
-		next if (!$all || !grep { $_->perm eq $map->perm and $U->is_true($_->grantable) and $_->depth <= $map->depth } @$perms);
-
+		next if (!$all and !grep { $_->perm eq $map->perm and $U->is_true($_->grantable) and $_->depth <= $map->depth } @$perms);
 		#warn( "Updating permissions with method $method and session $ses and map $map" );
 		$logger->info( "Updating permissions with method $method and map $map" );