fixed method name typo

git-svn-id: svn://svn.open-ils.org/ILS/trunk@9347 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 6261a40..23c06d6 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -1357,7 +1357,7 @@ sub check_user_work_perms {
 
     # build a list of org trees
     return get_org_descendants($self, $conn, $orglist)
-        if $self->api_name =~ /org_tree_set/;
+        if $self->api_name =~ /org_tree_list/;
 
     my @list;
     push(@list, @{$U->get_org_descendants($_)}) for @$orglist;