From cd8402919d91a4e6990cd1d7eafc61fa6fb22bf7 Mon Sep 17 00:00:00 2001
From: Kaleb Murphy <perlmonkey2@webgui-svn>
Date: Fri, 3 Apr 2009 17:14:10 +0000
Subject: [PATCH] Survey summary code, intermediate check in.  Zero changes in
 function.

---
 lib/WebGUI/Asset/Wobject/Survey.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lib/WebGUI/Asset/Wobject/Survey.pm b/lib/WebGUI/Asset/Wobject/Survey.pm
index 759290e7d..ede348662 100644
--- a/lib/WebGUI/Asset/Wobject/Survey.pm
+++ b/lib/WebGUI/Asset/Wobject/Survey.pm
@@ -193,6 +193,13 @@ sub definition {
             #            hoverHelp       => $i18n->get('editForm workflowIdAddEntry description'),
             none => 1,
         },
+        quizModeSummary => {
+            fieldType    => 'yesNo',
+            defaultValue => 0,
+            tab          => 'properties',
+            label        => $i18n->get('Quiz mode summaries'),
+            hoverHelp    => $i18n->get('Quiz mode summaries help'),
+        }
     );
 
     #my $defaultMC = $session->  
@@ -1166,6 +1173,13 @@ sub www_loadQuestions {
 
     if ( $self->responseJSON->surveyEnd() ) {
         $self->session->log->debug('Response surveyEnd, so calling surveyEnd');
+        if ( $self->get('quizModeSummary') ) {
+            if(! $self->session->form->param('shownsummary')){
+                my $summary = $self->responseJSON->showSummary();
+                my $out = $self->processTemplate( $summary, $self->get('surveyQuestionsId') );
+#                return $out;
+            }
+        }
         return $self->surveyEnd();
     }