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

fixed bug 688014

Browse source
This commit is contained in:
JT Smith 2003-02-20 03:31:21 +00:00
parent 8a6554063b
commit 3de2319805
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Wobject/Survey.pm
View file

@ -197,6 +197,7 @@ sub www_deleteAllResponsesConfirm {
sub www_edit {
return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());
my ($f, $output, $surveyId, $questionOrder, $mode, $groupToViewReports, $sth, %data, $groupToTakeSurvey);
tie %data, 'Tie::CPHash';
$mode = $_[0]->get("mode") || "survey";
$questionOrder = $_[0]->get("questionOrder") || "sequential";
$groupToViewReports = $_[0]->get("groupToViewReports") || 4;
@ -359,6 +360,7 @@ sub www_editAnswerSave {
sub www_editQuestion {
return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());
my ($output, $f, $question, $answerFieldType, $sth, %data);
tie %data, 'Tie::CPHash';
$question = $_[0]->getCollateral("Survey_question","Survey_questionId",$session{form}{qid});
$output = '<h1>'.WebGUI::International::get(17,$namespace).'</h1>';
$answerFieldType = $question->{answerFieldType} || "radioList";