From 0f8b4099ce1612a71fba2983f5f41db0714dabeb Mon Sep 17 00:00:00 2001
From: Bill Erickson <berickxx@gmail.com>
Date: Fri, 18 Oct 2019 15:51:40 -0400
Subject: [PATCH] LP1845240 Survey API returns updated fleshed survey

Signed-off-by: Bill Erickson <berickxx@gmail.com>
---
 Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Survey.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Survey.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Survey.pm
index 11342d3182..2a33a39277 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Survey.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Survey.pm
@@ -81,7 +81,16 @@ sub update_survey {
 
     $e->commit;
 
-    return 1;
+    $e->xact_begin;
+    $survey = $e->retrieve_action_survey([
+        $survey->id, 
+        {   flesh => 2, 
+            flesh_fields => {asv => ['questions'], 'asvq' => ['answers']}
+        }
+    ]);
+    $e->rollback;
+
+    return $survey;
 }
 
 # returns undef on success, event on error
-- 
2.11.0