protecting permissions at depth

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6269 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index cc5044d..50864c8 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -761,7 +761,7 @@ sub set_user_perms {
                        $map->clear_id;
                }
 
-               next unless ($all || (grep { $_->perm eq $map->perm and $_->grantable == 1 and $_->depth <= $map->depth } @$perms));
+               next if (!$all || !grep { $_->perm eq $map->perm and $_->grantable == 1 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" );