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

Bugfix [ 940008 ] error deleting parts of a survey in 6.0.1 (Thanks to

Browse source 
Andreas Sexauer.)
This commit is contained in:
JT Smith 2004-05-02 16:18:30 +00:00
parent a293678acd
commit d0fb8d5ab7
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
docs/changelog/6.x.x.txt
View file

@ -25,6 +25,8 @@
- Bugfix [ 943298 ] Events Calendar recurrence error in WG6.0 (thanks to - Bugfix [ 943298 ] Events Calendar recurrence error in WG6.0 (thanks to
Frank Dillon). Frank Dillon).
- Bugfix [ 942865 ] urlizedTitle problem. (Thanks to tr0nd). - Bugfix [ 942865 ] urlizedTitle problem. (Thanks to tr0nd).
- Bugfix [ 940008 ] error deleting parts of a survey in 6.0.1 (Thanks to
Andreas Sexauer.)
6.0.1 6.0.1

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

@ -436,7 +436,7 @@ sub www_deleteAnswer {
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub www_deleteAnswerConfirm { sub www_deleteAnswerConfirm {
return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditWobject($_[0]->get("wobjectId"))); return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditWobject($_[0]->get("wobjectId")));
WebGUI::SQL->write("delete from Survey_response where Survey_answerId=".quote($session{form}{aid})); WebGUI::SQL->write("delete from Survey_questionResponse where Survey_answerId=".quote($session{form}{aid}));
$_[0]->deleteCollateral("Survey_answer","Survey_answerId",$session{form}{aid}); $_[0]->deleteCollateral("Survey_answer","Survey_answerId",$session{form}{aid});
$_[0]->reorderCollateral("Survey_answer","Survey_answerId","Survey_id"); $_[0]->reorderCollateral("Survey_answer","Survey_answerId","Survey_id");
return $_[0]->www_editQuestion; return $_[0]->www_editQuestion;