adding retrieve.all for perm groups

git-svn-id: svn://svn.open-ils.org/ILS/trunk@1267 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/permission.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/permission.pm
index ee0b5d1..c03c9d6 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/permission.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/permission.pm
@@ -3,6 +3,23 @@ use base qw/OpenILS::Application::Storage/;
 #use OpenILS::Application::Storage::CDBI::config;
 
 
+sub retrieve_all {
+       my $self = shift;
+       my $client = shift;
+
+       for my $rec ( permission::grp_tree->retrieve_all ) {
+               $client->respond( $rec->to_fieldmapper );
+       }
+
+       return undef;
+}
+__PACKAGE__->register_method(
+       method          => 'retrieve_all',
+       api_name        => 'open-ils.storage.direct.permission.grp_tree.retrieve.all',
+       argc            => 3,
+       stream          => 1,
+);
+
 sub usr_has_perm {
        my $self = shift;
        my $client = shift;