From bcea70eafb14393affdf6c771aee0d4ddbecfd68 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 3 Jun 2008 03:35:28 +0000 Subject: [PATCH] adding is_true wrapper on super_user test. toggled boolean test to allow superuser to edit perms git-svn-id: svn://svn.open-ils.org/ILS/trunk@9760 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm index 768d7e5aad..9f874ed19e 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm @@ -842,7 +842,7 @@ sub set_user_perms { 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 @@ sub set_user_perms { $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" ); -- 2.43.2