returning only the tree and not an array with the tree in it

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4911 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 83eb66f..f19fb9d 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -1942,7 +1942,7 @@ sub retrieve_groups_tree {
                                order_by                        => { pgt => 'name'}
                        }
                ]
-       );
+       )->[0];
 
 #      my $groups = $apputils->simple_scalar_request(
 #              "open-ils.storage",