LP1661747: get_org_unit_ancestor_at_depth Helper
authorJason Boyer <jboyer@library.in.gov>
Fri, 3 Feb 2017 21:23:28 +0000 (16:23 -0500)
committerMike Rylander <mrylander@gmail.com>
Fri, 17 Feb 2017 17:52:07 +0000 (12:52 -0500)
Add a helper to the A/T system to retrieve an ou's
ancestor at the specified depth in the tree.

Signed-off-by: Jason Boyer <jboyer@library.in.gov>
Signed-off-by: Mike Rylander <mrylander@gmail.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Reactor.pm

index 7b96edb..0df0ab0 100644 (file)
@@ -106,6 +106,13 @@ $_TT_helpers = {
         return new_editor()->retrieve_actor_org_unit($org_id);
     },
 
         return new_editor()->retrieve_actor_org_unit($org_id);
     },
 
+    get_org_unit_ancestor_at_depth => sub {
+      my $org_id = shift;
+      my $depth = shift;
+      $org_id = $org_id->id if ref $org_id;
+      return new_editor()->retrieve_actor_org_unit($U->org_unit_ancestor_at_depth($org_id, $depth));
+    }, 
+
     # given a copy, returns the title and author in a hash
     get_copy_bib_basics => sub {
         my $copy_id = shift;
     # given a copy, returns the title and author in a hash
     get_copy_bib_basics => sub {
         my $copy_id = shift;