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

fix - Adding Survey Choices

Browse source
This commit is contained in:
Roy Johnson 2006-06-29 12:44:35 +00:00
parent 235a4ed56e
commit 87616b1bb0
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/changelog/7.x.x.txt
View file

@ -14,4 +14,5 @@
- fix: Search displays already deleted files
- fix: Pagination not working in User Management System
- fix: Upgrade 6.8.10 to 6.99.5 (Thanks to Erik Svanberg for the patch)
- fix: Adding Survey Choices

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

@ -811,7 +811,8 @@ sub www_editAnswer {
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);
@ -825,7 +826,7 @@ sub www_editAnswer {
);
$f->hidden(
-name => "qid",
-value => $self->session->form->process("qid")
-value => $qid
);
$f->hidden(
-name => "aid",
@ -1045,7 +1046,7 @@ sub www_editQuestionSave {
},1,0,"Survey_id");
if ($self->session->form->process("proceed") eq "addMultipleChoiceAnswer") {
return $self->www_editAnswer('new');
return $self->www_editAnswer('new',$qid);
} elsif ($self->session->form->process("proceed") eq "addTextAnswer") {
$self->setAnswerType("text",$qid);
$self->addAnswer(0,$qid);