From 6f641ec2fce5d85886d245cd83bf93853d5b7866 Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 18 Jul 2005 18:45:08 +0000 Subject: [PATCH] adding retrieve.all for perm groups git-svn-id: svn://svn.open-ils.org/ILS/trunk@1267 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../Application/Storage/Publisher/permission.pm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) 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 ee0b5d15cf..c03c9d6ec8 100644 --- 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; -- 2.43.2