/**
* Import survey from an TSV file template that does not require or allow assigning of GID or QID values.
* NOTE: This currently only supports import of one language
* @param type $sFullFilePath
* @return type
*
* @author TMSWhite
*/
function TSVImportSurvey($sFullFilePath)
{
$insertdata = array();
$results = array();
$results['error'] = false;
$baselang = 'en';
// TODO set proper default
$encoding = '';
$handle = fopen($sFullFilePath, 'r');
$bom = fread($handle, 2);
rewind($handle);
$aAttributeList = array();
//QuestionAttribute::getQuestionAttributesSettings();
// Excel tends to save CSV as UTF-16, which PHP does not properly detect
if ($bom === chr(0xff) . chr(0xfe) || $bom === chr(0xfe) . chr(0xff)) {
// UTF16 Byte Order Mark present
$encoding = 'UTF-16';
} else {
$file_sample = fread($handle, 1000) + 'e';
//read first 1000 bytes
// + e is a workaround for mb_string bug
rewind($handle);
$encoding = mb_detect_encoding($file_sample, 'UTF-8, UTF-7, ASCII, EUC-JP,SJIS, eucJP-win, SJIS-win, JIS, ISO-2022-JP');
}
if ($encoding && $encoding != 'UTF-8') {
stream_filter_append($handle, 'convert.iconv.' . $encoding . '/UTF-8');
}
$file = stream_get_contents($handle);
fclose($handle);
// fix Excel non-breaking space
$file = str_replace("0xC20xA0", ' ', $file);
$filelines = explode("\n", $file);
$row = array_shift($filelines);
$headers = explode("\t", $row);
$rowheaders = array();
foreach ($headers as $header) {
$rowheaders[] = trim($header);
}
// remove BOM from the first header cell, if needed
$rowheaders[0] = preg_replace("/^\\W+/", "", $rowheaders[0]);
if (preg_match('/class$/', $rowheaders[0])) {
$rowheaders[0] = 'class';
// second attempt to remove BOM
}
$adata = array();
foreach ($filelines as $rowline) {
$rowarray = array();
$row = explode("\t", $rowline);
for ($i = 0; $i < count($rowheaders); ++$i) {
$val = isset($row[$i]) ? $row[$i] : '';
// if Excel was used, it surrounds strings with quotes and doubles internal double quotes. Fix that.
if (preg_match('/^".*"$/', $val)) {
$val = str_replace('""', '"', substr($val, 1, -1));
}
$rowarray[$rowheaders[$i]] = $val;
}
$adata[] = $rowarray;
}
$results['defaultvalues'] = 0;
$results['answers'] = 0;
$results['surveys'] = 0;
$results['languages'] = 0;
$results['questions'] = 0;
$results['subquestions'] = 0;
$results['question_attributes'] = 0;
$results['groups'] = 0;
$results['importwarnings'] = array();
// these aren't used here, but are needed to avoid errors in post-import display
$results['assessments'] = 0;
$results['quota'] = 0;
$results['quotamembers'] = 0;
$results['quotals'] = 0;
// collect information about survey and its language settings
$surveyinfo = array();
$surveyls = array();
foreach ($adata as $row) {
switch ($row['class']) {
case 'S':
if (isset($row['text']) && $row['name'] != 'datecreated') {
$surveyinfo[$row['name']] = $row['text'];
}
break;
case 'SL':
if (!isset($surveyls[$row['language']])) {
$surveyls[$row['language']] = array();
}
if (isset($row['text'])) {
$surveyls[$row['language']][$row['name']] = $row['text'];
}
break;
}
}
$iOldSID = 1;
if (isset($surveyinfo['sid'])) {
$iOldSID = (int) $surveyinfo['sid'];
}
// Create the survey entry
$surveyinfo['startdate'] = NULL;
$surveyinfo['active'] = 'N';
// unset($surveyinfo['datecreated']);
$iNewSID = Survey::model()->insertNewSurvey($surveyinfo);
//or safeDie(gT("Error").": Failed to insert survey<br />");
if ($iNewSID == false) {
$results['error'] = Survey::model()->getErrors();
$results['bFailed'] = true;
return $results;
}
$surveyinfo['sid'] = $iNewSID;
$results['surveys']++;
$results['newsid'] = $iNewSID;
$gid = 0;
$gseq = 0;
// group_order
$qid = 0;
$qseq = 0;
// question_order
$qtype = 'T';
$aseq = 0;
// answer sortorder
// set the language for the survey
$_title = 'Missing Title';
foreach ($surveyls as $_lang => $insertdata) {
$insertdata['surveyls_survey_id'] = $iNewSID;
$insertdata['surveyls_language'] = $_lang;
if (isset($insertdata['surveyls_title'])) {
$_title = $insertdata['surveyls_title'];
} else {
$insertdata['surveyls_title'] = $_title;
}
$result = SurveyLanguageSetting::model()->insertNewSurvey($insertdata);
//
if (!$result) {
$results['error'][] = gT("Error") . " : " . gT("Failed to insert survey language");
break;
}
$results['languages']++;
}
$ginfo = array();
$qinfo = array();
$sqinfo = array();
if (isset($surveyinfo['language'])) {
$baselang = $surveyinfo['language'];
// the base language
}
$rownumber = 1;
$lastglang = '';
foreach ($adata as $row) {
$rownumber += 1;
switch ($row['class']) {
case 'G':
// insert group
$insertdata = array();
$insertdata['sid'] = $iNewSID;
$gname = !empty($row['name']) ? $row['name'] : 'G' . $gseq;
$glang = !empty($row['language']) ? $row['language'] : $baselang;
// when a multi-lang tsv-file without information on the group id/number (old style) is imported,
// we make up this information by giving a number 0..[numberofgroups-1] per language.
// the number and order of groups per language should be the same, so we can also import these files
if ($lastglang != $glang) {
$iGroupcounter = 0;
}
$lastglang = $glang;
//use group id/number from file. if missing, use an increasing number (s.a.)
$sGroupseq = !empty($row['type/scale']) ? $row['type/scale'] : 'G' . $iGroupcounter++;
$insertdata['group_name'] = $gname;
$insertdata['grelevance'] = isset($row['relevance']) ? $row['relevance'] : '';
$insertdata['description'] = isset($row['text']) ? $row['text'] : '';
$insertdata['language'] = $glang;
$insertdata['randomization_group'] = isset($row['random_group']) ? $row['random_group'] : '';
// For multi language survey: same gid/sort order across all languages
if (isset($ginfo[$sGroupseq])) {
$gid = $ginfo[$sGroupseq]['gid'];
$insertdata['gid'] = $gid;
$insertdata['group_order'] = $ginfo[$sGroupseq]['group_order'];
} else {
$insertdata['group_order'] = $gseq;
}
$newgid = QuestionGroup::model()->insertRecords($insertdata);
if (!$newgid) {
$results['error'][] = gT("Error") . " : " . gT("Failed to insert group") . ". " . gT("Text file row number ") . $rownumber . " (" . $gname . ")";
break;
}
if (!isset($ginfo[$sGroupseq])) {
$results['groups']++;
$gid = $newgid;
$ginfo[$sGroupseq]['gid'] = $gid;
$ginfo[$sGroupseq]['group_order'] = $gseq++;
}
$qseq = 0;
// reset the question_order
break;
case 'Q':
// insert question
$insertdata = array();
$insertdata['sid'] = $iNewSID;
$qtype = isset($row['type/scale']) ? $row['type/scale'] : 'T';
$qname = isset($row['name']) ? $row['name'] : 'Q' . $qseq;
$insertdata['gid'] = $gid;
$insertdata['type'] = $qtype;
$insertdata['title'] = $qname;
$insertdata['question'] = isset($row['text']) ? $row['text'] : '';
$insertdata['relevance'] = isset($row['relevance']) ? $row['relevance'] : '';
$insertdata['preg'] = isset($row['validation']) ? $row['validation'] : '';
$insertdata['help'] = isset($row['help']) ? $row['help'] : '';
$insertdata['language'] = isset($row['language']) ? $row['language'] : $baselang;
$insertdata['mandatory'] = isset($row['mandatory']) ? $row['mandatory'] : '';
$lastother = $insertdata['other'] = isset($row['other']) ? $row['other'] : 'N';
// Keep trace of other settings for sub question
$insertdata['same_default'] = isset($row['same_default']) ? $row['same_default'] : 0;
$insertdata['parent_qid'] = 0;
// For multi numeric survey : same name, add the gid to have same name on different gid. Bad for EM.
$fullqname = "G{$gid}_" . $qname;
if (isset($qinfo[$fullqname])) {
$qseq = $qinfo[$fullqname]['question_order'];
$qid = $qinfo[$fullqname]['qid'];
$insertdata['qid'] = $qid;
$insertdata['question_order'] = $qseq;
} else {
$insertdata['question_order'] = $qseq;
}
// Insert question and keep the qid for multi language survey
$result = Question::model()->insertRecords($insertdata);
if (!$result) {
$results['error'][] = gT("Error") . " : " . gT("Could not insert question") . ". " . gT("Text file row number ") . $rownumber . " (" . $qname . ")";
break;
}
$newqid = $result;
if (!isset($qinfo[$fullqname])) {
$results['questions']++;
$qid = $newqid;
// save this for later
$qinfo[$fullqname]['qid'] = $qid;
$qinfo[$fullqname]['question_order'] = $qseq++;
}
$aseq = 0;
//reset the answer sortorder
$sqseq = 0;
//reset the sub question sortorder
// insert question attributes
foreach ($row as $key => $val) {
switch ($key) {
case 'class':
case 'type/scale':
case 'name':
case 'text':
case 'validation':
case 'relevance':
case 'help':
case 'language':
case 'mandatory':
case 'other':
case 'same_default':
case 'default':
break;
default:
if ($key != '' && $val != '') {
$insertdata = array();
$insertdata['qid'] = $qid;
// check if attribute is a i18n attribute. If yes, set language, else set language to null in attribute table
$aAttributeList[$qtype] = \ls\helpers\questionHelper::getQuestionAttributesSettings($qtype);
if ($aAttributeList[$qtype][$key]['i18n']) {
$insertdata['language'] = isset($row['language']) ? $row['language'] : $baselang;
} else {
$insertdata['language'] = NULL;
}
$insertdata['attribute'] = $key;
$insertdata['value'] = $val;
$result = QuestionAttribute::model()->insertRecords($insertdata);
//
if (!$result) {
$results['importwarnings'][] = gT("Warning") . " : " . gT("Failed to insert question attribute") . ". " . gT("Text file row number ") . $rownumber . " ({$key})";
break;
}
$results['question_attributes']++;
}
break;
}
}
// insert default value
if (isset($row['default']) && $row['default'] !== "") {
$insertdata = array();
$insertdata['qid'] = $qid;
$insertdata['language'] = isset($row['language']) ? $row['language'] : $baselang;
$insertdata['defaultvalue'] = $row['default'];
$result = DefaultValue::model()->insertRecords($insertdata);
if (!$result) {
$results['importwarnings'][] = gT("Warning") . " : " . gT("Failed to insert default value") . ". " . gT("Text file row number ") . $rownumber;
break;
}
$results['defaultvalues']++;
}
break;
case 'SQ':
$sqname = isset($row['name']) ? $row['name'] : 'SQ' . $sqseq;
if ($qtype == 'O' || $qtype == '|') {
// these are fake rows to show naming of comment and filecount fields
} elseif ($sqname == 'other' && $lastother == "Y") {
if ($qtype == "!" || $qtype == "L") {
// only used to set default value for 'other' in these cases
if (isset($row['default']) && $row['default'] != "") {
$insertdata = array();
$insertdata['qid'] = $qid;
$insertdata['specialtype'] = 'other';
$insertdata['language'] = isset($row['language']) ? $row['language'] : $baselang;
$insertdata['defaultvalue'] = $row['default'];
$result = DefaultValue::model()->insertRecords($insertdata);
if (!$result) {
$results['importwarnings'][] = gT("Warning") . " : " . gT("Failed to insert default value") . ". " . gT("Text file row number ") . $rownumber;
break;
}
$results['defaultvalues']++;
}
}
} else {
$insertdata = array();
$scale_id = isset($row['type/scale']) ? $row['type/scale'] : 0;
$insertdata['sid'] = $iNewSID;
$insertdata['gid'] = $gid;
$insertdata['parent_qid'] = $qid;
$insertdata['type'] = $qtype;
$insertdata['title'] = $sqname;
$insertdata['question'] = isset($row['text']) ? $row['text'] : '';
$insertdata['relevance'] = isset($row['relevance']) ? $row['relevance'] : '';
$insertdata['preg'] = isset($row['validation']) ? $row['validation'] : '';
$insertdata['help'] = isset($row['help']) ? $row['help'] : '';
$insertdata['language'] = isset($row['language']) ? $row['language'] : $baselang;
$insertdata['mandatory'] = isset($row['mandatory']) ? $row['mandatory'] : '';
$insertdata['scale_id'] = $scale_id;
// For multi nueric language, qid is needed, why not gid. name is not unique.
$fullsqname = "G{$gid}Q{$qid}_{$scale_id}_{$sqname}";
if (isset($sqinfo[$fullsqname])) {
$qseq = $sqinfo[$fullsqname]['question_order'];
$sqid = $sqinfo[$fullsqname]['sqid'];
$insertdata['question_order'] = $qseq;
$insertdata['qid'] = $sqid;
} else {
$insertdata['question_order'] = $qseq;
}
// Insert sub question and keep the sqid for multi language survey
$newsqid = Question::model()->insertRecords($insertdata);
if (!$newsqid) {
$results['error'][] = gT("Error") . " : " . gT("Could not insert subquestion") . ". " . gT("Text file row number ") . $rownumber . " (" . $qname . ")";
break;
}
if (!isset($sqinfo[$fullsqname])) {
$sqinfo[$fullsqname]['question_order'] = $qseq++;
$sqid = $newsqid;
// save this for later
$sqinfo[$fullsqname]['sqid'] = $sqid;
$results['subquestions']++;
}
// insert default value
if (isset($row['default']) && $row['default'] != "") {
$insertdata = array();
$insertdata['qid'] = $qid;
$insertdata['sqid'] = $sqid;
$insertdata['scale_id'] = $scale_id;
$insertdata['language'] = isset($row['language']) ? $row['language'] : $baselang;
$insertdata['defaultvalue'] = $row['default'];
$result = DefaultValue::model()->insertRecords($insertdata);
if (!$result) {
$results['importwarnings'][] = gT("Warning") . " : " . gT("Failed to insert default value") . ". " . gT("Text file row number ") . $rownumber;
break;
}
$results['defaultvalues']++;
}
}
break;
case 'A':
$insertdata = array();
$insertdata['qid'] = $qid;
$insertdata['code'] = isset($row['name']) ? $row['name'] : 'A' . $aseq;
$insertdata['answer'] = isset($row['text']) ? $row['text'] : '';
$insertdata['scale_id'] = isset($row['type/scale']) ? $row['type/scale'] : 0;
$insertdata['language'] = isset($row['language']) ? $row['language'] : $baselang;
$insertdata['assessment_value'] = (int) (isset($row['relevance']) ? $row['relevance'] : '');
$insertdata['sortorder'] = ++$aseq;
$result = Answer::model()->insertRecords($insertdata);
// or safeDie("Error: Failed to insert answer<br />");
if (!$result) {
$results['error'][] = gT("Error") . " : " . gT("Could not insert answer") . ". " . gT("Text file row number ") . $rownumber;
}
$results['answers']++;
break;
}
}
// Delete the survey if error found
if (is_array($results['error'])) {
$result = Survey::model()->deleteSurvey($iNewSID);
} else {
LimeExpressionManager::SetSurveyId($iNewSID);
LimeExpressionManager::RevertUpgradeConditionsToRelevance($iNewSID);
LimeExpressionManager::UpgradeConditionsToRelevance($iNewSID);
}
return $results;
}
/**
* This function returns an array of the advanced attributes for the particular question
* including their values set in the database
*
* @access public
* @param int $iQuestionID The question ID - if 0 then all settings will use the default value
* @param string $sQuestionType The question type
* @param int $iSurveyID
* @param string $sLanguage If you give a language then only the attributes for that language are returned
* @return array
*/
public function getAdvancedSettingsWithValues($iQuestionID, $sQuestionType, $iSurveyID, $sLanguage = null)
{
if (is_null($sLanguage)) {
$aLanguages = array_merge(array(Survey::model()->findByPk($iSurveyID)->language), Survey::model()->findByPk($iSurveyID)->additionalLanguages);
} else {
$aLanguages = array($sLanguage);
}
if ($iQuestionID) {
$oAttributeValues = QuestionAttribute::model()->findAll("qid=:qid", array('qid' => $iQuestionID));
$aAttributeValues = array();
foreach ($oAttributeValues as $oAttributeValue) {
if ($oAttributeValue->language) {
$aAttributeValues[$oAttributeValue->attribute][$oAttributeValue->language] = $oAttributeValue->value;
} else {
$aAttributeValues[$oAttributeValue->attribute] = $oAttributeValue->value;
}
}
}
$aAttributeNames = \ls\helpers\questionHelper::getQuestionAttributesSettings($sQuestionType);
uasort($aAttributeNames, 'categorySort');
foreach ($aAttributeNames as $iKey => $aAttribute) {
if ($aAttribute['i18n'] == false) {
if (isset($aAttributeValues[$aAttribute['name']])) {
$aAttributeNames[$iKey]['value'] = $aAttributeValues[$aAttribute['name']];
} else {
$aAttributeNames[$iKey]['value'] = $aAttribute['default'];
}
} else {
foreach ($aLanguages as $sLanguage) {
if (isset($aAttributeValues[$aAttribute['name']][$sLanguage])) {
$aAttributeNames[$iKey][$sLanguage]['value'] = $aAttributeValues[$aAttribute['name']][$sLanguage];
} else {
$aAttributeNames[$iKey][$sLanguage]['value'] = $aAttribute['default'];
}
}
}
}
return $aAttributeNames;
}
/**
* Database::index()
*
* @param mixed $sa
* @return
*/
function index($sa = null)
{
$sAction = Yii::app()->request->getPost('action');
$iSurveyID = isset($_POST['sid']) ? $_POST['sid'] : returnGlobal('sid');
$iQuestionGroupID = returnGlobal('gid');
$iQuestionID = returnGlobal('qid');
// TODO: This variable seems to be never set or used in any function call?
$sDBOutput = '';
$oFixCKeditor = new LSYii_Validators();
$oFixCKeditor->fixCKeditor = true;
$oFixCKeditor->xssfilter = false;
if ($sAction == "updatedefaultvalues" && Permission::model()->hasSurveyPermission($iSurveyID, 'surveycontent', 'update')) {
$aSurveyLanguages = Survey::model()->findByPk($iSurveyID)->additionalLanguages;
$sBaseLanguage = Survey::model()->findByPk($iSurveyID)->language;
array_unshift($aSurveyLanguages, $sBaseLanguage);
Question::model()->updateAll(array('same_default' => Yii::app()->request->getPost('samedefault') ? 1 : 0), 'sid=:sid ANd qid=:qid', array(':sid' => $iSurveyID, ':qid' => $iQuestionID));
$arQuestion = Question::model()->findByAttributes(array('qid' => $iQuestionID));
$sQuestionType = $arQuestion['type'];
$aQuestionTypeList = getQuestionTypeList('', 'array');
if ($aQuestionTypeList[$sQuestionType]['answerscales'] > 0 && $aQuestionTypeList[$sQuestionType]['subquestions'] == 0) {
for ($iScaleID = 0; $iScaleID < $aQuestionTypeList[$sQuestionType]['answerscales']; $iScaleID++) {
foreach ($aSurveyLanguages as $sLanguage) {
if (!is_null(Yii::app()->request->getPost('defaultanswerscale_' . $iScaleID . '_' . $sLanguage))) {
$this->_updateDefaultValues($iQuestionID, 0, $iScaleID, '', $sLanguage, Yii::app()->request->getPost('defaultanswerscale_' . $iScaleID . '_' . $sLanguage), true);
}
if (!is_null(Yii::app()->request->getPost('other_' . $iScaleID . '_' . $sLanguage))) {
$this->_updateDefaultValues($iQuestionID, 0, $iScaleID, 'other', $sLanguage, Yii::app()->request->getPost('other_' . $iScaleID . '_' . $sLanguage), true);
}
}
}
}
if ($aQuestionTypeList[$sQuestionType]['subquestions'] > 0) {
foreach ($aSurveyLanguages as $sLanguage) {
$arQuestions = Question::model()->findAllByAttributes(array('sid' => $iSurveyID, 'gid' => $iQuestionGroupID, 'parent_qid' => $iQuestionID, 'language' => $sLanguage, 'scale_id' => 0));
for ($iScaleID = 0; $iScaleID < $aQuestionTypeList[$sQuestionType]['subquestions']; $iScaleID++) {
foreach ($arQuestions as $aSubquestionrow) {
if (!is_null(Yii::app()->request->getPost('defaultanswerscale_' . $iScaleID . '_' . $sLanguage . '_' . $aSubquestionrow['qid']))) {
$this->_updateDefaultValues($iQuestionID, $aSubquestionrow['qid'], $iScaleID, '', $sLanguage, Yii::app()->request->getPost('defaultanswerscale_' . $iScaleID . '_' . $sLanguage . '_' . $aSubquestionrow['qid']), true);
}
}
}
}
}
if ($aQuestionTypeList[$sQuestionType]['answerscales'] == 0 && $aQuestionTypeList[$sQuestionType]['subquestions'] == 0) {
foreach ($aSurveyLanguages as $sLanguage) {
// Qick and dirty insert for yes/no defaul value
// write the the selectbox option, or if "EM" is slected, this value to table
if ($sQuestionType == 'Y') {
/// value for all langs
if (Yii::app()->request->getPost('samedefault') == 1) {
$sLanguage = $aSurveyLanguages[0];
// turn
}
if (Yii::app()->request->getPost('defaultanswerscale_0_' . $sLanguage) == 'EM') {
// Case EM, write expression to database
$this->_updateDefaultValues($iQuestionID, 0, 0, '', $sLanguage, Yii::app()->request->getPost('defaultanswerscale_0_' . $sLanguage . '_EM'), true);
} else {
// Case "other", write list value to database
$this->_updateDefaultValues($iQuestionID, 0, 0, '', $sLanguage, Yii::app()->request->getPost('defaultanswerscale_0_' . $sLanguage), true);
}
///// end yes/no
} else {
if (!is_null(Yii::app()->request->getPost('defaultanswerscale_0_' . $sLanguage . '_0'))) {
$this->_updateDefaultValues($iQuestionID, 0, 0, '', $sLanguage, Yii::app()->request->getPost('defaultanswerscale_0_' . $sLanguage . '_0'), true);
}
}
}
}
Yii::app()->session['flashmessage'] = gT("Default value settings were successfully saved.");
LimeExpressionManager::SetDirtyFlag();
if ($sDBOutput != '') {
echo $sDBOutput;
} else {
if (Yii::app()->request->getPost('close-after-save') === 'true') {
$this->getController()->redirect(array('admin/questions/sa/view/surveyid/' . $iSurveyID . '/gid/' . $iQuestionGroupID . '/qid/' . $iQuestionID));
}
$this->getController()->redirect(array('admin/questions/sa/editdefaultvalues/surveyid/' . $iSurveyID . '/gid/' . $iQuestionGroupID . '/qid/' . $iQuestionID));
}
}
if ($sAction == "updateansweroptions" && Permission::model()->hasSurveyPermission($iSurveyID, 'surveycontent', 'update')) {
Yii::app()->loadHelper('database');
$aSurveyLanguages = Survey::model()->findByPk($iSurveyID)->additionalLanguages;
$sBaseLanguage = Survey::model()->findByPk($iSurveyID)->language;
array_unshift($aSurveyLanguages, $sBaseLanguage);
$arQuestion = Question::model()->findByAttributes(array('qid' => $iQuestionID));
$sQuestionType = $arQuestion['type'];
// Checked)
$aQuestionTypeList = getQuestionTypeList('', 'array');
$iScaleCount = $aQuestionTypeList[$sQuestionType]['answerscales'];
/* for already activated survey and rank question type : fix the maxDbAnswer before deleting answers */
/* @todo : add it to upgrage DB system, and see for the lsa */
if ($sQuestionType == "R" && Survey::model()->findByPk($iSurveyID)->active == "Y") {
QuestionAttribute::model()->find("qid = :qid AND attribute = 'max_subquestions'", array(':qid' => $iQuestionID));
$answerCount = Answer::model()->countByAttributes(array('qid' => $iQuestionID, 'language' => Survey::model()->findByPk($iSurveyID)->language));
$oQuestionAttribute = new QuestionAttribute();
$oQuestionAttribute->qid = $iQuestionID;
$oQuestionAttribute->attribute = 'max_subquestions';
$oQuestionAttribute->value = $answerCount;
$oQuestionAttribute->save();
}
//First delete all answers
Answer::model()->deleteAllByAttributes(array('qid' => $iQuestionID));
LimeExpressionManager::RevertUpgradeConditionsToRelevance($iSurveyID);
for ($iScaleID = 0; $iScaleID < $iScaleCount; $iScaleID++) {
$iMaxCount = (int) Yii::app()->request->getPost('answercount_' . $iScaleID);
for ($iSortOrderID = 1; $iSortOrderID < $iMaxCount; $iSortOrderID++) {
$sCode = sanitize_paranoid_string(Yii::app()->request->getPost('code_' . $iSortOrderID . '_' . $iScaleID));
//var_dump($sCode);
$iAssessmentValue = (int) Yii::app()->request->getPost('assessment_' . $iSortOrderID . '_' . $iScaleID);
foreach ($aSurveyLanguages as $sLanguage) {
$sAnswerText = Yii::app()->request->getPost('answer_' . $sLanguage . '_' . $iSortOrderID . '_' . $iScaleID);
// Fix bug with FCKEditor saving strange BR types
$sAnswerText = $oFixCKeditor->fixCKeditor($sAnswerText);
// Now we insert the answers
$oAnswer = new Answer();
$oAnswer->code = $sCode;
$oAnswer->answer = $sAnswerText;
$oAnswer->qid = $iQuestionID;
$oAnswer->sortorder = $iSortOrderID;
$oAnswer->language = $sLanguage;
$oAnswer->assessment_value = $iAssessmentValue;
$oAnswer->scale_id = $iScaleID;
if (!$oAnswer->save()) {
$sErrors = '<br/>';
foreach ($oAnswer->getErrors() as $sError) {
$sErrors .= $sError[0] . '<br/>';
}
// Let's give a new to code to the answer to save it, so user entries are not lost
$bAnswerSave = false;
while (!$bAnswerSave) {
$oAnswer->code = rand(11111, 99999);
// If the random code already exist (very low probablilty), answer will not be save and a new code will be generated
if ($oAnswer->save()) {
$sError = '<strong>' . sprintf(gT('A code has been updated to %s.'), $oAnswer->code) . '</strong><br/>';
$bAnswerSave = true;
}
}
Yii::app()->setFlashMessage(gT("Failed to update answer: ") . $sCode . $sErrors, 'error');
}
}
// Updating code (oldcode!==null) => update condition with the new code
$sOldCode = Yii::app()->request->getPost('oldcode_' . $iSortOrderID . '_' . $iScaleID);
if (isset($sOldCode) && $sCode !== $sOldCode) {
Condition::model()->updateAll(array('value' => $sCode), 'cqid=:cqid AND value=:value', array(':cqid' => $iQuestionID, ':value' => $sOldCode));
}
}
// for ($sortorderid=0;$sortorderid<$maxcount;$sortorderid++)
}
// for ($scale_id=0;
LimeExpressionManager::UpgradeConditionsToRelevance($iSurveyID);
if (!Yii::app()->request->getPost('bFullPOST')) {
Yii::app()->setFlashMessage(gT("Not all answer options were saved. This usually happens due to server limitations ( PHP setting max_input_vars) - please contact your system administrator."));
} else {
Yii::app()->session['flashmessage'] = gT("Answer options were successfully saved.");
}
LimeExpressionManager::SetDirtyFlag();
if ($sDBOutput != '') {
echo $sDBOutput;
} else {
if (Yii::app()->request->getPost('close-after-save') === 'true') {
$this->getController()->redirect(array('admin/questions/sa/view/surveyid/' . $iSurveyID . '/gid/' . $iQuestionGroupID . '/qid/' . $iQuestionID));
}
$this->getController()->redirect(array('/admin/questions/sa/answeroptions/surveyid/' . $iSurveyID . '/gid/' . $iQuestionGroupID . '/qid/' . $iQuestionID));
}
}
if ($sAction == "updatesubquestions" && Permission::model()->hasSurveyPermission($iSurveyID, 'surveycontent', 'update')) {
Yii::app()->loadHelper('database');
$aSurveyLanguages = Survey::model()->findByPk($iSurveyID)->additionalLanguages;
$sBaseLanguage = Survey::model()->findByPk($iSurveyID)->language;
array_unshift($aSurveyLanguages, $sBaseLanguage);
$arQuestion = Question::model()->findByAttributes(array('qid' => $iQuestionID));
$sQuestionType = $arQuestion['type'];
// Checked
$aQuestionTypeList = getQuestionTypeList('', 'array');
$iScaleCount = $aQuestionTypeList[$sQuestionType]['subquestions'];
// First delete any deleted ids
$aDeletedQIDs = explode(' ', trim(Yii::app()->request->getPost('deletedqids')));
LimeExpressionManager::RevertUpgradeConditionsToRelevance($iSurveyID);
$aDeletedQIDs = array_unique($aDeletedQIDs, SORT_NUMERIC);
foreach ($aDeletedQIDs as $iDeletedQID) {
$iDeletedQID = (int) $iDeletedQID;
if ($iDeletedQID > 0) {
// don't remove undefined
$iInsertCount = Question::model()->deleteAllByAttributes(array('qid' => $iDeletedQID));
if (!$iInsertCount) {
Yii::app()->setFlashMessage(gT("Failed to delete answer"), 'error');
}
}
}
//Determine ids by evaluating the hidden field
$aRows = array();
$aCodes = array();
$aOldCodes = array();
$aRelevance = array();
foreach ($_POST as $sPOSTKey => $sPOSTValue) {
$sPOSTKey = explode('_', $sPOSTKey);
if ($sPOSTKey[0] == 'answer') {
$aRows[$sPOSTKey[3]][$sPOSTKey[1]][$sPOSTKey[2]] = $sPOSTValue;
}
if ($sPOSTKey[0] == 'code') {
$aCodes[$sPOSTKey[2]][] = $sPOSTValue;
}
if ($sPOSTKey[0] == 'oldcode') {
$aOldCodes[$sPOSTKey[2]][] = $sPOSTValue;
}
if ($sPOSTKey[0] == 'relevance') {
$aRelevance[$sPOSTKey[2]][] = $sPOSTValue;
}
}
$aInsertQID = array();
for ($iScaleID = 0; $iScaleID < $iScaleCount; $iScaleID++) {
foreach ($aSurveyLanguages as $sLanguage) {
$iPosition = 0;
// Give to subquestions to edit a temporary random title to avoid title duplication on update
foreach ($aRows[$iScaleID][$sLanguage] as $subquestionkey => $subquestionvalue) {
if (substr($subquestionkey, 0, 3) != 'new') {
$oSubQuestion = Question::model()->find("qid=:qid AND language=:language", array(":qid" => $subquestionkey, ':language' => $sLanguage));
$bAnswerSave = false;
while (!$bAnswerSave) {
$oSubQuestion->title = (string) rand(11111, 99999);
// If the random code already exist (very low probablilty), answer will not be save and a new code will be generated
if ($oSubQuestion->save()) {
$bAnswerSave = true;
}
}
}
}
foreach ($aRows[$iScaleID][$sLanguage] as $subquestionkey => $subquestionvalue) {
if (substr($subquestionkey, 0, 3) != 'new') {
//
$oSubQuestion = Question::model()->find("qid=:qid AND language=:language", array(":qid" => $subquestionkey, ':language' => $sLanguage));
if (!is_object($oSubQuestion)) {
throw new CHttpException(502, "could not find subquestion {$subquestionkey} !");
}
$oSubQuestion->question_order = $iPosition + 1;
$oSubQuestion->title = $aCodes[$iScaleID][$iPosition];
$oSubQuestion->question = $subquestionvalue;
$oSubQuestion->scale_id = $iScaleID;
$oSubQuestion->relevance = isset($aRelevance[$iScaleID][$iPosition]) ? $aRelevance[$iScaleID][$iPosition] : "";
} else {
if (!isset($aInsertQID[$iScaleID][$iPosition])) {
$oSubQuestion = new Question();
$oSubQuestion->sid = $iSurveyID;
$oSubQuestion->gid = $iQuestionGroupID;
$oSubQuestion->question_order = $iPosition + 1;
$oSubQuestion->title = $aCodes[$iScaleID][$iPosition];
$oSubQuestion->question = $subquestionvalue;
$oSubQuestion->parent_qid = $iQuestionID;
$oSubQuestion->language = $sLanguage;
$oSubQuestion->scale_id = $iScaleID;
$oSubQuestion->relevance = isset($aRelevance[$iScaleID][$iPosition]) ? $aRelevance[$iScaleID][$iPosition] : "";
} else {
$oSubQuestion = Question::model()->find("qid=:qid AND language=:language", array(":qid" => $aInsertQID[$iScaleID][$iPosition], ':language' => $sLanguage));
if (!$oSubQuestion) {
$oSubQuestion = new Question();
}
$oSubQuestion->sid = $iSurveyID;
$oSubQuestion->gid = $iQuestionGroupID;
$oSubQuestion->qid = $aInsertQID[$iScaleID][$iPosition];
$oSubQuestion->question_order = $iPosition + 1;
$oSubQuestion->title = $aCodes[$iScaleID][$iPosition];
$oSubQuestion->question = $subquestionvalue;
$oSubQuestion->parent_qid = $iQuestionID;
$oSubQuestion->language = $sLanguage;
$oSubQuestion->scale_id = $iScaleID;
$oSubQuestion->relevance = isset($aRelevance[$iScaleID][$iPosition]) ? $aRelevance[$iScaleID][$iPosition] : "";
}
}
if ($oSubQuestion->qid) {
switchMSSQLIdentityInsert('questions', true);
$bSubQuestionResult = $oSubQuestion->save();
switchMSSQLIdentityInsert('questions', false);
} else {
$bSubQuestionResult = $oSubQuestion->save();
}
if ($bSubQuestionResult) {
if (substr($subquestionkey, 0, 3) != 'new' && isset($aOldCodes[$iScaleID][$iPosition]) && $aCodes[$iScaleID][$iPosition] !== $aOldCodes[$iScaleID][$iPosition]) {
Condition::model()->updateAll(array('cfieldname' => '+' . $iSurveyID . 'X' . $iQuestionGroupID . 'X' . $iQuestionID . $aCodes[$iScaleID][$iPosition], 'value' => $aCodes[$iScaleID][$iPosition]), 'cqid=:cqid AND cfieldname=:cfieldname AND value=:value', array(':cqid' => $iQuestionID, ':cfieldname' => $iSurveyID . 'X' . $iQuestionGroupID . 'X' . $iQuestionID, ':value' => $aOldCodes[$iScaleID][$iPosition]));
}
if (!isset($aInsertQID[$iScaleID][$iPosition])) {
$aInsertQID[$iScaleID][$iPosition] = $oSubQuestion->qid;
}
} else {
$aErrors = $oSubQuestion->getErrors();
if (count($aErrors)) {
foreach ($aErrors as $sAttribute => $aStringErrors) {
foreach ($aStringErrors as $sStringErrors) {
Yii::app()->setFlashMessage(sprintf(gT("Error on %s for subquestion %s: %s"), $sAttribute, $aCodes[$iScaleID][$iPosition], $sStringErrors), 'error');
}
}
// Let's give a new to code to the answer to save it, so user entries are not lost
$bAnswerSave = false;
while (!$bAnswerSave) {
$oSubQuestion->title = rand(11111, 99999);
// If the random code already exist (very low probablilty), answer will not be save and a new code will be generated
if ($oSubQuestion->save()) {
$sError = '<strong>' . sprintf(gT('A code has been updated to %s.'), $oSubQuestion->title) . '</strong><br/>';
Yii::app()->setFlashMessage($sError, 'error');
$bAnswerSave = true;
}
}
} else {
Yii::app()->setFlashMessage(sprintf(gT("Subquestions %s could not be updated."), $aCodes[$iScaleID][$iPosition]), 'error');
}
}
$iPosition++;
}
}
}
LimeExpressionManager::UpgradeConditionsToRelevance($iSurveyID);
// Do it only if there are no error ?
if (!isset($aErrors) || !count($aErrors)) {
if (!Yii::app()->request->getPost('bFullPOST')) {
Yii::app()->session['flashmessage'] = gT("Not all subquestions were saved. This usually happens due to server limitations ( PHP setting max_input_vars) - please contact your system administrator.");
} else {
Yii::app()->session['flashmessage'] = gT("Subquestions were successfully saved.");
}
}
//$action='editsubquestions';
LimeExpressionManager::SetDirtyFlag();
if ($sDBOutput != '') {
echo 'Problem in database controller: ' . $sDBOutput;
} else {
if (Yii::app()->request->getPost('close-after-save') === 'true') {
$this->getController()->redirect(array('/admin/questions/sa/view/surveyid/' . $iSurveyID . '/gid/' . $iQuestionGroupID . '/qid/' . $iQuestionID));
}
$this->getController()->redirect(array('/admin/questions/sa/subquestions/surveyid/' . $iSurveyID . '/gid/' . $iQuestionGroupID . '/qid/' . $iQuestionID));
}
}
/**
* Insert / Copy question
*/
if (in_array($sAction, array('insertquestion', 'copyquestion')) && Permission::model()->hasSurveyPermission($iSurveyID, 'surveycontent', 'create')) {
$survey = Survey::model()->findByPk($iSurveyID);
$sBaseLanguage = $survey->language;
// Abort if survey is active
if ($survey->active !== 'N') {
Yii::app()->setFlashMessage(gT("You can't insert a new question when the survey is active."), 'error');
$this->getController()->redirect(array("/admin/survey/sa/view/surveyid/" . $survey->sid), "refresh");
}
if (strlen(Yii::app()->request->getPost('title')) < 1) {
Yii::app()->setFlashMessage(gT("The question could not be added. You must enter at least a question code."), 'error');
} else {
// For Bootstrap Version usin YiiWheels switch :
$_POST['mandatory'] = Yii::app()->request->getPost('mandatory') == '1' ? 'Y' : 'N';
$_POST['other'] = Yii::app()->request->getPost('other') == '1' ? 'Y' : 'N';
if (Yii::app()->request->getPost('questionposition', "") != "") {
$iQuestionOrder = intval(Yii::app()->request->getPost('questionposition'));
//Need to renumber all questions on or after this
$sQuery = "UPDATE {{questions}} SET question_order=question_order+1 WHERE gid=:gid AND question_order >= :order";
Yii::app()->db->createCommand($sQuery)->bindValues(array(':gid' => $iQuestionGroupID, ':order' => $iQuestionOrder))->query();
} else {
$iQuestionOrder = getMaxQuestionOrder($iQuestionGroupID, $iSurveyID);
$iQuestionOrder++;
}
$sQuestionText = Yii::app()->request->getPost('question_' . $sBaseLanguage, '');
$sQuestionHelp = Yii::app()->request->getPost('help_' . $sBaseLanguage, '');
// Fix bug with FCKEditor saving strange BR types : in rules ?
$sQuestionText = $oFixCKeditor->fixCKeditor($sQuestionText);
$sQuestionHelp = $oFixCKeditor->fixCKeditor($sQuestionHelp);
$iQuestionID = 0;
$oQuestion = new Question();
$oQuestion->sid = $iSurveyID;
$oQuestion->gid = $iQuestionGroupID;
$oQuestion->type = Yii::app()->request->getPost('type');
$oQuestion->title = Yii::app()->request->getPost('title');
$oQuestion->question = $sQuestionText;
$oQuestion->preg = Yii::app()->request->getPost('preg');
$oQuestion->help = $sQuestionHelp;
$oQuestion->other = Yii::app()->request->getPost('other');
// For Bootstrap Version usin YiiWheels switch :
$oQuestion->mandatory = Yii::app()->request->getPost('mandatory');
$oQuestion->other = Yii::app()->request->getPost('other');
$oQuestion->relevance = Yii::app()->request->getPost('relevance');
$oQuestion->question_order = $iQuestionOrder;
$oQuestion->language = $sBaseLanguage;
$oQuestion->save();
if ($oQuestion) {
$iQuestionID = $oQuestion->qid;
}
$aErrors = $oQuestion->getErrors();
if (count($aErrors)) {
foreach ($aErrors as $sAttribute => $aStringErrors) {
foreach ($aStringErrors as $sStringErrors) {
Yii::app()->setFlashMessage(sprintf(gT("Question could not be created with error on %s: %s"), $sAttribute, $sStringErrors), 'error');
}
}
}
// Add other languages
if ($iQuestionID) {
$addlangs = Survey::model()->findByPk($iSurveyID)->additionalLanguages;
foreach ($addlangs as $alang) {
if ($alang != "") {
$oQuestion = new Question();
$oQuestion->qid = $iQuestionID;
$oQuestion->sid = $iSurveyID;
$oQuestion->gid = $iQuestionGroupID;
$oQuestion->type = Yii::app()->request->getPost('type');
$oQuestion->title = Yii::app()->request->getPost('title');
$oQuestion->question = Yii::app()->request->getPost('question_' . $alang);
$oQuestion->preg = Yii::app()->request->getPost('preg');
$oQuestion->help = Yii::app()->request->getPost('help_' . $alang);
$oQuestion->other = Yii::app()->request->getPost('other');
$oQuestion->mandatory = Yii::app()->request->getPost('mandatory');
$oQuestion->relevance = Yii::app()->request->getPost('relevance');
$oQuestion->question_order = $iQuestionOrder;
$oQuestion->language = $alang;
switchMSSQLIdentityInsert('questions', true);
// Not sure for this one ?
$oQuestion->save();
switchMSSQLIdentityInsert('questions', false);
$aErrors = $oQuestion->getErrors();
if (count($aErrors)) {
foreach ($aErrors as $sAttribute => $aStringErrors) {
foreach ($aStringErrors as $sStringErrors) {
Yii::app()->setFlashMessage(sprintf(gT("Question in language %s could not be created with error on %s: %s"), $alang, $sAttribute, $sStringErrors), 'error');
}
}
}
# if (!$langqid)
# {
# Yii::app()->setFlashMessage(gT("Question in language %s could not be created."),'error');
# }
}
}
}
if (!$iQuestionID) {
Yii::app()->setFlashMessage(gT("Question could not be created."), 'error');
} else {
if ($sAction == 'copyquestion') {
if (returnGlobal('copysubquestions') == 1) {
$aSQIDMappings = array();
$r1 = Question::model()->getSubQuestions(returnGlobal('oldqid'));
$aSubQuestions = $r1->readAll();
foreach ($aSubQuestions as $qr1) {
$qr1['parent_qid'] = $iQuestionID;
$oldqid = '';
if (isset($aSQIDMappings[$qr1['qid']])) {
$qr1['qid'] = $aSQIDMappings[$qr1['qid']];
} else {
$oldqid = $qr1['qid'];
unset($qr1['qid']);
}
$qr1['gid'] = $iQuestionGroupID;
$iInsertID = Question::model()->insertRecords($qr1);
if (!isset($qr1['qid'])) {
$aSQIDMappings[$oldqid] = $iInsertID;
}
}
}
if (returnGlobal('copyanswers') == 1) {
$r1 = Answer::model()->getAnswers(returnGlobal('oldqid'));
$aAnswerOptions = $r1->readAll();
foreach ($aAnswerOptions as $qr1) {
Answer::model()->insertRecords(array('qid' => $iQuestionID, 'code' => $qr1['code'], 'answer' => $qr1['answer'], 'assessment_value' => $qr1['assessment_value'], 'sortorder' => $qr1['sortorder'], 'language' => $qr1['language'], 'scale_id' => $qr1['scale_id']));
}
}
/**
* Copy attribute
*/
if (returnGlobal('copyattributes') == 1) {
$oOldAttributes = QuestionAttribute::model()->findAll("qid=:qid", array("qid" => returnGlobal('oldqid')));
foreach ($oOldAttributes as $oOldAttribute) {
$attribute = new QuestionAttribute();
$attribute->qid = $iQuestionID;
$attribute->value = $oOldAttribute->value;
$attribute->attribute = $oOldAttribute->attribute;
$attribute->language = $oOldAttribute->language;
$attribute->save();
}
}
} else {
$validAttributes = \ls\helpers\questionHelper::getQuestionAttributesSettings(Yii::app()->request->getPost('type'));
$aLanguages = array_merge(array(Survey::model()->findByPk($iSurveyID)->language), Survey::model()->findByPk($iSurveyID)->additionalLanguages);
foreach ($validAttributes as $validAttribute) {
if ($validAttribute['i18n']) {
foreach ($aLanguages as $sLanguage) {
$value = Yii::app()->request->getPost($validAttribute['name'] . '_' . $sLanguage);
$iInsertCount = QuestionAttribute::model()->findAllByAttributes(array('attribute' => $validAttribute['name'], 'qid' => $iQuestionID, 'language' => $sLanguage));
if (count($iInsertCount) > 0) {
if ($value != '') {
QuestionAttribute::model()->updateAll(array('value' => $value), 'attribute=:attribute AND qid=:qid AND language=:language', array(':attribute' => $validAttribute['name'], ':qid' => $iQuestionID, ':language' => $sLanguage));
} else {
QuestionAttribute::model()->deleteAll('attribute=:attribute AND qid=:qid AND language=:language', array(':attribute' => $validAttribute['name'], ':qid' => $iQuestionID, ':language' => $sLanguage));
}
} elseif ($value != '') {
$attribute = new QuestionAttribute();
$attribute->qid = $iQuestionID;
$attribute->value = $value;
$attribute->attribute = $validAttribute['name'];
$attribute->language = $sLanguage;
$attribute->save();
}
}
} else {
$value = Yii::app()->request->getPost($validAttribute['name']);
if ($validAttribute['name'] == 'multiflexible_step' && trim($value) != '') {
$value = floatval($value);
if ($value == 0) {
$value = 1;
}
}
$iInsertCount = QuestionAttribute::model()->findAllByAttributes(array('attribute' => $validAttribute['name'], 'qid' => $iQuestionID));
if (count($iInsertCount) > 0) {
if ($value != $validAttribute['default'] && trim($value) != "") {
QuestionAttribute::model()->updateAll(array('value' => $value), 'attribute=:attribute AND qid=:qid', array(':attribute' => $validAttribute['name'], ':qid' => $iQuestionID));
} else {
QuestionAttribute::model()->deleteAll('attribute=:attribute AND qid=:qid', array(':attribute' => $validAttribute['name'], ':qid' => $iQuestionID));
}
} elseif ($value != $validAttribute['default'] && trim($value) != "") {
$attribute = new QuestionAttribute();
$attribute->qid = $iQuestionID;
$attribute->value = $value;
$attribute->attribute = $validAttribute['name'];
$attribute->save();
}
}
}
}
Question::model()->updateQuestionOrder($iQuestionGroupID, $iSurveyID);
Yii::app()->session['flashmessage'] = gT("Question was successfully added.");
}
}
LimeExpressionManager::SetDirtyFlag();
// so refreshes syntax highlighting
if ($sDBOutput != '') {
echo $sDBOutput;
} else {
//admin/survey/sa/view/surveyid/
$this->getController()->redirect(array('admin/questions/sa/view/surveyid/' . $iSurveyID . '/gid/' . $iQuestionGroupID . '/qid/' . $iQuestionID));
}
}
/**
* Update question
*/
if ($sAction == "updatequestion" && Permission::model()->hasSurveyPermission($iSurveyID, 'surveycontent', 'update')) {
LimeExpressionManager::RevertUpgradeConditionsToRelevance($iSurveyID);
$cqr = Question::model()->findByAttributes(array('qid' => $iQuestionID));
$oldtype = $cqr['type'];
$oldgid = $cqr['gid'];
$survey = Survey::model()->findByPk($iSurveyID);
// If the survey is activate the question type may not be changed
if ($survey->active !== 'N') {
$sQuestionType = $oldtype;
} else {
$sQuestionType = Yii::app()->request->getPost('type');
}
// Remove invalid question attributes on saving
$criteria = new CDbCriteria();
$criteria->compare('qid', $iQuestionID);
$validAttributes = \ls\helpers\questionHelper::getQuestionAttributesSettings($sQuestionType);
foreach ($validAttributes as $validAttribute) {
$criteria->compare('attribute', '<>' . $validAttribute['name']);
}
QuestionAttribute::model()->deleteAll($criteria);
$aLanguages = array_merge(array(Survey::model()->findByPk($iSurveyID)->language), Survey::model()->findByPk($iSurveyID)->additionalLanguages);
foreach ($validAttributes as $validAttribute) {
if ($validAttribute['i18n']) {
foreach ($aLanguages as $sLanguage) {
// TODO sanitise XSS
$value = Yii::app()->request->getPost($validAttribute['name'] . '_' . $sLanguage);
$iInsertCount = QuestionAttribute::model()->findAllByAttributes(array('attribute' => $validAttribute['name'], 'qid' => $iQuestionID, 'language' => $sLanguage));
if (count($iInsertCount) > 0) {
if ($value != '') {
QuestionAttribute::model()->updateAll(array('value' => $value), 'attribute=:attribute AND qid=:qid AND language=:language', array(':attribute' => $validAttribute['name'], ':qid' => $iQuestionID, ':language' => $sLanguage));
} else {
QuestionAttribute::model()->deleteAll('attribute=:attribute AND qid=:qid AND language=:language', array(':attribute' => $validAttribute['name'], ':qid' => $iQuestionID, ':language' => $sLanguage));
}
} elseif ($value != '') {
$attribute = new QuestionAttribute();
$attribute->qid = $iQuestionID;
$attribute->value = $value;
$attribute->attribute = $validAttribute['name'];
$attribute->language = $sLanguage;
$attribute->save();
}
}
} else {
$value = Yii::app()->request->getPost($validAttribute['name']);
if ($validAttribute['name'] == 'multiflexible_step' && trim($value) != '') {
$value = floatval($value);
if ($value == 0) {
$value = 1;
}
}
$iInsertCount = QuestionAttribute::model()->findAllByAttributes(array('attribute' => $validAttribute['name'], 'qid' => $iQuestionID));
if (count($iInsertCount) > 0) {
if ($value != $validAttribute['default'] && trim($value) != "") {
QuestionAttribute::model()->updateAll(array('value' => $value), 'attribute=:attribute AND qid=:qid', array(':attribute' => $validAttribute['name'], ':qid' => $iQuestionID));
} else {
QuestionAttribute::model()->deleteAll('attribute=:attribute AND qid=:qid', array(':attribute' => $validAttribute['name'], ':qid' => $iQuestionID));
}
} elseif ($value != $validAttribute['default'] && trim($value) != "") {
$attribute = new QuestionAttribute();
$attribute->qid = $iQuestionID;
$attribute->value = $value;
$attribute->attribute = $validAttribute['name'];
$attribute->save();
}
}
}
$aQuestionTypeList = getQuestionTypeList('', 'array');
// These are the questions types that have no answers and therefore we delete the answer in that case
$iAnswerScales = $aQuestionTypeList[$sQuestionType]['answerscales'];
$iSubquestionScales = $aQuestionTypeList[$sQuestionType]['subquestions'];
// These are the questions types that have the other option therefore we set everything else to 'No Other'
if ($sQuestionType != "L" && $sQuestionType != "!" && $sQuestionType != "P" && $sQuestionType != "M") {
$_POST['other'] = 'N';
}
// These are the questions types that have no validation - so zap it accordingly
if ($sQuestionType == "!" || $sQuestionType == "L" || $sQuestionType == "M" || $sQuestionType == "P" || $sQuestionType == "F" || $sQuestionType == "H" || $sQuestionType == "X" || $sQuestionType == "") {
$_POST['preg'] = '';
}
// For Bootstrap Version usin YiiWheels switch :
$_POST['mandatory'] = Yii::app()->request->getPost('mandatory') == '1' ? 'Y' : 'N';
$_POST['other'] = Yii::app()->request->getPost('other') == '1' ? 'Y' : 'N';
// These are the questions types that have no mandatory property - so zap it accordingly
if ($sQuestionType == "X" || $sQuestionType == "|") {
$_POST['mandatory'] = 'N';
}
if ($oldtype != $sQuestionType) {
// TMSW Condition->Relevance: Do similar check via EM, but do allow such a change since will be easier to modify relevance
//Make sure there are no conditions based on this question, since we are changing the type
$ccresult = Condition::model()->findAllByAttributes(array('cqid' => $iQuestionID));
$cccount = count($ccresult);
foreach ($ccresult as $ccr) {
$qidarray[] = $ccr['qid'];
}
}
if (isset($cccount) && $cccount) {
Yii::app()->setFlashMessage(gT("Question could not be updated. There are conditions for other questions that rely on the answers to this question and changing the type will cause problems. You must delete these conditions before you can change the type of this question."), 'error');
} else {
if (isset($iQuestionGroupID) && $iQuestionGroupID != "") {
// $array_result=checkMoveQuestionConstraintsForConditions(sanitize_int($surveyid),sanitize_int($qid), sanitize_int($gid));
// // If there is no blocking conditions that could prevent this move
//
// if (is_null($array_result['notAbove']) && is_null($array_result['notBelow']))
// {
$aSurveyLanguages = Survey::model()->findByPk($iSurveyID)->additionalLanguages;
$sBaseLanguage = Survey::model()->findByPk($iSurveyID)->language;
array_push($aSurveyLanguages, $sBaseLanguage);
foreach ($aSurveyLanguages as $qlang) {
if (isset($qlang) && $qlang != "") {
// é to é and & to & : really needed ? Why not for answers ? (130307)
$sQuestionText = Yii::app()->request->getPost('question_' . $qlang, '');
$sQuestionHelp = Yii::app()->request->getPost('help_' . $qlang, '');
// Fix bug with FCKEditor saving strange BR types : in rules ?
$sQuestionText = $oFixCKeditor->fixCKeditor($sQuestionText);
$sQuestionHelp = $oFixCKeditor->fixCKeditor($sQuestionHelp);
$udata = array('type' => $sQuestionType, 'title' => Yii::app()->request->getPost('title'), 'question' => $sQuestionText, 'preg' => Yii::app()->request->getPost('preg'), 'help' => $sQuestionHelp, 'gid' => $iQuestionGroupID, 'other' => Yii::app()->request->getPost('other'), 'mandatory' => Yii::app()->request->getPost('mandatory'), 'relevance' => Yii::app()->request->getPost('relevance'));
// Update question module
if (Yii::app()->request->getPost('module_name') != '') {
// The question module is not empty. So it's an external question module.
$udata['modulename'] = Yii::app()->request->getPost('module_name');
} else {
// If it was a module before, we must
$udata['modulename'] = '';
}
if ($oldgid != $iQuestionGroupID) {
if (getGroupOrder($iSurveyID, $oldgid) > getGroupOrder($iSurveyID, $iQuestionGroupID)) {
// TMSW Condition->Relevance: What is needed here?
// Moving question to a 'upper' group
// insert question at the end of the destination group
// this prevent breaking conditions if the target qid is in the dest group
$insertorder = getMaxQuestionOrder($iQuestionGroupID, $iSurveyID) + 1;
$udata = array_merge($udata, array('question_order' => $insertorder));
} else {
// Moving question to a 'lower' group
// insert question at the beginning of the destination group
shiftOrderQuestions($iSurveyID, $iQuestionGroupID, 1);
// makes 1 spare room for new question at top of dest group
$udata = array_merge($udata, array('question_order' => 0));
}
}
//$condn = array('sid' => $surveyid, 'qid' => $qid, 'language' => $qlang);
$oQuestion = Question::model()->findByPk(array("qid" => $iQuestionID, 'language' => $qlang));
foreach ($udata as $k => $v) {
$oQuestion->{$k} = $v;
}
$uqresult = $oQuestion->save();
//($uqquery); // or safeDie ("Error Update Question: ".$uqquery."<br />"); // Checked)
if (!$uqresult) {
$bOnError = true;
$aErrors = $oQuestion->getErrors();
if (count($aErrors)) {
foreach ($aErrors as $sAttribute => $aStringErrors) {
foreach ($aStringErrors as $sStringErrors) {
Yii::app()->setFlashMessage(sprintf(gT("Question could not be updated with error on %s: %s"), $sAttribute, $sStringErrors), 'error');
}
}
} else {
Yii::app()->setFlashMessage(gT("Question could not be updated."), 'error');
}
}
}
}
// Update the group ID on subquestions, too
if ($oldgid != $iQuestionGroupID) {
Question::model()->updateAll(array('gid' => $iQuestionGroupID), 'qid=:qid and parent_qid>0', array(':qid' => $iQuestionID));
// if the group has changed then fix the sortorder of old and new group
Question::model()->updateQuestionOrder($oldgid, $iSurveyID);
Question::model()->updateQuestionOrder($iQuestionGroupID, $iSurveyID);
// If some questions have conditions set on this question's answers
// then change the cfieldname accordingly
fixMovedQuestionConditions($iQuestionID, $oldgid, $iQuestionGroupID);
}
// Update subquestions
if ($oldtype != $sQuestionType) {
Question::model()->updateAll(array('type' => $sQuestionType), 'parent_qid=:qid', array(':qid' => $iQuestionID));
}
// Update subquestions if question module
if (Yii::app()->request->getPost('module_name') != '') {
// The question module is not empty. So it's an external question module.
Question::model()->updateAll(array('modulename' => Yii::app()->request->getPost('module_name')), 'parent_qid=:qid', array(':qid' => $iQuestionID));
} else {
// If it was a module before, we must
Question::model()->updateAll(array('modulename' => ''), 'parent_qid=:qid', array(':qid' => $iQuestionID));
}
Answer::model()->deleteAllByAttributes(array('qid' => $iQuestionID), 'scale_id >= :scale_id', array(':scale_id' => $iAnswerScales));
// Remove old subquestion scales
Question::model()->deleteAllByAttributes(array('parent_qid' => $iQuestionID), 'scale_id >= :scale_id', array(':scale_id' => $iSubquestionScales));
if (!isset($bOnError) || !$bOnError) {
// This really a quick hack and need a better system
Yii::app()->setFlashMessage(gT("Question was successfully saved."));
}
// }
// else
// {
//
// // There are conditions constraints: alert the user
// $errormsg="";
// if (!is_null($array_result['notAbove']))
// {
// $errormsg.=gT("This question relies on other question's answers and can't be moved above groupId:","js")
// . " " . $array_result['notAbove'][0][0] . " " . gT("in position","js")." ".$array_result['notAbove'][0][1]."\\n"
// . gT("See conditions:")."\\n";
//
// foreach ($array_result['notAbove'] as $notAboveCond)
// {
// $errormsg.="- cid:". $notAboveCond[3]."\\n";
// }
//
// }
// if (!is_null($array_result['notBelow']))
// {
// $errormsg.=gT("Some questions rely on this question's answers. You can't move this question below groupId:","js")
// . " " . $array_result['notBelow'][0][0] . " " . gT("in position","js")." ".$array_result['notBelow'][0][1]."\\n"
// . gT("See conditions:")."\\n";
//
// foreach ($array_result['notBelow'] as $notBelowCond)
// {
// $errormsg.="- cid:". $notBelowCond[3]."\\n";
// }
// }
//
// $databaseoutput .= "<script type=\"text/javascript\">\n<!--\n alert(\"$errormsg\")\n //-->\n</script>\n";
// $gid= $oldgid; // group move impossible ==> keep display on oldgid
// }
} else {
Yii::app()->setFlashMessage(gT("Question could not be updated"), 'error');
}
}
LimeExpressionManager::UpgradeConditionsToRelevance($iSurveyID);
if ($sDBOutput != '') {
echo $sDBOutput;
} else {
$closeAfterSave = Yii::app()->request->getPost('close-after-save') === 'true';
if ($closeAfterSave) {
// Redirect to summary
$this->getController()->redirect(array('admin/questions/sa/view/surveyid/' . $iSurveyID . '/gid/' . $iQuestionGroupID . '/qid/' . $iQuestionID));
} else {
// Redirect to edit
$this->getController()->redirect(array('admin/questions/sa/editquestion/surveyid/' . $iSurveyID . '/gid/' . $iQuestionGroupID . '/qid/' . $iQuestionID));
// This works too: $this->getController()->redirect(Yii::app()->request->urlReferrer);
}
}
}
/**
* updatesurveylocalesettings
*/
if ($sAction == "updatesurveylocalesettings" && (Permission::model()->hasSurveyPermission($iSurveyID, 'surveylocale', 'update') || Permission::model()->hasSurveyPermission($iSurveyID, 'surveysettings', 'update'))) {
$languagelist = Survey::model()->findByPk($iSurveyID)->additionalLanguages;
$languagelist[] = Survey::model()->findByPk($iSurveyID)->language;
Yii::app()->loadHelper('database');
if (Permission::model()->hasSurveyPermission($iSurveyID, 'surveylocale', 'update')) {
foreach ($languagelist as $langname) {
if ($langname) {
$sURLDescription = html_entity_decode(Yii::app()->request->getPost('urldescrip_' . $langname), ENT_QUOTES, "UTF-8");
$sURL = html_entity_decode(Yii::app()->request->getPost('url_' . $langname), ENT_QUOTES, "UTF-8");
// Fix bug with FCKEditor saving strange BR types
$short_title = Yii::app()->request->getPost('short_title_' . $langname);
$description = Yii::app()->request->getPost('description_' . $langname);
$welcome = Yii::app()->request->getPost('welcome_' . $langname);
$endtext = Yii::app()->request->getPost('endtext_' . $langname);
$short_title = $oFixCKeditor->fixCKeditor($short_title);
$description = $oFixCKeditor->fixCKeditor($description);
$welcome = $oFixCKeditor->fixCKeditor($welcome);
$endtext = $oFixCKeditor->fixCKeditor($endtext);
$data = array('surveyls_title' => $short_title, 'surveyls_description' => $description, 'surveyls_welcometext' => $welcome, 'surveyls_endtext' => $endtext, 'surveyls_url' => $sURL, 'surveyls_urldescription' => $sURLDescription, 'surveyls_dateformat' => Yii::app()->request->getPost('dateformat_' . $langname), 'surveyls_numberformat' => Yii::app()->request->getPost('numberformat_' . $langname));
$SurveyLanguageSetting = SurveyLanguageSetting::model()->findByPk(array('surveyls_survey_id' => $iSurveyID, 'surveyls_language' => $langname));
$SurveyLanguageSetting->attributes = $data;
$SurveyLanguageSetting->save();
// save the change to database
}
}
Yii::app()->setFlashMessage(gT("Survey text elements successfully saved."));
}
////////////////////////////////////////////////////////////////////////////////////
// General settings (copy / paste from surveyadmin::update)
if (Permission::model()->hasSurveyPermission($iSurveyID, 'surveysettings', 'update')) {
// Preload survey
$oSurvey = Survey::model()->findByPk($iSurveyID);
// Save plugin settings : actually leave it before saving core : we are sure core settings is saved in LS way.
$pluginSettings = App()->request->getPost('plugin', array());
foreach ($pluginSettings as $plugin => $settings) {
$settingsEvent = new PluginEvent('newSurveySettings');
$settingsEvent->set('settings', $settings);
$settingsEvent->set('survey', $iSurveyID);
App()->getPluginManager()->dispatchEvent($settingsEvent, $plugin);
}
/* Start to fix some param before save (TODO : use models directly ?) */
/* Date management */
Yii::app()->loadHelper('surveytranslator');
$formatdata = getDateFormatData(Yii::app()->session['dateformat']);
Yii::app()->loadLibrary('Date_Time_Converter');
$startdate = App()->request->getPost('startdate');
if (trim($startdate) == "") {
$startdate = null;
} else {
Yii::app()->loadLibrary('Date_Time_Converter');
$datetimeobj = new date_time_converter($startdate, $formatdata['phpdate'] . ' H:i');
//new Date_Time_Converter($startdate,$formatdata['phpdate'].' H:i');
$startdate = $datetimeobj->convert("Y-m-d H:i:s");
}
$expires = App()->request->getPost('expires');
if (trim($expires) == "") {
$expires = null;
} else {
$datetimeobj = new date_time_converter($expires, $formatdata['phpdate'] . ' H:i');
//new Date_Time_Converter($expires, $formatdata['phpdate'].' H:i');
$expires = $datetimeobj->convert("Y-m-d H:i:s");
}
// Only owner and superadmins may change the survey owner
if ($oSurvey->owner_id == Yii::app()->session['loginID'] || Permission::model()->hasGlobalPermission('superadmin', 'read')) {
$oSurvey->owner_id = Yii::app()->request->getPost('owner_id');
}
$oSurvey->admin = Yii::app()->request->getPost('admin');
$oSurvey->expires = $expires;
$oSurvey->startdate = $startdate;
$oSurvey->faxto = App()->request->getPost('faxto');
$oSurvey->format = App()->request->getPost('format');
$oSurvey->template = Yii::app()->request->getPost('template');
$oSurvey->assessments = App()->request->getPost('assessments') == '1' ? 'Y' : 'N';
$oSurvey->additional_languages = implode(' ', Yii::app()->request->getPost('additional_languages', array()));
if ($oSurvey->active != 'Y') {
$oSurvey->anonymized = App()->request->getPost('anonymized') == '1' ? 'Y' : 'N';
$oSurvey->savetimings = App()->request->getPost('savetimings') == '1' ? 'Y' : 'N';
$oSurvey->datestamp = App()->request->getPost('datestamp') == '1' ? 'Y' : 'N';
$oSurvey->ipaddr = App()->request->getPost('ipaddr') == '1' ? 'Y' : 'N';
$oSurvey->refurl = App()->request->getPost('refurl') == '1' ? 'Y' : 'N';
}
$oSurvey->publicgraphs = App()->request->getPost('publicgraphs') == '1' ? 'Y' : 'N';
$oSurvey->usecookie = App()->request->getPost('usecookie') == '1' ? 'Y' : 'N';
$oSurvey->allowregister = App()->request->getPost('allowregister') == '1' ? 'Y' : 'N';
$oSurvey->allowsave = App()->request->getPost('allowsave') == '1' ? 'Y' : 'N';
$oSurvey->navigationdelay = App()->request->getPost('navigationdelay');
$oSurvey->printanswers = App()->request->getPost('printanswers') == '1' ? 'Y' : 'N';
$oSurvey->publicstatistics = App()->request->getPost('publicstatistics') == '1' ? 'Y' : 'N';
$oSurvey->autoredirect = App()->request->getPost('autoredirect') == '1' ? 'Y' : 'N';
$oSurvey->showxquestions = App()->request->getPost('showxquestions') == '1' ? 'Y' : 'N';
$oSurvey->showgroupinfo = App()->request->getPost('showgroupinfo');
$oSurvey->showqnumcode = App()->request->getPost('showqnumcode');
$oSurvey->shownoanswer = App()->request->getPost('shownoanswer') == '1' ? 'Y' : 'N';
$oSurvey->showwelcome = App()->request->getPost('showwelcome') == '1' ? 'Y' : 'N';
$oSurvey->allowprev = App()->request->getPost('allowprev') == '1' ? 'Y' : 'N';
$oSurvey->questionindex = App()->request->getPost('questionindex');
$oSurvey->nokeyboard = App()->request->getPost('nokeyboard') == '1' ? 'Y' : 'N';
$oSurvey->showprogress = App()->request->getPost('showprogress') == '1' ? 'Y' : 'N';
$oSurvey->listpublic = App()->request->getPost('listpublic') == '1' ? 'Y' : 'N';
$oSurvey->htmlemail = App()->request->getPost('htmlemail') == '1' ? 'Y' : 'N';
$oSurvey->sendconfirmation = App()->request->getPost('sendconfirmation') == '1' ? 'Y' : 'N';
$oSurvey->tokenanswerspersistence = App()->request->getPost('tokenanswerspersistence') == '1' ? 'Y' : 'N';
$oSurvey->alloweditaftercompletion = App()->request->getPost('alloweditaftercompletion') == '1' ? 'Y' : 'N';
$oSurvey->usecaptcha = Survey::transcribeCaptchaOptions();
$oSurvey->emailresponseto = App()->request->getPost('emailresponseto');
$oSurvey->emailnotificationto = App()->request->getPost('emailnotificationto');
$oSurvey->googleanalyticsapikeysetting = App()->request->getPost('googleanalyticsapikeysetting');
if ($oSurvey->googleanalyticsapikeysetting == "Y") {
$oSurvey->googleanalyticsapikey = App()->request->getPost('googleanalyticsapikey');
} else {
if ($oSurvey->googleanalyticsapikeysetting == "G") {
$oSurvey->googleanalyticsapikey = "9999useGlobal9999";
} else {
if ($oSurvey->googleanalyticsapikeysetting == "N") {
$oSurvey->googleanalyticsapikey = "";
}
}
}
$oSurvey->googleanalyticsstyle = App()->request->getPost('googleanalyticsstyle');
$oSurvey->tokenlength = App()->request->getPost('tokenlength') < 5 || App()->request->getPost('tokenlength') > 36 ? 15 : App()->request->getPost('tokenlength');
$oSurvey->adminemail = App()->request->getPost('adminemail');
$oSurvey->bounce_email = App()->request->getPost('bounce_email');
$event = new PluginEvent('beforeSurveySettingsSave');
$event->set('modifiedSurvey', $oSurvey);
App()->getPluginManager()->dispatchEvent($event);
if ($oSurvey->save()) {
Yii::app()->setFlashMessage(gT("Survey settings were successfully saved."));
} else {
Yii::app()->setFlashMessage(gT("Survey could not be updated."), "error");
tracevar($oSurvey->getErrors());
}
}
/* Reload $oSurvey (language are fixed : need it ?) */
$oSurvey = Survey::model()->findByPk($iSurveyID);
/* Delete removed language cleanLanguagesFromSurvey do it already why redo it (cleanLanguagesFromSurvey must be moved to model) ?*/
$aAvailableLanguage = $oSurvey->getAllLanguages();
$oCriteria = new CDbCriteria();
$oCriteria->compare('surveyls_survey_id', $iSurveyID);
$oCriteria->addNotInCondition('surveyls_language', $aAvailableLanguage);
SurveyLanguageSetting::model()->deleteAll($oCriteria);
/* Add new language fixLanguageConsistency do it ?*/
foreach ($oSurvey->additionalLanguages as $sLang) {
if ($sLang) {
$oLanguageSettings = SurveyLanguageSetting::model()->find('surveyls_survey_id=:surveyid AND surveyls_language=:langname', array(':surveyid' => $iSurveyID, ':langname' => $sLang));
if (!$oLanguageSettings) {
$oLanguageSettings = new SurveyLanguageSetting();
$languagedetails = getLanguageDetails($sLang);
$oLanguageSettings->surveyls_survey_id = $iSurveyID;
$oLanguageSettings->surveyls_language = $sLang;
$oLanguageSettings->surveyls_title = '';
// Not in default model ?
$oLanguageSettings->surveyls_dateformat = $languagedetails['dateformat'];
if (!$oLanguageSettings->save()) {
Yii::app()->setFlashMessage(gT("Survey language could not be created."), "error");
tracevar($oLanguageSettings->getErrors());
}
}
}
}
/* Language fix : remove and add question/group */
cleanLanguagesFromSurvey($iSurveyID, implode(" ", $oSurvey->additionalLanguages));
fixLanguageConsistency($iSurveyID, implode(" ", $oSurvey->additionalLanguages));
// Url params in json
$aURLParams = json_decode(Yii::app()->request->getPost('allurlparams'), true);
SurveyURLParameter::model()->deleteAllByAttributes(array('sid' => $iSurveyID));
if (isset($aURLParams)) {
foreach ($aURLParams as $aURLParam) {
$aURLParam['parameter'] = trim($aURLParam['parameter']);
if ($aURLParam['parameter'] == '' || !preg_match('/^[a-zA-Z_][a-zA-Z0-9_]*$/', $aURLParam['parameter']) || $aURLParam['parameter'] == 'sid' || $aURLParam['parameter'] == 'newtest' || $aURLParam['parameter'] == 'token' || $aURLParam['parameter'] == 'lang') {
continue;
// this parameter name seems to be invalid - just ignore it
}
unset($aURLParam['act']);
unset($aURLParam['title']);
unset($aURLParam['id']);
if ($aURLParam['targetqid'] == '') {
$aURLParam['targetqid'] = NULL;
}
if ($aURLParam['targetsqid'] == '') {
$aURLParam['targetsqid'] = NULL;
}
$aURLParam['sid'] = $iSurveyID;
$param = new SurveyURLParameter();
foreach ($aURLParam as $k => $v) {
$param->{$k} = $v;
}
$param->save();
}
}
////////////////////////////////////////
if ($sDBOutput != '') {
echo $sDBOutput;
} else {
if (Yii::app()->request->getPost('close-after-save') === 'true') {
$this->getController()->redirect(array('admin/survey/sa/view/surveyid/' . $iSurveyID));
}
$this->getController()->redirect(array('/admin/survey/sa/editlocalsettings/surveyid/' . $iSurveyID));
}
}
$this->getController()->redirect(array("/admin"), "refresh");
}
/**
* TSV survey definition in format readable by TSVSurveyImport
* one line each per group, question, sub-question, and answer
* does not use SGQA naming at all.
* @param type $sid
* @return type
*/
public static function &TSVSurveyExport($sid)
{
$aBaseFields = array('class', 'type/scale', 'name', 'relevance', 'text', 'help', 'language', 'validation', 'mandatory', 'other', 'default', 'same_default');
// Advanced question attributes : @todo get used question attribute by question in survey ?
$aQuestionAttributes = array_keys(\ls\helpers\questionHelper::getAttributesDefinitions());
sort($aQuestionAttributes);
$fields = array_merge($aBaseFields, $aQuestionAttributes);
$rows = array();
$primarylang = 'en';
$otherlangs = '';
$langs = array();
// Export survey-level information
$query = "select * from {{surveys}} where sid = " . $sid;
$data = dbExecuteAssoc($query);
foreach ($data->readAll() as $r) {
foreach ($r as $key => $value) {
if ($value != '') {
$row['class'] = 'S';
$row['name'] = $key;
$row['text'] = $value;
$rows[] = $row;
}
if ($key == 'language') {
$primarylang = $value;
}
if ($key == 'additional_languages') {
$otherlangs = $value;
}
}
}
$langs = explode(' ', $primarylang . ' ' . $otherlangs);
$langs = array_unique($langs);
// Export survey language settings
$query = "select * from {{surveys_languagesettings}} where surveyls_survey_id = " . $sid;
$data = dbExecuteAssoc($query);
foreach ($data->readAll() as $r) {
$_lang = $r['surveyls_language'];
foreach ($r as $key => $value) {
if ($value != '' && $key != 'surveyls_language' && $key != 'surveyls_survey_id') {
$row['class'] = 'SL';
$row['name'] = $key;
$row['text'] = $value;
$row['language'] = $_lang;
$rows[] = $row;
}
}
}
$surveyinfo = getSurveyInfo($sid);
$assessments = false;
if (isset($surveyinfo['assessments']) && $surveyinfo['assessments'] == 'Y') {
$assessments = true;
}
foreach ($langs as $lang) {
if (trim($lang) == '') {
continue;
}
SetSurveyLanguage($sid, $lang);
LimeExpressionManager::StartSurvey($sid, 'survey', array('sgqaNaming' => 'N', 'assessments' => $assessments), true);
$moveResult = LimeExpressionManager::NavigateForwards();
$LEM =& LimeExpressionManager::singleton();
if (is_null($moveResult) || is_null($LEM->currentQset) || count($LEM->currentQset) == 0) {
continue;
}
$_gseq = -1;
foreach ($LEM->currentQset as $q) {
$gseq = $q['info']['gseq'];
$gid = $q['info']['gid'];
$qid = $q['info']['qid'];
//////
// SHOW GROUP-LEVEL INFO
//////
if ($gseq != $_gseq) {
$_gseq = $gseq;
$ginfo = $LEM->gseq2info[$gseq];
// if relevance equation is using SGQA coding, convert to qcoding
$grelevance = $ginfo['grelevance'] == '' ? 1 : $ginfo['grelevance'];
$LEM->em->ProcessBooleanExpression($grelevance, $gseq, 0);
// $qseq
$grelevance = trim(strip_tags($LEM->em->GetPrettyPrintString()));
$gtext = trim($ginfo['description']) == '' ? '' : $ginfo['description'];
$row = array();
$row['class'] = 'G';
//create a group code to allow proper importing of multi-lang survey TSVs
$row['type/scale'] = 'G' . $gseq;
$row['name'] = $ginfo['group_name'];
$row['relevance'] = $grelevance;
$row['text'] = $gtext;
$row['language'] = $lang;
$row['random_group'] = $ginfo['randomization_group'];
$rows[] = $row;
}
//////
// SHOW QUESTION-LEVEL INFO
//////
$row = array();
$mandatory = $q['info']['mandatory'] == 'Y' ? 'Y' : '';
$type = $q['info']['type'];
$sgqas = explode('|', $q['sgqa']);
if (count($sgqas) == 1 && !is_null($q['info']['default'])) {
$default = $q['info']['default'];
} else {
$default = '';
}
$qtext = $q['info']['qtext'] != '' ? $q['info']['qtext'] : '';
$help = $q['info']['help'] != '' ? $q['info']['help'] : '';
//////
// SHOW QUESTION ATTRIBUTES THAT ARE PROCESSED BY EM
//////
if (isset($LEM->qattr[$qid]) && count($LEM->qattr[$qid]) > 0) {
foreach ($LEM->qattr[$qid] as $key => $value) {
if (is_null($value) || trim($value) == '') {
continue;
}
switch ($key) {
default:
case 'exclude_all_others':
case 'exclude_all_others_auto':
case 'hidden':
if ($value == false || $value == '0') {
$value = NULL;
// so can skip this one - just using continue here doesn't work.
}
break;
case 'relevance':
$value = NULL;
// means an outdate database structure
break;
}
if (is_null($value) || trim($value) == '') {
continue;
// since continuing from within a switch statement doesn't work
}
$row[$key] = $value;
}
}
// if relevance equation is using SGQA coding, convert to qcoding
$relevanceEqn = $q['info']['relevance'] == '' ? 1 : $q['info']['relevance'];
$LEM->em->ProcessBooleanExpression($relevanceEqn, $gseq, $q['info']['qseq']);
// $qseq
$relevanceEqn = trim(preg_replace("#</(span|a)>#i", "", preg_replace("#<(span|a)[^>]+\\>#i", "", $LEM->em->GetPrettyPrintString())));
// Relevance can not have HTML : only span and a are returned from GetPrettyPrintString
$rootVarName = $q['info']['rootVarName'];
$preg = '';
if (isset($LEM->q2subqInfo[$q['info']['qid']]['preg'])) {
$preg = $LEM->q2subqInfo[$q['info']['qid']]['preg'];
if (is_null($preg)) {
$preg = '';
}
}
$row['class'] = 'Q';
$row['type/scale'] = $type;
$row['name'] = $rootVarName;
$row['relevance'] = $relevanceEqn;
$row['text'] = $qtext;
$row['help'] = $help;
$row['language'] = $lang;
$row['validation'] = $preg;
$row['mandatory'] = $mandatory;
$row['other'] = $q['info']['other'];
$row['default'] = $default;
$row['same_default'] = 1;
// TODO - need this: $q['info']['same_default'];
$rows[] = $row;
//////
// SHOW ALL SUB-QUESTIONS
//////
$sawThis = array();
// array of rowdivids already seen so only show them once
foreach ($sgqas as $sgqa) {
if ($LEM->knownVars[$sgqa]['qcode'] == $rootVarName) {
continue;
// so don't show the main question as a sub-question too
}
$rowdivid = $sgqa;
$varName = $LEM->knownVars[$sgqa]['qcode'];
// if SQrelevance equation is using SGQA coding, convert to qcoding
$SQrelevance = $LEM->knownVars[$sgqa]['SQrelevance'] == '' ? 1 : $LEM->knownVars[$sgqa]['SQrelevance'];
$LEM->em->ProcessBooleanExpression($SQrelevance, $gseq, $q['info']['qseq']);
$SQrelevance = trim(preg_replace("#</(span|a)>#i", "", preg_replace("#<(span|a)[^>]+\\>#i", "", $LEM->em->GetPrettyPrintString())));
// Relevance can not have HTML : only span and a are returned from GetPrettyPrintString
switch ($q['info']['type']) {
case '1':
if (preg_match('/#1$/', $sgqa)) {
$rowdivid = NULL;
// so that doesn't show same message for second scale
} else {
$rowdivid = substr($sgqa, 0, -2);
// strip suffix
$varName = substr($LEM->knownVars[$sgqa]['qcode'], 0, -2);
}
break;
case 'P':
if (preg_match('/comment$/', $sgqa)) {
$rowdivid = NULL;
}
break;
case ':':
case ';':
$_rowdivid = $LEM->knownVars[$sgqa]['rowdivid'];
if (isset($sawThis[$qid . '~' . $_rowdivid])) {
$rowdivid = NULL;
// so don't show again
} else {
$sawThis[$qid . '~' . $_rowdivid] = true;
$rowdivid = $_rowdivid;
$sgqa_len = strlen($sid . 'X' . $gid . 'X' . $qid);
$varName = $rootVarName . '_' . substr($_rowdivid, $sgqa_len);
}
break;
}
if (is_null($rowdivid)) {
continue;
}
$sgqaInfo = $LEM->knownVars[$sgqa];
$subqText = $sgqaInfo['subqtext'];
if (isset($sgqaInfo['default'])) {
$default = $sgqaInfo['default'];
} else {
$default = '';
}
$row = array();
$row['class'] = 'SQ';
$row['type/scale'] = 0;
$row['name'] = substr($varName, strlen($rootVarName) + 1);
$row['relevance'] = $SQrelevance;
$row['text'] = $subqText;
$row['language'] = $lang;
$row['default'] = $default;
$rows[] = $row;
}
//////
// SHOW ANSWER OPTIONS FOR ENUMERATED LISTS, AND FOR MULTIFLEXI
//////
if (isset($LEM->qans[$qid]) || isset($LEM->multiflexiAnswers[$qid])) {
$_scale = -1;
if (isset($LEM->multiflexiAnswers[$qid])) {
$ansList = $LEM->multiflexiAnswers[$qid];
} else {
$ansList = $LEM->qans[$qid];
}
foreach ($ansList as $ans => $value) {
$ansInfo = explode('~', $ans);
$valParts = explode('|', $value);
$valInfo[0] = array_shift($valParts);
$valInfo[1] = implode('|', $valParts);
if ($_scale != $ansInfo[0]) {
$_scale = $ansInfo[0];
}
$row = array();
if ($type == ':' || $type == ';') {
$row['class'] = 'SQ';
} else {
$row['class'] = 'A';
}
$row['type/scale'] = $_scale;
$row['name'] = $ansInfo[1];
$row['relevance'] = $assessments == true ? $valInfo[0] : '';
$row['text'] = $valInfo[1];
$row['language'] = $lang;
$rows[] = $row;
}
}
}
}
// Now generate the array out output data
$out = array();
$out[] = $fields;
foreach ($rows as $row) {
$tsv = array();
foreach ($fields as $field) {
$val = isset($row[$field]) ? $row[$field] : '';
$tsv[] = $val;
}
$out[] = $tsv;
}
return $out;
}
/**
* Returns Question attribute array name=>value
*
* @access public
* @param int $iQuestionID
* @return array
*/
public function getQuestionAttributes($iQuestionID)
{
$iQuestionID = (int) $iQuestionID;
static $aQuestionAttributesStatic = array();
// TODO : replace by Yii::app()->cache
// Limit the size of the attribute cache due to memory usage
$aQuestionAttributesStatic = array_splice($aQuestionAttributesStatic, -1000, null, true);
if (isset($aQuestionAttributesStatic[$iQuestionID])) {
return $aQuestionAttributesStatic[$iQuestionID];
}
$aQuestionAttributes = array();
$oQuestion = Question::model()->find("qid=:qid", array('qid' => $iQuestionID));
// Maybe take parent_qid attribute before this qid attribute
if ($oQuestion) {
$aLanguages = array_merge(array(Survey::model()->findByPk($oQuestion->sid)->language), Survey::model()->findByPk($oQuestion->sid)->additionalLanguages);
// Get all atribute set for this question
$sType = $oQuestion->type;
// For some reason this happened in bug #10684
if ($sType == null) {
throw new \CException("Question is corrupt: no type defined for question " . $iQuestionID);
}
$aAttributeNames = \ls\helpers\questionHelper::getQuestionAttributesSettings($sType);
$oAttributeValues = QuestionAttribute::model()->findAll("qid=:qid", array('qid' => $iQuestionID));
$aAttributeValues = array();
foreach ($oAttributeValues as $oAttributeValue) {
if ($oAttributeValue->language) {
$aAttributeValues[$oAttributeValue->attribute][$oAttributeValue->language] = $oAttributeValue->value;
} else {
$aAttributeValues[$oAttributeValue->attribute] = $oAttributeValue->value;
}
}
// Fill with aQuestionAttributes with default attribute or with aAttributeValues
// Can not use array_replace due to i18n
foreach ($aAttributeNames as $aAttribute) {
if ($aAttribute['i18n'] == false) {
if (isset($aAttributeValues[$aAttribute['name']])) {
$aQuestionAttributes[$aAttribute['name']] = $aAttributeValues[$aAttribute['name']];
} else {
$aQuestionAttributes[$aAttribute['name']] = $aAttribute['default'];
}
} else {
foreach ($aLanguages as $sLanguage) {
if (isset($aAttributeValues[$aAttribute['name']][$sLanguage])) {
$aQuestionAttributes[$aAttribute['name']][$sLanguage] = $aAttributeValues[$aAttribute['name']][$sLanguage];
} else {
$aQuestionAttributes[$aAttribute['name']][$sLanguage] = $aAttribute['default'];
}
}
}
}
} else {
return false;
// return false but don't set $aQuestionAttributesStatic[$iQuestionID]
}
$aQuestionAttributesStatic[$iQuestionID] = $aQuestionAttributes;
return $aQuestionAttributes;
}