augmented the org descendants retrieval method to take an optional list of orgs

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@9337 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 cf521ef..92a7b14 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -1045,11 +1045,26 @@ __PACKAGE__->register_method(
 # depth is optional.  org_unit is the id
 sub get_org_descendants {
        my( $self, $client, $org_unit, $depth ) = @_;
-       my $orglist = $apputils->simple_scalar_request(
-                       "open-ils.storage", 
-                       "open-ils.storage.actor.org_unit.descendants.atomic",
-                       $org_unit, $depth );
-       return $U->build_org_tree($orglist);
+
+    if(ref $org_unit eq 'ARRAY') {
+        $depth ||= [];
+        my @trees;
+        for my $i (0..scalar(@$org_unit)-1) {
+            my $list = $U->simple_scalar_request(
+                           "open-ils.storage", 
+                           "open-ils.storage.actor.org_unit.descendants.atomic",
+                           $org_unit->[$i], $depth->[$i] );
+            push(@trees, $U->build_org_tree($list));
+        }
+        return \@trees;
+
+    } else {
+           my $orglist = $apputils->simple_scalar_request(
+                           "open-ils.storage", 
+                           "open-ils.storage.actor.org_unit.descendants.atomic",
+                           $org_unit, $depth );
+           return $U->build_org_tree($orglist);
+    }
 }