fetching group tree from cstore now

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4864 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 079f625..0493355 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -1933,14 +1933,27 @@ __PACKAGE__->register_method(
        NOTES
 sub retrieve_groups_tree {
        my( $self, $client ) = @_;
-       my $groups = $apputils->simple_scalar_request(
-               "open-ils.storage",
-               "open-ils.storage.direct.permission.grp_tree.retrieve.all.atomic");
-       return $self->build_group_tree($groups);        
+       return new_editor()->search_permission_grp_tree(
+               [
+                       { parent => undef},
+                       {       
+                               flesh                           => 10, 
+                               flesh_fields    => { pgt => ["children"] }, 
+                               order_by                        => {pgt => 'name'}
+                       }
+               ]
+       );
+
+#      my $groups = $apputils->simple_scalar_request(
+#              "open-ils.storage",
+#              "open-ils.storage.direct.permission.grp_tree.retrieve.all.atomic");
+#      return $self->build_group_tree($groups);        
+
 }
 
 
 # turns an org list into an org tree
+=head old code
 sub build_group_tree {
 
        my( $self, $grplist) = @_;
@@ -1964,8 +1977,8 @@ sub build_group_tree {
        }
 
        return $root;
-
 }
+=cut
 
 
 __PACKAGE__->register_method(