From 8cfb2daeeb7813d51b6ca27cde8d088e07b17ef7 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 14 Apr 2008 19:03:12 +0000 Subject: [PATCH] rolling back segregation by branch.. if that kind of pre-sorting is needed, just grab the tree git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@9351 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm index f74edd5ca1..eda27d68ab 100644 --- 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)}); } } -- 2.11.0