From 6f569e15f68c31761da748ba03ec6a6a6fdab4e5 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 17 May 2005 22:49:58 +0000 Subject: [PATCH] retrieve.required now fleshes the surveys returned git-svn-id: svn://svn.open-ils.org/ILS/trunk@736 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Survey.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Survey.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Survey.pm index 9b64c302f6..8d6d63b5fb 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Survey.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Survey.pm @@ -137,10 +137,17 @@ sub get_required_surveys { my( $self, $client, $user_session ) = @_; my $user_obj = $apputils->check_user_session($user_session); - return $apputils->simple_scalar_request( + my $surveys = $apputils->simple_scalar_request( "open-ils.storage", "open-ils.storage.action.survey.required.atomic", $user_obj->home_ou() ); + + my @fleshed; + for my $survey (@$surveys) { + push(@fleshed, $self->get_fleshed_survey($client, $survey)); + } + return \@fleshed; + } __PACKAGE__->register_method( -- 2.43.2