rolling back segregation by branch.. if that kind of pre-sorting is needed, just...

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@9351 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 f74edd5..eda27d6 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -1367,9 +1367,9 @@ sub check_user_work_perms {
         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)});
         }
     }