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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-04-14 15:03:36 -0400 (Mon, 14 Apr 2008)
New Revision: 9352

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
rolling back segregation by branch.. if that kind of pre-sorting is needed, just grab the tree

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-04-14 19:03:12 UTC (rev 9351)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-04-14 19:03:36 UTC (rev 9352)
@@ -1370,9 +1370,9 @@
         my @sublist = grep {$_ ne $orgid} @{$U->get_org_descendants($orgid)};
         unshift @sublist, $orgid; # make sure it's at the front of the list
         if($self->api_name =~ /org_id_list/) {
-            push(@list, \@sublist);
+            push(@list, @sublist);
         } else {
-            push(@list, $e->batch_retrieve_actor_org_unit(\@sublist));
+            push(@list, @{$e->batch_retrieve_actor_org_unit(\@sublist)});
         }
     }