[open-ils-commits] r9351 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

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

Modified:
   branches/acq-experiment/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: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-04-14 18:39:08 UTC (rev 9350)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2008-04-14 19:03:12 UTC (rev 9351)
@@ -1367,9 +1367,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)});
         }
     }