fixed bug in code that uses the org tree
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 25 Jan 2006 19:00:10 +0000 (19:00 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 25 Jan 2006 19:00:10 +0000 (19:00 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2831 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Actor.pm

index e15197f..43e482c 100644 (file)
@@ -1135,7 +1135,7 @@ sub check_user_perms3 {
                $authtoken, $userid, 'VIEW_PERMISSION' );
        return $evt if $evt;
 
-       my $tree = get_org_tree();
+       my $tree = $self->get_org_tree();
        return _find_highest_perm_org( $perm, $userid, $target->home_ou, $tree );
 }
 
@@ -1180,7 +1180,7 @@ sub check_user_perms4 {
 
        my @arr;
        return [] unless ref($perms);
-       my $tree = get_org_tree();
+       my $tree = $self->get_org_tree();
 
        for my $p (@$perms) {
                push( @arr, _find_highest_perm_org( $p, $userid, $target->home_ou, $tree ) );