added some org/session methods

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5489 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 5781ca6..1a50693 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -2411,6 +2411,44 @@ sub session_home_lib {
 
 
 
+__PACKAGE__->register_method(
+       method => 'slim_tree',
+       api_name        => "open-ils.actor.org_tree.slim_hash.retrieve",
+);
+sub slim_tree {
+       my $tree = new_editor()->search_actor_org_unit( 
+               [
+                       {"parent_ou" => undef },
+                       {
+                               flesh                           => 2,
+                               flesh_fields    => { aou =>  ['children'] },
+                               order_by                        => { aou => 'name'},
+                               select                  => { aou => ["id","shortname", "name"]},
+                       }
+               ]
+       )->[0];
+
+       return trim_tree($tree);
+}
+
+
+sub trim_tree {
+       my $tree = shift;
+       return undef unless $tree;
+       my $htree = {
+               code => $tree->shortname,
+               name => $tree->name,
+       };
+       if( $tree->children and @{$tree->children} ) {
+               $htree->{children} = [];
+               for my $c (@{$tree->children}) {
+                       push( @{$htree->{children}}, trim_tree($c) );
+               }
+       }
+
+       return $htree;
+}
+
 
 1;