fixed method name typo

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@9346 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 7f39418..e00553c 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -1354,7 +1354,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;