From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 18 Jul 2005 19:41:21 +0000 (+0000)
Subject: added call to retrieve the user groups
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=6fb71a4e86dc988061099dcbeb89bf812d2133f0;p=Evergreen.git

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 c4154e867e..a2633bcb1a 100644
--- 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;