retrieve.required now fleshes the surveys returned

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Survey.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Survey.pm
index 9b64c30..8d6d63b 100644 (file)
--- 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(