[open-ils-commits] r9347 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-04-14 13:57:25 -0400 (Mon, 14 Apr 2008)
New Revision: 9347

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
fixed method name typo

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-04-14 17:57:08 UTC (rev 9346)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-04-14 17:57:25 UTC (rev 9347)
@@ -1357,7 +1357,7 @@
 
     # 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;