oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
webgui/lib/WebGUI/Asset/Wobject/Survey.pm
JT Smith a440cb5f41 fix: Security bug in session env
2006-07-11 20:32:46 +00:00

1423 lines
60 KiB
Perl
Raw Blame History

package WebGUI::Asset::Wobject::Survey;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
use Tie::CPHash;
use WebGUI::HTMLForm;
use WebGUI::International;
use WebGUI::SQL;
use WebGUI::Utility;
use WebGUI::Asset::Wobject;
use Digest::MD5 qw(md5_hex);
our @ISA = qw(WebGUI::Asset::Wobject);
#-------------------------------------------------------------------
sub addAnswer {
my $self = shift;
my $answer = shift;
my $qid = shift;
my $i18n = WebGUI::International->new($self->session,'Asset_Survey');
$self->setCollateral("Survey_answer","Survey_answerId",{
Survey_id=>$self->get("Survey_id"),
Survey_questionId=>$qid,
Survey_answerId=>"new",
answer=>$i18n->get($answer)
},1,0,"Survey_id");
}
#-------------------------------------------------------------------
sub addSection {
my $self = shift;
my $sectionName = shift;
my $sectionId = $self->setCollateral("Survey_section","Survey_sectionId",{
Survey_id=>$self->get("Survey_id"),
Survey_sectionId=>"new",
sectionName=>$sectionName
},1,0,"Survey_id");
return $sectionId;
}
#-------------------------------------------------------------------
sub completeResponse {
my $self = shift;
my $responseId = shift;
$self->session->db->setRow("Survey_response","Survey_responseId",{
'Survey_responseId'=>$responseId,
isComplete=>1
});
$self->session->scratch->delete($self->getResponseIdString);
}
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,'Asset_Survey');
push(@{$definition}, {
assetName=>$i18n->get('assetName'),
uiLevel => 5,
icon=>'survey.gif',
tableName => 'Survey',
className => 'WebGUI::Asset::Wobject::Survey',
properties => {
templateId => {
fieldType => 'template',
defaultValue => 'PBtmpl0000000000000061'
},
Survey_id => {
fieldType => 'text',
defaultValue => undef
},
questionOrder => {
fieldType => 'text',
defaultValue => 'sequential'
},
groupToTakeSurvey => {
fieldType => 'group',
defaultValue => 2
},
groupToViewReports => {
fieldType => 'group',
defaultValue => 4
},
mode => {
fieldType => 'text',
defaultValue => 'survey'
},
anonymous=>{
fieldType => 'yesNo',
defaultValue => 0
},
maxResponsesPerUser=>{
fieldType => 'integer',
defaultValue => 1
},
questionsPerResponse=>{
fieldType => 'integer',
defaultValue =>99999
},
questionsPerPage=>{
fieldType => 'integer',
defaultValue => 1
},
overviewTemplateId=>{
fieldType => 'template',
defaultValue => 'PBtmpl0000000000000063'
},
gradebookTemplateId => {
fieldType => 'template',
defaultValue => 'PBtmpl0000000000000062'
},
responseTemplateId => {
fieldType => 'template',
defaultValue => 'PBtmpl0000000000000064'
},
defaultSectionId => {
fieldType => 'text',
defaultValue => 'undef'
},
}
});
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------
sub duplicate {
my ($self, $newAsset, $newSurveyId, $qdata, $adata, $rdata, $sdata, $oldSectionId);
$self = shift;
$newAsset = $self->SUPER::duplicate(shift);
$newSurveyId = $self->session->id->generate();
$newAsset->update({
Survey_id=>$newSurveyId
});
my $section = $self->session->db->read("select * from Survey_section where Survey_id=? order by sequenceNumber",[$self->get("Survey_id")]);
while ($sdata = $section->hashRef) {
$oldSectionId = $sdata->{Survey_sectionId};
$sdata->{Survey_sectionId} = "new";
$sdata->{Survey_id} = $newSurveyId;
$sdata->{Survey_sectionId} = $newAsset->setCollateral("Survey_section", "Survey_sectionId",$sdata,1,0, "Survey_id");
my $questions = $self->session->db->read("select * from Survey_question where Survey_id=? and Survey_sectionId=?",[$self->get("Survey_id"), $oldSectionId]);
while ($qdata = $questions->hashRef) {
$qdata->{Survey_questionId} = "new";
$qdata->{Survey_id} = $newSurveyId;
$qdata->{Survey_sectionId} = $sdata->{Survey_sectionId};
$qdata->{Survey_questionId} = $newAsset->setCollateral("Survey_question","Survey_questionId",$qdata,1,0,"Survey_id");
my $answers = $self->session->db->read("select * from Survey_answer where Survey_questionId=? order by sequenceNumber",[$qdata->{Survey_questionId}]);
while ($adata = $answers->hashRef) {
$adata->{Survey_answerId} = "new";
$adata->{Survey_questionId} = $qdata->{Survey_questionId};
$adata->{Survey_id} = $newSurveyId;
$adata->{Survey_answerId} = $newAsset->setCollateral("Survey_answer", "Survey_answerId", $adata, 1, 0, "Survey_Id");
my $responses = $self->session->db->read("select * from Survey_questionResponse where Survey_answerId=?",[$adata->{Survey_answerId}]);
while ($rdata = $responses->hashRef) {
$rdata->{Survey_responseId} = "new";
$rdata->{Survey_answerId} = $adata->{Survey_answerId};
$rdata->{Survey_id} = $newSurveyId;
$rdata->{Survey_questionId} = $qdata->{Survey_questionId};
$newAsset->setCollateral("Survey_questionResponse","Survey_responseId",$rdata,0,0);
}
$responses->finish;
}
$answers->finish;
}
$questions->finish;
}
$section->finish;
return $newAsset;
}
#-------------------------------------------------------------------
sub generateResponseId {
my $self = shift;
my $varname = $self->getResponseIdString;
if ($self->session->scratch->get($varname)) {
$self->completeResponse;
}
my $ipAddress = $self->getIp;
my $userId = $self->getUserId;
my $responseId = $self->session->db->setRow("Survey_response","Survey_responseId",{
'Survey_responseId'=>"new",
userId=>$userId,
ipAddress=>$ipAddress,
username=>$self->session->user->username,
startDate=>$self->session->datetime->time(),
'Survey_id'=>$self->get("Survey_id")
});
$self->session->scratch->set($varname,$responseId);
return $responseId;
}
#-------------------------------------------------------------------
sub getEditForm {
my $self = shift;
my $tabform = $self->SUPER::getEditForm;
my $i18n = WebGUI::International->new($self->session, 'Asset_Survey');
$tabform->getTab('properties')->hidden(
-name => "Survey_id",
-value => ($self->get("Survey_id") || $self->session->id->generate())
);
$tabform->getTab('display')->template(
-name => 'templateId',
-label => $i18n->get('view template'),
-hoverHelp => $i18n->get('view template description'),
-value => $self->getValue('templateId'),
-namespace => 'Survey',
-afterEdit => 'func=edit'
);
$tabform->getTab('display')->template(
-name => 'responseTemplateId',
-label => $i18n->get('response template'),
-hoverHelp => $i18n->get('response template description'),
-value => $self->getValue('responseTemplateId'),
-namespace => 'Survey/Response',
-afterEdit => 'func=edit'
);
$tabform->getTab('display')->template(
-name => 'gradebookTemplateId',
-label => $i18n->get('gradebook template'),
-hoverHelp => $i18n->get('gradebook template description'),
-value => $self->getValue('gradebookTemplateId'),
-namespace => 'Survey/Gradebook',
-afterEdit => 'func=edit'
);
$tabform->getTab('display')->template(
-name => 'overviewTemplateId',
-label => $i18n->get('overview template'),
-hoverHelp => $i18n->get('overview template description'),
-value => $self->getValue('overviewTemplateId'),
-namespace => 'Survey/Overview',
-afterEdit => 'func=edit'
);
$tabform->getTab('display')->selectBox(
-name => "questionOrder",
-options => {
sequential => $i18n->get(5),
random => $i18n->get(6),
response => $i18n->get(7),
section => $i18n->get(106)
},
-label => $i18n->get(8),
-hoverHelp => $i18n->get('8 description'),
-value => [$self->getValue("questionOrder")]
);
$tabform->getTab('display')->integer(
-name => "questionsPerPage",
-value => $self->getValue("questionsPerPage"),
-label => $i18n->get(83),
-hoverHelp => $i18n->get('83 description')
);
$tabform->getTab('properties')->selectBox(
-name => "mode",
-options => {
survey => $i18n->get(9),
quiz => $i18n->get(10)
},
-label => $i18n->get(11),
-hoverHelp => $i18n->get('11 description'),
-value => [$self->getValue("mode")]
);
$tabform->getTab('properties')->yesNo(
-name => "anonymous",
-value => $self->getValue("anonymous"),
-label => $i18n->get(81),
-hoverHelp => $i18n->get('81 description')
);
$tabform->getTab('properties')->integer(
-name => "maxResponsesPerUser",
-value => $self->getValue("maxResponsesPerUser"),
-label => $i18n->get(84),
-hoverHelp => $i18n->get('84 description')
);
$tabform->getTab('properties')->integer(
-name => "questionsPerResponse",
-value => $self->getValue("questionsPerResponse"),
-label => $i18n->get(85),
-hoverHelp => $i18n->get('85 description')
);
$tabform->getTab('security')->group(
-name => "groupToTakeSurvey",
-value => [$self->getValue("groupToTakeSurvey")],
-label => $i18n->get(12),
-hoverHelp => $i18n->get('12 description')
);
$tabform->getTab('security')->group(
-name => "groupToViewReports",
-label => $i18n->get(13),
-hoverHelp => $i18n->get('13 description'),
-value => [$self->getValue("groupToViewReports")]
);
if ($self->get("assetId") eq "new") {
$tabform->getTab('properties')->whatNext(
-options=>{
editQuestion=>$i18n->get(28),
viewParent=>$i18n->get(745)
},
-value=>"editQuestion",
-hoverHelp => $i18n->get('what next description'),
);
}
return $tabform;
}
#-------------------------------------------------------------------
sub getIp {
my $self = shift;
my $ip = ($self->get("anonymous")) ? substr(md5_hex($self->session->env->getIp),0,8) : $self->session->env->getIp;
return $ip;
}
#-------------------------------------------------------------------
sub getMenuVars {
my $self = shift;
my %var;
my $i18n = WebGUI::International->new($self->session,'Asset_Survey');
$var{'user.canViewReports'} = ($self->session->user->isInGroup($self->get("groupToViewReports")));
$var{'delete.all.responses.url'} = $self->getUrl('func=deleteAllResponses');
$var{'delete.all.responses.label'} = $i18n->get(73);
$var{'export.answers.url'} = $self->getUrl('func=exportAnswers');
$var{'export.answers.label'} = $i18n->get(62);
$var{'export.questions.url'} = $self->getUrl('func=exportQuestions');
$var{'export.questions.label'} = $i18n->get(63);
$var{'export.responses.url'} = $self->getUrl('func=exportResponses');
$var{'export.responses.label'} = $i18n->get(64);
$var{'export.composite.url'} = $self->getUrl('func=exportComposite');
$var{'export.composite.label'} = $i18n->get(65);
$var{'report.gradebook.url'} = $self->getUrl('func=viewGradebook');
$var{'report.gradebook.label'} = $i18n->get(61);
$var{'report.overview.url'} = $self->getUrl('func=viewStatisticalOverview');
$var{'report.overview.label'} = $i18n->get(59);
$var{'survey.url'} = $self->getUrl;
$var{'survey.label'} = $i18n->get(60);
return \%var;
}
#-------------------------------------------------------------------
sub getQuestionCount {
my $self = shift;
my ($count) = $self->session->db->quickArray("select count(*) from Survey_question where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
return ($count < $self->getValue("questionsPerResponse")) ? $count : $self->getValue("questionsPerResponse");
}
#-------------------------------------------------------------------
sub getQuestionsLoop {
my $self = shift;
my $responseId = shift;
my @ids;
if ($self->get("questionOrder") eq "sequential") {
@ids = $self->getSequentialQuestionIds($responseId);
} elsif ($self->get("questionOrder") eq "response") {
@ids = $self->getResponseDrivenQuestionIds($responseId);
} elsif ($self->get("questionOrder") eq "section") {
@ids = $self->getSectionDrivenQuestionIds($responseId);
} else {
@ids = $self->getRandomQuestionIds($responseId);
}
my $length = scalar(@ids);
my $i = 1;
my @loop;
#Ignore questions per page when using sections, return all questions for current section
if ($self->get("questionOrder") eq "section") {
while ($i <= $length) {
push(@loop,$self->getQuestionVars($ids[($i-1)]));
$i++;
}
return \@loop;
}
my $questionResponseCount = $self->getQuestionResponseCount($responseId);
while ($i <= $length && $i<= $self->get("questionsPerPage") && ($questionResponseCount + $i) <= $self->getValue("questionsPerResponse")) {
push(@loop,$self->getQuestionVars($ids[($i-1)]));
$i++;
}
return \@loop;
}
#-------------------------------------------------------------------
sub getQuestionResponseCount {
my $self = shift;
my $responseId = shift;
my ($count) = $self->session->db->quickArray("select count(*) from Survey_questionResponse where Survey_responseId=".$self->session->db->quote($responseId));
return $count;
}
#-------------------------------------------------------------------
sub getQuestionVars {
my $self = shift;
my $questionId = shift;
my $i18n = WebGUI::International->new($self->session,'Asset_Survey');
my %var;
my $question = $self->session->db->getRow("Survey_question","Survey_questionId",$questionId);
$var{'question.question'} = $question->{question};
$var{'question.allowComment'} = $question->{allowComment};
$var{'question.id'} = $question->{Survey_questionId};
$var{'question.comment.field'} = WebGUI::Form::textarea($self->session,{
name=>'comment_'.$questionId
});
$var{'question.comment.label'} = $i18n->get(51);
my $answer;
($answer) = $self->session->db->quickArray("select Survey_answerId from Survey_answer where Survey_questionId=".$self->session->db->quote($question->{Survey_questionId}));
$var{'question.answer.field'} = WebGUI::Form::hidden($self->session,{
name=>'answerId_'.$questionId,
value=>$answer
});
if ($question->{answerFieldType} eq "text") {
$var{'question.answer.field'} .= WebGUI::Form::text($self->session,{
name=>'textResponse_'.$questionId
});
} elsif ($question->{answerFieldType} eq "HTMLArea") {
$var{'question.answer.field'} .= WebGUI::Form::HTMLArea($self->session,{
name=>'textResponse_'.$questionId
});
} elsif ($question->{answerFieldType} eq "textArea") {
$var{'question.answer.field'} .= WebGUI::Form::textarea($self->session,{
name=>'textResponse_'.$questionId
});
} else {
my $answer = $self->session->db->buildHashRef("select Survey_answerId,answer from Survey_answer where Survey_questionId=".$self->session->db->quote($question->{Survey_questionId})." order by sequenceNumber");
if ($question->{randomizeAnswers}) {
$answer = randomizeHash($answer);
}
$var{'question.answer.field'} = WebGUI::Form::radioList($self->session,{
options=>$answer,
name=>"answerId_".$questionId,
vertical=>1
});
}
return \%var;
}
#-------------------------------------------------------------------
sub getRandomQuestionIds {
my $self = shift;
my $responseId = shift;
my @usedQuestionIds = $self->session->db->buildArray("select Survey_questionId from Survey_questionResponse where Survey_responseId=".$self->session->db->quote($responseId));
my $where = " where Survey_id=".$self->session->db->quote($self->get("Survey_id"));
if ($#usedQuestionIds+1 > 0) {
$where .= " and Survey_questionId not in (".$self->session->db->quoteAndJoin(\@usedQuestionIds).")";
}
my @questions = $self->session->db->buildArray("select Survey_questionId from Survey_question".$where);
randomizeArray(\@questions);
return @questions;
}
#-------------------------------------------------------------------
sub getResponseCount {
my $self = shift;
my $ipAddress = $self->getIp;
my $userId = $self->getUserId;
my ($count) = $self->session->db->quickArray("select count(*) from Survey_response where Survey_id=".$self->session->db->quote($self->get("Survey_id"))." and
((userId<>'1' and userId=".$self->session->db->quote($userId).") or ( userId='1' and ipAddress=".$self->session->db->quote($ipAddress)."))");
return $count;
}
#-------------------------------------------------------------------
sub getResponseDrivenQuestionIds {
my $self = shift;
my $responseId = shift;
my $previousResponse = $self->session->db->quickHashRef("select Survey_questionId, Survey_answerId from Survey_questionResponse
where Survey_responseId=".$self->session->db->quote($responseId)." order by dateOfResponse desc");
my $questionId;
my @questions;
if ($previousResponse->{Survey_answerId}) {
($questionId) = $self->session->db->quickArray("select gotoQuestion from Survey_answer where
Survey_answerId=".$self->session->db->quote($previousResponse->{Survey_answerId}));
unless ($questionId) {
($questionId) = $self->session->db->quickArray("select gotoQuestion from Survey_question where
Survey_questionId=".$self->session->db->quote($previousResponse->{Survey_questionId}));
}
unless ($questionId) { # terminate survey
$self->completeResponse($responseId);
return ();
}
} else {
($questionId) = $self->session->db->quickArray("select Survey_questionId from Survey_question where Survey_id=".$self->session->db->quote($self->getValue("Survey_id"))."
order by sequenceNumber");
}
push(@questions,$questionId);
return @questions;
}
#-------------------------------------------------------------------
sub getSectionDrivenQuestionIds {
my $self = shift;
my $responseId = shift;
my @usedQuestionIds = $self->session->db->buildArray("select Survey_questionId from Survey_questionResponse where Survey_responseId=".$self->session->db->quote($responseId));
my @questions;
my $where = " where Survey_question.Survey_id=".$self->session->db->quote($self->get("Survey_id"));
$where .= " and Survey_question.Survey_sectionId=Survey_section.Survey_sectionId";
if ($#usedQuestionIds+1 > 0) {
$where .= " and Survey_questionId not in (".$self->session->db->quoteAndJoin(\@usedQuestionIds).")";
}
my $sth = $self->session->db->read("select Survey_questionId, Survey_question.Survey_sectionId from Survey_question,
Survey_section $where order by Survey_section.sequenceNumber, Survey_question.sequenceNumber");
my $loopCount=0;
my $currentSection;
while (my $hashRef = $sth->hashRef) {
if ($loopCount == 0){ $currentSection = $hashRef->{Survey_sectionId}; }
if ($currentSection eq $hashRef->{Survey_sectionId}) {
push (@questions, $hashRef->{Survey_questionId});
}
$loopCount++;
}
$sth->finish;
return @questions;
}
#-------------------------------------------------------------------
sub getResponseId {
my $self = shift;
return $self->session->scratch->get($self->getResponseIdString);
}
#-------------------------------------------------------------------
sub getResponseIdString {
my $self = shift;
return "Survey-".$self->get("Survey_id")."-ResponseId";
}
#-------------------------------------------------------------------
sub getSequentialQuestionIds {
my $self = shift;
my $responseId = shift;
my @usedQuestionIds = $self->session->db->buildArray("select Survey_questionId from Survey_questionResponse where Survey_responseId=".$self->session->db->quote($responseId));
my $where = " where Survey_id=".$self->session->db->quote($self->get("Survey_id"));
if ($#usedQuestionIds+1 > 0) {
$where .= " and Survey_questionId not in (".$self->session->db->quoteAndJoin(\@usedQuestionIds).")";
}
my @questions = $self->session->db->buildArray("select Survey_questionId from Survey_question $where order by sequenceNumber");
return @questions;
}
#-------------------------------------------------------------------
sub getUserId {
my $self = shift;
my $userId = ($self->get("anonymous") && $self->session->user->userId != 1) ? substr(md5_hex($self->session->user->userId),0,8) : $self->session->user->userId;
return $userId;
}
#-------------------------------------------------------------------
=head2 prepareView ( )
See WebGUI::Asset::prepareView() for details.
=cut
sub prepareView {
my $self = shift;
$self->SUPER::prepareView();
my $template = WebGUI::Asset::Template->new($self->session, $self->get("templateId"));
$template->prepare;
$self->{_viewTemplate} = $template;
}
#-------------------------------------------------------------------
sub processPropertiesFromFormPost {
my $self = shift;
$self->SUPER::processPropertiesFromFormPost;
my $i18n = WebGUI::International->new($self->session,"Asset_Survey");
if ($self->session->form->process("assetId") eq "new") {
my $defaultSectionId = $self->addSection($i18n->get(107));
$self->update({'defaultSectionId' => $defaultSectionId});
$self->session->errorHandler->warn($defaultSectionId);
}
}
#-------------------------------------------------------------------
sub purge {
my $self = shift;
my ($count) = $self->session->db->quickArray("select count(*) from Survey where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
if ($count < 2) { ### Check for other wobjects using this survey.
$self->session->db->write("delete from Survey_question where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
$self->session->db->write("delete from Survey_answer where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
$self->session->db->write("delete from Survey_response where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
$self->session->db->write("delete from Survey_section where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
}
$self->SUPER::purge();
}
#-------------------------------------------------------------------
sub responseIsComplete {
my $self = shift;
my $responseId = shift;
my $response = $self->session->db->getRow("Survey_response","Survey_responseId",$responseId);
return $response->{isComplete};
}
#-------------------------------------------------------------------
sub setAnswerType {
my $self = shift;
my $answerFieldType = shift;
my $qid = shift;
$self->setCollateral("Survey_question","Survey_questionId",{
Survey_questionId=>$qid,
Survey_id=>$self->get("Survey_id"),
answerFieldType=>$answerFieldType
},1,0,"Survey_id");
}
#-------------------------------------------------------------------
sub view {
my $self = shift;
my $i18n = WebGUI::International->new($self->session, 'Asset_Survey');
my $var = $self->getMenuVars;
$var->{'question.add.url'} = $self->getUrl('func=editQuestion;qid=new');
$var->{'question.add.label'} = $i18n->get(30);
$var->{'section.add.url'} = $self->getUrl('func=editSection;sid=new');
$var->{'section.add.label'} = $i18n->get(104);
my @sectionEdit;
# Get Sections
my $sth = $self->session->db->read("select Survey_sectionId,sectionName from Survey_section where Survey_id=".$self->session->db->quote($self->get("Survey_id"))." order by sequenceNumber");
while (my %sectionData = $sth->hash) {
my @edit;
# Get Questions for this section
my $sth2 = $self->session->db->read("select Survey_questionId,question from Survey_question
where Survey_id=".$self->session->db->quote($self->get("Survey_id"))."
and Survey_sectionId=".$self->session->db->quote($sectionData{Survey_sectionId})." order by sequenceNumber");
while (my %data = $sth2->hash) {
push(@edit,{
'question.edit.controls'=>
$self->session->icon->delete('func=deleteQuestionConfirm;qid='.$data{Survey_questionId}, $self->get("url"), $i18n->get(44)).
$self->session->icon->edit('func=editQuestion;qid='.$data{Survey_questionId}, $self->get("url")).
$self->session->icon->moveUp('func=moveQuestionUp;qid='.$data{Survey_questionId}, $self->get("url")).
$self->session->icon->moveDown('func=moveQuestionDown;qid='.$data{Survey_questionId}, $self->get("url")),
'question.edit.question'=>$data{question},
'question.edit.id'=>$data{Survey_questionId}
});
}
$sth2->finish;
push(@sectionEdit,{
'section.edit.controls'=>
$self->session->icon->delete('func=deleteSectionConfirm;sid='.$sectionData{Survey_sectionId}, $self->get("url"), $i18n->get(105)).
$self->session->icon->edit('func=editSection;sid='.$sectionData{Survey_sectionId}, $self->get("url")).
$self->session->icon->moveUp('func=moveSectionUp;sid='.$sectionData{Survey_sectionId}, $self->get("url")).
$self->session->icon->moveDown('func=moveSectionDown;sid='.$sectionData{Survey_sectionId}, $self->get("url")),
'section.edit.sectionName'=>$sectionData{sectionName},
'section.edit.id'=>$sectionData{Survey_sectionId},
'section.questions_loop'=>\@edit
});
$var->{'section.edit_loop'} = \@sectionEdit;
}
$sth->finish;
$var->{'user.canTakeSurvey'} = $self->session->user->isInGroup($self->get("groupToTakeSurvey"));
if ($var->{'user.canTakeSurvey'}) {
$var->{'response.Id'} = $self->getResponseId();
$var->{'response.Count'} = $self->getResponseCount;
$var->{'user.isFirstResponse'} = ($var->{'response.Count'} == 0 && !(exists $var->{'response.id'}));
$var->{'user.canRespondAgain'} = ($var->{'response.Count'} < $self->get("maxResponsesPerUser"));
if (($var->{'user.isFirstResponse'}) || ($self->session->form->process("startNew") && $var->{'user.canRespondAgain'})) {
$var->{'response.Id'} = $self->generateResponseId;
}
if ($var->{'response.Id'}) {
$var->{'questions.soFar.count'} = $self->getQuestionResponseCount($var->{'response.Id'});
($var->{'questions.correct.count'}) = $self->session->db->quickArray("select count(*) from Survey_questionResponse a, Survey_answer b where a.Survey_responseId="
.$self->session->db->quote($var->{'response.Id'})." and a.Survey_answerId=b.Survey_answerId and b.isCorrect=1");
if ($var->{'questions.soFar.count'} > 0) {
$var->{'questions.correct.percent'} = round(($var->{'questions.correct.count'}/$var->{'questions.soFar.count'})*100)
}
$var->{'response.isComplete'} = $self->responseIsComplete($var->{'response.Id'});
$var->{question_loop} = $self->getQuestionsLoop($var->{'response.Id'});
}
}
$var->{'form.header'} = WebGUI::Form::formHeader($self->session,{action=>$self->getUrl})
.WebGUI::Form::hidden($self->session,{
name=>'func',
value=>'respond'
});
$var->{'form.footer'} = WebGUI::Form::formFooter($self->session,);
$var->{'form.submit'} = WebGUI::Form::submit($self->session,{
value=>$i18n->get(50)
});
$var->{'questions.sofar.label'} = $i18n->get(86);
$var->{'start.newResponse.label'} = $i18n->get(87);
$var->{'start.newResponse.url'} = $self->getUrl("func=view;startNew=1");
$var->{'thanks.survey.label'} = $i18n->get(46);
$var->{'thanks.quiz.label'} = $i18n->get(47);
$var->{'questions.total'} = $self->getQuestionCount;
$var->{'questions.correct.count.label'} = $i18n->get(52);
$var->{'questions.correct.percent.label'} = $i18n->get(54);
$var->{'mode.isSurvey'} = ($self->get("mode") eq "survey");
$var->{'survey.noprivs.label'} = $i18n->get(48);
$var->{'quiz.noprivs.label'} = $i18n->get(49);
return $self->processTemplate($var, undef, $self->{_viewTemplate});
}
#-------------------------------------------------------------------
sub www_deleteAnswerConfirm {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
my ($answerCount) = $self->session->db->quickArray("select count(*) from Survey_answer where Survey_questionId=".$self->session->db->quote($self->session->form->process("qid")));
return $self->i18n("cannot delete the last answer") unless($answerCount);
$self->session->db->write("delete from Survey_questionResponse where Survey_answerId=".$self->session->db->quote($self->session->form->process("aid")));
$self->deleteCollateral("Survey_answer","Survey_answerId",$self->session->form->process("aid"));
$self->reorderCollateral("Survey_answer","Survey_answerId","Survey_id");
return $self->www_editQuestion;
}
#-------------------------------------------------------------------
sub www_deleteQuestionConfirm {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
$self->session->db->write("delete from Survey_answer where Survey_questionId=".$self->session->db->quote($self->session->form->process("qid")));
$self->session->db->write("delete from Survey_questionResponse where Survey_questionId=".$self->session->db->quote($self->session->form->process("qid")));
$self->deleteCollateral("Survey_question","Survey_questionId",$self->session->form->process("qid"));
$self->reorderCollateral("Survey_question","Survey_questionId","Survey_id");
return "";
}
#-------------------------------------------------------------------
sub www_deleteSectionConfirm {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
my $i18n = WebGUI::International->new($self->session,'Asset_Survey');
my $section_id = $self->session->form->get("sid");
if ($section_id eq $self->get("defaultSectionId")) {
return $self->session->privilege->vitalComponent();
}
$self->session->db->write("delete from Survey_section where Survey_sectionId=?",[$section_id]);
$self->deleteCollateral("Survey_section","Survey_sectionId",$section_id);
$self->reorderCollateral("Survey_section","Survey_sectionId","Survey_id");
return "";
}
#-------------------------------------------------------------------
sub www_deleteResponse {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToViewReports")));
my $i18n = WebGUI::International->new($self->session, 'Asset_Survey');
return $self->session->style->process($self->confirm($i18n->get(72),
$self->getUrl('func=deleteResponseConfirm;responseId='.$self->session->form->process("responseId"))),$self->getValue("styleTemplateId"));
}
#-------------------------------------------------------------------
sub www_deleteResponseConfirm {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToViewReports")));
$self->session->db->write("delete from Survey_response where Survey_responseId=".$self->session->db->quote($self->session->form->process("responseId")));
$self->session->db->write("delete from Survey_questionResponse where Survey_responseId=".$self->session->db->quote($self->session->form->process("responseId")));
return $self->www_viewGradebook;
}
#-------------------------------------------------------------------
sub www_deleteAllResponses {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToViewReports")));
my $i18n = WebGUI::International->new($self->session,'Asset_Survey');
return $self->session->style->process($self->confirm($i18n->get(74),$self->getUrl('func=deleteAllResponsesConfirm')),$self->getValue("styleTemplateId"));
}
#-------------------------------------------------------------------
sub www_deleteAllResponsesConfirm {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToViewReports")));
$self->session->db->write("delete from Survey_response where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
$self->session->db->write("delete from Survey_questionResponse where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
return "";
}
#-------------------------------------------------------------------
sub www_editSave {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
my $output = $self->SUPER::www_editSave();
if ($self->session->form->process("proceed") eq "addQuestion") {
return $self->www_editQuestion('new');
}
return $output;
}
#-------------------------------------------------------------------
sub www_editAnswer {
my $self = shift;
my ($question, $f, $answer);
return $self->session->privilege->insufficient() unless ($self->canEdit);
my $aid = shift || $self->session->form->process('aid');
my $qid = shift || $self->session->form->process('qid');
my $i18n = WebGUI::International->new($self->session,'Asset_Survey');
$answer = $self->getCollateral("Survey_answer","Survey_answerId",$aid);
$f = WebGUI::HTMLForm->new($self->session,-action=>$self->getUrl);
$f->hidden(
-name => "assetId",
-value => $self->session->form->process("assetId")
);
$f->hidden(
-name => "func",
-value => "editAnswerSave"
);
$f->hidden(
-name => "qid",
-value => $qid
);
$f->hidden(
-name => "aid",
-value => $answer->{Survey_answerId}
);
$f->text(
-name=>"answer",
-value=>$answer->{answer},
-label=>$i18n->get(19),
-hoverHelp=>$i18n->get('19 description')
);
if ($self->get("mode") eq "quiz") {
$f->yesNo(
-name=>"isCorrect",
-value=>$answer->{isCorrect},
-label=>$i18n->get(20),
-hoverHelp=>$i18n->get('20 description')
);
} else {
$f->hidden(
-name => "isCorrect",
-value => 0
);
}
if ($self->get("questionOrder") eq "response") {
$question = $self->session->db->buildHashRef("select Survey_questionId,question
from Survey_question where Survey_id=".$self->session->db->quote($self->get("Survey_id"))." order by sequenceNumber");
$question = { ('-1' => $i18n->get(82),%$question) };
$f->selectBox(
-name=>"gotoQuestion",
-options=>$question,
-value=>[$answer->{gotoQuestion}],
-label=>$i18n->get(21),
-hoverHelp=>$i18n->get('21 description')
);
}
if ($answer->{Survey_answerId} eq "new") {
my %options;
tie %options, 'Tie::IxHash';
%options = (
"addAnswer"=>$i18n->get(24),
"addQuestion"=>$i18n->get(28),
"editQuestion"=>$i18n->get(75),
"backToPage"=>$i18n->get(745)
);
$f->whatNext(
-options=>\%options,
-value=>"addAnswer",
-hoverHelp=>$i18n->get('what next answer description')
);
}
$f->submit;
# $self->getAdminConsole->setHelp("answer add/edit","Asset_Survey");
return $self->getAdminConsole->render($f->print, $i18n->get(18));
}
#-------------------------------------------------------------------
sub www_editAnswerSave {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
$self->setCollateral("Survey_answer", "Survey_answerId", {
Survey_answerId => $self->session->form->process("aid"),
Survey_questionId => $self->session->form->process("qid"),
answer => $self->session->form->process("answer"),
isCorrect => $self->session->form->process("isCorrect"),
Survey_id=>$self->get("Survey_id"),
gotoQuestion => $self->session->form->process("gotoQuestion")
},1,0,"Survey_Id");
if ($self->session->form->process("proceed") eq "addQuestion") {
return $self->www_editQuestion('new');
} elsif ($self->session->form->process("proceed") eq "addAnswer") {
return $self->www_editAnswer('new');
} elsif ($self->session->form->process("proceed") eq "backToPage") {
return "";
}
return $self->www_editQuestion();
}
#-------------------------------------------------------------------
sub www_editQuestion {
my $self = shift;
my ($f, $question, $answerFieldType, $sth, %data);
my $qid = shift || $self->session->form->process('qid');
return $self->session->privilege->insufficient() unless ($self->canEdit);
my $i18n = WebGUI::International->new($self->session,'Asset_Survey');
tie %data, 'Tie::CPHash';
$question = $self->getCollateral("Survey_question","Survey_questionId", $qid);
$answerFieldType = $question->{answerFieldType} || "radioList";
$f = WebGUI::HTMLForm->new($self->session,-action=>$self->getUrl);
$f->hidden(
-name => "assetId",
-value => $self->get("assetId")
);
$f->hidden(
-name => "func",
-value => "editQuestionSave"
);
$f->hidden(
-name => "qid",
-value => $question->{Survey_questionId}
);
$f->hidden(
-name => "answerFieldType",
-value => $answerFieldType
);
$f->HTMLArea(
-name => "question",
-value => $question->{question},
-label => $i18n->get(14),
-hoverHelp => $i18n->get('14 description')
);
$f->yesNo(
-name => "allowComment",
-value => $question->{allowComment},
-label => $i18n->get(15),
-hoverHelp => $i18n->get('15 description')
);
$f->yesNo(
-name => "randomizeAnswers",
-value => $question->{randomizeAnswers},
-label => $i18n->get(16),
-hoverHelp => $i18n->get('16 description')
);
my $sectionList = $self->session->db->buildHashRef("select Survey_sectionId,sectionName
from Survey_section where Survey_id=".$self->session->db->quote($self->get("Survey_id"))." order by sequenceNumber");
$f->selectBox(
-name => "section",
-options=> $sectionList,
-value => [$question->{Survey_sectionId}],
-label => $i18n->get(106),
-hoverHelp => $i18n->get('106 description'),
);
if ($self->get("questionOrder") eq "response") {
my $ql = $self->session->db->buildHashRef("select Survey_questionId,question
from Survey_question where Survey_id=".$self->session->db->quote($self->get("Survey_id"))." order by sequenceNumber");
$ql = { ('-1' => $i18n->get(82),%$ql) };
$f->selectBox(
-name => "gotoQuestion",
-options=> $ql,
-value => [$question->{gotoQuestion}],
-label => $i18n->get(21),
-hoverHelp => $i18n->get('21 description')
);
}
if ($question->{Survey_questionId} eq "new") {
my %options;
tie %options, 'Tie::IxHash';
%options = (
"addMultipleChoiceAnswer" => $i18n->get(24),
"addTextAnswer" => $i18n->get(29),
"addBooleanAnswer" => $i18n->get(25),
"addFrequencyAnswer" => $i18n->get(26),
"addOpinionAnswer" => $i18n->get(27),
"addHTMLAreaAnswer" => $i18n->get(100),
"addTextAreaAnswer" => $i18n->get(101),
#"addQuestion" => $i18n->get(28),
"backToPage" => $i18n->get(745)
);
$f->whatNext(
-options=> \%options,
-value => "addMultipleChoiceAnswer",
-hoverHelp => $i18n->get('what next question description')
);
}
$f->submit;
my $output = $f->print;
if ($question->{Survey_questionId} ne "new"
&& $question->{answerFieldType} ne "text"
&& $question->{answerFieldType} ne "HTMLArea"
&& $question->{answerFieldType} ne "textArea"
) {
$output .= '<a href="'.$self->getUrl('func=editAnswer;aid=new;qid='
.$question->{Survey_questionId}).'">'.$i18n->get(23).'</a><p />';
$sth = $self->session->db->read("select Survey_answerId,answer from Survey_answer
where Survey_questionId=".$self->session->db->quote($question->{Survey_questionId})." order by sequenceNumber");
while (%data = $sth->hash) {
$output .=
$self->session->icon->delete('func=deleteAnswerConfirm;qid='.$question->{Survey_questionId}.';aid='.$data{Survey_answerId},
$self->get("url"),$i18n->get(45)).
$self->session->icon->edit('func=editAnswer;qid='.$question->{Survey_questionId}.';aid='.$data{Survey_answerId}, $self->get("url")).
$self->session->icon->moveUp('func=moveAnswerUp'.';qid='.$question->{Survey_questionId}.';aid='.$data{Survey_answerId}, $self->get("url")).
$self->session->icon->moveDown('func=moveAnswerDown;qid='.$question->{Survey_questionId}.';aid='.$data{Survey_answerId}, $self->get("url")).
' '.$data{answer}.'<br />';
}
$sth->finish;
}
$self->getAdminConsole->setHelp("question add/edit","Asset_Survey");
return $self->getAdminConsole->render($output, $i18n->get(17));
}
#-------------------------------------------------------------------
sub www_editQuestionSave {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
my $qid = $self->setCollateral("Survey_question", "Survey_questionId", {
# XXX: In some cases not all form fields are present and then the SQL query failes
# because the array is not complete
# There has to be a better way to fix this problem, but adding "|| 1" works for now
question=>$self->session->form->process("question", 'HTMLArea') || 1,
Survey_questionId=>$self->session->form->process("qid") || 1,
Survey_id=>$self->get("Survey_id") || 1,
allowComment=>$self->session->form->process("allowComment", 'yesNo'),
gotoQuestion=>$self->session->form->process("gotoQuestion", 'selectBox') || 1,
answerFieldType=>$self->session->form->process("answerFieldType") || 1,
randomizeAnswers=>$self->session->form->process("randomizeAnswers", 'yesNo'),
Survey_sectionId=>$self->session->form->process("section") || 1
},1,0,"Survey_id");
if ($self->session->form->process("proceed") eq "addMultipleChoiceAnswer") {
return $self->www_editAnswer('new',$qid);
} elsif ($self->session->form->process("proceed") eq "addTextAnswer") {
$self->setAnswerType("text",$qid);
$self->addAnswer(0,$qid);
} elsif ($self->session->form->process("proceed") eq "addBooleanAnswer") {
$self->addAnswer(31,$qid);
$self->addAnswer(32,$qid);
} elsif ($self->session->form->process("proceed") eq "addOpinionAnswer") {
$self->addAnswer(33,$qid);
$self->addAnswer(34,$qid);
$self->addAnswer(35,$qid);
$self->addAnswer(36,$qid);
$self->addAnswer(37,$qid);
$self->addAnswer(38,$qid);
$self->addAnswer(39,$qid);
} elsif ($self->session->form->process("proceed") eq "addFrequencyAnswer") {
$self->addAnswer(40,$qid);
$self->addAnswer(41,$qid);
$self->addAnswer(42,$qid);
$self->addAnswer(43,$qid);
$self->addAnswer(39,$qid);
} elsif ($self->session->form->process("proceed") eq "addHTMLAreaAnswer") {
$self->setAnswerType("HTMLArea",$qid);
$self->addAnswer(0,$qid);
} elsif ($self->session->form->process("proceed") eq "addTextAreaAnswer") {
$self->setAnswerType("textArea",$qid);
$self->addAnswer(0,$qid);
} elsif ($self->session->form->process("proceed") eq "addQuestion") {
return $self->www_editQuestion('new');
}
return "";
}
#-------------------------------------------------------------------
sub www_editSection {
my $self = shift;
my ($f, $section, $sectionName);
my $i18n = WebGUI::International->new($self->session, 'Asset_Survey');
return $self->session->privilege->insufficient() unless ($self->canEdit);
$section = $self->getCollateral("Survey_section","Survey_sectionId",$self->session->form->process("sid"));
if ($section->{Survey_sectionId} eq $self->get("defaultSectionId") && $section->{Survey_sectionId} ne "") {
return $self->session->privilege->vitalComponent;
}
$f = WebGUI::HTMLForm->new($self->session,-action=>$self->getUrl);
$f->hidden(
-name => "assetId",
-value => $self->get("assetId")
);
$f->hidden(
-name => "func",
-value => "editSectionSave"
);
$f->hidden(
-name => "sid",
-value => $section->{Survey_sectionId}
);
$f->text(
-name => "sectionName",
-value => $section->{sectionName},
-label => $i18n->get(102)
);
$f->submit;
my $output = $f->print;
return $self->getAdminConsole->render($output, $i18n->get(103));
}
#-------------------------------------------------------------------
sub www_editSectionSave {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
$self->setCollateral("Survey_section", "Survey_sectionId", {
sectionName => $self->session->form->process("sectionName"),
Survey_sectionId=>$self->session->form->process("sid"),
Survey_id=>$self->get("Survey_id"),
},1,0,"Survey_id");
return "";
}
#-------------------------------------------------------------------
sub www_exportAnswers {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToViewReports")));
$self->session->http->setFilename($self->session->url->escape($self->get("title")."_answers.tab"),"text/tab");
return $self->session->db->quickTab("select * from Survey_answer where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
}
#-------------------------------------------------------------------
sub www_exportComposite {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToViewReports")));
$self->session->http->setFilename($self->session->url->escape($self->get("title")."_composite.tab"),"text/tab");
return $self->session->db->quickTab("select b.question, c.response, a.userId, a.username, a.ipAddress, c.comment, c.dateOfResponse from Survey_response a
left join Survey_questionResponse c on a.Survey_responseId=c.Survey_responseId
left join Survey_question b on c.Survey_questionId=b.Survey_questionId
where a.Survey_id=".$self->session->db->quote($self->get("Survey_id"))." order by a.userId, a.ipAddress, b.sequenceNumber");
}
#-------------------------------------------------------------------
sub www_exportQuestions {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToViewReports")));
$self->session->http->setFilename($self->session->url->escape($self->get("title")."_questions.tab"),"text/tab");
return $self->session->db->quickTab("select * from Survey_question where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
}
#-------------------------------------------------------------------
sub www_exportResponses {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToViewReports")));
$self->session->http->setFilename($self->session->url->escape($self->get("title")."_responses.tab"),"text/tab");
return $self->session->db->quickTab("select * from Survey_response where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
}
#-------------------------------------------------------------------
sub www_moveAnswerDown {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
$self->moveCollateralDown("Survey_answer","Survey_answerId",$self->session->form->process("aid"),"Survey_id");
return $self->www_editQuestion;
}
#-------------------------------------------------------------------
sub www_moveAnswerUp {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
$self->moveCollateralUp("Survey_answer","Survey_answerId",$self->session->form->process("aid"),"Survey_id");
return $self->www_editQuestion;
}
#-------------------------------------------------------------------
sub www_moveQuestionDown {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
$self->moveCollateralDown("Survey_question","Survey_questionId",$self->session->form->process("qid"),"Survey_id");
return "";
}
#-------------------------------------------------------------------
sub www_moveQuestionUp {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
$self->moveCollateralUp("Survey_question","Survey_questionId",$self->session->form->process("qid"),"Survey_id");
return "";
}
#-------------------------------------------------------------------
sub www_moveSectionDown {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
$self->moveCollateralDown("Survey_section","Survey_sectionId",$self->session->form->process("sid"),"Survey_id");
return "";
}
#-------------------------------------------------------------------
sub www_moveSectionUp {
my $self = shift;
return $self->session->privilege->insufficient() unless ($self->canEdit);
$self->moveCollateralUp("Survey_section","Survey_sectionId",$self->session->form->process("sid"),"Survey_id");
return "";
}
#-------------------------------------------------------------------
sub www_respond {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToTakeSurvey")));
my $varname = $self->getResponseIdString;
return "" unless ($self->session->scratch->get($varname));
my $userId = ($self->get("anonymous")) ? substr(md5_hex($self->session->user->userId),0,8) : $self->session->user->userId;
my $terminate = 0;
foreach my $key ($self->session->form->param) {
if ($key =~ /^answerId_(.+)$/) {
my $id = $1;
my ($previousResponse) = $self->session->db->quickArray("select count(*) from Survey_questionResponse
where Survey_answerId=".$self->session->db->quote($self->session->form->process("answerId_".$id))." and Survey_responseId=".$self->session->db->quote($self->session->scratch->get($varname)));
next if ($previousResponse);
my $answer = $self->getCollateral("Survey_answer","Survey_answerId",$self->session->form->process("answerId_".$id));
if ($self->get("questionOrder") eq "response" && $answer->{gotoQuestion} eq "") {
$terminate = 1;
}
my $response = $self->session->form->process("textResponse_".$id) || $answer->{answer};
$self->session->db->write("insert into Survey_questionResponse (Survey_answerId,Survey_questionId,Survey_responseId,Survey_id,comment,response,dateOfResponse) values (
".$self->session->db->quote($answer->{Survey_answerId}).", ".$self->session->db->quote($answer->{Survey_questionId}).", ".$self->session->db->quote($self->session->scratch->get($varname)).", ".$self->session->db->quote($answer->{Survey_id}).",
".$self->session->db->quote($self->session->form->process("comment_".$id)).", ".$self->session->db->quote($response).", ".$self->session->datetime->time().")");
}
}
my $responseCount = $self->getQuestionResponseCount($self->session->scratch->get($varname));
if ($terminate || $responseCount >= $self->getValue("questionsPerResponse") || $responseCount >= $self->getQuestionCount) {
$self->session->db->setRow("Survey_response","Survey_responseId",{
isComplete=>1,
endDate=>$self->session->datetime->time(),
Survey_responseId=>$self->session->scratch->get($varname)
});
}
$self->logView() if ($self->session->setting->get("passiveProfilingEnabled"));
return "";
}
#-------------------------------------------------------------------
sub www_viewGradebook {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToViewReports")));
$self->logView() if ($self->session->setting->get("passiveProfilingEnabled"));
my $i18n = WebGUI::International->new($self->session,'Asset_Survey');
my $var = $self->getMenuVars;
$var->{title} = $i18n->get(71);
my $p = WebGUI::Paginator->new($self->session,$self->getUrl('func=viewGradebook'));
$p->setDataByQuery("select userId,username,ipAddress,Survey_responseId,startDate,endDate from Survey_response
where Survey_id=".$self->session->db->quote($self->get("Survey_id"))." order by username,ipAddress,startDate");
my $users = $p->getPageData;
($var->{'question.count'}) = $self->session->db->quickArray("select count(*) from Survey_question where Survey_id=".$self->session->db->quote($self->get("Survey_id")));
if ($var->{'question.count'} > $self->get("questionsPerResponse")) {
$var->{'question.count'} = $self->get("questionsPerResponse");
}
$var->{'response.user.label'} = $i18n->get(67);
$var->{'response.count.label'} = $i18n->get(52);
$var->{'response.percent.label'} = $i18n->get(54);
my @responseloop;
foreach my $user (@$users) {
my ($correctCount) = $self->session->db->quickArray("select count(*) from Survey_questionResponse a left join
Survey_answer b on a.Survey_answerId=b.Survey_answerId where a.Survey_responseId=".$self->session->db->quote($user->{Survey_responseId})
." and b.isCorrect=1");
push(@responseloop, {
'response.url'=>$self->getUrl('func=viewIndividualSurvey;responseId='.$user->{Survey_responseId}),
'response.user.name'=>($user->{userId} eq '1') ? $user->{ipAddress} : $user->{username},
'response.count.correct' => $correctCount,
'response.percent' => round(($correctCount/$var->{'question.count'})*100)
});
}
$var->{response_loop} = \@responseloop;
$p->appendTemplateVars($var);
return $self->session->style->process($self->processTemplate($var,$self->getValue("gradebookTemplateId")),$self->getValue("styleTemplateId"));
# return $self->processTemplate($self->getValue("gradebookTemplateId"),$var,"Survey/Gradebook");
}
#-------------------------------------------------------------------
sub www_viewIndividualSurvey {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToViewReports")));
$self->logView() if ($self->session->setting->get("passiveProfilingEnabled"));
my $i18n = WebGUI::International->new($self->session,'Asset_Survey');
my $var = $self->getMenuVars;
$var->{'title'} = $i18n->get(70);
$var->{'delete.url'} = $self->getUrl('func=deleteResponse;responseId='.$self->session->form->process("responseId"));
$var->{'delete.label'} = $i18n->get(69);
my $response = $self->session->db->getRow("Survey_response","Survey_responseId",$self->session->form->process("responseId"));
$var->{'start.date.label'} = $i18n->get(76);
$var->{'start.date.epoch'} = $response->{startDate};
$var->{'start.date.human'} =$self->session->datetime->epochToHuman($response->{startDate},"%z");
$var->{'start.time.human'} =$self->session->datetime->epochToHuman($response->{startDate},"%Z");
$var->{'end.date.label'} = $i18n->get(77);
$var->{'end.date.epoch'} = $response->{endDate};
$var->{'end.date.human'} =$self->session->datetime->epochToHuman($response->{endDate},"%z");
$var->{'end.time.human'} =$self->session->datetime->epochToHuman($response->{endDate},"%Z");
$var->{'duration.label'} = $i18n->get(78);
$var->{'duration.minutes'} = int(($response->{end} - $response->{start})/60);
$var->{'duration.minutes.label'} = $i18n->get(79);
$var->{'duration.seconds'} = (($response->{endDate} - $response->{start})%60);
$var->{'duration.seconds.label'} = $i18n->get(80);
$var->{'answer.label'} = $i18n->get(19) if ($self->get("mode") eq "quiz");
$var->{'response.label'} = $i18n->get(66);
$var->{'comment.label'} = $i18n->get(57);
my $questions = $self->session->db->read("select Survey_questionId,question,answerFieldType from Survey_question
where Survey_id=".$self->session->db->quote($self->get("Survey_id"))." order by sequenceNumber");
my @questionloop;
while (my $qdata = $questions->hashRef) {
my @aid;
my @answer;
if ($qdata->{answerFieldType} eq "radioList") {
my $sth = $self->session->db->read("select Survey_answerId,answer from Survey_answer
where Survey_questionId=".$self->session->db->quote($qdata->{Survey_questionId})." and isCorrect=1 order by sequenceNumber");
while (my $adata = $sth->hashRef) {
push(@aid,$adata->{Survey_answerId});
push(@answer,$adata->{answer});
}
$sth->finish;
}
my $rdata = $self->session->db->quickHashRef("select Survey_answerId,response,comment from Survey_questionResponse
where Survey_questionId=".$self->session->db->quote($qdata->{Survey_questionId})." and Survey_responseId=".$self->session->db->quote($self->session->form->process("responseId")));
push(@questionloop,{
question => $qdata->{question},
'question.id'=>$qdata->{Survey_questionId},
'question.isRadioList' => ($qdata->{answerFieldType} eq "radioList"),
'question.response' => $rdata->{response},
'question.comment' => $rdata->{comment},
'question.isCorrect' => isIn($rdata->{Survey_answerId}, @aid),
'question.answer' => join(", ",@answer),
});
}
$questions->finish;
$var->{question_loop} = \@questionloop;
return $self->session->style->process($self->processTemplate($var, $self->getValue("responseTemplateId")),$self->getValue("styleTemplateId"));
# return $self->processTemplate($self->getValue("responseTemplateId"),$var,"Survey/Response");
}
#-------------------------------------------------------------------
sub www_viewStatisticalOverview {
my $self = shift;
return "" unless ($self->session->user->isInGroup($self->get("groupToViewReports")));
$self->logView() if ($self->session->setting->get("passiveProfilingEnabled"));
my $var = $self->getMenuVars;
my $i18n = WebGUI::International->new($self->session,'Asset_Survey');
$var->{title} = $i18n->get(58);
my $p = WebGUI::Paginator->new($self->session,$self->getUrl('func=viewStatisticalOverview'));
$p->setDataByQuery("select Survey_questionId,question,answerFieldType,allowComment from Survey_question
where Survey_id=".$self->session->db->quote($self->get("Survey_id"))." order by sequenceNumber");
my $questions = $p->getPageData;
my @questionloop;
$var->{'answer.label'} = $i18n->get(19);
$var->{'response.count.label'} = $i18n->get(53);
$var->{'response.percent.label'} = $i18n->get(54);
$var->{'show.responses.label'} = $i18n->get(55);
$var->{'show.comments.label'} = $i18n->get(56);
foreach my $question (@$questions) {
my @answerloop;
my ($totalResponses) = $self->session->db->quickArray("select count(*) from Survey_questionResponse where Survey_questionId=".$self->session->db->quote($question->{Survey_questionId}));
if ($question->{answerFieldType} eq "radioList") {
my $sth = $self->session->db->read("select Survey_answerId,answer,isCorrect from Survey_answer where
Survey_questionId=".$self->session->db->quote($question->{Survey_questionId})." order by sequenceNumber");
while (my $answer = $sth->hashRef) {
my ($numResponses) = $self->session->db->quickArray("select count(*) from Survey_questionResponse where Survey_answerId=".$self->session->db->quote($answer->{Survey_answerId}));
my $responsePercent;
if ($totalResponses) {
$responsePercent = round(($numResponses/$totalResponses)*100);
} else {
$responsePercent = 0;
}
my @commentloop;
my $sth2 = $self->session->db->read("select comment from Survey_questionResponse where Survey_answerId=".$self->session->db->quote($answer->{Survey_answerId}));
while (my ($comment) = $sth2->array) {
push(@commentloop,{
'answer.comment'=>$comment
});
}
$sth2->finish;
push(@answerloop,{
'answer.isCorrect'=>$answer->{isCorrect},
'answer' => $answer->{answer},
'answer.response.count' =>$numResponses,
'answer.response.percent' =>$responsePercent,
'comment_loop'=>\@commentloop
});
}
$sth->finish;
} else {
my $sth = $self->session->db->read("select response,comment from Survey_questionResponse where Survey_questionId=".$self->session->db->quote($question->{Survey_questionId}));
while (my $response = $sth->hashRef) {
push(@answerloop,{
'answer.response'=>$response->{response},
'answer.comment'=>$response->{comment}
});
}
$sth->finish;
}
push(@questionloop,{
question=>$question->{question},
'question.id'=>$question->{Survey_questionId},
'question.isRadioList' => ($question->{answerFieldType} eq "radioList"),
'question.response.total' => $totalResponses,
'answer_loop'=>\@answerloop,
'question.allowComment'=>$question->{allowComment}
});
}
$var->{question_loop} = \@questionloop;
$p->appendTemplateVars($var);
return $self->session->style->process($self->processTemplate($var, $self->getValue("overviewTemplateId")),$self->getValue("styleTemplateId"));
}
1;
Reference in a new issue View git blame Copy permalink