oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Removing debug code and adding comment

Browse source
This commit is contained in:
Wouter van Oijen 2006-04-14 09:40:13 +00:00
parent 467ab5a7a7
commit 8129361a24
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Asset/Wobject/Survey.pm
View file

@ -1029,14 +1029,17 @@ sub www_editQuestionSave {
return $self->session->privilege->insufficient() unless ($self->canEdit); return $self->session->privilege->insufficient() unless ($self->canEdit);
my $qid = $self->setCollateral("Survey_question", "Survey_questionId", { my $qid = $self->setCollateral("Survey_question", "Survey_questionId", {
question=>$self->session->form->process("question") || 3.14, # XXX: In some cases not all form fields are present and then the SQL query failes
Survey_questionId=>$self->session->form->process("qid") || 3.14, # because the array is not complete
Survey_id=>$self->get("Survey_id") || 3.14, # There has to be a better way to fix this problem, but adding "|| 1" works for now
allowComment=>$self->session->form->process("allowComment") || 3.14, question=>$self->session->form->process("question") || 1,
gotoQuestion=>$self->session->form->process("gotoQuestion") || 3.14, Survey_questionId=>$self->session->form->process("qid") || 1,
answerFieldType=>$self->session->form->process("answerFieldType") || 3.14, Survey_id=>$self->get("Survey_id") || 1,
randomizeAnswers=>$self->session->form->process("randomizeAnswers") || 3.14, allowComment=>$self->session->form->process("allowComment") || 1,
Survey_sectionId=>$self->session->form->process("section") || 3.14 gotoQuestion=>$self->session->form->process("gotoQuestion") || 1,
answerFieldType=>$self->session->form->process("answerFieldType") || 1,
randomizeAnswers=>$self->session->form->process("randomizeAnswers") || 1,
Survey_sectionId=>$self->session->form->process("section") || 1
},1,0,"Survey_id"); },1,0,"Survey_id");
if ($self->session->form->process("proceed") eq "addMultipleChoiceAnswer") { if ($self->session->form->process("proceed") eq "addMultipleChoiceAnswer") {