'.$hint_list.':

'; while ($ansrow=$ansresult->FetchRow()) { if ($_SESSION[$ia[1]] == $ansrow['code']) { $check_ans = CHECKED; } elseif ($ansrow['default_value'] == 'Y') { $check_ans = CHECKED; $defexists = 'Y'; } else { $check_ans = ''; } $answer .= '
• '.$ansrow['answer'].'
'; } if ($ia[6] != 'Y' && $shownoanswer == 1) { if (((!isset($_SESSION[$ia[1]]) || $_SESSION[$ia[1]] == '') && (!isset($defexists) || !$defexists)) ||($_SESSION[$ia[1]] == ' ' && (!isset($defexists) || !$defexists))) { $check_ans = CHECKED; } elseif ((isset($_SESSION[$ia[1]]) || $_SESSION[$ia[1]] != '') && (!isset($defexists) || !$defexists)) { $check_ans = ''; } $answer .= '
• '.$clang->gT('No answer').'
'; } $fname2 = $ia[1].'comment'; if ($anscount > 8) {$tarows = $anscount/1.2;} else {$tarows = 4;} // --> START NEW FEATURE - SAVE // --> START ORIGINAL // $answer .= "\t\t\t\t\t\n" // . "\t\t\t\t\t\t"; // --> END ORIGINAL $answer .= ' </ul> </div> <p class="comment"> <label for="answer'.$ia[1].'comment">'.$hint_comment.':</label> <textarea class="textarea" name="'.$ia[1].'comment" id="answer'.$ia[1].'comment" rows="'.floor($tarows).'" cols="30" >'; // --> END NEW FEATURE - SAVE if (isset($_SESSION[$fname2]) && $_SESSION[$fname2]) { $answer .= str_replace("\\", "", $_SESSION[$fname2]); } $answer .= '
"; $inputnames[]=$ia[1]; $inputnames[]=$ia[1].'comment'; } else //Dropdown list { // --> START NEW FEATURE - SAVE $answer .= '

'; // --> END NEW FEATURE - SAVE while ($ansrow=$ansresult->FetchRow()) { if ($_SESSION[$ia[1]] == $ansrow['code']) { $check_ans = SELECTED; } elseif ($ansrow['default_value'] == 'Y') { $check_ans = SELECTED; $defexists = "Y"; } $answer .= ' '.$ansrow['answer']."\n"; if (strlen($ansrow['answer']) > $maxoptionsize) { $maxoptionsize = strlen($ansrow['answer']); } } if ($ia[6] != 'Y' && $shownoanswer == 1) { if (((!isset($_SESSION[$ia[1]]) || $_SESSION[$ia[1]] == '') && (!isset($defexists) || !$defexists)) ||($_SESSION[$ia[1]] == ' ' && (!isset($defexists) || !$defexists))) { $check_ans = SELECTED; } elseif ((isset($_SESSION[$ia[1]]) || $_SESSION[$ia[1]] != '') && (!isset($defexists) || !$defexists)) { $check_ans = ''; } $answer .= ' '.$clang->gT('No answer')."\n"; } $answer .= '

'; $fname2 = $ia[1].'comment'; if ($anscount > 8) {$tarows = $anscount/1.2;} else {$tarows = 4;} if ($tarows > 15) {$tarows=15;} $maxoptionsize=$maxoptionsize*0.72; if ($maxoptionsize < 33) {$maxoptionsize=33;} if ($maxoptionsize > 70) {$maxoptionsize=70;} $answer .= '

'.$hint_comment.' '; // --> END NEW FEATURE - SAVE if (isset($_SESSION[$fname2]) && $_SESSION[$fname2]) { $answer .= str_replace("\\", "", $_SESSION[$fname2]); } $answer .= ' \n

\n"; $inputnames[]=$ia[1]; $inputnames[]=$ia[1].'comment'; } return array($answer, $inputnames); } // --------------------------------------------------------------- function do_ranking($ia) { global $dbprefix, $imagefiles, $clang; $qidattributes=getQuestionAttributes($ia[0]); $answer=""; if (arraySearchByKey("random_order", $qidattributes, "attribute", 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } if ($ma=arraySearchByKey("max_answers", $qidattributes, "attribute", 1)) { $max_answers = $ma['value']; } else { $max_answers = false; } $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount(); if(!$max_answers) { $max_answers=$anscount; } $finished=$anscount-$max_answers; $answer .= "\t\t\t\n"; unset($answers); //unset($inputnames); unset($chosen); $ranklist=""; while ($ansrow = $ansresult->FetchRow()) { $answers[] = array($ansrow['code'], $ansrow['answer']); } $existing=0; for ($i=1; $i<=$anscount; $i++) { $myfname=$ia[1].$i; if (isset($_SESSION[$myfname]) && $_SESSION[$myfname]) { $existing++; } } for ($i=1; $i<=$max_answers; $i++) { $myfname = $ia[1].$i; if (isset($_SESSION[$myfname]) && $_SESSION[$myfname]) { foreach ($answers as $ans) { if ($ans[0] == $_SESSION[$myfname]) { $thiscode=$ans[0]; $thistext=$ans[1]; } } } $ranklist .= "\t\t\t\t\t\t\t " ."$i: \n"; $ranklist .= "\t\t\t\t\t\t\n"; $ranklist .= "\t\t\t\t\t\t
\n"; $inputnames[]=$myfname; $ranklist .= "\n"; } $choicelist = "\t\t\t\t\t\t0 && this.selectedIndex<0) {this.options[this.options.length-1].selected=true;}; rankthis_{$ia[0]}(this.options[this.selectedIndex].value, this.options[this.selectedIndex].text)\" class='select'>\n"; if (_PHPVERSION <= "4.2.0") { foreach ($chosen as $chs) {$choose[]=$chs[0];} foreach ($answers as $ans) { if (!in_array($ans[0], $choose)) { $choicelist .= "\t\t\t\t\t\t\t{$ans[1]}\n"; if (strlen($ans[1]) > $maxselectlength) {$maxselectlength = strlen($ans[1]);} } } } else { foreach ($answers as $ans) { if (!in_array($ans, $chosen)) { $choicelist .= "\t\t\t\t\t\t\t{$ans[1]}\n"; if (isset($maxselectlength) && strlen($ans[1]) > $maxselectlength) {$maxselectlength = strlen($ans[1]);} } } } $choicelist .= "\t\t\t\t\t\t\n"; $answer .= "\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t\t\t\n"; if (isset($maxselectlength) && $maxselectlength > 60) { $ranklist = str_replace("\n" . "\t\t\t\t\t\t\t

\n" . "\t\t\t\t\t\t".$clang->gT("Click on an item in the list on the left, starting with your") . "\t\t\t\t\t\t".$clang->gT("highest ranking item, moving through to your lowest ranking item.") . "\t\t\t\t\t

\n" . "\t\t\t\t\t\t  ".$clang->gT("Your Choices").": \n" . " ".$choicelist . "\t\t\t\t\t

\n" . "\t\t\t\t\t\t\t\n"; } else { $answer .= "\t\t\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t

	".$clang->gT("Your Ranking").":
\n" . "\t\t\t\t\t\t\t\n" . "\t\t\t\t\t\t\t\n"; } $answer .= $ranklist . "\t\t\t\t\t\t\t ".$clang->gT("Your Ranking").": \n" . "\t\t\t\t\t
\n" . "\t\t\t\t\t\t".$clang->gT("Click on the scissors next to each item on the right to remove the last entry in your ranked list") . "\t\t\t\t\t

\n"; if ($minanswattr=arraySearchByKey("min_answers", $qidattributes, "attribute", 1)) { $minansw=$minanswattr['value']; $minanswscript = "\n"; $answer = $minanswscript . $answer; } return array($answer, $inputnames); } // --------------------------------------------------------------- function do_multiplechoice($ia) { global $dbprefix, $clang, $connect; $qidattributes=getQuestionAttributes($ia[0]); if ($othertexts=arraySearchByKey('other_replace_text', $qidattributes, 'attribute', 1)) { $othertext=$clang->gT($othertexts['value']); } else { $othertext=$clang->gT('Other'); } if ($displaycols=arraySearchByKey('display_columns', $qidattributes, 'attribute', 1)) { $dcols = $displaycols['value']; } else { $dcols = 1; } // Check if the max_answers attribute is set $maxansw = 0; $callmaxanswscriptcheckbox = ''; $callmaxanswscriptother = ''; $maxanswscript = ''; if ($excludeothers=arraySearchByKey('exclude_all_others', $qidattributes, 'attribute', '')) { foreach($excludeothers as $excludeother) { $excludeallothers[]=$excludeother['value']; } $excludeallotherscript = " \n"; } } } elseif ($ansrow['default_value'] == 'Y') { $answer .= CHECKED; } // --> START NEW FEATURE - SAVE $answer .= " onclick='cancelBubbleThis(event);"; if(in_array($ansrow['code'], $excludeallothers)) { $answer .= "excludeAllOthers$ia[1](this.id, \"yes\");"; // was "this.id" $excludeallotherscripton .= "/* SKIPPING QUESTION {$ia[1]} */\n"; // $excludeallotherscripton .= "alert(value+'---'+'answer$ia[1]{$ansrow['code']}');\n"; $excludeallotherscripton .= "if( value != 'answer$ia[1]{$ansrow['code']}') {\n" . "\tthiselt=document.getElementById('answer$ia[1]{$ansrow['code']}');\n" . "\t\tthiselt.checked='';\n" . "\t\tthiselt.disabled='true';\n" . "\t\tif (doconditioncheck == 'yes') {\n" . "\t\t\tcheckconditions(thiselt.value, thiselt.name, thiselt.type);\n" . "\t\t}\n}\n"; $excludeallotherscriptoff .= "document.getElementById('answer$ia[1]{$ansrow['code']}').disabled='';\n"; } elseif (count($excludeallothers)>0) { $excludeallotherscripton .= "\tthiselt=document.getElementById('answer$ia[1]{$ansrow['code']}');\n" . "\t\tthiselt.checked='';\n" . "\t\tthiselt.disabled='true';\n" . "\t\tif (doconditioncheck == 'yes') {\n" . "\t\t\tcheckconditions(thiselt.value, thiselt.name, thiselt.type);\n" . "\t\t}\n"; $excludeallotherscriptoff.= "document.getElementById('answer$ia[1]{$ansrow['code']}').disabled='';\n"; } $answer .= $callmaxanswscriptcheckbox."checkconditions(this.value, this.name, this.type)' />\n\t\t{$ansrow['answer']}\n"; // --> END NEW FEATURE - SAVE if ($maxansw > 0) {$maxanswscript .= "\t\t\t\t\tif (document.getElementById('answer".$myfname."').checked) { count += 1; }\n";} if ($minansw > 0) {$minanswscript .= "\t\t\t\t\tif (document.getElementById('answer".$myfname."').checked) { count += 1; }\n";} ++$fn; $answer .= ' \n{$wrapper['item-end']}"; $inputnames[]=$myfname; ++$rowcounter; if ($rowcounter == $wrapper['maxrows'] && $colcounter < $wrapper['cols']) { if($colcounter == $wrapper['cols'] - 1) { $answer .= $wrapper['col-devide-last']; } else { $answer .= $wrapper['col-devide']; } $rowcounter = 0; ++$colcounter; } } if ($other == 'Y') { $myfname = $ia[1].'other'; if(count($excludeallothers) > 0) { $excludeallotherscripton .= "thiselt=document.getElementById('answer{$ia[1]}othercbox');\n" . "\t\tthiselt.checked='';\n" . "\t\tthiselt.disabled='true';\n"; $excludeallotherscripton .= "thiselt=document.getElementById('answer$ia[1]other');\n" . "\t\tthiselt.value='';\n" . "\t\tthiselt.disabled='true';\n" . "\t\tif (doconditioncheck == 'yes') {\n" . "\t\t\tcheckconditions(thiselt.value, thiselt.name, thiselt.type);\n" . "\t\t}\n"; $excludeallotherscriptoff .="document.getElementById('answer$ia[1]other').disabled='';\n"; $excludeallotherscriptoff .="document.getElementById('answer{$ia[1]}othercbox').disabled='';\n"; } $answer .= $wrapper['item-start'].' ".$othertext.": 0) { //TODO: implement the other_comment_mandatory attribute // and a new db field for other cbox // // For multiplechoice question there is no DB field for the other Checkbox // so in fact I need to assume that other_comment_mandatory is set to true // otherwise, the min/max asnwer script will conflict with the // MANDATORY status of the question // ==> hence the 1==1 if (1==1 || $other_comment_mandatory=arraySearchByKey('other_comment_mandatory', $qidattributes, 'attribute', 1)) { $minanswscript .= "\t\t\t\t\tif (document.getElementById('answer".$myfname."').value != '' && document.getElementById('answer".$myfname."cbox').checked ) { count += 1; }\n"; } else { $minanswscript .= "\t\t\t\t\tif (document.getElementById('answer".$myfname."').value != '' || document.getElementById('answer".$myfname."cbox').checked ) { count += 1; }\n"; } } if (isset($_SESSION[$myfname])) { $answer .= htmlspecialchars($_SESSION[$myfname],ENT_QUOTES); } $answer .= "\" />\n{$wrapper['item-end']}"; $inputnames[]=$myfname; ++$anscount; ++$rowcounter; if ($rowcounter == $wrapper['maxrows'] && $colcounter < $wrapper['cols']) { if($colcounter == $wrapper['cols'] - 1) { $answer .= $wrapper['col-devide-last']; } else { $answer .= $wrapper['col-devide']; } $rowcounter = 0; ++$colcounter; } } $answer .= $wrapper['whole-end']; if ( $maxansw > 0 ) { $maxanswscript .= "\t\t\t\t\tif (count > max)\n" . "\t\t\t\t\t\t{\n" . "\t\t\t\t\t\talert('".sprintf($clang->gT("Please choose at most '%d' answer(s) for question \"%s\"","js"), $maxansw, trim(javascript_escape(str_replace(array("\n", "\r"), "", $ia[3]),true,true)))."');\n" . "\t\t\t\t\t\tif (me.type == 'checkbox') {me.checked = false;}\n" . "\t\t\t\t\t\tif (me.type == 'text') {\n" . "\t\t\t\t\t\t\tme.value = '';\n" . "\t\t\t\t\t\t\tif (document.getElementById(me.name + 'cbox') ){\n" . "\t\t\t\t\t\t\t\t document.getElementById(me.name + 'cbox').checked = false;\n" . "\t\t\t\t\t\t\t}\n" . "\t\t\t\t\t\t}" . "\t\t\t\t\t\treturn max;\n" . "\t\t\t\t\t\t}\n" . "\t\t\t\t\t}\n" . "\t\t\t//-->\n" . "\t\t\t\n"; $answer = $maxanswscript . $answer; } if ( $minansw > 0 ) { $minanswscript .= "\t\t\t\t\tif (count < {$minansw} && document.getElementById('display{$ia[0]}').value == 'on'){\n" . "\t\t\t\t\t\talert('".sprintf($clang->gT("Please choose at least %d answer(s) for question \"%s\"","js"), $minansw, trim(javascript_escape($ia[3],true,true)))."');\n" . "\t\t\t\t\t\treturn false;\n" . "\t\t\t\t\t} else {\n" . "\t\t\t\t\t\tif (oldonsubmit_{$ia[0]}){\n" . "\t\t\t\t\t\t\treturn oldonsubmit_{$ia[0]}();\n" . "\t\t\t\t\t\t}\n" . "\t\t\t\t\t\treturn true;\n" . "\t\t\t\t\t}\n" . "\t\t\t\t}\n" . "\t\t\t\tdocument.limesurvey.onsubmit = ensureminansw_{$ia[0]}\n" . "\t\t\t\t-->\n" . "\t\t\t\n"; $answer = $minanswscript . $answer; } if (count($excludeallothers)>0) { $excludeallotherscript .= " if (document.getElementById(value).checked) { $excludeallotherscripton } else { $excludeallotherscriptoff } } //--> "; $answer = $excludeallotherscript . $answer; } $answer .= $postrow; return array($answer, $inputnames); } // --------------------------------------------------------------- function do_multiplechoice_withcomments($ia) { global $dbprefix, $clang; $qidattributes=getQuestionAttributes($ia[0]); if ($othertexts=arraySearchByKey('other_replace_text', $qidattributes, 'attribute', 1)) { $othertext=$clang->gT($othertexts['value']); } else { $othertext=$clang->gT('Other'); } // Check if the max_answers attribute is set $maxansw=0; $callmaxanswscriptcheckbox = ''; $callmaxanswscriptcheckbox2 = ''; $callmaxanswscriptother = ''; $maxanswscript = ''; if ($maxanswattr=arraySearchByKey('max_answers', $qidattributes, 'attribute', 1)) { $maxansw=$maxanswattr['value']; $callmaxanswscriptcheckbox = "limitmaxansw_{$ia[0]}(this);"; $callmaxanswscriptcheckbox2= "limitmaxansw_{$ia[0]}"; $callmaxanswscriptother = "onkeyup=\"limitmaxansw_{$ia[0]}(this)\""; $maxanswscript = "\t\t\t\n"; $answer = $maxanswscript . $answer; } if ( $minansw > 0 ) { $minanswscript .= "\t\t\t\t\tif (count < {$minansw} && document.getElementById('display{$ia[0]}').value == 'on'){\n" . "\t\t\t\t\t\talert('".sprintf($clang->gT("Please choose at least %d answer(s) for question \"%s\"","js"), $minansw, trim(javascript_escape($ia[3],true,true)))."');\n" . "\t\t\t\t\t\treturn false;\n" . "\t\t\t\t\t} else {\n" . "\t\t\t\t\t\tif (oldonsubmit_{$ia[0]}){\n" . "\t\t\t\t\t\t\treturn oldonsubmit_{$ia[0]}();\n" . "\t\t\t\t\t\t}\n" . "\t\t\t\t\t\treturn true;\n" . "\t\t\t\t\t}\n" . "\t\t\t\t}\n" . "\t\t\t\tdocument.limesurvey.onsubmit = ensureminansw_{$ia[0]}\n" . "\t\t\t\t-->\n" . "\t\t\t\n"; $answer = $minanswscript . $answer; } return array($answer, $inputnames); } // --------------------------------------------------------------- function do_multipleshorttext($ia) { global $dbprefix, $clang; $qidattributes=getQuestionAttributes($ia[0]); if (arraySearchByKey('numbers_only', $qidattributes, 'attribute', 1)) { $numbersonly = 'onkeypress="return goodchars(event,\'0123456789.\')"'; $class_num_only = ' numbers-only'; } else { $numbersonly = ''; $class_num_only = ''; } if ($maxchars=arraySearchByKey('maximum_chars', $qidattributes, 'attribute', 1)) { $maxsize=$maxchars['value']; } else { $maxsize=255; } if ($prefix=arraySearchByKey('prefix', $qidattributes, 'attribute', 1)) { $prefix = $prefix['value']; } else { $prefix = ''; } if ($suffix=arraySearchByKey('suffix', $qidattributes, 'attribute', 1)) { $suffix = $suffix['value']; } else { $suffix = ''; } if (arraySearchByKey('random_order', $qidattributes, 'attribute', 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount()*2; //$answer .= "\t\t\t\t\t\n"; $fn = 1; $answer = keycontroljs(); $answer_main = ''; $label_width = 0; if ($anscount==0) { $inputnames=array(); $answer_main .= '
• '.$clang->gT('Error: This question has no answers.')."
\n"; } else { while ($ansrow = $ansresult->FetchRow()) { $myfname = $ia[1].$ansrow['code']; if ($ansrow['answer'] == "") {$ansrow['answer'] = " ";} $answer_main .= "\t
• \n" . "\t\t{$ansrow['answer']}\n" . "\t\t\t\n\t\t\t\t".$prefix."\n\t\t\t\t".''."\n\t\t\t\t".$suffix."\n\t\t\t\n" . "\t
\n"; // --> END NEW FEATURE - SAVE $fn++; $inputnames[]=$myfname; } } $label_width = round($label_width * 0.6); if($label_width < 2) $label_width = 2; switch($label_width / 2) { case 1: case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11: case 12: case 13: case 14: case 15: $label_width = $label_width; break; default: ++$label_width; } if (!empty($numbersonly)) { $class_num_only = ' numbers-only'; if($label_width > 30) { $label_width = 'X-large'; } } else { if($label_width > 20) { $label_width = 'X-large'; } $class_num_only = ''; } if($label_width != 'X-large') { $label_width = 'X'.$label_width; } $answer .= '
\n".$answer_main."
\n"; return array($answer, $inputnames); } // --------------------------------------------------------------- function do_multiplenumeric($ia) { global $dbprefix, $clang, $js_header_includes; $qidattributes=getQuestionAttributes($ia[0]); //Must turn on the "numbers only javascript" $numbersonly = 'onkeypress="return goodchars(event,\'0123456789.\')"'; if ($maxchars=arraySearchByKey('maximum_chars', $qidattributes, 'attribute', 1)) { $maxsize=$maxchars['value']; } else { $maxsize = 255; } //EQUALS VALUE if ($equalvalue=arraySearchByKey('equals_num_value', $qidattributes, 'attribute', 1)) { $equals_num_value=$equalvalue['value']; $numbersonlyonblur[]='calculateValue'.$ia[1].'(3)'; $calculateValue[]=3; } elseif ($equalvalue=arraySearchByKey('num_value_equals_sgqa', $qidattributes, 'attribute', 1)) { $equals_num_value=$_SESSION[$equalvalue['value']]; $numbersonlyonblur[]='calculateValue'.$ia[1].'(3)'; $calculateValue[]=3; } else { $equals_num_value[]=0; } //MIN VALUE if ($minvalue=arraySearchByKey('min_num_value', $qidattributes, 'attribute', 1)) { $min_num_value=$minvalue['value']; $numbersonlyonblur[]='calculateValue'.$ia[1].'(2)'; $calculateValue[]=2; } elseif ($minvalue=arraySearchByKey('min_num_value_sgqa', $qidattributes, 'attribute', 1)) { $min_num_value=$_SESSION[$minvalue['value']]; $numbersonlyonblur[]='calculateValue'.$ia[1].'(2)'; $calculateValue[]=2; } else { $min_num_value=0; } //MAX VALUE if ($maxvalue=arraySearchByKey('max_num_value', $qidattributes, 'attribute', 1)) { $max_num_value = $maxvalue['value']; $numbersonlyonblur[]='calculateValue'.$ia[1].'(1)'; $calculateValue[]=1; } elseif ($maxvalue=arraySearchByKey('max_num_value_sgqa', $qidattributes, 'attribute', 1)) { $max_num_value = $_SESSION[$maxvalue['value']]; $numbersonlyonblur[]='calculateValue'.$ia[1].'(1)'; $calculateValue[]=1; } else { $max_num_value = 0; } if ($prefix=arraySearchByKey('prefix', $qidattributes, 'attribute', 1)) { $prefix = $prefix['value']; } else { $prefix = ''; } if ($suffix=arraySearchByKey('suffix', $qidattributes, 'attribute', 1)) { $suffix = $suffix['value']; } else { $suffix = ''; } if(!empty($numbersonlyonblur)) { $numbersonly .= ' onblur="'.implode(';', $numbersonlyonblur).'"'; $numbersonly_slider = implode(';', $numbersonlyonblur); } else { $numbersonly_slider = ''; } if ($maxchars=arraySearchByKey('text_input_width', $qidattributes, 'attribute', 1)) { $tiwidth=$maxchars['value']; } else { $tiwidth=10; } if (arraySearchByKey('slider_layout', $qidattributes, 'attribute', 1)) { $slider_layout=true; $slider_accuracy=arraySearchByKey('slider_accuracy', $qidattributes, 'attribute', 1); if (isset($slider_accuracy['value'])) { //$slider_divisor = 1 / $slider_accuracy['value']; $decimnumber = strlen($slider_accuracy['value']) - strpos($slider_accuracy['value'],'.') -1; $slider_divisor = pow(10,$decimnumber); $slider_stepping = $slider_accuracy['value'] * $slider_divisor; // error_log('acc='.$slider_accuracy['value']." div=$slider_divisor stepping=$slider_stepping"); } else { $slider_divisor = 1; $slider_stepping = 1; } $slider_min=arraySearchByKey('slider_min', $qidattributes, 'attribute', 1); if (isset($slider_min['value'])) { $slider_min = $slider_min['value'] * $slider_divisor; } else { $slider_min = 0; } $slider_max=arraySearchByKey('slider_max', $qidattributes, 'attribute', 1); if (isset($slider_max['value'])) { $slider_max = $slider_max['value'] * $slider_divisor; } else { $slider_max = 100 * $slider_divisor; } $slider_default=arraySearchByKey('slider_default', $qidattributes, 'attribute', 1); if (isset($slider_default['value'])) { $slider_default = $slider_default['value']; } else { $slider_default = ''; } } else { $slider_layout = false; } if ($hidetip=arraySearchByKey('hide_tip', $qidattributes, 'attribute', 1)) { $hidetip=$hidetip['value']; } elseif ($slider_layout === true) // auto hide tip when using sliders { $hidetip=1; } else { $hidetip=0; } if (arraySearchByKey('random_order', $qidattributes, 'attribute', 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount()*2; //$answer .= "\t\t\t\t\t\n"; $fn = 1; $answer = keycontroljs(); $answer_main = ''; if ($anscount==0) { $inputnames=array(); $answer_main .= '
• '.$clang->gT('Error: This question has no answers.')."
\n"; } else { $label_width = 0; while ($ansrow = $ansresult->FetchRow()) { $myfname = $ia[1].$ansrow['code']; if ($ansrow['answer'] == "") {$ansrow['answer'] = " ";} $answer_main .= "\t
• \n\t\t{$ansrow['answer']}\n"; if($label_width < strlen(trim(strip_tags($ansrow['answer'])))) { $label_width = strlen(trim(strip_tags($ansrow['answer']))); } if ($slider_layout === false) { $answer_main .= "\t\t
  \n\t\t\t".$prefix."\n\t\t\t\n\t\t\t".$suffix."\n\t\t
  \n\t
\n"; // --> END NEW FEATURE - SAVE } else { $js_header_includes[] = '/scripts/jquery/jquery-ui.js'; $js_header_includes[] = '/scripts/jquery/lime-slider.js'; $js_header_includes = array_unique($js_header_includes); if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] != '') { $slider_startvalue = $_SESSION[$myfname] * $slider_divisor; } elseif ($slider_default != "") { $slider_startvalue = $slider_default * $slider_divisor; } else { $slider_startvalue = 'NULL'; } $answer_main .= "\t\t
\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t
\n" . "\t\t\t\t
\n" . "\t\t\t\t
\n" . "\t\t\t
\n" . "\t\t
\n" . "\t\t\n" . "\t\n"; } // $answer .= "\t\t\t\t\t\t\t\n"; $fn++; $inputnames[]=$myfname; } $question_tip = ''; if($hidetip == 0) { $question_tip .= '

'.$clang->gT('Only numbers may be entered in these fields')."

\n"; } if ($maxvalue) { $question_tip .= '

'.sprintf($clang->gT('Total of all entries must not exceed %d'), $max_num_value)."

\n"; } if ($equalvalue) { $question_tip .= '

'.sprintf($clang->gT('Total of all entries must equal %d'),$equals_num_value)."

\n"; } if ($minvalue) { $question_tip .= '

'.sprintf($clang->gT('Total of all entries must be at least %s'),$min_num_value)."

\n"; } $label_width = round($label_width * 0.8); if($label_width < 2) $label_width = 2; switch($label_width / 2) { case 1: case 2: case 3: case 4: case 5: case 6: case 7: case 8: case 9: case 10: case 11: case 12: case 13: case 14: case 15: $label_width = $label_width; break; default: ++$label_width; } if ($maxvalue || $equalvalue || $minvalue) { $class_computed = ' computed'; if($label_width > 20) { $label_width = 'X-large'; $comp_width = $label_width; } else { $comp_width = $label_width; if( isset($prefix) && !empty($prefix) ) { $comp_width = $comp_width + round(strlen($prefix) * 0.8); }; if(isset($suffix) && !empty($suffix)) { $comp_width = $comp_width + round(strlen($suffix) * 0.8); } if($comp_width > 20) { $comp_width = 'X-large'; } else { $comp_width = 'X'.$comp_width; } } } else { if($label_width > 30) { $label_width = 'X-large'; } $class_computed = ''; } if ($slider_layout) { $label_width = 'slider'; $comp_width = $label_width; } else { if($label_width != 'X-large') { $label_width = 'X'.$label_width; } } $answer .= $question_tip.'
\n".$answer_main."
\n"; if ($maxvalue || $equalvalue || $minvalue) { $answer_computed = "\n

\n"; $answer_computed .= "\t

".$clang->gT('Total: ')."

\n\t\t

$prefix$suffix

\n"; if ($equalvalue) { $answer_computed .= "\n\t

".$clang->gT('Remaining: ')."

\n\t\t

$prefix$suffix

\n"; } $answer_computed .= "

\n"; } } $answer_computed = isset($answer_computed)?$answer_computed:''; $answer .= $answer_computed; //just added these here so its easy to change in one place $errorClass = 'tip error'; $goodClass = ' tip good'; /* ================================== Style to be applied to all templates. .numeric-multi p.tip.error { color: #f00; } .numeric-multi p.tip.good { color: #0f0; } */ if ($maxvalue || $equalvalue || $minvalue) { //Do value validation $answer .= '\n"; $answer .= '\n"; $answer .= "\n"; } return array($answer, $inputnames); } // --------------------------------------------------------------- function do_numerical($ia) { global $clang; $qidattributes=getQuestionAttributes($ia[0]); if ($prefix=arraySearchByKey("prefix", $qidattributes, "attribute", 1)) { $prefix = $prefix['value']; } else { $prefix = ''; } if ($suffix=arraySearchByKey('suffix', $qidattributes, 'attribute', 1)) { $suffix = $suffix['value']; } else { $suffix = ''; } if ($maxchars=arraySearchByKey('maximum_chars', $qidattributes, 'attribute', 1)) { $maxsize=$maxchars['value']; if ($maxsize>20) { $maxsize=20; } } else { $maxsize=20; // The field length for numerical fields is 20 } if ($maxchars=arraySearchByKey('text_input_width', $qidattributes, 'attribute', 1)) { $tiwidth=$maxchars['value']; } else { $tiwidth=10; } // --> START NEW FEATURE - SAVE $answer = keycontroljs() . "

\n\t$prefix\n\t\n\t$suffix\n

\n" . "

".$clang->gT('Only numbers may be entered in this field')."

\n"; // --> END NEW FEATURE - SAVE $inputnames[]=$ia[1]; $mandatory=null; return array($answer, $inputnames, $mandatory); } // --------------------------------------------------------------- function do_shortfreetext($ia) { $qidattributes=getQuestionAttributes($ia[0]); if ($maxchars=arraySearchByKey('maximum_chars', $qidattributes, 'attribute', 1)) { $maxsize=$maxchars['value']; } else { $maxsize=255; } if ($maxchars=arraySearchByKey('text_input_width', $qidattributes, 'attribute', 1)) { $tiwidth=$maxchars['value']; } else { $tiwidth=50; } if ($prefix=arraySearchByKey('prefix', $qidattributes, 'attribute', 1)) { $prefix = $prefix['value']; } else { $prefix = ''; } if ($suffix=arraySearchByKey('suffix', $qidattributes, 'attribute', 1)) { $suffix = $suffix['value']; } else { $suffix = ''; } // --> START NEW FEATURE - SAVE $answer = "

\n\t$prefix\n\t\n\t$suffix\n

\n"; // --> END NEW FEATURE - SAVE $inputnames[]=$ia[1]; return array($answer, $inputnames); } // --------------------------------------------------------------- function do_longfreetext($ia) { $qidattributes=getQuestionAttributes($ia[0]); if ($maxchars=arraySearchByKey('maximum_chars', $qidattributes, 'attribute', 1)) { $maxsize=$maxchars['value']; } else { $maxsize=65525; } // --> START ENHANCEMENT - DISPLAY ROWS if ($displayrows=arraySearchByKey('display_rows', $qidattributes, 'attribute', 1)) { $drows=$displayrows['value']; } else { $drows=5; } // <-- END ENHANCEMENT - DISPLAY ROWS // --> START ENHANCEMENT - TEXT INPUT WIDTH if ($maxchars=arraySearchByKey('text_input_width', $qidattributes, 'attribute', 1)) { $tiwidth=$maxchars['value']; } else { $tiwidth=40; } // <-- END ENHANCEMENT - TEXT INPUT WIDTH $answer = "\n"; // --> START ENHANCEMENT - DISPLAY ROWS // --> START ENHANCEMENT - TEXT INPUT WIDTH // --> START NEW FEATURE - SAVE $answer .= ''; // --> END NEW FEATURE - SAVE // <-- END ENHANCEMENT - TEXT INPUT WIDTH // <-- END ENHANCEMENT - DISPLAY ROWS if ($_SESSION[$ia[1]]) {$answer .= str_replace("\\", "", $_SESSION[$ia[1]]);} $answer .= "\n"; $inputnames[]=$ia[1]; return array($answer, $inputnames); } // --------------------------------------------------------------- function do_hugefreetext($ia) { $qidattributes=getQuestionAttributes($ia[0]); if ($maxchars=arraySearchByKey('maximum_chars', $qidattributes, 'attribute', 1)) { $maxsize=$maxchars['value']; } else { $maxsize=65525; } // --> START ENHANCEMENT - DISPLAY ROWS if ($displayrows=arraySearchByKey('display_rows', $qidattributes, 'attribute', 1)) { $drows=$displayrows['value']; } else { $drows=30; } // <-- END ENHANCEMENT - DISPLAY ROWS // --> START ENHANCEMENT - TEXT INPUT WIDTH if ($maxchars=arraySearchByKey('text_input_width', $qidattributes, 'attribute', 1)) { $tiwidth=$maxchars['value']; } else { $tiwidth=70; } // <-- END ENHANCEMENT - TEXT INPUT WIDTH $answer = "\n"; // --> START ENHANCEMENT - DISPLAY ROWS // --> START ENHANCEMENT - TEXT INPUT WIDTH // --> START NEW FEATURE - SAVE $answer .= ''; // --> END NEW FEATURE - SAVE // <-- END ENHANCEMENT - TEXT INPUT WIDTH // <-- END ENHANCEMENT - DISPLAY ROWS if ($_SESSION[$ia[1]]) {$answer .= str_replace("\\", "", $_SESSION[$ia[1]]);} $answer .= "\n"; $inputnames[]=$ia[1]; return array($answer, $inputnames); } // --------------------------------------------------------------- function do_yesno($ia) { global $shownoanswer, $clang; $answer = "
\n" . "\t
• \n\t\t START NEW FEATURE - SAVE $answer .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t\n\t\t\t".$clang->gT('Yes')."\n\t\t\n\t
\n" . "\t
• \n\t\t END NEW FEATURE - SAVE if ($_SESSION[$ia[1]] == 'N') { $answer .= CHECKED; } // --> START NEW FEATURE - SAVE $answer .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t\n\t\t\t".$clang->gT('No')."\n\t\t\n\t
\n"; // --> END NEW FEATURE - SAVE if ($ia[6] != 'Y' && $shownoanswer == 1) { $answer .= "\t
• \n\t\t START NEW FEATURE - SAVE $answer .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t\n\t\t\t".$clang->gT('No answer')."\n\t\t\n\t
\n"; // --> END NEW FEATURE - SAVE } $answer .= "
\n\n\n"; $inputnames[]=$ia[1]; return array($answer, $inputnames); } // --------------------------------------------------------------- function do_gender($ia) { global $shownoanswer, $clang; $qidattributes=getQuestionAttributes($ia[0]); /* This can (and should) now be done by CSS rather than using tables. if ($displaycols=arraySearchByKey('display_columns', $qidattributes, 'attribute', 1)) { $dcols=$displaycols['value']; } else { $dcols=0; } */ $answer = "
\n" . "\t
• \n" . ' START NEW FEATURE - SAVE $answer .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n" . ' '.$clang->gT('Female')."\n\t
\n"; /* columns now done by CSS if ($dcols > 1 ) //Break into columns - don't need any detailed calculations becauase there's only ever 2 possible columns { $answer .= "\n\n"; } else { $answer .= "
\n"; } */ $answer .= "\t
• \n\t\t END NEW FEATURE - SAVE if ($_SESSION[$ia[1]] == 'M') { $answer .= CHECKED; } // --> START NEW FEATURE - SAVE $answer .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t".$clang->gT('Male')."\n\t
\n"; // --> END NEW FEATURE - SAVE if ($ia[6] != 'Y' && $shownoanswer == 1) { /* columns now done by CSS if ($dcols > 2) { $answer .= "\n\n"; } elseif ($dcols > 1) { $answer .= "\n\n"; } else { $answer .= "
"; } */ $answer .= "\t
• \n\t\t START NEW FEATURE - SAVE $answer .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t".$clang->gT('No answer')."\n\t
\n"; // --> END NEW FEATURE - SAVE } $answer .= "
\n\n\n"; $inputnames[]=$ia[1]; return array($answer, $inputnames); } // --------------------------------------------------------------- function do_array_5point($ia) { global $dbprefix, $shownoanswer, $notanswered, $thissurvey, $clang; $qidattributes=getQuestionAttributes($ia[0]); if ($answerwidth=arraySearchByKey('answer_width', $qidattributes, 'attribute', 1)) { $answerwidth=$answerwidth['value']; } else { $answerwidth = 20; } $cellwidth = 5; // number of columns if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { ++$cellwidth; // add another column } $cellwidth = round((( 100 - $answerwidth ) / $cellwidth) , 1); // convert number of columns to percentage of table width $ansquery = "SELECT answer FROM {$dbprefix}answers WHERE qid=".$ia[0]." AND answer like '%|%'"; $ansresult = db_execute_assoc($ansquery); //Checked if ($ansresult->RecordCount()>0) {$right_exists=true;$answerwidth=$answerwidth/2;} else {$right_exists=false;} // $right_exists is a flag to find out if there are any right hand answer parts. If there arent we can leave out the right td column if (arraySearchByKey("random_order", $qidattributes, "attribute", 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount(); $fn = 1; $answer = "\n\n\n" . "\t\n" . "\t\n"; $odd_even = ''; for ($xc=1; $xc<=5; $xc++) { $odd_even = alternation($odd_even); $answer .= "\t\t\n"; } if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { $odd_even = alternation($odd_even); $answer .= "\t\t\n"; } $answer .= "\t\n\n" . "\t\n\t\t\n" . "\t\t\t\n"; for ($xc=1; $xc<=5; $xc++) { $answer .= "\t\t\t\n"; } if ($right_exists) {$answer .= "\t\t\t\n";} if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { $answer .= "\t\t\t\n"; } $answer .= "\t\t\n"; $answer_t_content = ''; $trbc = ''; while ($ansrow = $ansresult->FetchRow()) { $myfname = $ia[1].$ansrow['code']; $answertext=answer_replace($ansrow['answer']); if (strpos($answertext,'|')) {$answertext=substr($answertext,0,strpos($answertext,'|'));} /* Check if this item has not been answered: the 'notanswered' variable must be an array, containing a list of unanswered questions, the current question must be in the array, and there must be no answer available for the item in this session. */ if ((is_array($notanswered)) && (array_search($ia[1], $notanswered) !== FALSE) && ($_SESSION[$myfname] == '') ) { $answertext = "{$answertext}"; } $trbc = alternation($trbc , 'row'); $htmltbody2 = ''; if (($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == false) || ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'A')) { $htmltbody2 = "\t\n\n\t\n\t\t\t\n"; } elseif (($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'S') || ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == true)) { $selected = getArrayFiltersForQuestion($ia[0]); if (!in_array($ansrow['code'],$selected)) { $htmltbody2 = "\t\n\n\t\n\t\t\t\n"; $_SESSION[$myfname] = ''; } else { $htmltbody2 = "\t\n\n\t\n\t\t\t\n"; } } else { $htmltbody2 = "\t\n\n\t\n\t\t\t\n"; } $answer_t_content .= "\t\t\n" . "\t\t\t\n"; for ($i=1; $i<=5; $i++) { $answer_t_content .= "\t\t\t\n"; } $answertext2=answer_replace($ansrow['answer']); if (strpos($answertext2,'|')) { $answertext2=substr($answertext2,strpos($answertext2,'|')+1); $answer_t_content .= "\t\t\t\n"; } elseif ($right_exists) { $answer_t_content .= "\t\t\t\n"; } if ($ia[6] != 'Y' && $shownoanswer == 1) { $answer_t_content .= "\t\t\t\n"; } $answer_t_content .= "\t\t\n\n"; $fn++; $inputnames[]=$myfname; } $answer .= $htmltbody2 . $answer_t_content . "\t\t\t

	$xc		".$clang->gT('No answer')."
\n\t\t\t\t$answertext\n" . "\t\t\t\t\n\t\t\t	\n\t\t\t\t" ."\n\t\t\t\t\t\n\t\t\t\t\n\t\t\t	$answertext2		\n\t\t\t\t" ."\n\t\t\t\t\tgT('No answer').'"'; if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == '') { $answer_t_content .= CHECKED; } $answer_t_content .= " onclick='checkconditions(this.value, this.name, this.type)' />\n\t\t\t\t\n\t\t\t

\n"; return array($answer, $inputnames); } // --------------------------------------------------------------- function do_array_10point($ia) { global $dbprefix, $shownoanswer, $notanswered, $thissurvey, $clang; $qquery = "SELECT other FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'"; $qresult = db_execute_assoc($qquery); //Checked while($qrow = $qresult->FetchRow()) {$other = $qrow['other'];} $qidattributes=getQuestionAttributes($ia[0]); if ($answerwidth=arraySearchByKey("answer_width", $qidattributes, "attribute", 1)) { $answerwidth = $answerwidth['value']; } else { $answerwidth = 20; } $cellwidth = 10; // number of columns if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { ++$cellwidth; // add another column } $cellwidth = round((( 100 - $answerwidth ) / $cellwidth) , 1); // convert number of columns to percentage of table width if (arraySearchByKey("random_order", $qidattributes, "attribute", 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount(); $fn = 1; $answer = "\n\n\n" . "\t\n" . "\t\n"; $odd_even = ''; for ($xc=1; $xc<=10; $xc++) { $odd_even = alternation($odd_even); $answer .= "\t\t\n"; } if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { $odd_even = alternation($odd_even); $answer .= "\t\t\n"; } $answer .= "\t\n\n" . "\t\n\t\t\n" . "\t\t\t\n"; for ($xc=1; $xc<=10; $xc++) { $answer .= "\t\t\t\n"; } if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { $answer .= "\t\t\t\t\t\n"; } $answer .= "\t\t\n"; $answer_t_content = ''; $trbc = ''; while ($ansrow = $ansresult->FetchRow()) { $myfname = $ia[1].$ansrow['code']; $answertext=answer_replace($ansrow['answer']); /* Check if this item has not been answered: the 'notanswered' variable must be an array, containing a list of unanswered questions, the current question must be in the array, and there must be no answer available for the item in this session. */ if ((is_array($notanswered)) && (array_search($ia[1], $notanswered) !== FALSE) && ($_SESSION[$myfname] == "") ) { $answertext = "{$answertext}"; } $trbc = alternation($trbc , 'row'); $htmltbody2 = ""; if ($htmltbody=arraySearchByKey("array_filter", $qidattributes, "attribute", 1) && $thissurvey['format'] == "G" && getArrayFiltersOutGroup($ia[0]) == false) { $htmltbody2 = "\t\n\n\t\n\t\t"; } else if (($htmltbody=arraySearchByKey("array_filter", $qidattributes, "attribute", 1) && $thissurvey['format'] == "S") || ($htmltbody=arraySearchByKey("array_filter", $qidattributes, "attribute", 1) && $thissurvey['format'] == "G" && getArrayFiltersOutGroup($ia[0]) == true)) { $selected = getArrayFiltersForQuestion($ia[0]); if (!in_array($ansrow['code'],$selected)) { $htmltbody2 = "\t\n\n\t\n\t\t"; $_SESSION[$myfname] = ""; } else { $htmltbody2 = "\t\n\n\t\n\t\t\n"; } } else { $htmltbody2 = "\t\n\n\t\n\t\t\n"; } $answer_t_content .= "\t\t\n" . "\t\t\t\n"; for ($i=1; $i<=10; $i++) { $answer_t_content .= "\t\t\t\n"; // --> END NEW FEATURE - SAVE } if ($ia[6] != "Y" && $shownoanswer == 1) { $answer_t_content .= "\t\t\t\n"; } $answer_t_content .= "\t\t\n"; $inputnames[]=$myfname; $fn++; } $answer .= $htmltbody2 . $answer_t_content . "\t\n

	$xc	".$clang->gT('No answer')."
\n\t\t\t\t$answertext\n" . "\t\t\t\t\n\t\t\t	\n\t\t\t\t\n" ."\t\t\t\t\t START NEW FEATURE - SAVE $answer_t_content .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t\t\t\n\t\t\t	\n\t\t\t\t\n" ."\t\t\t\t\tgT('No answer')."\""; if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == '') { $answer_t_content .= CHECKED; } $answer_t_content .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t\t\t\n\t\t\t

\n"; return array($answer, $inputnames); } // --------------------------------------------------------------- function do_array_yesnouncertain($ia) { global $dbprefix, $shownoanswer, $notanswered, $thissurvey, $clang; $qquery = "SELECT other FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'"; $qresult = db_execute_assoc($qquery); //Checked while($qrow = $qresult->FetchRow()) {$other = $qrow['other'];} $qidattributes=getQuestionAttributes($ia[0]); if ($answerwidth=arraySearchByKey('answer_width', $qidattributes, 'attribute', 1)) { $answerwidth=$answerwidth['value']; } else { $answerwidth = 20; } $cellwidth = 3; // number of columns if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { ++$cellwidth; // add another column } $cellwidth = round((( 100 - $answerwidth ) / $cellwidth) , 1); // convert number of columns to percentage of table width if (arraySearchByKey("random_order", $qidattributes, "attribute", 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount(); $fn = 1; $answer = "\n\n" . "\n\t\n" . "\t\n"; $odd_even = ''; for ($xc=1; $xc<=3; $xc++) { $odd_even = alternation($odd_even); $answer .= "\t\t\n"; } if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { $odd_even = alternation($odd_even); $answer .= "\t\t\n"; } $answer .= "\t\n\n" . "\t\n\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n"; if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { $answer .= "\t\t\t\n"; } $answer .= "\t\t\n"; $answer_t_content = ''; $htmltbody2 = ''; if ($anscount==0) { $inputnames=array(); $answer.="\t\t\t\t\t\n\t\t\n"; } else { $trbc = ''; while ($ansrow = $ansresult->FetchRow()) { $myfname = $ia[1].$ansrow['code']; $answertext=answer_replace($ansrow['answer']); /* Check if this item has not been answered: the 'notanswered' variable must be an array, containing a list of unanswered questions, the current question must be in the array, and there must be no answer available for the item in this session. */ if ((is_array($notanswered)) && (array_search($ia[1], $notanswered) !== FALSE) && ($_SESSION[$myfname] == '') ) { $answertext = "{$answertext}"; } $trbc = alternation($trbc , 'row'); if ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == false) { $htmltbody2 = "\t\n\n\t\n\t\t\n"; } else if (($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'S') || ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == true)) { $selected = getArrayFiltersForQuestion($ia[0]); if (!in_array($ansrow['code'],$selected)) { $htmltbody2 = "\t\n\n\t\n\t\t\n"; $_SESSION[$myfname] = ''; } else { $htmltbody2 = "\t\n\n\t\n\t\t\n"; } } else { $htmltbody2 = "\t\n\n\t\n\t\t\n"; } $answer_t_content .= "\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n"; if ($ia[6] != 'Y' && $shownoanswer == 1) { $answer_t_content .= "\t\t\t\n"; // --> END NEW FEATURE - SAVE } $answer_t_content .= "\t\t\n"; $inputnames[]=$myfname; $fn++; } } $answer .= $htmltbody2 . $answer_t_content . "\t\n

	".$clang->gT('Yes')."	".$clang->gT('Uncertain')."	".$clang->gT('No')."	".$clang->gT('No answer')."
".$clang->gT('Error: This question has no answers.')."
$answertext	\n\t\t\t\t\n" . "\t\t\t\t\tgT('Yes').'"'; if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'Y') { $answer_t_content .= CHECKED; } // --> START NEW FEATURE - SAVE $answer_t_content .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t\t\n\t\t\t	\n\t\t\t\t\n" . "\t\t\t\tgT('Uncertain')."\""; // --> END NEW FEATURE - SAVE if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'U') { $answer_t_content .= CHECKED; } // --> START NEW FEATURE - SAVE $answer_t_content .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t\t\t\n\t\t\t	\n\t\t\t\t\n" . "\t\t\t\tgT('No').'"'; // --> END NEW FEATURE - SAVE if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'N') { $answer_t_content .= CHECKED; } // --> START NEW FEATURE - SAVE $answer_t_content .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t\t\t\n" . "\t\t\t\t END NEW FEATURE - SAVE if (isset($_SESSION[$myfname])) { $answer_t_content .= $_SESSION[$myfname]; } $answer_t_content .= "\" />\n\t\t\t	\n\t\t\t\n" . "\t\t\t\t\tgT('No answer')."\""; if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == '') { $answer_t_content .= CHECKED; } // --> START NEW FEATURE - SAVE $answer_t_content .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t\t\t\n\t\t\t

\n"; return array($answer, $inputnames); } /* // --------------------------------------------------------------- function do_slider($ia) { global $shownoanswer; global $dbprefix; $qidattributes=getQuestionAttributes($ia[0]); if ($defaultvalue=arraySearchByKey("default_value", $qidattributes, "attribute", 1)) { $defaultvalue=$defaultvalue['value']; } else {$defaultvalue=0;} if ($minimumvalue=arraySearchByKey("minimum_value", $qidattributes, "attribute", 1)) { $minimumvalue=$minimumvalue['value']; } else { $minimumvalue=0; } if ($maximumvalue=arraySearchByKey("maximum_value", $qidattributes, "attribute", 1)) { $maximumvalue=$maximumvalue['value']; } else { $maximumvalue=50; } if ($answerwidth=arraySearchByKey("answer_width", $qidattributes, "attribute", 1)) { $answerwidth=$answerwidth['value']; } else { $answerwidth=20; } $sliderwidth=100-$answerwidth; //Get answers $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid={$ia[0]} AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount(); //Get labels $qquery = "SELECT lid FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'"; $qresult = db_execute_assoc($qquery); //Checked while($qrow = $qresult->FetchRow()) {$lid = $qrow['lid'];} $lquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, code"; $lresult = db_execute_assoc($lquery); //Checked $answer = "\t\t\t\n"; $answer .= "\t\t\t\t\n"; $lcolspan=$lresult->RecordCount(); $lcount=1; while($lrow=$lresult->FetchRow()) { $answer .= "\n"; $lcount++; } $answer .= "\t\t\t\t\n"; $answer .="\t\t\t\t\n" . "\t\t\t\t\t\n" . "\t\t\t\t\t\n"; $answer .= "\t\t\t\t\t"; $inputnames[]=$myfname; $fn++; } $answer .="\t\t\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t

	".$lrow['title']."
\n" . "\t\t\t\t\t\t"; $fn=1; $trbc = ''; while ($ansrow = $ansresult->FetchRow()) { //A row for each slider control $myfname = $ia[1].$ansrow['code']; $answertext=answer_replace($ansrow['answer']); $trbc = alternation($trbc , 'row'); $answer .= "\t\t\t\t
$answertext	" . " " . "" . " "; $answer .= " \n" . "\n"; $answer .= "\t\t\t\t\n" . "\t\t\t\t\n

\n"; $inputnames[]=$ia[1]; return array($answer, $inputnames); }*/ // --------------------------------------------------------------- function do_array_increasesamedecrease($ia) { global $dbprefix, $thissurvey, $clang; global $shownoanswer; global $notanswered; $qquery = "SELECT other FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'"; $qresult = db_execute_assoc($qquery); //Checked $qidattributes=getQuestionAttributes($ia[0]); if ($answerwidth=arraySearchByKey('answer_width', $qidattributes, 'attribute', 1)) { $answerwidth=$answerwidth['value']; } else { $answerwidth = 20; } $cellwidth = 3; // number of columns if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { ++$cellwidth; // add another column } $cellwidth = round((( 100 - $answerwidth ) / $cellwidth) , 1); // convert number of columns to percentage of table width while($qrow = $qresult->FetchRow()) { $other = $qrow['other']; } if (arraySearchByKey('random_order', $qidattributes, 'attribute', 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount(); $fn = 1; $answer = "\n\n" . "\t\n" . "\t\n"; $odd_even = ''; for ($xc=1; $xc<=3; $xc++) { $odd_even = alternation($odd_even); $answer .= "\t\t\n"; } if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { $odd_even = alternation($odd_even); $answer .= "\t\t\n"; } $answer .= "\t\n" . "\t\n" . "\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n"; if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { $answer .= "\t\t\t\n"; } $answer .= "\t\t\n" ."\t\n"; $answer_body = ''; $trbc = ''; while ($ansrow = $ansresult->FetchRow()) { $myfname = $ia[1].$ansrow['code']; $answertext=answer_replace($ansrow['answer']); /* Check if this item has not been answered: the 'notanswered' variable must be an array, containing a list of unanswered questions, the current question must be in the array, and there must be no answer available for the item in this session. */ if ((is_array($notanswered)) && (array_search($ia[1], $notanswered) !== FALSE) && ($_SESSION[$myfname] == "") ) { $answertext = "{$answertext}"; } $trbc = alternation($trbc , 'row'); $htmltbody2 = "\t\n"; if ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == "G" && getArrayFiltersOutGroup($ia[0]) == false) { $htmltbody2 = "\n\t\t\n"; } elseif( ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'S') || ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == true)) { $selected = getArrayFiltersForQuestion($ia[0]); if (!in_array($ansrow['code'],$selected)) { $htmltbody2 = "\n\t\t\n"; $_SESSION[$myfname] = ''; } else { $htmltbody2 = "\n\t\t"; } } $answer_body .= "\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n"; if ($ia[6] != 'Y' && $shownoanswer == 1) { $answer_body .= "\t\t\t\n"; } $answer_body .= "\t\t\n"; $inputnames[]=$myfname; $fn++; } $answer .= $htmltbody2 . $answer_body . "\t\n

	".$clang->gT('Increase')."	".$clang->gT('Same')."	".$clang->gT('Decrease')."	".$clang->gT('No answer')."
$answertext	\n" . "\t\t\t\t\n" ."\t\t\t\t\tgT('Increase').'"'; if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'I') { $answer_body .= CHECKED; } $answer_body .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n" . "\t\t\t\t\n" . "\t\t\t	\n" . "\t\t\t\t\n" . "\t\t\t\t\tgT('Same').'"'; if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'S') { $answer_body .= CHECKED; } $answer_body .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n" . "\t\t\t\t\n" . "\t\t\t	\n" . "\t\t\t\t\n" . "\t\t\t\t\tgT('Decrease').'"'; // --> END NEW FEATURE - SAVE if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'D') { $answer_body .= CHECKED; } $answer_body .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n" . "\t\t\t\t\n" . "\t\t\t\t\n\t\t\t	\n" . "\t\t\t\t\n" . "\t\t\t\t\tgT('No answer').'"'; if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == '') { $answer_body .= CHECKED; } $answer_body .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n" . "\t\t\t\t\n" . "\t\t\t

\n"; return array($answer, $inputnames); } // --------------------------------------------------------------- function do_array_flexible($ia) { global $dbprefix, $connect, $thissurvey, $clang; global $shownoanswer; global $repeatheadings; global $notanswered; global $minrepeatheadings; $qquery = "SELECT other, lid FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'"; $qresult = db_execute_assoc($qquery); //Checked while($qrow = $qresult->FetchRow()) {$other = $qrow['other']; $lid = $qrow['lid'];} $lquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, code"; $qidattributes=getQuestionAttributes($ia[0]); if ($answerwidth=arraySearchByKey('answer_width', $qidattributes, 'attribute', 1)) { $answerwidth=$answerwidth['value']; } else { $answerwidth=20; } $columnswidth=100-$answerwidth; $lresult = db_execute_assoc($lquery); //Checked if ($lresult->RecordCount() > 0) { while ($lrow=$lresult->FetchRow()) { $labelans[]=$lrow['title']; $labelcode[]=$lrow['code']; } // $cellwidth=sprintf('%02d', $cellwidth); $ansquery = "SELECT answer FROM {$dbprefix}answers WHERE qid=".$ia[0]." AND answer like '%|%' "; $ansresult = db_execute_assoc($ansquery); //Checked if ($ansresult->RecordCount()>0) {$right_exists=true;$answerwidth=$answerwidth/2;} else {$right_exists=false;} // $right_exists is a flag to find out if there are any right hand answer parts. If there arent we can leave out the right td column if (arraySearchByKey('random_order', $qidattributes, 'attribute', 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount(); $fn=1; $numrows = count($labelans); if ($ia[6] != 'Y' && $shownoanswer == 1) { ++$numrows; } if ($right_exists) { ++$numrows; } $cellwidth = round( ($columnswidth / $numrows ) , 1 ); $answer_start = "\n\n"; $answer_head = "\t\n" . "\t\t\n" . "\t\t\t\n"; foreach ($labelans as $ld) { $answer_head .= "\t\t\t\n"; } if ($right_exists) {$answer_head .= "\t\t\t\n";} if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory and we can show "no answer" { $answer_head .= "\t\t\t\n"; } $answer_head .= "\t\t\n\t\n\n\t\n"; $answer = ''; $trbc = ''; while ($ansrow = $ansresult->FetchRow()) { if (isset($repeatheadings) && $repeatheadings > 0 && ($fn-1) > 0 && ($fn-1) % $repeatheadings == 0) { if ( ($anscount - $fn + 1) >= $minrepeatheadings ) { $answer .= "\t\t\n" . "\t\t\t\n"; foreach ($labelans as $ld) { $answer .= "\t\t\t\n"; } if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory and we can show "no answer" { $answer .= "\t\t\t\n\t\t\t\n"; } $answer .= "\t\t\n"; } } $myfname = $ia[1].$ansrow['code']; $trbc = alternation($trbc , 'row'); $answertext=answer_replace($ansrow['answer']); $answertextsave=$answertext; /* Check if this item has not been answered: the 'notanswered' variable must be an array, containing a list of unanswered questions, the current question must be in the array, and there must be no answer available for the item in this session. */ if (strpos($answertext,'|')) {$answerwidth=$answerwidth/2;} if ((is_array($notanswered)) && (array_search($ia[1], $notanswered) !== FALSE) && ($_SESSION[$myfname] == '') ) { $answertext = ''.$answertext.''; } $htmltbody2 = ''; if ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == false) { $htmltbody2 = "\t\t\n\t\t\t\n\t\t\t\n\t\t\t\n\t\t\t\n"; $thiskey=0; foreach ($labelcode as $ld) { $answer .= "\t\t\t\n"; // --> END NEW FEATURE - SAVE $thiskey++; } if (strpos($answertextsave,'|')) { $answertext=substr($answertextsave,strpos($answertextsave,'|')+1); $answer .= "\t\t\t\n"; } elseif ($right_exists) { $answer .= "\t\t\t\n"; } if ($ia[6] != 'Y' && $shownoanswer == 1) { $answer .= "\t\t\t\n"; // --> END NEW FEATURE - SAVE } $answer .= "\t\t\n"; $inputnames[]=$myfname; //IF a MULTIPLE of flexi-redisplay figure, repeat the headings $fn++; } $answer_cols = "\t\n" ."\t\n" ; $odd_even = ''; foreach ($labelans as $c) { $odd_even = alternation($odd_even); $answer_cols .= "\t\t\n"; } if ($right_exists) { $odd_even = alternation($odd_even); $answer_cols .= "\t\t\n"; } if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory { $odd_even = alternation($odd_even); $answer_cols .= "\t\t\n"; } $answer_cols .= "\t\n"; $answer = $answer_start . $answer_cols . $answer_head .$answer . "\t\n

	".$ld."		".$clang->gT('No answer')."
	".$ld."		".$clang->gT('No answer')."
\n\t\t\t\t\n"; } else if (($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'S') || ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == true)) { $selected = getArrayFiltersForQuestion($ia[0]); if (!in_array($ansrow['code'],$selected)) { $htmltbody2 = "\t\t
\n\t\t\t\t\n"; $_SESSION[$myfname] = ""; } else { $htmltbody2 = "\t\t
\n\t\t\t\t\n"; } } else { $htmltbody2 = "\t\t
\n\t\t\t\t\n"; } if (strpos($answertext,'|')) { $answertext=substr($answertext,0, strpos($answertext,'|')); } $answer .= $htmltbody2 . "\t\t\t\t$answertext\n" . "\t\t\t\t\n" . "\t\t\t	\n" . "\t\t\t\t\n" . "\t\t\t\t\t START NEW FEATURE - SAVE $answer .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n" . "\t\t\t\t\n" . "\t\t\t	$answertext		\n\t\t\t\t\n" ."\t\t\t\t\tgT('No answer').'"'; if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == '') { $answer .= CHECKED; } // --> START NEW FEATURE - SAVE $answer .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t\t\t\n\t\t\t

\n"; } else { $answer = "\n

".$clang->gT('Error: The labelset used for this question is not available in this language and/or does not exist.')."

\n"; $inputnames=''; } return array($answer, $inputnames); } // --------------------------------------------------------------- function do_array_multitext($ia) { global $dbprefix, $connect, $thissurvey, $clang; global $shownoanswer; global $repeatheadings; global $notanswered; global $minrepeatheadings; //echo "

"; print_r($_POST); echo "

"; $defaultvaluescript = ""; $qquery = "SELECT other, lid FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'"; $qresult = db_execute_assoc($qquery); while($qrow = $qresult->FetchRow()) {$other = $qrow['other']; $lid = $qrow['lid'];} $lquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, code"; $qidattributes=getQuestionAttributes($ia[0]); if (arraySearchByKey('numbers_only', $qidattributes, 'attribute', 1)) { $numbersonly = 'onkeypress="return goodchars(event,\'-0123456789.\')"'; $class_num_only = ' numbers-only'; } else { $numbersonly = ''; $class_num_only = ''; } if ($answerwidth=arraySearchByKey("answer_width", $qidattributes, "attribute", 1)) { $answerwidth=$answerwidth['value']; } else { $answerwidth=20; } if ($inputwidth=arraySearchByKey('text_input_width', $qidattributes, 'attribute', 1)) { $inputwidth = $inputwidth['value']; } else { $inputwidth = 20; } $columnswidth=100-($answerwidth*2); $lresult = db_execute_assoc($lquery); if ($lresult->RecordCount() > 0) { while ($lrow=$lresult->FetchRow()) { $labelans[]=$lrow['title']; $labelcode[]=$lrow['code']; } $numrows=count($labelans); if ($ia[6] != 'Y' && $shownoanswer == 1) {$numrows++;} $cellwidth=$columnswidth/$numrows; $cellwidth=sprintf('%02d', $cellwidth); $ansquery = "SELECT answer FROM {$dbprefix}answers WHERE qid=".$ia[0]." AND answer like '%|%'"; $ansresult = db_execute_assoc($ansquery); if ($ansresult->RecordCount()>0) { $right_exists=true; $answerwidth=$answerwidth/2; } else { $right_exists=false; } // $right_exists is a flag to find out if there are any right hand answer parts. If there arent we can leave out the right td column if (arraySearchByKey('random_order', $qidattributes, 'attribute', 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); $anscount = $ansresult->RecordCount(); $fn=1; $answer_cols = "\n\t\n" . "\t\n"; $answer_head = "\n\t\n" . "\t\t\n" . "\t\t\t \n"; $odd_even = ''; foreach ($labelans as $ld) { $answer_head .= "\t\t\t".$ld."\n"; $odd_even = alternation($odd_even); $answer_cols .= "\t\t\n"; } if ($right_exists) { $answer_head .= "\t\t\t \n";// class=\"answertextright\" $odd_even = alternation($odd_even); $answer_cols .= "\t\t\n"; } $answer_cols .= "\n\t\n"; $answer_head .= "\t\t\n" . "\t\n" . "\n\t\n"; $answer = "\n" . keycontroljs() . "\n\n" . $answer_cols . $answer_head; $trbc = ''; while ($ansrow = $ansresult->FetchRow()) { if (isset($repeatheadings) && $repeatheadings > 0 && ($fn-1) > 0 && ($fn-1) % $repeatheadings == 0) { if ( ($anscount - $fn + 1) >= $minrepeatheadings ) { $trbc = alternation($trbc , 'row'); $answer .= "\t\t\n" . "\t\t\t\n"; foreach ($labelans as $ld) { $answer .= "\t\t\t\n"; } } $myfname = $ia[1].$ansrow['code']; $answertext=answer_replace($ansrow['answer']); $answertextsave=$answertext; /* Check if this item has not been answered: the 'notanswered' variable must be an array, containing a list of unanswered questions, the current question must be in the array, and there must be no answer available for the item in this session. */ if ((is_array($notanswered)) && (array_search($ia[1], $notanswered) !== FALSE)) { //Go through each labelcode and check for a missing answer! If any are found, highlight this line $emptyresult=0; foreach($labelcode as $ld) { $myfname2=$myfname.'_'.$ld; if($_SESSION[$myfname2] == '') { $emptyresult=1; } } if ($emptyresult == 1) { $answertext = "{$answertext}"; } } $htmltbody2 = ''; if ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == false) { $htmltbody2 = "\n\t\n\t\t\n"; } else if (($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'S') || ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == true)) { $selected = getArrayFiltersForQuestion($ia[0]); if (!in_array($ansrow['code'],$selected)) { $htmltbody2 = "\n\t\n\t\t\n"; $_SESSION[$myfname] = ''; } else { $htmltbody2 = "\n\t\n"; } } if (strpos($answertext,'|')) {$answertext=substr($answertext,0, strpos($answertext,'|'));} $trbc = alternation($trbc , 'row'); $answer .= $htmltbody2."\t\t\n" . "\t\t\t\n"; $thiskey=0; foreach ($labelcode as $ld) { $myfname2=$myfname."_$ld"; $myfname2value = isset($_SESSION[$myfname2]) ? $_SESSION[$myfname2] : ""; $answer .= "\t\t\t\n"; $thiskey += 1; } if (strpos($answertextsave,'|')) { $answertext=substr($answertextsave,strpos($answertextsave,'|')+1); $answer .= "\t\t\t\n"; } elseif ($right_exists) { $answer .= "\t\t\t\n"; } $answer .= "\t\t\n"; //IF a MULTIPLE of flexi-redisplay figure, repeat the headings $fn++; } $answer .= "\t\n

	".$ld."\n"; } $answer .= "\t\t
\n" . "\t\t\t\t$answertext\n" . "\t\t\t\t\n\t\t\t	\n" . "\t\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t\t\n"; $inputnames[]=$myfname2; $answer .= "\t\t\t\t\n\t\t\t	$answertext

\n"; } else { $answer = "\n

".$clang->gT('Error: The labelset used for this question is not available in this language and/or does not exist.')."

"; $inputnames=''; } return array($answer, $inputnames); } // --------------------------------------------------------------- function do_array_multiflexi($ia) { global $dbprefix, $connect, $thissurvey, $clang; global $shownoanswer; global $repeatheadings; global $notanswered; global $minrepeatheadings; //echo '

'; print_r($_POST); echo '

'; $defaultvaluescript = ''; $qquery = "SELECT other, lid FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'"; $qresult = db_execute_assoc($qquery); while($qrow = $qresult->FetchRow()) {$other = $qrow['other']; $lid = $qrow['lid'];} $lquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, code"; $qidattributes=getQuestionAttributes($ia[0]); if ($maxvalue=arraySearchByKey('multiflexible_max', $qidattributes, 'attribute', 1)) { $maxvalue=$maxvalue['value']; } else { $maxvalue=10; } if ($minvalue=arraySearchByKey('multiflexible_min', $qidattributes, 'attribute', 1)) { $minvalue=$minvalue['value']; } else { if(isset($minvalue['value']) && $minvalue['value'] == 0) {$minvalue = 0;} else {$minvalue=1;} } if ($stepvalue=arraySearchByKey('multiflexible_step', $qidattributes, 'attribute', 1)) { $stepvalue=$stepvalue['value']; } else { $stepvalue=1; } $checkboxlayout=false; if (arraySearchByKey('multiflexible_checkbox', $qidattributes, 'attribute', 1)) { $minvalue=0; $maxvalue=1; $checkboxlayout=true; } if ($answerwidth=arraySearchByKey('answer_width', $qidattributes, 'attribute', 1)) { $answerwidth=$answerwidth['value']; } else { $answerwidth=20; } $columnswidth=100-($answerwidth*2); $lresult = db_execute_assoc($lquery); if ($lresult->RecordCount() > 0) { while ($lrow=$lresult->FetchRow()) { $labelans[]=$lrow['title']; $labelcode[]=$lrow['code']; } $numrows=count($labelans); if ($ia[6] != 'Y' && $shownoanswer == 1) {$numrows++;} $cellwidth=$columnswidth/$numrows; $cellwidth=sprintf('%02d', $cellwidth); $ansquery = "SELECT answer FROM {$dbprefix}answers WHERE qid=".$ia[0]." AND answer like '%|%'"; $ansresult = db_execute_assoc($ansquery); if ($ansresult->RecordCount()>0) {$right_exists=true;$answerwidth=$answerwidth/2;} else {$right_exists=false;} // $right_exists is a flag to find out if there are any right hand answer parts. If there arent we can leave out the right td column if (arraySearchByKey('random_order', $qidattributes, 'attribute', 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); $anscount = $ansresult->RecordCount(); $fn=1; $mycols = "\n\t\n" . "\t\n"; $myheader = "\n\t\n" . "\t\t\n" . "\t\t\t \n"; $odd_even = ''; foreach ($labelans as $ld) { $myheader .= "\t\t\t".$ld."\n"; $odd_even = alternation($odd_even); $mycols .= "\t\t\n"; } if ($right_exists) { $myheader .= "\t\t\t "; $odd_even = alternation($odd_even); $mycols .= "\t\t\n"; } $myheader .= "\t\t\n" . "\t\n"; $mycols .= "\t\n"; $trbc = ''; $answer = "\n\n" . $mycols . $myheader . "\n\t\n"; while ($ansrow = $ansresult->FetchRow()) { if (isset($repeatheadings) && $repeatheadings > 0 && ($fn-1) > 0 && ($fn-1) % $repeatheadings == 0) { if ( ($anscount - $fn + 1) >= $minrepeatheadings ) { $trbc = alternation($trbc , 'row'); $answer .= "\t\t\n" . "\t\t\t\n"; foreach ($labelans as $ld) { $answer .= "\t\t\t\n"; } $answer .= "\t\t\n"; } } $myfname = $ia[1].$ansrow['code']; $answertext=answer_replace($ansrow['answer']); $answertextsave=$answertext; /* Check if this item has not been answered: the 'notanswered' variable must be an array, containing a list of unanswered questions, the current question must be in the array, and there must be no answer available for the item in this session. */ if ((is_array($notanswered)) && (array_search($ia[1], $notanswered) !== FALSE)) { //Go through each labelcode and check for a missing answer! If any are found, highlight this line $emptyresult=0; foreach($labelcode as $ld) { $myfname2=$myfname.'_'.$ld; if($_SESSION[$myfname2] == "") { $emptyresult=1; } } if ($emptyresult == 1) { $answertext = ''.$answertext.''; } } $htmltbody2 = ''; $first_hidden_field = ''; if ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == false) { $htmltbody2 = "\n\t\n"; $first_hidden_field = '\n"; // $htmltbody2 .= "\t\t" . $first_hidden_field; // This is how it used to be. I have moved $first_hidden_field into the first cell of the table so it validates. // $first_hidden_field = ''; // These two lines have been commented because they replace badly validating code. } else if (($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'S') || ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == true)) { $selected = getArrayFiltersForQuestion($ia[0]); if (!in_array($ansrow['code'],$selected)) { $htmltbody2 = "\n\t\n"; $first_hidden_field = '\n"; // $htmltbody2 .= "\t\t" . $first_hidden_field; // This is how it used to be. I have moved $first_hidden_field into the first cell of the table so it validates. // $first_hidden_field = ''; // These two lines have been commented because they replace badly validating code. $_SESSION[$myfname] = ''; } else { $htmltbody2 = "\n\t\n"; $first_hidden_field = '\n"; // $htmltbody2 .= "\t\t" . $first_hidden_field; // This is how it used to be. I have moved $first_hidden_field into the first cell of the table so it validates. // $first_hidden_field = ''; // These two lines have been commented because they replace badly validating code. } } if (strpos($answertext,'|')) {$answertext=substr($answertext,0, strpos($answertext,'|'));} $trbc = alternation($trbc , 'row'); $answer .= $htmltbody2 . "\t\t\n" . "\t\t\t\n"; $first_hidden_field = ''; $thiskey=0; foreach ($labelcode as $ld) { if ($checkboxlayout == false) { $myfname2=$myfname."_$ld"; $answer .= "\t\t\t\n"; $thiskey++; } else { $myfname2=$myfname."_$ld"; if(isset($_SESSION[$myfname2]) && $_SESSION[$myfname2] == '1') { $myvalue = '1'; $setmyvalue = CHECKED; } else { $myvalue = '0'; $setmyvalue = ''; } $answer .= "\t\t\t\n"; $thiskey++; } } if (strpos($answertextsave,'|')) { $answertext=substr($answertextsave,strpos($answertextsave,'|')+1); $answer .= "\t\t\t\n"; } elseif ($right_exists) { $answer .= "\t\t\t\n"; } $answer .= "\t\t\n"; //IF a MULTIPLE of flexi-redisplay figure, repeat the headings $fn++; } $answer .= "\t\n

	".$ld."
\n" . "\t\t\t\t$answertext\n" . "\t\t\t\t" . $first_hidden_field . "\t\t\t\t\n\t\t\t	\n" . "\t\t\t\t\n" . "\t\t\t\t\t\n" . "\t\t\t\t\t\n" . "\t\t\t\t\t\t...\n"; for($ii=$minvalue; $ii<=$maxvalue; $ii+=$stepvalue) { $answer .= "\t\t\t\t\t\t\n" . "\t\t\t	\n" // . "\t\t\t\t\n" . "\t\t\t\t\t\n" . "\t\t\t\t\t\n"; $answer .= "\t\t\t\t\t\n"; $inputnames[]=$myfname2; // $answer .= "\t\t\t\t\n" $answer .= "" . "\t\t\t	$answertext

\n"; } else { $answer = "\n

".$clang->gT('Error: The labelset used for this question is not available in this language and/or does not exist.')."

\n"; $inputnames = ''; } return array($answer, $inputnames); } // --------------------------------------------------------------- function do_array_flexiblecolumns($ia) { global $dbprefix; global $shownoanswer; global $notanswered, $clang; $qidattributes=getQuestionAttributes($ia[0]); $qquery = "SELECT other, lid FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'"; $qresult = db_execute_assoc($qquery); //Checked while($qrow = $qresult->FetchRow()) {$other = $qrow['other']; $lid = $qrow['lid'];} $lquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, code"; $lresult = db_execute_assoc($lquery); //Checked if ($lresult->RecordCount() > 0) { while ($lrow=$lresult->FetchRow()) { $labelans[]=$lrow['title']; $labelcode[]=$lrow['code']; $labels[]=array("answer"=>$lrow['title'], "code"=>$lrow['code']); } if ($ia[6] != 'Y' && $shownoanswer == 1) { $labelcode[]=''; $labelans[]=$clang->gT('No answer'); $labels[]=array('answer'=>$clang->gT('No answer'), 'code'=>''); } if (arraySearchByKey('random_order', $qidattributes, 'attribute', 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount(); if ($anscount>0) { $fn=1; $cellwidth=$anscount; $cellwidth=round(( 50 / $cellwidth ) , 1); $answer = "\n\n\n" . "\t\n" . "\t\n"; $odd_even = ''; for( $c = 0 ; $c < $anscount ; ++$c ) { $odd_even = alternation($odd_even); $answer .= "\t\t\n"; } $answer .= "\t\n\n" . "\t\n" . "\t\t\n" . "\t\t\t\n"; while ($ansrow = $ansresult->FetchRow()) { $anscode[]=$ansrow['code']; $answers[]=answer_replace($ansrow['answer']); } $trbc = ''; $odd_even = ''; foreach ($answers as $ld) { $myfname = $ia[1].$ansrow['code']; $trbc = alternation($trbc , 'row'); /* Check if this item has not been answered: the 'notanswered' variable must be an array, containing a list of unanswered questions, the current question must be in the array, and there must be no answer available for the item in this session. */ if ((is_array($notanswered)) && (array_search($ia[1], $notanswered) !== FALSE) && ($_SESSION[$myfname] == "") ) { $ld = "{$ld}"; } $odd_even = alternation($odd_even); $answer .= "\t\t\t\n"; } unset($trbc); $answer .= "\t\t\n\t\n\n\t\n"; $ansrowcount=0; $ansrowtotallength=0; while ($ansrow = $ansresult->FetchRow()) { $ansrowcount++; $ansrowtotallength=$ansrowtotallength+strlen($ansrow['answer']); } $percwidth=100 - ($cellwidth*$anscount); foreach($labels as $ansrow) { $answer .= "\t\t\n" . "\t\t\t\n"; foreach ($anscode as $ld) { //if (!isset($trbc) || $trbc == 'array1') {$trbc = 'array2';} else {$trbc = 'array1';} $myfname=$ia[1].$ld; $answer .= "\t\t\t\n"; } unset($trbc); $answer .= "\t\t\n"; $fn++; } $answer .= "\t\n

	$ld
{$ansrow['answer']}	\n" . "\t\t\t\t\n" . "\t\t\t\t\t\n\t\t\t\t\n\t\t\t

\n"; foreach($anscode as $ld) { $myfname=$ia[1].$ld; $answer .= '\n"; $inputnames[]=$myfname; } } else { $answer = '

'.$clang->gT('Error: There are no answers defined for this question.')."

"; $inputnames=""; } } else { $answer = '

'.$clang->gT('Error: The labelset used for this question is not available in this language and/or does not exist.')."

"; $inputnames = ''; } return array($answer, $inputnames); } // --------------------------------------------------------------- function do_array_flexible_dual($ia) { global $dbprefix, $connect, $thissurvey, $clang; global $shownoanswer; global $repeatheadings; global $notanswered; global $minrepeatheadings; $inputnames=array(); $qquery = "SELECT other, lid, lid1 FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'"; $qresult = db_execute_assoc($qquery); //Checked while($qrow = $qresult->FetchRow()) {$other = $qrow['other']; $lid = $qrow['lid']; $lid1 = $qrow['lid1'];} $lquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, code"; $lquery1 = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid1 AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, code"; $qidattributes=getQuestionAttributes($ia[0]); if ($useDropdownLayout=arraySearchByKey('use_dropdown', $qidattributes, 'attribute', 1)) { $useDropdownLayout = true; } else { $useDropdownLayout = false; } if ($dsheaderA=arraySearchByKey('dualscale_headerA', $qidattributes, 'attribute', 1)) { $leftheader= $dsheaderA['value']; } else { $leftheader =''; } if ($dsheaderB=arraySearchByKey('dualscale_headerB', $qidattributes, 'attribute', 1)) { $rightheader= $dsheaderB['value']; } else { $rightheader =''; } $lresult = db_execute_assoc($lquery); //Checked if ($useDropdownLayout === false && $lresult->RecordCount() > 0) { if ($answerwidth=arraySearchByKey('answer_width', $qidattributes, 'attribute', 1)) { $answerwidth=$answerwidth['value']; } else { $answerwidth=20; } $columnswidth = 100 - $answerwidth; while ($lrow=$lresult->FetchRow()) { $labelans[]=$lrow['title']; $labelcode[]=$lrow['code']; } $lresult1 = db_execute_assoc($lquery1); //Checked if ($lresult1->RecordCount() > 0) { while ($lrow1=$lresult1->FetchRow()) { $labelans1[]=$lrow1['title']; $labelcode1[]=$lrow1['code']; } } $numrows=count($labelans) + count($labelans1); if ($ia[6] != "Y" && $shownoanswer == 1) {$numrows++;} $cellwidth=$columnswidth/$numrows; $cellwidth=sprintf("%02d", $cellwidth); $ansquery = "SELECT answer FROM {$dbprefix}answers WHERE qid=".$ia[0]." AND answer like '%|%'"; $ansresult = db_execute_assoc($ansquery); //Checked if ($ansresult->RecordCount()>0) { $right_exists=true; } else { $right_exists=false; } // $right_exists is a flag to find out if there are any right hand answer parts. If there arent we can leave out the right td column if (arraySearchByKey('random_order', $qidattributes, 'attribute', 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount(); $fn=1; // unselect second scale when using "no answer" $answer = "\n"; $mycolumns = "\t\n" . "\t\n"; $myheader2 = "\n\t\t\n" . "\t\t\t \n\n"; $odd_even = ''; foreach ($labelans as $ld) { $myheader2 .= "\t\t\t".$ld."\n"; $odd_even = alternation($odd_even); $mycolumns .= "\t\t\n"; } $mycolumns .= "\t\n"; if (count($labelans1)>0) // if second label set is used { $mycolumns .= "\t\n" . "\t\n"; $myheader2 .= "\n\t\t\t \n\n"; foreach ($labelans1 as $ld) { $myheader2 .= "\t\t\t".$ld."\n"; $odd_even = alternation($odd_even); $mycolumns .= "\t\t\n"; } $mycolumns .= "\t\n"; } $myheader2 .= "\t\t\t \n"; if ($right_exists) { $mycolumns .= "\n\t\n\n"; } else { $mycolumns .= "\n\t\n\n"; } if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory and we can show "no answer" { $myheader2 .= "\t\t\t".$clang->gT('No answer')."\n"; $odd_even = alternation($odd_even); $mycolumns .= "\t\n"; } $myheader2 .= "\t\t\n"; // build first row of header if needed if ($leftheader != '' || $rightheader !='') { $myheader1 = "\t\t\n" . "\t\t\t \n" . "\t\t\t$leftheader\n"; if (count($labelans1)>0) { $myheader1 .= "\t\t\t \n" ."\t\t\t$rightheader\n"; } $myheader1 .= "\t\t\t \n"; if ($ia[6] != 'Y' && $shownoanswer == 1) { $myheader1 .= "\t\t\t \n"; } $myheader1 .= "\t\t\n"; } else { $myheader1 = ''; } $answer .= "\n\n" . $mycolumns . "\n\t\n" . $myheader1 . $myheader2 . "\n\t\n" . "\n\t\n"; $trbc = ''; while ($ansrow = $ansresult->FetchRow()) { if (isset($repeatheadings) && $repeatheadings > 0 && ($fn-1) > 0 && ($fn-1) % $repeatheadings == 0) { if ( ($anscount - $fn + 1) >= $minrepeatheadings ) { $answer .= "\t\t\t\t\n" . "\t\t\t\n"; foreach ($labelans as $ld) { $answer .= "\t\t\t\n"; // separator foreach ($labelans1 as $ld) { $answer .= "\t\t\t\n"; } } if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory and we can show "no answer" { $answer .= "\t\t\t\n"; // separator $answer .= "\t\t\t\n"; } $answer .= "\t\t\n"; } } $trbc = alternation($trbc , 'row'); $answertext=answer_replace($ansrow['answer']); $answertextsave=$answertext; $dualgroup=0; $myfname = $ia[1].$ansrow['code'].'#0'; $myfname1 = $ia[1].$ansrow['code'].'#1'; // new multi-scale-answer /* Check if this item has not been answered: the 'notanswered' variable must be an array, containing a list of unanswered questions, the current question must be in the array, and there must be no answer available for the item in this session. */ if ((is_array($notanswered)) && (array_search($ia[1], $notanswered) !== FALSE) && (($_SESSION[$myfname] == '') || ($_SESSION[$myfname1] == '')) ) { $answertext = "{$answertext}"; } $htmltbody2 = ''; $hiddenanswers=''; if ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == false) { $htmltbody2 = "\n\t\n"; $hiddenanswers .="\t\t\n"; } else if (($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'S') || ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == true)) { $selected = getArrayFiltersForQuestion($ia[0]); if (!in_array($ansrow['code'],$selected)) { $htmltbody2 = "\t"; $hiddenanswers .=""; $_SESSION[$myfname] = ""; } else { $htmltbody2 = "\t"; $hiddenanswers .=""; } } if (strpos($answertext,'|')) {$answertext=substr($answertext,0, strpos($answertext,'|'));} array_push($inputnames,$myfname); $answer .= $htmltbody2 . "\t\t\n" . "\t\t\t\n"; $hiddenanswers=''; $thiskey=0; foreach ($labelcode as $ld) { $answer .= "\t\t\t\n"; $thiskey++; } if (count($labelans1)>0) // if second label set is used { $dualgroup++; $hiddenanswers=''; $answer .= "\t\t\t\n"; // separator array_push($inputnames,$myfname1); $hiddenanswers .= "\t\t\t\t\n"; $thiskey=0; foreach ($labelcode1 as $ld) // second label set { $answer .= "\t\t\t\n"; $thiskey++; } } if (strpos($answertextsave,'|')) { $answertext=substr($answertextsave,strpos($answertextsave,'|')+1); $answer .= "\t\t\t\n"; $hiddenanswers = ''; } elseif ($right_exists) { $answer .= "\t\t\t\n"; } else { $answer .= "\t\t\t\n"; // separator } if ($ia[6] != "Y" && $shownoanswer == 1) { $answer .= "\t\t\t\n"; // --> END NEW FEATURE - SAVE } $answer .= "\t\t\n"; // $inputnames[]=$myfname; //IF a MULTIPLE of flexi-redisplay figure, repeat the headings $fn++; } $answer .= "\t\n

	".$ld."\n"; } if (count($labelans1)>0) // if second label set is used { $answer .= "		".$ld."		".$clang->gT('No answer')."
\n\t\t\t\t$answertext\n" . "\t\t\t\t\n\t\t\t\t$hiddenanswers\n\t\t\t	\n" . "\t\t\t\t\n" . "\t\t\t\t\t START NEW FEATURE - SAVE $answer .= " onclick=\"checkconditions(this.value, this.name, this.type)\" />\n\t\t\t\t\n"; // --> END NEW FEATURE - SAVE $answer .= "\n\t\t\t		\n"; if ($hiddenanswers!='') { $answer .=$hiddenanswers; $hiddenanswers=''; } $answer .= "\t\t\t\t\n" . "\t\t\t\t\t START NEW FEATURE - SAVE $answer .= " onclick=\"secondlabel_checkconditions(this.value, this.name, this.type)\" />\n\t\t\t\t\n"; // --> END NEW FEATURE - SAVE $answer .= "\t\t\t	$answertext			\n" . "\t\t\t\t\n" . "\t\t\t\t\t START NEW FEATURE - SAVE $answer .= " onclick=\"noanswer_checkconditions(this.value, this.name, this.type)\" />\n" . "\t\t\t\t\n" . "\t\t\t

\n"; } elseif ($useDropdownLayout === true && $lresult->RecordCount() > 0) { if ($answerwidth=arraySearchByKey('answer_width', $qidattributes, 'attribute', 1)) { $answerwidth=$answerwidth['value']; } else { $answerwidth=20; } $separatorwidth=(100-$answerwidth)/10; $columnswidth=100-$answerwidth-($separatorwidth*2); $answer = "\n"; // Get Answers //question atribute random_order set? if (arraySearchByKey('random_order', $qidattributes, 'attribute', 1)) { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random(); } //no question attributes -> order by sortorder else { $ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer"; } $ansresult = db_execute_assoc($ansquery); //Checked $anscount = $ansresult->RecordCount(); if ($anscount==0) { $inputnames = array(); $answer .="\n

".$clang->gT('Error: This question has no answers.')."

\n"; } else { //already done $lresult = db_execute_assoc($lquery); while ($lrow=$lresult->FetchRow()) { $labels0[]=Array('code' => $lrow['code'], 'title' => $lrow['title']); } $lresult1 = db_execute_assoc($lquery1); //Checked while ($lrow1=$lresult1->FetchRow()) { $labels1[]=Array('code' => $lrow1['code'], 'title' => $lrow1['title']); } // Get attributes for Headers and Prefix/Suffix if ($ddprepostfix=arraySearchByKey("dropdown_prepostfix", $qidattributes, "attribute", 1)) { list ($ddprefix, $ddsuffix) =explode("|",$ddprepostfix['value']); $ddprefix = $ddprefix; $ddsuffix = $ddsuffix; } else { $ddprefix =''; $ddsuffix=''; } if ($ddseparators=arraySearchByKey('dropdown_separators', $qidattributes, 'attribute', 1)) { list ($postanswSep, $interddSep) =explode('|',$ddseparators['value']); $postanswSep = $postanswSep; $interddSep = $interddSep; } else { $postanswSep = ''; $interddSep = ''; } $colspan_1 = ''; $colspan_2 = ''; $suffix_cell = ''; $answer .= "\n\n\n" . "\t\n"; if($ddprefix != '') { $answer .= "\t\n"; $colspan_1 = ' colspan="2"'; } $answer .= "\t\n"; if($ddsuffix != '') { $answer .= "\t\n"; if(!empty($colspan_1)) { $colspan_2 = ' colspan="3"'; } $suffix_cell = "\t\t\t\n"; // suffix } $answer .= "\t\n"; if($ddprefix != '') { $answer .= "\t\n"; } $answer .= "\t\n"; if($ddsuffix != '') { $answer .= "\t\n"; }; // headers $answer .= "\n\t\n" . "\t\t\n" . "\t\t\t \n" // prefix . "\n" // . "\t\t\t\n" . "\t\t\t\n" . "\n" . "\t\t\t \n" // suffix // Inter DD separator // prefix // . "\t\t\t\n" . "\t\t\t\n" . $suffix_cell."\t\t\n" . "\t\n\n" . "\t\n"; $trbc = ''; while ($ansrow = $ansresult->FetchRow()) { $rowname = $ia[1].$ansrow['code']; $dualgroup=0; $myfname = $ia[1].$ansrow['code']."#".$dualgroup; $dualgroup1=1; $myfname1 = $ia[1].$ansrow['code']."#".$dualgroup1; if ((is_array($notanswered)) && (array_search($ia[1], $notanswered) !== FALSE) && ($_SESSION[$myfname] == "" || $_SESSION[$myfname1] == "") ) { $answertext="".answer_replace($ansrow['answer']).""; } else { $answertext=answer_replace($ansrow['answer']); } $trbc = alternation($trbc , 'row'); $htmltbody2 = ''; if (($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == false) || ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'A')) { $htmltbody2 = "\n\t\n"; $hiddenanswers = "\t\t\n\t\t\n"; } else if (($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'S') || ($htmltbody=arraySearchByKey('array_filter', $qidattributes, 'attribute', 1) && $thissurvey['format'] == 'G' && getArrayFiltersOutGroup($ia[0]) == true)) { $selected = getArrayFiltersForQuestion($ia[0]); if (!in_array($ansrow['code'],$selected)) { $htmltbody2 = "\n\t\n"; $hiddenanswers="\t\t\n\t\t\n"; $_SESSION[$myfname] = ''; } else { $htmltbody2 = "\n\t"; $hiddenanswers="\n\t\t\n\t\t"; } } else { // $htmltbody2 = "\n\t\n"; $hiddenanswers=""; } $answer .= $htmltbody2."\t\t\n" . "\t\t\t\n"; // Label0 // prefix if($ddprefix != '') { $answer .= "\t\t\t\n"; } $answer .= "\t\t\t\n"; } $answer .= "\t\t\t\t\n" . "\t\t\t\n"; $inputnames[]=$myfname; $answer .= "\t\t\t\n"; //Separator // Label1 // prefix if($ddprefix != '') { $answer .= "\t\t\t\n"; } // $answer .= "\t\t\t\n"; } $answer .= "\t\t\t\t\n" . "\t\t\t\n"; $inputnames[]=$myfname1; $answer .= "\t\t\n"; } } // End there are answers $answer .= "\t\n

$leftheader	$leftheader	$rightheader	$rightheader
\n" . "\t\t\t\t$answertext\n" . "\t\t\t	$ddprefix	\n" . "\t\t\t\t\n"; if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] =='') { $answer .= "\t\t\t\t\t'.$clang->gT('Please choose')."...\n"; } foreach ($labels0 as $lrow) { $answer .= "\t\t\t\t\t\n"; } // If not mandatory and showanswer, show no ans if ($ia[6] != 'Y' && $shownoanswer == 1) { $answer .= "\t\t\t\t\tgT('No answer')."\n"; } $answer .= "\t\t\t\t\n"; // suffix if($ddsuffix != '') { $answer .= "\t\t\t	$ddsuffix	$interddSep	$ddprefix	\n" $answer .= "\t\t\t	\n" . "\t\t\t\t\n"; if (!isset($_SESSION[$myfname1]) || $_SESSION[$myfname1] =='') { $answer .= "\t\t\t\t\t'.$clang->gT('Please choose')."...\n"; } foreach ($labels1 as $lrow1) { $answer .= "\t\t\t\t\t\n"; } // If not mandatory and showanswer, show no ans if ($ia[6] != 'Y' && $shownoanswer == 1) { $answer .= "\t\t\t\t\tgT('No answer')."\n"; } $answer .= "\t\t\t\t\n"; // suffix if($ddsuffix != '') { $answer .= "\t\t\t	$ddsuffix

\n\n$hiddenanswers\n"; $hiddenanswers=''; } else { $answer = ''.$clang->gT('Error: The labelset used for this question is not available in this language and/or does not exist.').""; $inputnames=""; } return array($answer, $inputnames); } // --------------------------------------------------------------- function answer_replace($text) { while (strpos($text, "{INSERTANS:") !== false) { $replace=substr($text, strpos($text, "{INSERTANS:"), strpos($text, "}", strpos($text, "{INSERTANS:"))-strpos($text, "{INSERTANS:")+1); $replace2=substr($replace, 11, strpos($replace, "}", strpos($replace, "{INSERTANS:"))-11); $replace3=retrieve_Answer($replace2); $text=str_replace($replace, $replace3, $text); } //while return $text; } // --------------------------------------------------------------- function labelset_exists($labelid,$language) { $qulabel = "SELECT * FROM ".db_table_name('labels')." WHERE lid=$labelid AND language='$language'"; $tablabel = db_execute_assoc($qulabel) or safe_die("Couldn't check for labelset
$ansquery
".$connect->ErrorMsg()); //Checked if ($tablabel->RecordCount()>0) {return true;} else {return false;} } ?>