added call to retrieve the user groups

git-svn-id: svn://svn.open-ils.org/ILS/trunk@1272 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 c4154e8..a2633bc 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -838,9 +838,6 @@ sub update_password {
 }
 
 
-# returns undef on success, the first perm_type that failed
-# on permission error
-
 __PACKAGE__->register_method(
        method  => "check_user_perms",
        api_name        => "open-ils.actor.user.perm.check",
@@ -1027,6 +1024,33 @@ sub user_transactions {
        return \@resp; 
 } 
 
+
+
+
+__PACKAGE__->register_method(
+       method  => "retrieve_groups",
+       api_name        => "open-ils.actor.groups.retrieve",
+       notes           => <<"  NOTES");
+       Returns a list of user groups
+       NOTES
+sub retrieve_groups {
+       my( $self, $client ) = @_;
+       return $apputils->simple_scalar_request(
+               "open-ils.storage",
+               "open-ils.storage.direct.permission.grp_tree.retrieve.all.atomic");
+}
+
+
+
+
+
+
+
+
+
+
+
+
 1;