From ccd1deaef8e3c39de69e9168fe6e162ee95138c9 Mon Sep 17 00:00:00 2001
From: Kaleb Murphy <perlmonkey2@webgui-svn>
Date: Tue, 14 Oct 2008 21:20:05 +0000
Subject: [PATCH] minor changes

---
 .../Asset/Wobject/Survey/ResponseJSON.pm      | 282 ++++++++++++++++++
 1 file changed, 282 insertions(+)
 create mode 100644 lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm

diff --git a/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm b/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm
new file mode 100644
index 000000000..b2c44673b
--- /dev/null
+++ b/lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm
@@ -0,0 +1,282 @@
+package WebGUI::Asset::Wobject::Survey::ResponseJSON;
+
+use strict;
+use JSON;
+use Data::Dumper;
+
+sub new{
+    my $class = shift;
+    my $json = shift;
+    my $log = shift;
+    my $rId = shift;
+    my $survey = shift;
+    my $self = {};
+    $self->{survey} = $survey;
+    $self->{log} = $log;
+    $self->{responseId} = $rId;
+    my $temp = decode_json($json) if defined $json;
+    $self->{goto} = defined $temp->{goto} ? $temp->{goto} : [];
+    $self->{surveyOrder} = defined $temp->{surveyOrder} ? $temp->{surveyOrder} : [];#an array of question addresses, with the third member being an array of answers
+    $self->{responses} = defined $temp->{responses} ? $temp->{responses} : {};
+    $self->{lastResponse} = defined $temp->{lastResponse} ? $temp->{lastResponse} : -1;
+    bless($self,$class);
+    return $self;
+}
+
+#----------------------------------------------------------------------------
+
+=head2 createSurveyOrder ( SurveyJSON, [address,address] )
+
+This creates the order for the survey which will change after every fork.  
+The survey order is to precreate random questions and answers, which also leaves a record or what the user was presented with.
+Forks are passed in to show where to branch the new order.
+
+=cut
+
+sub createSurveyOrder{
+    my $self = shift;
+#    my $fork = shift || [];
+    my $order;
+    my $qstarting = 0;
+eval{
+    for(my $s = 0; $s <= $#{$self->survey->sections()}; $s++){
+        #create question order for section
+        my @qorder;
+        if($self->survey->section([$s])->{randomizeQuestions}){
+            @qorder = shuffle(($qstarting .. $#{$self->survey->questions([$s])}));
+        }else{
+            @qorder = (($qstarting .. $#{$self->survey->questions([$s])}));
+        }
+
+        #if this is an empty section, make sure it is still on the list to be seen
+        if(@qorder == 0){
+            push(@$order,[$s]);
+        }
+        $qstarting = 0;
+        #create answer order for question
+        for (@qorder){
+            my @aorder;
+            if($self->survey->question([$s,$_])->{randomizeAnswers}){
+                @aorder = shuffle(($qstarting .. $#{$self->survey->question([$s,$_])->{answers}}));
+            }else{
+                @aorder = (($qstarting .. $#{$self->survey->question([$s,$_])->{answers}}));
+            }
+            push(@$order,[$s,$_,\@aorder]);
+#            if(@$fork == 2){
+#                if($$fork[0][0] == $s and $$fork[0][1] == $_){
+#                    $s = $$fork[1][0]-1;
+#                    $qstarting = $$fork[1][1];
+#                    last;
+#                }
+#            }
+        }
+    }
+};
+$self->log($@) if($@);
+    $self->{surveyOrder} = $order;
+}
+sub shuffle {
+    my @a = splice @_;
+    for my $i (0 .. $#a) {
+        my $j = int rand @a;
+        @a[$i, $j] = @a[$j, $i];
+    }
+    return @a;
+}
+
+sub freeze{
+    my $self = shift;
+    my %temp = %{$self};
+    delete $temp{log};
+    delete $temp{survey};
+    return encode_json(\%temp);
+}
+#the index of the last surveyOrder entry shown
+sub lastResponse{
+    my $self = shift;
+    my $res = shift;
+    if(defined $res){
+        $self->{lastResponse} = $res;
+    }else{
+        return $self->{lastResponse};
+    }
+}
+#array of addresses in which the survey should be presented
+sub surveyOrder{
+    my $self = shift;
+    return $self->{surveyOrder};
+}
+
+
+sub nextSectionId{
+    my $self = shift;
+    return $self->surveyOrder->[$self->lastResponse + 1]->[0];     
+}
+
+
+sub nextSection{
+    my $self = shift;
+    return $self->survey->section([$self->surveyOrder->[$self->lastResponse + 1]->[0]]);
+}
+
+
+sub recordResponses{
+    my $self = shift;
+    my $responses = shift;
+    my $session = shift;
+
+    my %mcTypes = ('Agree/Disagree',1,'Certainty',1,'Concern',1,'Confidence',1,'Education',1,'Effectiveness',1,'Gender',1,'Ideology',1,'Importance',1,
+        'Likelihood',1,'Party',1,'Multiple Choice',1,'Oppose/Support',1,'Race',1,'Risk',1,'Satisfaction',1,'Scale',1,'Security',1,
+        'Threat',1,'True/False',1,'Yes/No',1);
+    my %sliderTypes = ('Dual Slider - Range',1,'Multi Slider - Allocate',1,'Slider',1);
+    my %textTypes = ('Currency','Email',1,'Phone Number',1,'Text',1,'Text Date',1);
+    my %fileTypes = ('File Upload',1);
+    my %dateTypes = ('Date','Date Range',1);
+    my %hiddenTypes = ('Hidden',1);
+
+    #These were just submitted from the user, so we need to see what and how they were (un)answered.
+    my $questions = $self->nextQuestions();
+    my $qAnswered = 1;
+    my $terminal = 0;
+    my $terminalUrl;
+    my $goto;
+    my $section = $self->survey->section([$questions->[0]->{sid}]);
+    if($section->{terminal}){
+        $terminal = 1;
+        $terminalUrl = $section->{terminalUrl};
+    }
+    for my $question(@$questions){
+        my $aAnswered = 0;
+        if($question->{terminal}){
+            $terminal = 1;
+            $terminalUrl = $question->{terminalUrl};
+        }
+        for my $answer(@{$question->{answers}}){
+
+            if(defined($responses->{$answer->{id}}) and $responses->{$answer->{id}} =~ /\S/){
+
+                $aAnswered = 1;
+                if($mcTypes{$question->{questionType}}){
+                    $self->responses->{$answer->{id}}->{value} = $answer->{recordedAnswer};
+                }
+                else{
+                    $self->responses->{$answer->{id}}->{value} = $responses->{$answer->{id}};
+                }
+
+                $self->responses->{$answer->{id}}->{comment} = $responses->{$answer->{id}."comment"};
+
+                if($answer->{terminal}){
+                    $terminal = 1;
+                    $terminalUrl = $answer->{terminalUrl};
+                }
+                elsif($answer->{goto} =~ /\S/){
+                    $goto = $answer->{goto};     
+                }
+            }
+        }
+        $qAnswered = 0 if(!$aAnswered and $question->{required});
+    }
+    
+    #if all responses completed, move the lastResponse index to the last question shown
+    if($qAnswered){
+        $self->lastResponse($self->lastResponse + @$questions);
+        $self->goto($goto);
+    }else{
+        $terminal = 0;
+    }
+    return [$terminal,$terminalUrl];
+}
+sub goto{
+    my $self = shift;
+    my $goto = shift;
+
+
+}
+sub getPreviousAnswer{
+    my $self = shift;
+    my $questionParam = shift;
+    for my $q (@{$self->surveyOrder}){
+        my $question = $self->survey->question([$$q[0],$$q[1]]);
+        if($question->{variable} eq $questionParam){
+            for (0 .. @{$self->survey->answers([$$q[0],$$q[1]])}){
+                if(exists $self->responses->{$$q[0]."-".$$q[1]."-".$_}){
+                    return $self->responses->{$$q[0]."-".$$q[1]."-".$_}->{value};
+                }
+            }
+        }
+    }
+}
+
+sub nextQuestions{
+    my $self = shift;
+$self->log("In nextQuestions");
+
+    if($self->lastResponse >= $#{$self->surveyOrder}){
+        return [];
+    }
+
+    my $nextSectionId = $self->nextSectionId;
+
+$self->log("next sectionid is $nextSectionId");
+    
+    my $qPerPage = $self->survey->section([$self->nextSectionId])->{questionsPerPage};
+
+
+    #load Previous answer text
+    my $section = $self->nextSection(); 
+$self->log("Section text is ".$section->{text});
+    $section->{'text'} =~ s/\[\[([^\%]*?)\]\]/$self->getPreviousAnswer($1)/eg;
+#    $section->{'text'} =~ s/(\[\[\%.*?\]\])/$self->getRandomText($responseId,$1)/eg;
+
+$self->log("qperpage $qPerPage");
+
+    my $questions;
+    for(my $i = 1; $i <= $qPerPage; $i++){
+        my $qAddy= $self->surveyOrder->[$self->lastResponse + $i];
+
+$self->log("qAddy was $$qAddy[0]-$$qAddy[1]");
+
+        if($$qAddy[0] != $nextSectionId){
+            last;
+        }
+        my %question = %{$self->survey->question([$$qAddy[0],$$qAddy[1]])};
+        $question->{'text'} =~ s/\[\[([^\%]*?)\]\]/$self->getPreviousAnswer($1)/eg;
+        delete $question{answers};
+        $question{id} = "$$qAddy[0]-$$qAddy[1]";
+        $question{sid} = "$$qAddy[0]";
+        for (@{$$qAddy[2]}){
+            my $ans = $self->survey->answer([$$qAddy[0],$$qAddy[1],$_]);
+            $ans->{'text'} =~ s/\[\[([^\%]*?)\]\]/$self->getPreviousAnswer($1)/eg;
+            $ans->{id} = "$$qAddy[0]-$$qAddy[1]-$_";
+            push(@{$question{answers}},$ans);
+        }
+        push(@$questions,\%question);
+    }
+    return $questions
+}
+sub surveyEnd{
+    my $self = shift;
+    return 1 if($self->lastResponse > $#{$self->surveyOrder});
+    return 0;
+}
+
+
+#the actual responses to the survey.  A response is for a question and is accessed by the exact same address as a survey member.
+#Questions only contain the comment and an array of answer Responses. 
+#Answers only contain, entered text, entered verbatim, their index in the Survey Question Answer array, and the assetId to the uploaded file.
+sub responses{
+    my $self = shift;
+    return $self->{responses};
+}
+
+sub survey{
+    my $self = shift;
+    return $self->{survey};
+}
+sub log{
+    my ($self,$message) = @_;
+    if(defined $self->{log}){
+        $self->{log}->error($message);
+    }
+}
+1;