<?php
/*
* LimeSurvey
* Copyright (C) 2007 The LimeSurvey Project Team / Carsten Schmitz
* All rights reserved.
* License: GNU/GPL License v2 or later, see LICENSE.php
* LimeSurvey is free software. This version may have been modified pursuant
* to the GNU General Public License, and as distributed it includes or
* is derivative of works licensed under the GNU General Public License or
* other free or open source software licenses.
* See COPYRIGHT.php for copyright notices and details.
*
* $Id: qanda.php 8505 2010-03-20 21:51:17Z harsha_mora $
*/
// Security Checked: POST, GET, SESSION, REQUEST, returnglobal, DB
if (!isset($homedir) || isset($_REQUEST['$homedir'])) {die("Cannot run this script directly");}
/*
* Let's explain what this strange $ia var means
*
* The $ia string comes from the $_SESSION['insertarray'] variable which is built at the commencement of the survey.
* See index.php, function "buildsurveysession()"
* One $ia array exists for every question in the survey. The $_SESSION['insertarray']
* string is an array of $ia arrays.
*
* $ia[0] => question id
* $ia[1] => fieldname
* $ia[2] => title
* $ia[3] => question text
* $ia[4] => type -- text, radio, select, array, etc
* $ia[5] => group id
* $ia[6] => mandatory Y || N
* $ia[7] => conditions exist for this question
* $ia[8] => other questions have conditions which rely on this question (including array_filter and array_filter_exclude attributes)
*
* $conditions element structure
* $condition[n][0] => qid = question id
* $condition[n][1] => cqid = question id of the target question, or 0 for TokenAttr leftOperand
* $condition[n][2] => field name of element [1] (Except for type M or P)
* $condition[n][3] => value to be evaluated on answers labeled.
* $condition[n][4] => type of question
* $condition[n][5] => SGQ code of element [1] (sub-part of [2])
* $condition[n][6] => method used to evaluate
* $condition[n][7] => scenario *NEW BY R.L.J. van den Burg*
*/
function retrieveConditionInfo($ia)
{
//This function returns an array containing all related conditions
//for a question - the array contains the fields from the conditions table
global $dbprefix, $connect;
if ($ia[7] == "Y")
{ //DEVELOP CONDITIONS ARRAY FOR THIS QUESTION
$cquery = "SELECT {$dbprefix}conditions.qid, "
."{$dbprefix}conditions.scenario, "
."{$dbprefix}conditions.cqid, "
."{$dbprefix}conditions.cfieldname, "
."{$dbprefix}conditions.value, "
."{$dbprefix}questions.type, "
."{$dbprefix}questions.sid, "
."{$dbprefix}questions.gid, "
."{$dbprefix}conditions.method, "
."questionssrc.gid as srcgid "
."FROM {$dbprefix}conditions, "
."{$dbprefix}questions ,"
."{$dbprefix}questions as questionssrc "
."WHERE {$dbprefix}conditions.cqid={$dbprefix}questions.qid "
."AND {$dbprefix}conditions.qid=questionssrc.qid "
."AND {$dbprefix}conditions.qid=$ia[0] "
."AND {$dbprefix}questions.language='".$_SESSION['s_lang']."' "
."AND {$dbprefix}conditions.cfieldname NOT LIKE '{%' "
."ORDER BY {$dbprefix}conditions.scenario, "
."{$dbprefix}conditions.cqid, "
."{$dbprefix}conditions.cfieldname";
$cresult = db_execute_assoc($cquery) or safe_die ("OOPS<br />$cquery<br />".$connect->ErrorMsg()); //Checked
$cquerytoken = "SELECT {$dbprefix}conditions.qid, "
."{$dbprefix}conditions.scenario, "
."{$dbprefix}conditions.cqid, "
."{$dbprefix}conditions.cfieldname, "
."{$dbprefix}conditions.value, "
."'' as type, "
."0 as sid, "
."0 as gid, "
."{$dbprefix}conditions.method,"
."questionssrc.gid as srcgid "
."FROM {$dbprefix}conditions, {$dbprefix}questions as questionssrc "
."WHERE {$dbprefix}conditions.qid=questionssrc.qid "
."AND {$dbprefix}conditions.qid=$ia[0] "
."AND {$dbprefix}conditions.cfieldname LIKE '{%' "
."ORDER BY {$dbprefix}conditions.scenario, "
."{$dbprefix}conditions.cqid, "
."{$dbprefix}conditions.cfieldname";
$cresulttoken = db_execute_assoc($cquerytoken) or safe_die ("OOPS<br />$cquerytoken<br />".$connect->ErrorMsg()); //Checked
while ($tempcrow = $cresulttoken->FetchRow())
{
$aAllConditions[] = $tempcrow;
}
while ($tempcrow = $cresult->FetchRow())
{
$aAllConditions[] = $tempcrow;
}
// while ($crow = $cresult->FetchRow())
foreach ($aAllConditions as $crow)
{
if (preg_match("/^\+(.*)$/",$crow['cfieldname'],$cfieldnamematch))
{ // this condition uses a single checkbox as source
$crow['type'] = "+".$crow['type'];
$crow['cfieldname'] = $cfieldnamematch[1];
}
$conditions[] = array ($crow['qid'],
$crow['cqid'],
$crow['cfieldname'],
$crow['value'],
$crow['type'],
$crow['sid']."X".$crow['gid']."X".$crow['cqid'],
$crow['method'],
$crow['scenario'],
$crow['srcgid']);
}
return $conditions;
}
else
{
return null;
}
}
// returns the Javascript IdName of a question used in conditions
// $cd = Array (
// 0 => Unused
// 1 => qid of the question
// 2 => fieldname of the question
// 3 => value used in comparison (only usd for type M and P egals 'Y', optionnal for other types)
// 4 => type of the question
// 5 => SGQ code corresponding to the fieldname
// if $currentgid is not null (Group by group survey), the fieldname depends on the groupId
function retrieveJSidname($cd,$currentgid=null)
{
global $dbprefix, $connect, $dropdownthreshold;
preg_match("/^[0-9]+X([0-9]+)X([0-9]+)$/",$cd[5],$matchGID);
$questiongid=$matchGID[1];
if ($cd[4] == "L")
{
$cccquery="SELECT code FROM {$dbprefix}answers WHERE qid={$cd[1]} AND language='".$_SESSION['s_lang']."'";
$cccresult=$connect->Execute($cccquery); // Checked
$cccount=$cccresult->RecordCount();
}
if ($cd[4] == "R")
{
if (!isset($currentgid) || $questiongid == $currentgid)
{ // if question is on same page then field is fvalue_XXXX
$idname="fvalue_".$cd[1].substr($cd[2], strlen($cd[2])-1,1);
}
else
{ // If question is on another page then field if javaXXXX
$idname="java$cd[2]";
}
}
elseif ($cd[4] == "5" ||
$cd[4] == "A" ||
$cd[4] == "B" ||
$cd[4] == "C" ||
$cd[4] == "E" ||
$cd[4] == "F" ||
$cd[4] == "H" ||
$cd[4] == "G" ||
$cd[4] == "Y" ||
$cd[4] == "1" ||
($cd[4] == "L" && $cccount <= $dropdownthreshold))
{
$idname="java$cd[2]";
}
elseif ($cd[4] == "M" ||
$cd[4] == "P")
{
$idname="java$cd[5]$cd[3]";
}
elseif ($cd[4] == "+M" ||
$cd[4] == "+P")
{
$idname="java$cd[2]";
}
elseif ($cd[4] == "D" ||
$cd[4] == "N" ||
$cd[4] == "S" ||
$cd[4] == "T" ||
$cd[4] == "U" ||
$cd[4] == "Q" ||
$cd[4] == "K" )
{
if (!isset($currentgid) || $questiongid == $currentgid)
{ // if question is on same page then field is answerXXXX
$idname="answer$cd[2]";
}
else
{ // If question is on another page then field if javaXXXX
$idname="java$cd[2]";
}
}
else
{
$idname="java".$cd[2];
}
return $idname;
}
function create_mandatorylist($ia)
{
//Checks current question and returns required mandatory arrays if required
if ($ia[6] == 'Y')
{
switch($ia[4])
{
case 'R':
$thismandatory = setman_ranking($ia);
break;
case 'M':
$thismandatory = setman_questionandcode($ia);
break;
case 'J':
case 'P':
case 'Q':
case 'K':
case 'A':
case 'B':
case 'C':
case 'E':
case 'F':
case 'H':
$thismandatory = setman_questionandcode($ia);
break;
case ':':
case ';':
$thismandatory = setman_multiflex($ia);
break;
case '1':
$thismandatory = setman_questionandcode_multiscale($ia);
break;
case 'X':
//Do nothing - boilerplate questions CANNOT be mandatory
break;
default:
$thismandatory = setman_normal($ia);
}
if ($ia[7] != 'Y' && isset($thismandatory)) //Question is not conditional - addto mandatory arrays
{
$mandatory=$thismandatory;
}
if ($ia[7] == 'Y' && isset($thismandatory)) //Question IS conditional - add to conmandatory arrays
{
$conmandatory=$thismandatory;
}
}
if (isset($mandatory))
{
return array($mandatory, null);
}
elseif (isset($conmandatory))
{
return array(null, $conmandatory);
}
else
{
return array(null, null);
}
}
function setman_normal($ia)
{
$mandatorys[]=$ia[1];
$mandatoryfns[]=$ia[1];
return array($mandatorys, $mandatoryfns);
}
function setman_ranking($ia)
{
global $dbprefix, $connect;
$ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid={$ia[0]} AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer";
$ansresult = $connect->Execute($ansquery); //Checked
$anscount = $ansresult->RecordCount();
$qidattributes=getQuestionAttributes($ia[0]);
if (trim($qidattributes['max_answers'])!='') {
$max_answers = $qidattributes['max_answers'];
}
else
{
$max_answers = $anscount;
}
for ($i=1; $i<=$max_answers; $i++)
{
$mandatorys[]=$ia[1].$i;
$mandatoryfns[]=$ia[1];
}
return array($mandatorys, $mandatoryfns);
}
function setman_questionandcode($ia)
{
global $dbprefix, $connect;
$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'];}
$ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid={$ia[0]} AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer";
$ansresult = db_execute_assoc($ansquery); //Checked
while ($ansrow = $ansresult->FetchRow())
{
$mandatorys[]=$ia[1].$ansrow['code'];
$mandatoryfns[]=$ia[1];
}
if ($other == "Y" and ($ia[4]=="!" or $ia[4]=="L" or $ia[4]=="M" or $ia[4]=="P"))
{
$mandatorys[]=$ia[1]."other";
$mandatoryfns[]=$ia[1];
}
return array($mandatorys, $mandatoryfns);
}
function setman_multiflex($ia)
{
//The point of these functions (setman) is to return an array containing two arrays.
// The first ($mandatorys) is an array containing question, so they can all be checked
// The second ($mandatoryfns) is an arry containing the fieldnames of every question
// What's the difference? The difference arises from multiple option questions, and came
// about when trying to distinguish between answering just one option (which satisfies
// the mandatory requirement, and answering them all). The "mandatorys" input contains the
// actual specific response items that could be filled in.. ie: in a multiple option
// question, there will be a unique one for every possible answer. The "mandatoryfns" array
// contains the generic question fieldname for the question as a whole (it will be repeated
// for multiple option qeustions, but won't contain unique items.
global $dbprefix, $connect;
$qq="SELECT lid FROM {$dbprefix}questions WHERE qid={$ia[0]}";
$qr=db_execute_assoc($qq);
while($qd=$qr->FetchRow())
{
$lid=$qd['lid'];
}
$ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid={$ia[0]} AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer";
$ansresult = db_execute_assoc($ansquery);
$ans2query = "SELECT * FROM {$dbprefix}labels WHERE lid={$lid} AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, title";
$ans2result = db_execute_assoc($ans2query);
while ($ans2row=$ans2result->FetchRow())
{
$lset[]=$ans2row;
}
$qidattributes=getQuestionAttributes($ia[0]);
while ($ansrow = $ansresult->FetchRow())
{
//Don't add to mandatory list if the row is filtered out with the array_filter option
if (trim($qidattributes['array_filter'])!='')
{
//This particular one may not be mandatory if it's hidden
$selected = getArrayFiltersForQuestion($ia[0]);
if (!in_array($ansrow['code'],$selected))
{
//This one's hidden, so don't add it to the mandatory list
}
else
{
//This one's not hidden. so add it to the mandatory list
foreach($lset as $ls)
{
$mandatorys[]=$ia[1].$ansrow['code']."_".$ls['code'];
$mandatoryfns[]=$ia[1];
}
}
} else { //There is no array_filter option, so we should definitely add to the mandatory list here!
foreach($lset as $ls)
{
$mandatorys[]=$ia[1].$ansrow['code']."_".$ls['code'];
$mandatoryfns[]=$ia[1];
}
}
}
return array($mandatorys, $mandatoryfns);
}
function setman_questionandcode_multiscale($ia)
{
global $dbprefix, $connect;
$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'];}
$ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid={$ia[0]} AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer";
$ansresult = db_execute_assoc($ansquery); //Checked
$lquery = "SELECT q.qid FROM {$dbprefix}labels l, {$dbprefix}questions q WHERE l.lid = q.lid AND q.qid=".$ia[0]." AND l.language='".$_SESSION['s_lang']."' AND q.language='".$_SESSION['s_lang']."'";
$labelsresult = db_execute_assoc($lquery); //Checked
$labelscount = $labelsresult->RowCount();
$lquery1 = "SELECT q.qid FROM {$dbprefix}labels l, {$dbprefix}questions q WHERE l.lid = q.lid1 AND q.qid=".$ia[0]." AND l.language='".$_SESSION['s_lang']."' AND q.language='".$_SESSION['s_lang']."'";
$labelsresult1 = db_execute_assoc($lquery1); //Checked
$labelscount1 = $labelsresult1->RowCount();
while ($ansrow = $ansresult->FetchRow())
{
if ($labelscount > 0)
{
$mandatorys[]=$ia[1].$ansrow['code']."#0";
$mandatoryfns[]=$ia[1];
}
else
{
$mandatorys[]=$ia[1].$ansrow['code'];
$mandatoryfns[]=$ia[1];
}
// second label set
if ($labelscount1 > 0)
{
$mandatorys[]=$ia[1].$ansrow['code']."#1";
$mandatoryfns[]=$ia[1];
}
else
{
$mandatorys[]=$ia[1].$ansrow['code'];
$mandatoryfns[]=$ia[1];
}
}
if ($other == "Y" and ($ia[4]=="!" or $ia[4]=="L" or $ia[4]=="M" or $ia[4]=="P" or $ia[4]=="1"))
{
$mandatorys[]=$ia[1]."other";
$mandatoryfns[]=$ia[1];
}
return array($mandatorys, $mandatoryfns);
}
/**
* This function returns an array containing the "question/answer" html display
* and a list of the question/answer fieldnames associated. It is called from
* question.php, group.php or survey.php
*
* @param mixed $ia
* @param mixed $notanswered
* @param mixed $notvalidated
* @return mixed
*/
function retrieveAnswers($ia, $notanswered=null, $notvalidated=null)
{
//globalise required config variables
global $dbprefix, $shownoanswer, $clang; //These are from the config-defaults.php file
global $thissurvey, $gl; //These are set by index.php
global $connect;
//DISPLAY
$display = $ia[7];
//QUESTION NAME
$name = $ia[0];
$qtitle=$ia[3];
//Replace INSERTANS statements with previously provided answers;
while (strpos($qtitle, "{INSERTANS:") !== false)
{
$replace=substr($qtitle, strpos($qtitle, "{INSERTANS:"), strpos($qtitle, "}", strpos($qtitle, "{INSERTANS:"))-strpos($qtitle, "{INSERTANS:")+1);
$replace2=substr($replace, 11, strpos($replace, "}", strpos($replace, "{INSERTANS:"))-11);
$replace3=retrieve_Answer($replace2, $_SESSION['dateformats']['phpdate']);
$qtitle=str_replace($replace, $replace3, $qtitle);
} //while
//GET HELP
$hquery="SELECT help FROM {$dbprefix}questions WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."'";
$hresult=db_execute_num($hquery) or safe_die($connect->ErrorMsg()); //Checked
$help="";
while ($hrow=$hresult->FetchRow()) {$help=$hrow[0];}
//A bit of housekeeping to stop PHP Notices
$answer = "";
if (!isset($_SESSION[$ia[1]])) {$_SESSION[$ia[1]] = "";}
$qidattributes=getQuestionAttributes($ia[0]);
//echo "<pre>";print_r($qidattributes);echo "</pre>";
//Create the question/answer html
// Previously in limesurvey, it was virtually impossible to control how the start of questions were formatted.
// this is an attempt to allow users (or rather system admins) some control over how the starting text is formatted.
$question_text = array(
'all' => '' // All has been added for backwards compatibility with templates that use question_start.pstpl (now redundant)
,'text' => $qtitle
,'help' => ''
,'mandatory' => ''
,'man_message' => ''
,'valid_message' => ''
,'class' => ''
,'man_class' => ''
,'input_error_class' => ''// provides a class.
,'essentials' => ''
);
switch ($ia[4])
{
case 'X': //BOILERPLATE QUESTION
$values = do_boilerplate($ia);
break;
case '5': //5 POINT CHOICE radio-buttons
$values = do_5pointchoice($ia);
break;
case 'D': //DATE
$values = do_date($ia);
break;
case 'Z': //LIST Flexible drop-down/radio-button list
$values = do_list_flexible_radio($ia);
if ($qidattributes['hide_tip']==0)
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. $clang->gT('Choose one of the following answers').'</span>';
$question_text['help'] = $clang->gT('Choose one of the following answers');
}
break;
case 'L': //LIST drop-down/radio-button list
$values = do_list_radio($ia);
if ($qidattributes['hide_tip']==0)
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. $clang->gT('Choose one of the following answers').'</span>';
$question_text['help'] = $clang->gT('Choose one of the following answers');
}
break;
case 'W': //List - dropdown
$values=do_list_flexible_dropdown($ia);
if ($qidattributes['hide_tip']==0)
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. $clang->gT('Choose one of the following answers').'</span>';
$question_text['help'] = $clang->gT('Choose one of the following answers');
}
break;
case '!': //List - dropdown
$values=do_list_dropdown($ia);
if ($qidattributes['hide_tip']==0)
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. $clang->gT('Choose one of the following answers').'</span>';
$question_text['help'] = $clang->gT('Choose one of the following answers');
}
break;
case 'O': //LIST WITH COMMENT drop-down/radio-button list + textarea
$values=do_listwithcomment($ia);
if (count($values[1]) > 1 && $qidattributes['hide_tip']==0)
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. $clang->gT('Choose one of the following answers').'</span>';
$question_text['help'] = $clang->gT('Choose one of the following answers');
}
break;
case 'R': //RANKING STYLE
$values=do_ranking($ia);
if (count($values[1]) > 1 && $qidattributes['hide_tip']==0)
{
$question_text['help'] = $clang->gT("Click on an item in the list on the left, starting with your highest ranking item, moving through to your lowest ranking item.");
if (trim($qidattributes['min_answers'])!='')
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. sprintf($clang->gT("Rank at least %d items"), $qidattributes['min_answers'])."</span>";
$question_text['help'] .=' '.sprintf($clang->gT("Rank at least %d items"), $qidattributes['min_answers']);
}
}
break;
case 'M': //MULTIPLE OPTIONS checkbox
$values=do_multiplechoice($ia);
if (count($values[1]) > 1 && $qidattributes['hide_tip']==0)
{
$maxansw=trim($qidattributes['max_answers']);
$minansw=trim($qidattributes['min_answers']);
if (!($maxansw || $minansw))
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. $clang->gT('Check any that apply').'</span>';
$question_text['help'] = $clang->gT('Check any that apply');
}
else
{
if ($maxansw && $minansw)
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. sprintf($clang->gT("Check between %d and %d answers"), $minansw['value'], $maxansw['value'])."</span>";
$question_text['help'] = sprintf($clang->gT("Check between %d and %d answers"), $minansw['value'], $maxansw['value']);
} elseif ($maxansw)
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. sprintf($clang->gT("Check at most %d answers"), $maxansw['value'])."</span>";
$question_text['help'] = sprintf($clang->gT("Check at most %d answers"), $maxansw['value']);
} else
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. sprintf($clang->gT("Check at least %d answers"), $minansw['value'])."</span>";
$question_text['help'] = sprintf($clang->gT("Check at least %d answers"), $minansw['value']);
}
}
}
break;
case 'I': //Language Question
$values=do_language($ia);
if (count($values[1]) > 1)
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. $clang->gT('Choose your language').'</span>';
$question_text['help'] = $clang->gT('Choose your language');
}
break;
case 'P': //MULTIPLE OPTIONS WITH COMMENTS checkbox + text
$values=do_multiplechoice_withcomments($ia);
if (count($values[1]) > 1 && $qidattributes['hide_tip']==0)
{
$maxansw=trim($qidattributes["max_answers"]);
$minansw=trim($qidattributes["min_answers"]);
if (!($maxansw || $minansw))
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. $clang->gT('Check any that apply').'</span>';
$question_text['help'] = $clang->gT('Check any that apply');
}
else
{
if ($maxansw && $minansw)
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. sprintf($clang->gT("Check between %d and %d answers"), $minansw['value'], $maxansw['value'])."</span>";
$question_text['help'] = sprintf($clang->gT("Check between %d and %d answers"), $minansw['value'], $maxansw['value']);
} elseif ($maxansw)
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. sprintf($clang->gT("Check at most %d answers"), $maxansw['value'])."</span>";
$question_text['help'] = sprintf($clang->gT("Check at most %d answers"), $maxansw['value']);
} else
{
$qtitle .= "<br />\n<span class=\"questionhelp\">"
. sprintf($clang->gT("Check at least %d answers"), $minansw['value'])."</span>";
$question_text['help'] = sprintf($clang->gT("Check at least %d answers"), $minansw['value']);
}
}
}
break;
case 'Q': //MULTIPLE SHORT TEXT
$values=do_multipleshorttext($ia);
break;
case 'K': //MULTIPLE NUMERICAL QUESTION
$values=do_multiplenumeric($ia);
break;
case 'N': //NUMERICAL QUESTION TYPE
$values=do_numerical($ia);
break;
case 'S': //SHORT FREE TEXT
$values=do_shortfreetext($ia);
break;
case 'T': //LONG FREE TEXT
$values=do_longfreetext($ia);
break;
case 'U': //HUGE FREE TEXT
$values=do_hugefreetext($ia);
break;
case 'Y': //YES/NO radio-buttons
$values=do_yesno($ia);
break;
case 'G': //GENDER drop-down list
$values=do_gender($ia);
break;
case 'A': //ARRAY (5 POINT CHOICE) radio-buttons
$values=do_array_5point($ia);
break;
case 'B': //ARRAY (10 POINT CHOICE) radio-buttons
$values=do_array_10point($ia);
break;
case 'C': //ARRAY (YES/UNCERTAIN/NO) radio-buttons
$values=do_array_yesnouncertain($ia);
break;
case 'E': //ARRAY (Increase/Same/Decrease) radio-buttons
$values=do_array_increasesamedecrease($ia);
break;
case 'F': //ARRAY (Flexible) - Row Format
$values=do_array_flexible($ia);
break;
case 'H': //ARRAY (Flexible) - Column Format
$values=do_array_flexiblecolumns($ia);
break;
case ':': //ARRAY (Multi Flexi) 1 to 10
$values=do_array_multiflexi($ia);
break;
case ';': //ARRAY (Multi Flexi) Text
$values=do_array_multitext($ia); //It's like the "5th element" movie, come to life
break;
case '1': //Array (Flexible Labels) dual scale
$values=do_array_flexible_dual($ia);
break;
} //End Switch
if (isset($values)) //Break apart $values array returned from switch
{
//$answer is the html code to be printed
//$inputnames is an array containing the names of each input field
list($answer, $inputnames)=$values;
}
$answer .= "\n\t<input type='hidden' name='display$ia[1]' id='display$ia[0]' value='";
$answer .= 'on'; //Ifthis is single format, then it must be showing. Needed for checking conditional mandatories
$answer .= "' />\n"; //for conditional mandatory questions
if ($ia[6] == 'Y')
{
$qtitle = '<span class="asterisk">'.$clang->gT('*').'</span>'.$qtitle;
$question_text['mandatory'] = $clang->gT('*');
}
//If this question is mandatory but wasn't answered in the last page
//add a message HIGHLIGHTING the question
$qtitle .= mandatory_message($ia);
$question_text['man_message'] = mandatory_message($ia);
$qtitle .= validation_message($ia);
$question_text['valid_message'] = validation_message($ia);
if(!empty($question_text['man_message']) || !empty($question_text['valid_message']))
{
$question_text['input_error_class'] = ' input-error';// provides a class to style question wrapper differently if there is some kind of user input error;
};
// =====================================================
// START: legacy question_start.pstpl code
// The following section adds to the templating system by allowing
// templaters to control where the various parts of the question text
// are put.
if(is_file('templates/'.validate_templatedir($thissurvey['template']).'/question_start.pstpl'))
{
$qtitle_custom = '';
$replace=array();
foreach($question_text as $key => $value)
{
$find[] = '{QUESTION_'.strtoupper($key).'}'; // Match key words from template
$replace[] = $value; // substitue text
};
if(!defined('QUESTION_START'))
{
define('QUESTION_START' , file_get_contents('templates/'.validate_templatedir($thissurvey['template']).'/question_start.pstpl' , true));
};
$qtitle_custom = str_replace( $find , $replace , QUESTION_START);
$c = 1;
// START: <EMBED> work-around step 1
$qtitle_custom = preg_replace( '/(<embed[^>]+>)(<\/embed>)/i' , '\1NOT_EMPTY\2' , $qtitle_custom );
// END <EMBED> work-around step 1
while($c > 0) // This recursively strips any empty tags to minimise rendering bugs.
{
$matches = 0;
$oldtitle=$qtitle_custom;
$qtitle_custom = preg_replace( '/<([^ >]+)[^>]*>[\r\n\t ]*<\/\1>[\r\n\t ]*/isU' , '' , $qtitle_custom , -1); // I removed the $count param because it is PHP 5.1 only.
$c = ($qtitle_custom!=$oldtitle)?1:0;
};
// START <EMBED> work-around step 2
$qtitle_custom = preg_replace( '/(<embed[^>]+>)NOT_EMPTY(<\/embed>)/i' , '\1\2' , $qtitle_custom );
// END <EMBED> work-around step 2
while($c > 0) // This recursively strips any empty tags to minimise rendering bugs.
{
$matches = 0;
$oldtitle=$qtitle_custom;
$qtitle_custom = preg_replace( '/(<br(?: ?\/)?>(?: |\r\n|\n\r|\r|\n| )*)+$/i' , '' , $qtitle_custom , -1 ); // I removed the $count param because it is PHP 5.1 only.
$c = ($qtitle_custom!=$oldtitle)?1:0;
};
// $qtitle = $qtitle_custom;
$question_text['all'] = $qtitle_custom;
}
else
{
$question_text['all'] = $qtitle;
};
// END: legacy question_start.pstpl code
//===================================================================
// echo '<pre>[qanda.php] line '.__LINE__.": $question_text =\n".htmlspecialchars(print_r($question_text,true)).'</pre>';
$qtitle = $question_text;
// =====================================================
$qanda=array($qtitle, $answer, $help, $display, $name, $ia[2], $gl[0], $ia[1] );
//New Return
return array($qanda, $inputnames);
}
function validation_message($ia)
{
//This function checks to see if this question requires validation and
//that validation has not been met.
global $notvalidated, $dbprefix, $connect, $clang;
$qtitle="";
if (isset($notvalidated) && is_array($notvalidated)) //ADD WARNINGS TO QUESTIONS IF THEY ARE NOT VALID
{
global $validationpopup, $popup;
if (in_array($ia[1], $notvalidated))
{
$help='';
$helpselect="SELECT help\n"
."FROM {$dbprefix}questions\n"
."WHERE qid={$ia[0]} AND language='".$_SESSION['s_lang']."'";
$helpresult=db_execute_assoc($helpselect) or safe_die($helpselect.'<br />'.$connect->ErrorMsg()); //Checked
while ($helprow=$helpresult->FetchRow())
{
$help=' <span class="questionhelp">'.$helprow['help'].'</span>';
}
$qtitle .= '<br /><span class="errormandatory">'.$clang->gT('This question must be answered correctly').'.'.$help.'</span><br />
';
}
}
return $qtitle;
}
function mandatory_message($ia)
{
//This function checks to see if this question is mandatory and
//is being re-displayed because it wasn't answered. It returns
global $notanswered, $clang, $dbprefix;
$qtitle="";
if (isset($notanswered) && is_array($notanswered)) //ADD WARNINGS TO QUESTIONS IF THEY WERE MANDATORY BUT NOT ANSWERED
{
global $mandatorypopup, $popup;
if (in_array($ia[1], $notanswered))
{
$qtitle .= "<strong><br /><span class='errormandatory'>".$clang->gT('This question is mandatory').'.';
switch($ia[4])
{
case 'A':
case 'B':
case 'C':
case 'Q':
case 'K':
case 'F':
case 'J':
case 'H':
case ':':
$qtitle .= "<br />\n".$clang->gT('Please complete all parts').'.';
break;
case '1':
$qtitle .= "<br />\n".$clang->gT('Please check the items').'.';
break;
case 'R':
$qtitle .= "<br />\n".$clang->gT('Please rank all items').'.';
break;
case 'M':
case 'P':
$qtitle .= ' '.$clang->gT('Please check at least one item.').'.';
$qquery = "SELECT other FROM {$dbprefix}questions WHERE qid=".$ia[0];
$qresult = db_execute_assoc($qquery); //Checked
$qrow = $qresult->FetchRow();
if ($qrow['other']=='Y')
{
$qidattributes=getQuestionAttributes($ia[0],'P');
if (trim($qidattributes['other_replace_text'])!='')
{
$othertext=$qidattributes['other_replace_text'];
}
else
{
$othertext=$clang->gT('Other:');
}
$qtitle .= "<br />\n".sprintf($clang->gT("If you choose '%s' you must provide a description."), $othertext);
}
break;
} // end switch
$qtitle .= "</span></strong><br />\n";
}
}
return $qtitle;
}
function mandatory_popup($ia, $notanswered=null)
{
global $showpopups;
//This sets the mandatory popup message to show if required
//Called from question.php, group.php or survey.php
if ($notanswered === null) {unset($notanswered);}
if (isset($notanswered) && is_array($notanswered) && isset($showpopups) && $showpopups == 1) //ADD WARNINGS TO QUESTIONS IF THEY WERE MANDATORY BUT NOT ANSWERED
{
global $mandatorypopup, $popup, $clang;
//POPUP WARNING
if (!isset($mandatorypopup) && ($ia[4] == 'T' || $ia[4] == 'S' || $ia[4] == 'U'))
{
$popup="<script type=\"text/javascript\">\n
<!--\n $(document).ready(function(){
alert(\"".$clang->gT("You cannot proceed until you enter some text for one or more questions.", "js")."\");});\n //-->\n
</script>\n";
$mandatorypopup="Y";
}else
{
$popup="<script type=\"text/javascript\">\n
<!--\n $(document).ready(function(){
alert(\"".$clang->gT("One or more mandatory questions have not been answered. You cannot proceed until these have been completed", "js")."\");});\n //-->\n
</script>\n";
$mandatorypopup="Y";
}
return array($mandatorypopup, $popup);
}
else
{
return false;
}
}
function validation_popup($ia, $notvalidated=null)
{
global $showpopups;
//This sets the validation popup message to show if required
//Called from question.php, group.php or survey.php
if ($notvalidated === null) {unset($notvalidated);}
$qtitle="";
if (isset($notvalidated) && is_array($notvalidated) && isset($showpopups) && $showpopups == 1) //ADD WARNINGS TO QUESTIONS IF THEY ARE NOT VALID
{
global $validationpopup, $vpopup, $clang;
//POPUP WARNING
if (!isset($validationpopup))
{
$vpopup="<script type=\"text/javascript\">\n
<!--\n $(document).ready(function(){
alert(\"".$clang->gT("One or more questions have not been answered in a valid manner. You cannot proceed until these answers are valid", "js")."\");});\n //-->\n
</script>\n";
$validationpopup="Y";
}
return array($validationpopup, $vpopup);
}
else
{
return false;
}
}
function return_timer_script($qidattributes, $ia, $disable=null) {
global $thissurvey, $clang;
/* The following lines cover for previewing questions, because no $_SESSION['fieldarray'] exists.
This just stops error messages occuring */
if(!isset($_SESSION['fieldarray']))
{
$_SESSION['fieldarray'] = array();
}
/* End */
if(isset($thissurvey['timercount']))
{
$thissurvey['timercount']++; //Used to count how many timer questions in a page, and ensure scripts only load once
} else {
$thissurvey['timercount']=1;
}
if($thissurvey['format'] != "S")
{
if($thissurvey['format'] != "G")
{
return "\n\n<!-- TIMER MODE DISABLED DUE TO INCORRECT SURVEY FORMAT -->\n\n";
//We don't do the timer in any format other than question-by-question
}
}
$time_limit=$qidattributes['time_limit'];
$disable_next=trim($qidattributes['time_limit_disable_next']) != '' ? $qidattributes['time_limit_disable_next'] : 0;
$time_limit_action=trim($qidattributes['time_limit_action']) != '' ? $qidattributes['time_limit_action'] : 1;
$time_limit_message_delay=trim($qidattributes['time_limit_message_delay']) != '' ? $qidattributes['time_limit_message_delay']*1000 : 1000;
$time_limit_message=trim($qidattributes['time_limit_message']) != '' ? $qidattributes['time_limit_message'] : $clang->gT("Your time to answer this question has expired");
$time_limit_warning=trim($qidattributes['time_limit_warning']) != '' ? $qidattributes['time_limit_warning'] : 0;
$time_limit_warning_message=trim($qidattributes['time_limit_warning_message']) != '' ? $qidattributes['time_limit_warning_message'] : $clang->gT("Your time to answer this question has nearly expired. You have {TIME} remaining.");
$time_limit_warning_message=str_replace("{TIME}", "<div style='display: inline' id='LS_question".$ia[0]."_Warning'> </div>", $time_limit_warning_message);
$time_limit_warning_display_time=trim($qidattributes['time_limit_warning_display_time']) != '' ? $qidattributes['time_limit_warning_display_time']+1 : 0;
$time_limit_message_style=trim($qidattributes['time_limit_message_style']) != '' ? $qidattributes['time_limit_message_style'] : "position: absolute;
top: 10px;
left: 35%;
width: 30%;
height: 60px;
padding: 16px;
border: 8px solid #555;
background-color: white;
z-index:1002;
text-align: center;
overflow: auto;";
$time_limit_message_style.="\n display: none;"; //Important to hide time limit message at start
$time_limit_warning_style=trim($qidattributes['time_limit_warning_style']) != '' ? $qidattributes['time_limit_warning_style'] : "position: absolute;
top: 10px;
left: 35%;
width: 30%;
height: 60px;
padding: 16px;
border: 8px solid #555;
background-color: white;
z-index:1001;
text-align: center;
overflow: auto;";
$time_limit_warning_style.="\n display: none;"; //Important to hide time limit warning at the start
$time_limit_timer_style=trim($qidattributes['time_limit_timer_style']) != '' ? $qidattributes['time_limit_timer_style'] : "position: relative;
width: 150px;
margin-left: auto;
margin-right: auto;
border: 1px solid #111;
text-align: center;
background-color: #EEE;
margin-bottom: 5px;
font-size: 8pt;";
$timersessionname="timer_question_".$ia[0];
if(isset($_SESSION[$timersessionname])) {
$time_limit=$_SESSION[$timersessionname];
}
$output = "
<input type='hidden' name='timerquestion' value='".$timersessionname."' />
<input type='hidden' name='".$timersessionname."' id='".$timersessionname."' value='".$time_limit."' />\n";
if($thissurvey['timercount'] < 2)
{
$output .="
<script type='text/javascript'>
<!--
function createCookie(name,value,days) {
if (days) {
var date = new Date();
date.setTime(date.getTime()+(days*24*60*60*1000));
var expires = '; expires='+date.toGMTString();
}
else var expires = '';
document.cookie = name+'='+value+expires+'; path=/';
}
function readCookie(name) {
var nameEQ = name + '=';
var ca = document.cookie.split(';');
for(var i=0;i < ca.length;i++) {
var c = ca[i];
while (c.charAt(0)==' ') c = c.substring(1,c.length);
if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length);
}
return null;
}
function eraseCookie(name) {
createCookie(name,'',-1);
}
function freezeFrame(elementid) {
if(document.getElementById(elementid) !== null) {
var answer=document.getElementById(elementid);
if(answer.value == '') {
answer.value=' ';
}
answer.blur();
answer.onfocus=function() {answer.blur();};
}
}
//-->
</script>";
$output .= "
<script type='text/javascript'>
<!--
function countdown(questionid,timer,action,warning,warninghide,disable){
if(!timeleft) {var timeleft=timer;}
if(!warning) {var warning=0;}
if(!warninghide) {var warninghide=0;}";
if($thissurvey['format'] == "G")
{
global $gid;
$qcount=0;
foreach($_SESSION['fieldarray'] as $ib)
{
if($ib[5] == $gid)
{
$qcount++;
}
}
//Override all other options and just allow freezing, survey is presented in group by group mode
if($qcount > 1) {
$output .="
action = 3;";
}
}
$output .="
var timerdisplay='LS_question'+questionid+'_Timer';
var warningtimedisplay='LS_question'+questionid+'_Warning';
var warningdisplay='LS_question'+questionid+'_warning';
var expireddisplay='question'+questionid+'_timer';
var timersessionname='timer_question_'+questionid;
document.getElementById(timersessionname).value=timeleft;
timeleft--;
cookietimer=readCookie(timersessionname);
if(cookietimer !== null && cookietimer <= timeleft) {
timeleft=cookietimer;
}
eraseCookie(timersessionname);
createCookie(timersessionname, timeleft, 7);";
if($disable_next == 1) {
$output .= "
if(document.getElementById('movenextbtn') !== null) {
document.getElementById('movenextbtn').disabled=true;
}\n";
}
$output .="
if(warning > 0 && timeleft<=warning) {
var wsecs=warning%60;
if(wsecs<10) wsecs='0' + wsecs;
var WT1 = (warning - wsecs) / 60;
var wmins = WT1 % 60; if (wmins < 10) wmins = '0' + wmins;
var whours = (WT1 - wmins) / 60;
var dmins=''
var dhours=''
var dsecs=''
if (whours < 10) whours = '0' + whours;
if (whours > 0) dhours = whours + ' ".$clang->gT('hours').", ';
if (wmins > 0) dmins = wmins + ' ".$clang->gT('mins').", ';
if (wsecs > 0) dsecs = wsecs + ' ".$clang->gT('seconds')."';
if(document.getElementById(warningtimedisplay) !== null) {
document.getElementById(warningtimedisplay).innerHTML = dhours+dmins+dsecs;
}
document.getElementById(warningdisplay).style.display='';
}
if(warning > 0 && warninghide > 0 && document.getElementById(warningdisplay).style.display != 'none') {
if(warninghide == 1) {
document.getElementById(warningdisplay).style.display='none';
warning=0;
}
warninghide--;
}
var secs = timeleft % 60;
if (secs < 10) secs = '0'+secs;
var T1 = (timeleft - secs) / 60;
var mins = T1 % 60; if (mins < 10) mins = '0'+mins;
var hours = (T1 - mins) / 60;
if (hours < 10) hours = '0'+hours;
var d2hours='';
var d2mins='';
var d2secs='';
if (hours > 0) d2hours = hours+' ".$clang->gT('hours').": ';
if (mins > 0) d2mins = mins+' ".$clang->gT('mins').": ';
if (secs > 0) d2secs = secs+' ".$clang->gT('seconds')."';
if (secs < 1) d2secs = '0 ".$clang->gT('seconds')."';
document.getElementById(timerdisplay).innerHTML = '".$clang->gT('Time remaining').":<br />'+d2hours + d2mins + d2secs;
if (timeleft>0){
var text='countdown('+questionid+', '+timeleft+', '+action+', '+warning+', '+warninghide+', \"'+disable+'\")';
setTimeout(text,1000);
} else {
//Countdown is finished, now do action
switch(action) {
case 2: //Just move on, no warning
if(document.getElementById('movenextbtn') !== null) {
if(document.getElementById('movenextbtn').disabled==true) document.getElementById('movenextbtn').disabled=false;
}
freezeFrame(disable);
eraseCookie(timersessionname);
if(document.getElementById('movenextbtn') != null) {
document.limesurvey.submit();
} else {
setTimeout(\"document.limesurvey.submit();\", 1000);
}
break;
case 3: //Just warn, don't move on
document.getElementById(expireddisplay).style.display='';
if(document.getElementById('movenextbtn') !== null) {
if(document.getElementById('movenextbtn').disabled==true) document.getElementById('movenextbtn').disabled=false;
}
freezeFrame(disable);
this.onsubmit=function() {eraseCookie(timersessionname);};
break;
default: //Warn and move on
document.getElementById(expireddisplay).style.display='';
if(document.getElementById('movenextbtn') !== null) {
if(document.getElementById('movenextbtn').disabled==true) document.getElementById('movenextbtn').disabled=false;
}
freezeFrame(disable);
eraseCookie(timersessionname);
setTimeout('document.limesurvey.submit()', ".$time_limit_message_delay.");
break;
}
}
}
//-->
</script>";
}
$output .= "<div id='question".$ia[0]."_timer' style='".$time_limit_message_style."'>".$time_limit_message."</div>\n\n";
$output .= "<div id='LS_question".$ia[0]."_warning' style='".$time_limit_warning_style."'>".$time_limit_warning_message."</div>\n\n";
$output .= "<div id='LS_question".$ia[0]."_Timer' style='".$time_limit_timer_style."'></div>\n\n";
//Call the countdown script
$output .= "<script type='text/javascript'>
var timersessionname='timer_question_'+".$ia[0].";
eraseCookie(timersessionname);
countdown(".$ia[0].", ".$time_limit.", ".$time_limit_action.", ".$time_limit_warning.", ".$time_limit_warning_display_time.", '".$disable."');
</script>\n\n";
return $output;
}
function return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $rowname, $trbc='', $valuename, $method="tbody") {
/* We're just going to work out whether to do the include or exclude version of the function at this point */
if(isset($qidattributes['array_filter_exclude']) && trim($qidattributes['array_filter_exclude']) != '') {
list($html2body, $hiddenfield) = return_array_filter_exclude_strings($ia, $qidattributes, $thissurvey, $ansrow, $rowname, $trbc, $valuename, $method);
} else {
list($html2body, $hiddenfield) = return_array_filter_include_strings($ia, $qidattributes, $thissurvey, $ansrow, $rowname, $trbc, $valuename, $method);
}
return array($html2body, $hiddenfield);
}
function return_array_filter_include_strings($ia, $qidattributes, $thissurvey, $ansrow, $rowname, $trbc='', $valuename, $method="tbody") {
/* DO ARRAY_FILTER ATTRIBUTE
We set the $hiddenfield for each answer, and the value of this is available to java to let javascripts
know whether each answer is currently being displayed. $htmltbody2 determines whether the answer row
should be displayed initially. If no answers for the source question have been selected then the whole
answer row should start in the display-off position for array_filter or the display-on position
for array_filter_exclude. */
//Are we doing array_filter, or array_filter_exclude. Where a conflict occurs, do array_filter
$htmltbody2 = '';
$hiddenfield= '';
if (
(trim($qidattributes['array_filter'])!='' && // the array_filter attribute is set
$thissurvey['format'] == 'G' && // and the survey is being presented group by group
getArrayFiltersOutGroup($ia[0]) == false // and this question _is_not_ in the current group for the array filter
) || // OR
(trim($qidattributes['array_filter'])!='' && // the array_filter attribute is set
$thissurvey['format'] == 'A' // and the survey is being presented all on one page
)
)
{
$htmltbody2 = "\n\n\t<$method id='javatbd$rowname' style='display: none'>\n";
$hiddenfield = "<input type='hidden' name='tbdisp$rowname' id='tbdisp$rowname' value='off' />\n";
} else if
(
(trim($qidattributes['array_filter'])!='' &&
$thissurvey['format'] == 'S'
) ||
(trim($qidattributes['array_filter'])!='' &&
$thissurvey['format'] == 'G' &&
getArrayFiltersOutGroup($ia[0]) == true
)
)
{
$selected = getArrayFiltersForQuestion($ia[0]);
if (!empty($selected) && !in_array($ansrow['code'],$selected))
{
$htmltbody2 = "\n\n\t<$method id='javatbd$rowname' style='display: none'>\n";
$hiddenfield="<input type='hidden' name='tbdisp$rowname' id='tbdisp$rowname' value='off' />";
$_SESSION[$valuename] = ''; //Remove any saved results for this since it is no longer being displayed
}
else
{
$htmltbody2 = "\n\n\t<$method id='javatbd$rowname'>";
$hiddenfield="\n<input type='hidden' name='tbdisp$rowname' id='tbdisp$rowname' value='on' />";
}
}
else
{
$htmltbody2 = "\n\n\t<$method id='javatbd$rowname'>\n";
$hiddenfield = "<input type='hidden' name='tbdisp$rowname' id='tbdisp$rowname' value='on' />";
}
//End of array_filter attribute
return array($htmltbody2, $hiddenfield);
}
function return_array_filter_exclude_strings($ia, $qidattributes, $thissurvey, $ansrow, $rowname, $trbc='', $valuename, $method="tbody") {
/* DO ARRAY_FILTER_EXCLUDE ATTRIBUTE
We set the $hiddenfield for each answer, and the value of this is available to java to let javascripts
know whether each answer is currently being displayed. $htmltbody2 determines whether the answer row
should be displayed initially. If no answers for the source question have been selected then the whole
answer row should start in the display-on position. */
$htmltbody2 = '';
$hiddenfield= '';
if (
(trim($qidattributes['array_filter_exclude'])!='' && // the array_filter attribute is set
$thissurvey['format'] == 'G' && // and the survey is being presented group by group
getArrayFiltersExcludesOutGroup($ia[0]) == false // and this question _is_not_ in the current group for the array filter
) || // OR
(trim($qidattributes['array_filter_exclude'])!='' && // the array_filter attribute is set
$thissurvey['format'] == 'A' // and the survey is being presented all on one page
)
)
{
$htmltbody2 = "\n\n\t<$method id='javatbd$rowname'>\n";
$hiddenfield = "<input type='hidden' name='tbdisp$rowname' id='tbdisp$rowname' value='on' />\n";
} else if
(
(trim($qidattributes['array_filter_exclude'])!='' &&
$thissurvey['format'] == 'S'
) ||
(trim($qidattributes['array_filter_exclude'])!='' &&
$thissurvey['format'] == 'G' &&
getArrayFiltersExcludesOutGroup($ia[0]) == true
)
)
{
$selected = getArrayFilterExcludesForQuestion($ia[0]);
if (!empty($selected) && !in_array($ansrow['code'],$selected))
{
$htmltbody2 = "\n\n\t<$method id='javatbd$rowname'>\n";
$hiddenfield="<input type='hidden' name='tbdisp$rowname' id='tbdisp$rowname' value='on' />";
}
else
{
$htmltbody2 = "\n\n\t<$method id='javatbd$rowname' style='display: none'>";
$hiddenfield="\n<input type='hidden' name='tbdisp$rowname' id='tbdisp$rowname' value='off' />";
$_SESSION[$valuename]=''; //Remove any saved results for this since it is no longer being displayed
}
}
else
{
$htmltbody2 = "\n\n\t<$method id='javatbd$rowname' style='display: none'>\n";
$hiddenfield = "<input type='hidden' name='tbdisp$rowname' id='tbdisp$rowname' value='off' />";
}
//End of array_filter attribute
return array($htmltbody2, $hiddenfield);
}
// ==================================================================
// setting constants for 'checked' and 'selected' inputs
define('CHECKED' , ' checked="checked"' , true);
define('SELECTED' , ' selected="selected"' , true);
// ==================================================================
// QUESTION METHODS =================================================
function do_boilerplate($ia)
{
$qidattributes=getQuestionAttributes($ia[0]);
$answer='';
if (trim($qidattributes['time_limit'])!='')
{
$answer .= return_timer_script($qidattributes, $ia);
}
$answer .= '<input type="hidden" name="$ia[1]" id="answer'.$ia[1].'" value="" />';
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_5pointchoice($ia)
{
global $shownoanswer, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$answer = "\n<ul>\n";
for ($fp=1; $fp<=5; $fp++)
{
$answer .= "\t<li>\n<input class=\"radio\" type=\"radio\" name=\"$ia[1]\" id=\"answer$ia[1]$fp\" value=\"$fp\"";
if ($_SESSION[$ia[1]] == $fp)
{
$answer .= CHECKED;
}
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n<label for=\"answer$ia[1]$fp\" class=\"answertext\">$fp</label>\n\t</li>\n";
}
if ($ia[6] != "Y" && $shownoanswer == 1) // Add "No Answer" option if question is not mandatory
{
$answer .= "\t<li>\n<input class=\"radio\" type=\"radio\" name=\"$ia[1]\" id=\"NoAnswer\" value=\"\"";
if (!$_SESSION[$ia[1]])
{
$answer .= CHECKED;
}
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n<label for=\"NoAnswer\" class=\"answertext\">".$clang->gT('No answer')."</label>\n\t</li>\n";
}
$answer .= "</ul>\n<input type=\"hidden\" name=\"java$ia[1]\" id=\"java$ia[1]\" value=\"{$_SESSION[$ia[1]]}\" />\n";
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_date($ia)
{
global $clang, $js_header_includes, $css_header_includes, $thissurvey;
$qidattributes=getQuestionAttributes($ia[0]);
$js_header_includes[] = '/scripts/jquery/jquery-ui.js';
$js_header_includes[] = '/scripts/jquery/lime-calendar.js';
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$dateformatdetails=getDateFormatData($thissurvey['surveyls_dateformat']);
if (trim($qidattributes['dropdown_dates'])!=0) {
if (!empty($_SESSION[$ia[1]]))
{
list($currentyear, $currentmonth, $currentdate) = explode('-', $_SESSION[$ia[1]]);
} else {
$currentdate='';
$currentmonth='';
$currentyear='';
}
$dateorder = split('[/.-]', $dateformatdetails['phpdate']);
$answer='<p class="question">';
foreach($dateorder as $datepart)
{
switch($datepart)
{
// Show day select box
case 'j':
case 'd': $answer .= ' <select id="day'.$ia[1].'" class="day">
<option value="">'.$clang->gT('Day')."</option>\n";
for ($i=1; $i<=31; $i++) {
if ($i == $currentdate)
{
$i_date_selected = SELECTED;
}
else
{
$i_date_selected = '';
}
$answer .= ' <option value="'.sprintf('%02d', $i).'"'.$i_date_selected.'>'.sprintf('%02d', $i)."</option>\n";
}
$answer .='</select>';
break;
// Show month select box
case 'n':
case 'm': $answer .= ' <select id="month'.$ia[1].'" class="month">
<option value="">'.$clang->gT('Month')."</option>\n";
$montharray=array(
$clang->gT('Jan'),
$clang->gT('Feb'),
$clang->gT('Mar'),
$clang->gT('Apr'),
$clang->gT('May'),
$clang->gT('Jun'),
$clang->gT('Jul'),
$clang->gT('Aug'),
$clang->gT('Sep'),
$clang->gT('Oct'),
$clang->gT('Nov'),
$clang->gT('Dec'));
for ($i=1; $i<=12; $i++) {
if ($i == $currentmonth)
{
$i_date_selected = SELECTED;
}
else
{
$i_date_selected = '';
}
$answer .= ' <option value="'.sprintf('%02d', $i).'"'.$i_date_selected.'>'.$montharray[$i-1].'</option>';
}
$answer .= ' </select>';
break;
// Show year select box
case 'Y': $answer .= ' <select id="year'.$ia[1].'" class="year">
<option value="">'.$clang->gT('Year').'</option>';
/*
* New question attributes used only if question attribute
* "dropdown_dates" is used (see IF(...) above).
*
* yearmin = Minimum year value for dropdown list, if not set default is 1900
* yearmax = Maximum year value for dropdown list, if not set default is 2020
*/
if (trim($qidattributes['dropdown_dates_year_min'])!='')
{
$yearmin = $qidattributes['dropdown_dates_year_min'];
}
else
{
$yearmin = 1900;
}
if (trim($qidattributes['dropdown_dates_year_max'])!='')
{
$yearmax = $qidattributes['dropdown_dates_year_max'];
}
else
{
$yearmax = 2020;
}
for ($i=$yearmax; $i>=$yearmin; $i--) {
if ($i == $currentyear)
{
$i_date_selected = SELECTED;
}
else
{
$i_date_selected = '';
}
$answer .= ' <option value="'.$i.'"'.$i_date_selected.'>'.$i.'</option>';
}
$answer .= '</select>';
break;
}
}
$answer .= '<input class="text" type="text" size="10" name="'.$ia[1].'" style="display: none" id="answer'.$ia[1].'" value="'.$_SESSION[$ia[1]].'" maxlength="10" alt="'.$clang->gT('Answer').'" onchange="'.$checkconditionFunction.'(this.value, this.name, this.type)" />
</p>';
$answer .= '<input type="hidden" name="qattribute_answer[]" value="'.$ia[1].'" />
<input type="hidden" id="qattribute_answer'.$ia[1].'" name="qattribute_answer'.$ia[1].'" />
<input type="hidden" id="dateformat'.$ia[1].'" value="'.$dateformatdetails['jsdate'].'"/>';
}
else
{
$js_header_includes[] = '/scripts/jquery/locale/ui.datepicker-'.$clang->langcode.'.js';
$css_header_includes[]= '/scripts/jquery/css/start/jquery-ui.css';
// Format the date for output
if (trim($_SESSION[$ia[1]])!='')
{
$datetimeobj = new Date_Time_Converter($_SESSION[$ia[1]] , "Y-m-d");
$dateoutput=$datetimeobj->convert($dateformatdetails['phpdate']);
}
else
{
$dateoutput='';
}
if (trim($qidattributes['dropdown_dates_year_min'])!='') {
$minyear=$qidattributes['dropdown_dates_year_min'];
}
else
{
$minyear='1980';
}
if (trim($qidattributes['dropdown_dates_year_max'])!='') {
$maxyear=$qidattributes['dropdown_dates_year_max'];
}
else
{
$maxyear='2020';
}
$answer ="<p class=\"question\">
<input class='popupdate' type=\"text\" alt=\"".$clang->gT('Date picker')."\" size=\"10\" name=\"{$ia[1]}\" id=\"answer{$ia[1]}\" value=\"$dateoutput\" maxlength=\"10\" onkeypress=\"return goodchars(event,'0123456789-')\" onchange=\"$checkconditionFunction(this.value, this.name, this.type)\" />
<input type='hidden' name='dateformat{$ia[1]}' id='dateformat{$ia[1]}' value='{$dateformatdetails['jsdate']}' />
<input type='hidden' name='datelanguage{$ia[1]}' id='datelanguage{$ia[1]}' value='{$clang->langcode}' />
<input type='hidden' name='dateyearrange{$ia[1]}' id='dateyearrange{$ia[1]}' value='{$minyear}:{$maxyear}' />
</p>
<p class=\"tip\">
".sprintf($clang->gT('Format: %s'),$dateformatdetails['dateformat'])."
</p>";
}
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_language($ia)
{
global $dbprefix, $surveyid, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$answerlangs = GetAdditionalLanguagesFromSurveyID($surveyid);
$answerlangs [] = GetBaseLanguageFromSurveyID($surveyid);
$answer = "\n\t<p class=\"question\">\n<select name=\"$ia[1]\" id=\"answer$ia[1]\" onchange=\"document.getElementById('lang').value=this.value; $checkconditionFunction(this.value, this.name, this.type);\">\n";
if (!$_SESSION[$ia[1]]) {$answer .= "\t<option value=\"\" selected=\"selected\">".$clang->gT('Please choose')."..</option>\n";}
foreach ($answerlangs as $ansrow)
{
$answer .= "\t<option value=\"{$ansrow}\"";
if ($_SESSION[$ia[1]] == $ansrow)
{
$answer .= SELECTED;
}
elseif ($ansrow['default_value'] == 'Y')
{
$answer .= SELECTED;
$defexists = "Y";
}
$answer .= '>'.getLanguageNameFromCode($ansrow, true)."</option>\n";
}
$answer .= "</select>\n";
$answer .= "<input type=\"hidden\" name=\"java$ia[1]\" id=\"java$ia[1]\" value=\"{$_SESSION[$ia[1]]}\" />\n";
$inputnames[]=$ia[1];
$answer .= "\n<input type=\"hidden\" name=\"lang\" id=\"lang\" value=\"\" />\n\t</p>\n";
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_list_dropdown($ia)
{
global $dbprefix, $dropdownthreshold, $lwcdropdowns, $connect;
global $shownoanswer, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
if (trim($qidattributes['other_replace_text'])!='')
{
$othertext=$clang->gT($qidattributes['other_replace_text']);
}
else
{
$othertext=$clang->gT('Other:');
}
if (trim($qidattributes['category_separator'])!='')
{
$optCategorySeparator = $qidattributes['category_separator'];
}
$answer='';
if (isset($defexists)) {unset ($defexists);}
$query = "SELECT other FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."' ";
$result = db_execute_assoc($query); //Checked
while($row = $result->FetchRow()) {$other = $row['other'];}
//question attribute random order set?
if ($qidattributes['random_order']==1)
{
$ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random();
}
//question attribute alphasort set?
elseif ($qidattributes['alphasort']==1)
{
$ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY answer";
}
//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) or safe_die('Couldn\'t get answers<br />'.$ansquery.'<br />'.$connect->ErrorMsg()); //Checked
if (!isset($optCategorySeparator))
{
while ($ansrow = $ansresult->FetchRow())
{
if ($_SESSION[$ia[1]] == $ansrow['code'])
{
$opt_select = SELECTED;
}
elseif ($ansrow['default_value'] == 'Y')
{
$opt_select = SELECTED;
$defexists = 'Y';
}
else
{
$opt_select = '';
}
$answer .= ' <option value="'.$ansrow['code'].'"'.$opt_select.'>'.$ansrow['answer'].'</option>
';
}
}
else
{
$defaultopts = Array();
$optgroups = Array();
while ($ansrow = $ansresult->FetchRow())
{
// Let's sort answers in an array indexed by subcategories
list ($categorytext, $answertext) = explode($optCategorySeparator,$ansrow['answer']);
// The blank category is left at the end outside optgroups
if ($categorytext == '')
{
$defaultopts[] = array ( 'code' => $ansrow['code'], 'answer' => $answertext, 'default_value' => $ansrow['default_value']);
}
else
{
$optgroups[$categorytext][] = array ( 'code' => $ansrow['code'], 'answer' => $answertext, 'default_value' => $ansrow['default_value']);
}
}
foreach ($optgroups as $categoryname => $optionlistarray)
{
$answer .= ' <optgroup class="dropdowncategory" label="'.$categoryname.'">
';
foreach ($optionlistarray as $optionarray)
{
if ($_SESSION[$ia[1]] == $optionarray['code'])
{
$opt_select = SELECTED;
}
elseif ($optionarray['default_value'] == 'Y')
{
$opt_select = SELECTED;
$defexists = 'Y';
}
else
{
$opt_select = '';
}
$answer .= ' <option value="'.$optionarray['code'].'"'.$opt_select.'>'.$optionarray['answer'].'</option>
';
}
$answer .= ' </optgroup>';
}
$opt_select='';
foreach ($defaultopts as $optionarray)
{
if ($_SESSION[$ia[1]] == $optionarray['code'])
{
$opt_select = SELECTED;
}
elseif ($optionarray['default_value'] == 'Y')
{
$opt_select = SELECTED;
$defexists = 'Y';
}
else
{
$opt_select = '';
}
$answer .= ' <option value="'.$optionarray['code'].'"'.$opt_select.'>'.$optionarray['answer'].'</option>
';
}
}
if (!$_SESSION[$ia[1]] && (!isset($defexists) || !$defexists))
{
$answer = ' <option value=""'.SELECTED.'>'.$clang->gT('Please choose').'...</option>'."\n".$answer;
}
if (isset($other) && $other=='Y')
{
if ($_SESSION[$ia[1]] == '-oth-')
{
$opt_select = SELECTED;
}
else
{
$opt_select = '';
}
$answer .= ' <option value="-oth-"'.$opt_select.'>'.$othertext."</option>\n";
}
if ((isset($_SESSION[$ia[1]]) || $_SESSION[$ia[1]] != '') && (!isset($defexists) || !$defexists) && $ia[6] != 'Y' && $shownoanswer == 1)
{
$answer .= ' <option value=" ">'.$clang->gT('No answer')."</option>\n";
}
$answer .= ' </select>
<input type="hidden" name="java'.$ia[1].'" id="java'.$ia[1].'" value="'.$_SESSION[$ia[1]].'" />';
if (isset($other) && $other=='Y')
{
$sselect_show_hide = ' showhideother(this.name, this.value);';
}
else
{
$sselect_show_hide = '';
}
$sselect = '
<p class="question">
<select name="'.$ia[1].'" id="answer'.$ia[1].'" onchange="'.$checkconditionFunction.'(this.value, this.name, this.type);'.$sselect_show_hide.'">
';
$answer = $sselect.$answer;
if (isset($other) && $other=='Y')
{
$answer = "\n<script type=\"text/javascript\">\n"
."<!--\n"
."function showhideother(name, value)\n"
."\t{\n"
."\tvar hiddenothername='othertext'+name;\n"
."\tif (value == \"-oth-\")\n"
."{\n"
."document.getElementById(hiddenothername).style.display='';\n"
."document.getElementById(hiddenothername).focus();\n"
."}\n"
."\telse\n"
."{\n"
."document.getElementById(hiddenothername).style.display='none';\n"
."document.getElementById(hiddenothername).value='';\n" // reset othercomment field
."}\n"
."\t}\n"
."//--></script>\n".$answer;
$answer .= ' <input type="text" id="othertext'.$ia[1].'" name="'.$ia[1].'other" style="display:';
$inputnames[]=$ia[1].'other';
if ($_SESSION[$ia[1]] != '-oth-')
{
$answer .= 'none';
}
// // --> START BUG FIX - text field for other was not repopulating when returning to page via << PREV
$answer .= '"';
// $thisfieldname=$ia[1].'other';
// if (isset($_SESSION[$thisfieldname])) { $answer .= ' value="'.htmlspecialchars($_SESSION[$thisfieldname],ENT_QUOTES).'" ';}
// // --> END BUG FIX
// --> START NEW FEATURE - SAVE
$answer .= " alt='".$clang->gT('Other answer')."' onchange='$checkconditionFunction(this.value, this.name, this.type);'";
$thisfieldname="$ia[1]other";
if (isset($_SESSION[$thisfieldname])) { $answer .= " value='".htmlspecialchars($_SESSION[$thisfieldname],ENT_QUOTES)."' ";}
$answer .= ' />';
$answer .= "</p>";
// --> END NEW FEATURE - SAVE
$inputnames[]=$ia[1]."other";
}
else
{
$answer .= "</p>";
}
$checkotherscript = "";
if (isset($other) && $other == 'Y' && $qidattributes['other_comment_mandatory']==1)
{
$checkotherscript = "\n<script type='text/javascript'>\n"
. "\t<!--\n"
. "oldonsubmitOther_{$ia[0]} = document.limesurvey.onsubmit;\n"
. "function ensureOther_{$ia[0]}()\n"
. "{\n"
. "\tothercommentval=document.getElementById('othertext{$ia[1]}').value;\n"
. "\totherval=document.getElementById('answer{$ia[1]}').value;\n"
. "\tif (otherval == '-oth-' && othercommentval == '') {\n"
. "alert('".sprintf($clang->gT("You've selected the \"%s\" answer for question \"%s\". Please also fill in the accompanying \"other comment\" field.","js"),trim(javascript_escape($othertext,true,true)),trim(javascript_escape($ia[3],true,true)))."');\n"
. "return false;\n"
. "\t}\n"
. "\telse {\n"
. "if(typeof oldonsubmitOther_{$ia[0]} == 'function') {\n"
. "\treturn oldonsubmitOther_{$ia[0]}();\n"
. "}\n"
. "\t}\n"
. "}\n"
. "document.limesurvey.onsubmit = ensureOther_{$ia[0]};\n"
. "\t-->\n"
. "</script>\n";
}
$answer = $checkotherscript . $answer;
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_list_flexible_dropdown($ia)
{
global $dbprefix, $dropdownthreshold, $lwcdropdowns, $connect;
global $shownoanswer, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
if (trim($qidattributes['other_replace_text'])!='') {
$othertext=$clang->gT($qidattributes['other_replace_text']);
}
else {
$othertext=$clang->gT('Other');
}
$answer='';
$qquery = "SELECT other, lid FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'";
$qresult = db_execute_assoc($qquery); //Checked
while($row = $qresult->FetchRow()) {$other = $row['other']; $lid=$row['lid'];}
$filter='';
if (trim($qidattributes['code_filter'])!='') {
$filter=$qidattributes['code_filter'];
if(isset($_SESSION['insertarray']) && in_array($filter, $_SESSION['insertarray']))
{
$filter=trim($_SESSION[$filter]);
}
}
$filter .= '%';
//question attribute random order set?
if ($qidattributes['random_order']==1) {
$ansquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND code LIKE '$filter' AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random();
}
//question attribute alphasort set?
elseif ($qidattributes['alphasort']==1) {
$ansquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND code LIKE '$filter' AND language='".$_SESSION['s_lang']."' ORDER BY title";
}
//no question attributes -> order by sortorder
else
{
$ansquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND code LIKE '$filter' AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, code";
}
$ansresult = db_execute_assoc($ansquery) or safe_die('Couldn\'t get answers<br />$ansquery<br />'.$connect->ErrorMsg());//Checked
if (labelset_exists($lid,$_SESSION['s_lang']))
{
$opt_select='';
while ($ansrow = $ansresult->FetchRow())
{
if ($_SESSION[$ia[1]] == $ansrow['code'])
{
$opt_select = SELECTED;
}
else
{
$opt_select = '';
}
$answer .= '<option value="'.$ansrow['code'].'"'.$opt_select.'>'.$ansrow['title']."</option>\n";
}
if (!$_SESSION[$ia[1]] && (!isset($defexists) || !$defexists))
{
$answer = '<option value="" '.$opt_select.'>'.$clang->gT('Please choose')."...</option>\n".$answer;
}
if (isset($other) && $other=='Y')
{
if ($_SESSION[$ia[1]] == '-oth-')
{
$opt_select = SELECTED;
}
else
{
$opt_select = '';
}
$answer .= ' <option value="-oth-"'.$opt_select.'>'.$othertext."</option>\n";
}
if ((isset($_SESSION[$ia[1]]) || $_SESSION[$ia[1]] != '') && (!isset($defexists) || !$defexists) && $ia[6] != 'Y' && $shownoanswer == 1)
{
$answer .= ' <option value=" ">'.$clang->gT('No answer')."</option>\n";
}
$answer .= "</select>\n";
}
else
{
$answer .= ' <option>'.$clang->gT('Error: The labelset used for this question is not available in this language.').$_SESSION['s_lang'].'</option>
';
}
$answer .= ' <input type="hidden" alt=\"'.$clang->gT('Other text').'\" name="java'.$ia[1].'" id="java'.$ia[1]."\" value=\"{$_SESSION[$ia[1]]}\" />\n";
if (isset($other) && $other=="Y")
{
$sselect_show_hide = ' showhideother(this.name, this.value)';
}
else
{
$sselect_show_hide = '';
}
$sselect = '
<p class="question">
<select name="'.$ia[1].'" id="answer'.$ia[1].'" onchange="'.$checkconditionFunction.'(this.value, this.name, this.type);'.$sselect_show_hide."\">\n";
$answer = $sselect.$answer;
if (isset($other) && $other=='Y')
{
$answer = "\n<script type=\"text/javascript\">\n"
."<!--\n"
."function showhideother(name, value)\n"
."\t{\n"
."\tvar hiddenothername='othertext'+name;\n"
."\tif (value == \"-oth-\")\n"
."{\n"
."document.getElementById(hiddenothername).style.display='';\n"
."document.getElementById(hiddenothername).focus();\n"
."}\n"
."\telse\n"
."{\n"
."document.getElementById(hiddenothername).style.display='none';\n"
."document.getElementById(hiddenothername).value='';\n" // TIBO enable this to reset the othercomment field when other unlesected
."}\n"
."\t}\n"
."//--></script>\n".$answer;
$answer .= ' <input type="text" id="othertext'.$ia[1].'" alt="'.$clang->gT('Other text').'" name="'.$ia[1].'other" style="display:';
if ($_SESSION[$ia[1]] != '-oth-')
{
$answer .= ' none';
}
$answer .= "\" value=\"";
if (isset($_SESSION[$ia[1].'other']))
{
$answer .= str_replace ("\"", "'", str_replace("\\", "",($_SESSION[$ia[1].'other'])));
}
$answer .= "\" />\n\t\n";
$inputnames[]=$ia[1]."other";
}
$checkotherscript = "";
if (isset($other) && $other == 'Y' && $qidattributes['other_comment_mandatory']==1)
{
$checkotherscript = "<script type='text/javascript'>\n"
. "\t<!--\n"
. "oldonsubmitOther_{$ia[0]} = document.limesurvey.onsubmit;\n"
. "function ensureOther_{$ia[0]}()\n"
. "{\n"
. "\tothercommentval=document.getElementById('othertext{$ia[1]}').value;\n"
. "\totherval=document.getElementById('answer{$ia[1]}').value;\n"
. "\tif (otherval == '-oth-' && othercommentval == '') {\n"
. "alert('".sprintf($clang->gT("You've selected the \"%s\" answer for question \"%s\". Please also fill in the accompanying \"other comment\" field.","js"),trim(javascript_escape($othertext,true,true)),trim(javascript_escape($ia[3],true,true)))."');\n"
. "return false;\n"
. "\t}\n"
. "\telse {\n"
. "if(typeof oldonsubmitOther_{$ia[0]} == 'function') {\n"
. "\treturn oldonsubmitOther_{$ia[0]}();\n"
. "}\n"
. "\t}\n"
. "}\n"
. "document.limesurvey.onsubmit = ensureOther_{$ia[0]};\n"
. "\t-->\n"
. "</script>\n";
}
$answer = $checkotherscript . $answer ."</p>";
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_list_radio($ia)
{
global $dbprefix, $dropdownthreshold, $lwcdropdowns, $connect, $clang;
global $shownoanswer, $thissurvey;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
unset ($defexists);
$query = "SELECT other FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."' ";
$result = db_execute_assoc($query); //Checked
while($row = $result->FetchRow())
{
$other = $row['other'];
}
//question attribute random order set?
if ($qidattributes['random_order']==1) {
$ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random();
}
//question attribute alphasort set?
elseif ($qidattributes['alphasort']==1)
{
$ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY answer";
}
//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) or safe_die('Couldn\'t get answers<br />$ansquery<br />'.$connect->ErrorMsg()); //Checked
$anscount = $ansresult->RecordCount();
if (trim($qidattributes['display_columns'])!='') {
$dcols = $qidattributes['display_columns'];
}
else
{
$dcols= 1;
}
if (trim($qidattributes['other_replace_text'])!='')
{
$othertext=$clang->gT($qidattributes['other_replace_text']);
}
else
{
$othertext=$clang->gT('Other:');
}
if (isset($other) && $other=='Y') {$anscount++;} //Count up for the Other answer
if ($ia[6] != 'Y' && $shownoanswer == 1) {$anscount++;} //Count up if "No answer" is showing
$wrapper = setup_columns($dcols , $anscount);
$answer = $wrapper['whole-start'];
// Get array_filter stuff
$rowcounter = 0;
$colcounter = 1;
$trbc='';
while ($ansrow = $ansresult->FetchRow())
{
$myfname = $ia[1].$ansrow['code'];
if ($_SESSION[$ia[1]] == $ansrow['code'])
{
$check_ans = CHECKED;
}
elseif ($ansrow['default_value'] == 'Y')
{
$check_ans = CHECKED;
$defexists = 'Y';
}
else
{
$check_ans = '';
}
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname, $trbc, $myfname, "li");
if($wrapper['item-start'] == "\t<li>\n")
{
$startitem = "\t$htmltbody2\n";
} else {
$startitem = $wrapper['item-start'];
}
$answer .= $startitem;
$answer .= "\t$hiddenfield\n";
$answer .=' <input class="radio" type="radio" value="'.$ansrow['code'].'" name="'.$ia[1].'" id="answer'.$ia[1].$ansrow['code'].'"'.$check_ans.' onclick="if (document.getElementById(\'answer'.$ia[1].'othertext\') != null) document.getElementById(\'answer'.$ia[1].'othertext\').value=\'\';'.$checkconditionFunction.'(this.value, this.name, this.type)" />
<label for="answer'.$ia[1].$ansrow['code'].'" class="answertext">'.$ansrow['answer'].'</label>
'.$wrapper['item-end'];
++$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 (isset($other) && $other=='Y')
{
if ($qidattributes['other_numbers_only']==1)
{
$numbersonly = 'onkeypress="return goodchars(event,\'-0123456789.\')"';
}
else
{
$numbersonly = '';
}
if ($_SESSION[$ia[1]] == '-oth-')
{
$check_ans = CHECKED;
}
else
{
$check_ans = '';
}
$thisfieldname=$ia[1].'other';
if (isset($_SESSION[$thisfieldname]))
{
$answer_other = ' value="'.htmlspecialchars($_SESSION[$thisfieldname],ENT_QUOTES).'"';
}
else
{
$answer_other = ' value=""';
}
$answer .= $wrapper['item-start-other'].' <input class="radio" type="radio" value="-oth-" name="'.$ia[1].'" id="SOTH'.$ia[1].'"'.$check_ans.' onclick="'.$checkconditionFunction.'(this.value, this.name, this.type)" />
<label for="SOTH'.$ia[1].'" class="answertext">'.$othertext.'</label>
<label for="answer'.$ia[1].'othertext">
<input type="text" class="text" id="answer'.$ia[1].'othertext" name="'.$ia[1].'other" title="'.$clang->gT('Other').'"'.$answer_other.' '.$numbersonly.' onclick="javascript:document.getElementById(\'SOTH'.$ia[1].'\').checked=true; '.$checkconditionFunction.'(document.getElementById(\'SOTH'.$ia[1].'\').value, document.getElementById(\'SOTH'.$ia[1].'\').name, document.getElementById(\'SOTH'.$ia[1].'\').type);" />
</label>
'.$wrapper['item-end'];
$inputnames[]=$thisfieldname;
++$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 ($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; //Check the "no answer" radio button if there is no default, and user hasn't answered this.
}
else
{
$check_ans = '';
}
$answer .= $wrapper['item-start'].' <input class="radio" type="radio" name="'.$ia[1].'" id="answer'.$ia[1].'NANS" value=""'.$check_ans.' onclick="if (document.getElementById(\'answer'.$ia[1].'othertext\') != null) document.getElementById(\'answer'.$ia[1].'othertext\').value=\'\';'.$checkconditionFunction.'(this.value, this.name, this.type)" />
<label for="answer'.$ia[1].'NANS" class="answertext">'.$clang->gT('No answer').'</label>
'.$wrapper['item-end'];
// --> END NEW FEATURE - SAVE
++$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;
}
}
//END OF ITEMS
$answer .= $wrapper['whole-end'].'
<input type="hidden" name="java'.$ia[1].'" id="java'.$ia[1]."\" value=\"{$_SESSION[$ia[1]]}\" />\n";
$checkotherscript = "";
if (isset($other) && $other == 'Y' && $qidattributes['other_comment_mandatory']==1)
{
$checkotherscript = "<script type='text/javascript'>\n"
. "\t<!--\n"
. "oldonsubmitOther_{$ia[0]} = document.limesurvey.onsubmit;\n"
. "function ensureOther_{$ia[0]}()\n"
. "{\n"
. "\tothercommentval=document.getElementById('answer{$ia[1]}othertext').value;\n"
. "\totherval=document.getElementById('SOTH{$ia[1]}').checked;\n"
. "\tif (otherval == true && othercommentval == '') {\n"
. "alert('".sprintf($clang->gT("You've selected the \"%s\" answer for question \"%s\". Please also fill in the accompanying \"other comment\" field.","js"),trim(javascript_escape($othertext,true,true)),trim(javascript_escape($ia[3],true,true)))."');\n"
. "return false;\n"
. "\t}\n"
. "\telse {\n"
. "if(typeof oldonsubmitOther_{$ia[0]} == 'function') {\n"
. "\treturn oldonsubmitOther_{$ia[0]}();\n"
. "}\n"
. "\t}\n"
. "}\n"
. "document.limesurvey.onsubmit = ensureOther_{$ia[0]};\n"
. "\t-->\n"
. "</script>\n";
}
$answer = $checkotherscript . $answer;
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_list_flexible_radio($ia)
{
global $dbprefix, $dropdownthreshold, $lwcdropdowns, $connect;
global $shownoanswer, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
if (trim($qidattributes['other_replace_text'])!='')
{
$othertext=$clang->gT($qidattributes['other_replace_text']);
}
else
{
$othertext=$clang->gT('Other:');
}
if (trim($qidattributes['display_columns'])!='')
{
$dcols=$qidattributes['display_columns'];
}
else
{
$dcols = 1;
}
if (isset($defexists)) {unset ($defexists);}
$query = "SELECT other, lid FROM {$dbprefix}questions WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'";
$result = db_execute_assoc($query); //Checked
while($row = $result->FetchRow()) {$other = $row['other']; $lid = $row['lid'];}
$filter='';
if (trim($qidattributes['code_filter'])!='') {
$filter=$qidattributes['code_filter'];
if(isset($_SESSION['insertarray']) && in_array($filter, $_SESSION['insertarray']))
{
$filter=trim($_SESSION[$filter]);
}
}
$filter .= '%';
//question attribute random order set?
if ($qidattributes['random_order']==1) {
$ansquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND code LIKE '$filter' AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random();
}
//question attribute alphasort set?
elseif ($qidattributes['alphasort']==1)
{
$ansquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND code LIKE '$filter' AND language='".$_SESSION['s_lang']."' ORDER BY title";
}
//no question attributes -> order by sortorder
else
{
$ansquery = "SELECT * FROM {$dbprefix}labels WHERE lid=$lid AND code LIKE '$filter' AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, code";
}
$ansresult = db_execute_assoc($ansquery) or safe_die("Couldn't get answers<br />$ansquery<br />".$connect->ErrorMsg()); //Checked
$anscount = $ansresult->RecordCount();
if ((isset($other) && $other=='Y') || ($ia[6] != 'Y' && $shownoanswer == 1)) {$anscount++;} //Count
$wrapper = setup_columns($dcols , $anscount);
$answer = $wrapper['whole-start'];
$rowcounter = 0;
$colcounter = 1;
if (labelset_exists($lid,$_SESSION['s_lang']))
{
while ($ansrow = $ansresult->FetchRow())
{
if ($_SESSION[$ia[1]] == $ansrow['code'])
{
$check_ans = CHECKED;
}
else
{
$check_ans ='';
};
$answer .= $wrapper['item-start'].' <input class="radio" type="radio" value="'.$ansrow['code'].'" name="'.$ia[1].'" id="answer'.$ia[1].$ansrow['code'].'"'.$check_ans.' onclick="if (document.getElementById(\'answer'.$ia[1].'othertext\') != null) document.getElementById(\'answer'.$ia[1].'othertext\').value=\'\';'.$checkconditionFunction.'(this.value, this.name, this.type)" />
<label for="answer'.$ia[1].$ansrow['code'].'" class="answertext">'.$ansrow['title'].'</label>
'.$wrapper['item-end'];
++$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;
}
}
}
else
{
$answer .= $clang->gT('Error: The labelset used for this question is not available in this language.').'<br />';
}
if (isset($other) && $other=='Y')
{
if ($_SESSION[$ia[1]] == '-oth-')
{
$check_ans = CHECKED;
}
else
{
$check_ans = '';
}
$thisfieldname=$ia[1].'other';
if (isset($_SESSION[$thisfieldname]))
{
$answer_other = ' value="'.htmlspecialchars($_SESSION[$thisfieldname],ENT_QUOTES).'"';
}
else
{
$answer_other = ' value=""';
}
$answer .= $wrapper['item-start'].' <input class="radio" type="radio" value="-oth-" name="'.$ia[1].'" id="SOTH'.$ia[1].'"'.$check_ans.' onclick="'.$checkconditionFunction.'(this.value, this.name, this.type)" />
<label for="SOTH'.$ia[1].'" class="answertext">'.$othertext.'</label>
<label for="answer'.$ia[1].'othertext">
<input type="text" class="text" id="answer'.$ia[1].'othertext" name="'.$ia[1].'other" title="'.$clang->gT('Other').'"'.$answer_other.' onclick="javascript:document.getElementById(\'SOTH'.$ia[1].'\').checked=true; '.$checkconditionFunction.'(document.getElementById(\'SOTH'.$ia[1].'\').value, document.getElementById(\'SOTH'.$ia[1].'\').name, document.getElementById(\'SOTH'.$ia[1].'\').type);" />
</label>
'.$wrapper['item-end'];
$inputnames[]=$thisfieldname;
++$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 ($ia[6] != 'Y' && $shownoanswer == 1)
{
if ((!isset($defexists) || $defexists != 'Y') && (!isset($_SESSION[$ia[1]]) || $_SESSION[$ia[1]] == '' || $_SESSION[$ia[1]] == ' '))
{
$check_ans = CHECKED; //Check the "no answer" radio button if there is no default, and user hasn't answered this.
}
else
{
$check_ans = '';
}
$answer .= $wrapper['item-start'].' <input class="radio" type="radio" name="'.$ia[1].'" id="answer'.$ia[1].'NANS" value=""'.$check_ans.' onclick="if (document.getElementById(\'answer'.$ia[1].'othertext\') != null) document.getElementById(\'answer'.$ia[1].'othertext\').value=\'\';'.$checkconditionFunction.'(this.value, this.name, this.type)" />
<label for="answer'.$ia[1].'NANS" class="answertext">'.$clang->gT('No answer').'</label>
'.$wrapper['item-end'];
++$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'].'
<input type="hidden" name="java'.$ia[1].'" id="java'.$ia[1]."\" value=\"{$_SESSION[$ia[1]]}\" />\n";
$checkotherscript = "";
if (isset($other) && $other == 'Y' && $qidattributes['other_comment_mandatory']==1)
{
$checkotherscript = "<script type='text/javascript'>\n"
. "\t<!--\n"
. "oldonsubmitOther_{$ia[0]} = document.limesurvey.onsubmit;\n"
. "function ensureOther_{$ia[0]}()\n"
. "{\n"
. "\tothercommentval=document.getElementById('answer{$ia[1]}othertext').value;\n"
. "\totherval=document.getElementById('SOTH{$ia[1]}').checked;\n"
. "\tif (otherval == true && othercommentval == '') {\n"
. "alert('".sprintf($clang->gT("You've selected the \"%s\" answer for question \"%s\". Please also fill in the accompanying \"other comment\" field.","js"),trim(javascript_escape($othertext,true,true)),trim(javascript_escape($ia[3],true,true)))."');\n"
. "return false;\n"
. "\t}\n"
. "\telse {\n"
. "if(typeof oldonsubmitOther_{$ia[0]} == 'function') {\n"
. "\treturn oldonsubmitOther_{$ia[0]}();\n"
. "}\n"
. "\t}\n"
. "}\n"
. "document.limesurvey.onsubmit = ensureOther_{$ia[0]};\n"
. "\t-->\n"
. "</script>\n";
}
$answer = $checkotherscript . $answer;
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_listwithcomment($ia)
{
global $maxoptionsize, $dbprefix, $dropdownthreshold, $lwcdropdowns;
global $shownoanswer, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$answer = '';
$qidattributes=getQuestionAttributes($ia[0],'O');
if (!isset($maxoptionsize)) {$maxoptionsize=35;}
//question attribute random order set?
if ($qidattributes['random_order']==1) {
$ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random();
}
//question attribute alphasort set?
elseif ($qidattributes['alphasort']==1)
{
$ansquery = "SELECT * FROM {$dbprefix}answers WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY answer";
}
//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();
$hint_comment = $clang->gT('Please enter your comment here');
if ($lwcdropdowns == 'R' && $anscount <= $dropdownthreshold)
{
$answer .= '<div class="list">
<ul>
';
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 .= ' <li>
<input type="radio" name="'.$ia[1].'" id="answer'.$ia[1].$ansrow['code'].'" value="'.$ansrow['code'].'" class="radio" '.$check_ans.' onclick="'.$checkconditionFunction.'(this.value, this.name, this.type)" />
<label for="answer'.$ia[1].$ansrow['code'].'" class="answertext">'.$ansrow['answer'].'</label>
</li>
';
}
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 .= ' <li>
<input class="radio" type="radio" name="'.$ia[1].'" id="answer'.$ia[1].'" value=" " onclick="'.$checkconditionFunction.'(this.value, this.name, this.type)"'.$check_ans.' />
<label for="answer'.$ia[1].'" class="answertext">'.$clang->gT('No answer').'</label>
</li>
';
}
$fname2 = $ia[1].'comment';
if ($anscount > 8) {$tarows = $anscount/1.2;} else {$tarows = 4;}
// --> START NEW FEATURE - SAVE
// --> START ORIGINAL
// $answer .= "\t<td valign='top'>\n"
// . "<textarea class='textarea' name='$ia[1]comment' id='answer$ia[1]comment' rows='$tarows' cols='30'>";
// --> 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 .= '</textarea>
</p>
<input class="radio" type="hidden" name="java'.$ia[1].'" id="java'.$ia[1]."\" value=\"{$_SESSION[$ia[1]]}\" />
";
$inputnames[]=$ia[1];
$inputnames[]=$ia[1].'comment';
}
else //Dropdown list
{
// --> START NEW FEATURE - SAVE
$answer .= '<p class="select">
<select class="select" name="'.$ia[1].'" id="answer'.$ia[1].'" onclick="'.$checkconditionFunction.'(this.value, this.name, this.type)" >
';
// --> 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";
}
else
{
$check_ans = '';
}
$answer .= ' <option value="'.$ansrow['code'].'"'.$check_ans.'>'.$ansrow['answer']."</option>\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 .= ' <option value=" "'.$check_ans.'>'.$clang->gT('No answer')."</option>\n";
}
$answer .= ' </select>
</p>
';
$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 .= '<p class="comment">
'.$hint_comment.'
<textarea class="textarea" name="'.$ia[1].'comment" id="answer'.$ia[1].'comment" rows="'.$tarows.'" cols="'.$maxoptionsize.'" >';
// --> END NEW FEATURE - SAVE
if (isset($_SESSION[$fname2]) && $_SESSION[$fname2])
{
$answer .= str_replace("\\", "", $_SESSION[$fname2]);
}
$answer .= '</textarea>
<input class="radio" type="hidden" name="java'.$ia[1].'" id="java'.$ia[1]." value=\"{$_SESSION[$ia[1]]}\" />\n</p>\n";
$inputnames[]=$ia[1];
$inputnames[]=$ia[1].'comment';
}
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_ranking($ia)
{
global $dbprefix, $imagefiles, $clang, $thissurvey, $showpopups;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
$answer="";
if ($qidattributes['random_order']==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 (trim($qidattributes["max_answers"])!='')
{
$max_answers=trim($qidattributes["max_answers"]);
} 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<script type='text/javascript'>\n"
. "\t<!--\n"
. "function rankthis_{$ia[0]}(\$code, \$value)\n"
. "\t{\n"
. "\t\$index=document.getElementById('CHOICES_{$ia[0]}').selectedIndex;\n"
. "\tfor (i=1; i<=$max_answers; i++)\n"
. "{\n"
. "\$b=i;\n"
. "\$b += '';\n"
. "\$inputname=\"RANK_{$ia[0]}\"+\$b;\n"
. "\$hiddenname=\"fvalue_{$ia[0]}\"+\$b;\n"
. "\$cutname=\"cut_{$ia[0]}\"+i;\n"
. "document.getElementById(\$cutname).style.display='none';\n"
. "if (!document.getElementById(\$inputname).value)\n"
. "\t{\n"
. "\t\t\t\t\t\t\tdocument.getElementById(\$inputname).value=\$value;\n"
. "\t\t\t\t\t\t\tdocument.getElementById(\$hiddenname).value=\$code;\n"
. "\t\t\t\t\t\t\tdocument.getElementById(\$cutname).style.display='';\n"
. "\t\t\t\t\t\t\tfor (var b=document.getElementById('CHOICES_{$ia[0]}').options.length-1; b>=0; b--)\n"
. "\t\t\t\t\t\t\t\t{\n"
. "\t\t\t\t\t\t\t\tif (document.getElementById('CHOICES_{$ia[0]}').options[b].value == \$code)\n"
. "\t\t\t\t\t\t\t\t\t{\n"
. "\t\t\t\t\t\t\t\t\tdocument.getElementById('CHOICES_{$ia[0]}').options[b] = null;\n"
. "\t\t\t\t\t\t\t\t\t}\n"
. "\t\t\t\t\t\t\t\t}\n"
. "\t\t\t\t\t\t\ti=$max_answers;\n"
. "\t\t\t\t\t\t\t}\n"
. "\t\t\t\t\t\t}\n"
. "\t\t\t\t\tif (document.getElementById('CHOICES_{$ia[0]}').options.length == $finished)\n"
. "\t\t\t\t\t\t{\n"
. "\t\t\t\t\t\tdocument.getElementById('CHOICES_{$ia[0]}').disabled=true;\n"
. "\t\t\t\t\t\t}\n"
. "\t\t\t\t\tdocument.getElementById('CHOICES_{$ia[0]}').selectedIndex=-1;\n"
. "\t\t\t\t\t$checkconditionFunction(\$code);\n"
. "\t\t\t\t\t}\n"
. "\t\t\t\tfunction deletethis_{$ia[0]}(\$text, \$value, \$name, \$thisname)\n"
. "\t\t\t\t\t{\n"
. "\t\t\t\t\tvar qid='{$ia[0]}';\n"
. "\t\t\t\t\tvar lngth=qid.length+4;\n"
. "\t\t\t\t\tvar cutindex=\$thisname.substring(lngth, \$thisname.length);\n"
. "\t\t\t\t\tcutindex=parseFloat(cutindex);\n"
. "\t\t\t\t\tdocument.getElementById(\$name).value='';\n"
. "\t\t\t\t\tdocument.getElementById(\$thisname).style.display='none';\n"
. "\t\t\t\t\tif (cutindex > 1)\n"
. "\t\t\t\t\t\t{\n"
. "\t\t\t\t\t\t\$cut1name=\"cut_{$ia[0]}\"+(cutindex-1);\n"
. "\t\t\t\t\t\t\$cut2name=\"fvalue_{$ia[0]}\"+(cutindex);\n"
. "\t\t\t\t\t\tdocument.getElementById(\$cut1name).style.display='';\n"
. "\t\t\t\t\t\tdocument.getElementById(\$cut2name).value='';\n"
. "\t\t\t\t\t\t}\n"
. "\t\t\t\t\telse\n"
. "\t\t\t\t\t\t{\n"
. "\t\t\t\t\t\t\$cut2name=\"fvalue_{$ia[0]}\"+(cutindex);\n"
. "\t\t\t\t\t\tdocument.getElementById(\$cut2name).value='';\n"
. "\t\t\t\t\t\t}\n"
. "\t\t\t\t\tvar i=document.getElementById('CHOICES_{$ia[0]}').options.length;\n"
. "\t\t\t\t\tdocument.getElementById('CHOICES_{$ia[0]}').options[i] = new Option(\$text, \$value);\n"
. "\t\t\t\t\tif (document.getElementById('CHOICES_{$ia[0]}').options.length > 0)\n"
. "\t\t\t\t\t\t{\n"
. "\t\t\t\t\t\tdocument.getElementById('CHOICES_{$ia[0]}').disabled=false;\n"
. "\t\t\t\t\t\t}\n"
. "\t\t\t\t\t$checkconditionFunction('');\n"
. "\t\t\t\t\t}\n"
. "\t\t\t//-->\n"
. "\t\t\t</script>\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<tr><td class=\"position\"> <label for='RANK_{$ia[0]}$i'>"
."$i: </label></td><td class=\"item\"><input class=\"text\" type=\"text\" name=\"RANK_{$ia[0]}$i\" id=\"RANK_{$ia[0]}$i\"";
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname])
{
$ranklist .= " value='";
$ranklist .= htmlspecialchars($thistext, ENT_QUOTES);
$ranklist .= "'";
}
$ranklist .= " onfocus=\"this.blur()\" />\n";
$ranklist .= "<input type=\"hidden\" name=\"$myfname\" id=\"fvalue_{$ia[0]}$i\" value='";
$chosen[]=""; //create array
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname])
{
$ranklist .= $thiscode;
$chosen[]=array($thiscode, $thistext);
}
$ranklist .= "' />\n";
$ranklist .= "<img src=\"$imagefiles/cut.gif\" alt=\"".$clang->gT("Remove this item")."\" title=\"".$clang->gT("Remove this item")."\" ";
if ($i != $existing)
{
$ranklist .= "style=\"display:none\"";
}
$ranklist .= " id=\"cut_{$ia[0]}$i\" onclick=\"deletethis_{$ia[0]}(document.getElementById('RANK_{$ia[0]}$i').value, document.getElementById('fvalue_{$ia[0]}$i').value, document.getElementById('RANK_{$ia[0]}$i').name, this.id)\" /><br />\n";
$inputnames[]=$myfname;
$ranklist .= "</td></tr>\n";
}
$maxselectlength=0;
$choicelist = "<select size=\"$anscount\" name=\"CHOICES_{$ia[0]}\" ";
if (isset($choicewidth)) {$choicelist.=$choicewidth;}
$choicelist .= " id=\"CHOICES_{$ia[0]}\" onclick=\"if (this.options.length>0 && 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<option value='{$ans[0]}'>{$ans[1]}</option>\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<option value='{$ans[0]}'>{$ans[1]}</option>\n";
if (isset($maxselectlength) && strlen($ans[1]) > $maxselectlength) {$maxselectlength = strlen($ans[1]);}
}
}
}
$choicelist .= "</select>\n";
$answer .= "\t<table border='0' cellspacing='0' class='rank'>\n"
. "<tr>\n"
. "\t<td align='left' valign='top' class='rank label'>\n"
. "<strong> <label for='CHOICES_{$ia[0]}'>".$clang->gT("Your Choices").":</label></strong><br />\n"
. " ".$choicelist
. "\t </td>\n";
if (isset($maxselectlength) && $maxselectlength > 60)
{
$ranklist = str_replace("<input class=\"text\"", "<input size='60' class='text'", $ranklist);
$answer .= "</tr>\n<tr>\n"
. "\t<td align='left' class='output'>\n"
. "\t<table border='0' cellspacing='1' cellpadding='0'>\n"
. "\t<tr><td></td><td><strong>".$clang->gT("Your Ranking").":</strong></td></tr>\n";
}
else
{
$answer .= "\t<td style=\"text-align:left; white-space:nowrap;\" class=\"rank output\">\n"
. "\t<table border='0' cellspacing='1' cellpadding='0'>\n"
. "\t<tr><td></td><td><strong>".$clang->gT("Your Ranking").":</strong></td></tr>\n";
}
$answer .= $ranklist
. "\t</table>\n"
. "\t</td>\n"
. "</tr>\n"
. "<tr>\n"
. "\t<td colspan='2' class='rank'><font size='1'>\n"
. "".$clang->gT("Click on the scissors next to each item on the right to remove the last entry in your ranked list")
. "\t</font></td>\n"
. "</tr>\n"
. "\t</table>\n";
if (trim($qidattributes["min_answers"])!='')
{
$minansw=trim($qidattributes["min_answers"]);
if(!isset($showpopups) || $showpopups == 0)
{
$answer .= "<div id='rankingminanswarning{$ia[0]}' style='display: none; color: red' class='errormandatory'>".sprintf($clang->gT("Please rank at least %d item(s) for question \"%s\"."),
$minansw, trim(str_replace(array("\n", "\r"), "", $ia[3])))."</div>";
}
$minanswscript = "<script type='text/javascript'>\n"
. " <!--\n"
. " oldonsubmit_{$ia[0]} = document.limesurvey.onsubmit;\n"
. " function ensureminansw_{$ia[0]}()\n"
. " {\n"
. " count={$anscount} - document.getElementById('CHOICES_{$ia[0]}').options.length;\n"
. " if (count < {$minansw} && document.getElementById('display{$ia[0]}').value == 'on'){\n";
if(!isset($showpopups) || $showpopups == 0)
{
$minanswscript .= "\n
document.getElementById('rankingminanswarning{$ia[0]}').style.display='';\n";
} else {
$minanswscript .="
alert('".sprintf($clang->gT("Please rank at least %d item(s) for question \"%s\".","js"),
$minansw, trim(javascript_escape(str_replace(array("\n", "\r"), "",$ia[3]),true,true)))."');\n";
}
$minanswscript .= ""
. " return false;\n"
. " } else {\n"
. " if (oldonsubmit_{$ia[0]}){\n"
. " return oldonsubmit_{$ia[0]}();\n"
. " }\n"
. " return true;\n"
. " }\n"
. " }\n"
. " document.limesurvey.onsubmit = ensureminansw_{$ia[0]}\n"
. " -->\n"
. " </script>\n";
$answer = $minanswscript . $answer;
}
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_multiplechoice($ia)
{
global $dbprefix, $clang, $connect, $thissurvey;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
if (trim($qidattributes['other_replace_text'])!='')
{
$othertext=$clang->gT($qidattributes['other_replace_text']);
}
else
{
$othertext=$clang->gT('Other:');
}
if (trim($qidattributes['display_columns'])!='')
{
$dcols = $qidattributes['display_columns'];
}
else
{
$dcols = 1;
}
if ($qidattributes['other_numbers_only']==1)
{
$numbersonly = 'return goodchars(event,"0123456789.")';
}
else
{
$numbersonly = '';
}
// Check if the max_answers attribute is set
$maxansw = 0;
$callmaxanswscriptcheckbox = '';
$callmaxanswscriptother = '';
$maxanswscript = '';
if (trim($qidattributes['exclude_all_others'])!='')
{
$excludeallothers=explode(';',trim($qidattributes['exclude_all_others']));
$excludeallotherscript = "
<script type='text/javascript'>
<!--
function excludeAllOthers$ia[1](value, doconditioncheck)
{\n";
$excludeallotherscripton='';
$excludeallotherscriptoff='';
}
else
{
$excludeallothers=array();
}
if (trim($qidattributes['max_answers'])!='') {
$maxansw=$qidattributes['max_answers'];
$callmaxanswscriptcheckbox = "limitmaxansw_{$ia[0]}(this);";
$callmaxanswscriptother = "onkeyup='limitmaxansw_{$ia[0]}(this)'";
$maxanswscript = "\t<script type='text/javascript'>\n"
. "\t<!--\n"
. "function limitmaxansw_{$ia[0]}(me)\n"
. "\t{\n"
. "\tmax=$maxansw\n"
. "\tcount=0;\n"
. "\tif (max == 0) { return count; }\n";
}
// Check if the min_answers attribute is set
$minansw=0;
$minanswscript = "";
if (trim($qidattributes["min_answers"])!='')
{
$minansw=trim($qidattributes["min_answers"]);
$minanswscript = "<script type='text/javascript'>\n"
. "\t<!--\n"
. "oldonsubmit_{$ia[0]} = document.limesurvey.onsubmit;\n"
. "function ensureminansw_{$ia[0]}()\n"
. "{\n"
. "\tcount=0;\n"
;
}
$qquery = "SELECT other FROM ".db_table_name('questions')." WHERE qid=".$ia[0]." AND language='".$_SESSION['s_lang']."'";
$qresult = db_execute_assoc($qquery); //Checked
while($qrow = $qresult->FetchRow()) {$other = $qrow['other'];}
if ($qidattributes['random_order']==1) {
$ansquery = "SELECT * FROM ".db_table_name('answers')." WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY ".db_random();
}
else
{
$ansquery = "SELECT * FROM ".db_table_name('answers')." WHERE qid=$ia[0] AND language='".$_SESSION['s_lang']."' ORDER BY sortorder, answer";
}
$ansresult = $connect->GetAll($ansquery); //Checked
$anscount = count($ansresult);
if (trim($qidattributes['exclude_all_others'])!='' && $qidattributes['random_order']==1)
{
//if exclude_all_others is set then the related answer should keep its position at all times
//thats why we have to re-position it if it has been randomized
$position=0;
foreach ($ansresult as $answer)
{
if ($answer['code']==trim($qidattributes['exclude_all_others']))
{
if ($position==$answer['sortorder']-1) break; //already in the right position
$tmp = array_splice($ansresult, $position, 1);
array_splice($ansresult, $answer['sortorder']-1, 0, $tmp);
break;
}
$position++;
}
}
if ($other == 'Y')
{
$anscount++; //COUNT OTHER AS AN ANSWER FOR MANDATORY CHECKING!
}
$wrapper = setup_columns($dcols, $anscount);
$answer = '<input type="hidden" name="MULTI'.$ia[1].'" value="'.$anscount."\" />\n\n".$wrapper['whole-start'];
$fn = 1;
if (!isset($multifields))
{
$multifields = '';
}
$rowcounter = 0;
$colcounter = 1;
$startitem='';
$postrow = '';
foreach ($ansresult as $ansrow)
{
$myfname = $ia[1].$ansrow['code'];
$trbc='';
/* Check for array_filter */
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname, $trbc, $myfname, "li");
if($wrapper['item-start'] == "\t<li>\n")
{
$startitem = "\t$htmltbody2\n";
} else {
$startitem = $wrapper['item-start'];
}
/* Print out the checkbox */
$answer .= $startitem;
$answer .= "\t$hiddenfield\n";
$answer .= ' <input class="checkbox" type="checkbox" name="'.$ia[1].$ansrow['code'].'" id="answer'.$ia[1].$ansrow['code'].'" value="Y"';
/* If the question has already been ticked, check the checkbox */
if (isset($_SESSION[$myfname]))
{
if ($_SESSION[$myfname] == 'Y')
{
$answer .= CHECKED;
if(in_array($ansrow['code'], $excludeallothers))
{
$postrow.="\n\n<script type='text/javascript'>\n<!--\nexcludeAllOthers$ia[1]('answer$ia[1]{$ansrow['code']}', 'no');\n-->\n</script>\n";
}
}
}
/* Or if the question is marked as a default selection, check the checkbox */
elseif ($ansrow['default_value'] == 'Y')
{
$answer .= CHECKED;
}
$answer .= " onclick='cancelBubbleThis(event);";
/* Exclude all others coding */
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"
. "thiselt.checked='';\n"
. "thiselt.disabled='true';\n"
. "if (doconditioncheck == 'yes') {\n"
. "\t$checkconditionFunction(thiselt.value, thiselt.name, thiselt.type);\n"
. "}\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"
. "thiselt.checked='';\n"
. "thiselt.disabled='true';\n"
. "if (doconditioncheck == 'yes') {\n"
. "\t$checkconditionFunction(thiselt.value, thiselt.name, thiselt.type);\n"
. "}\n";
$excludeallotherscriptoff.= "document.getElementById('answer$ia[1]{$ansrow['code']}').disabled='';\n";
}
/* End of exclude all others coding */
$answer .= $callmaxanswscriptcheckbox /* Include checkbox for script for maxanswers if that attribute is selected */
. "$checkconditionFunction(this.value, this.name, this.type)' />\n"
. "<label for=\"answer$ia[1]{$ansrow['code']}\" class=\"answertext\">"
. $ansrow['answer']
. "</label>\n";
// --> END NEW FEATURE - SAVE
if ($maxansw > 0) {$maxanswscript .= "\tif (document.getElementById('answer".$myfname."').checked) { count += 1; }\n";}
if ($minansw > 0) {$minanswscript .= "\tif (document.getElementById('answer".$myfname."').checked) { count += 1; }\n";}
++$fn;
/* Now add the hidden field to contain information about this answer */
$answer .= ' <input type="hidden" name="java'.$myfname.'" id="java'.$myfname.'" value="';
if (isset($_SESSION[$myfname]))
{
$answer .= $_SESSION[$myfname];
}
$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';
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname, $trbc, $myfname, "div");
if(count($excludeallothers) > 0)
{
$excludeallotherscripton .= "thiselt=document.getElementById('answer{$ia[1]}othercbox');\n"
. "thiselt.checked='';\n"
. "thiselt.disabled='true';\n";
$excludeallotherscripton .= "thiselt=document.getElementById('answer$ia[1]other');\n"
. "thiselt.value='';\n"
. "thiselt.disabled='true';\n"
. "if (doconditioncheck == 'yes') {\n"
. "\t$checkconditionFunction(thiselt.value, thiselt.name, thiselt.type);\n"
. "}\n";
$excludeallotherscriptoff .="document.getElementById('answer$ia[1]other').disabled='';\n";
$excludeallotherscriptoff .="document.getElementById('answer{$ia[1]}othercbox').disabled='';\n";
}
$answer .= $wrapper['item-start'].'
<input class="checkbox" type="checkbox" name="'.$myfname.'cbox" alt="'.$clang->gT('Other').'" id="answer'.$myfname.'cbox"';
if (isset($_SESSION[$myfname]) && trim($_SESSION[$myfname])!='')
{
$answer .= CHECKED;
}
$answer .= " onclick='cancelBubbleThis(event);".$callmaxanswscriptcheckbox."document.getElementById(\"answer$myfname\").value=\"\";' />
<label for=\"answer$myfname\" class=\"answertext\">".$othertext."</label>
<input class=\"text\" type=\"text\" name=\"$myfname\" id=\"answer$myfname\"";
if (isset($_SESSION[$myfname]))
{
$answer .= ' value="'.htmlspecialchars($_SESSION[$myfname],ENT_QUOTES).'"';
}
$answer .= " onkeypress='if ($.trim($(\"#answer{$myfname}\").val())!=\"\") {document.getElementById(\"answer{$myfname}cbox\").checked=true;}$numbersonly' ".$callmaxanswscriptother.' />
<input type="hidden" name="java'.$myfname.'" id="java'.$myfname.'" value="';
if ($maxansw > 0)
{
//
// 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
// I've added a javascript which will warn a user if no other comment is given while the other checkbox is checked
// For the maxanswer script, I will alert the participant
// if the limit is reached when he checks the other cbox
// even if the -other- input field is still empty
// This will be differetn for the minansw script
// ==> hence the 1==2
if (1==2 || $qidattributes['other_comment_mandatory']==1)
{
$maxanswscript .= "\tif (document.getElementById('answer".$myfname."').value != '' && document.getElementById('answer".$myfname."cbox').checked ) { count += 1; }\n";
}
else
{
$maxanswscript .= "\tif (document.getElementById('answer".$myfname."').value != '' || document.getElementById('answer".$myfname."cbox').checked ) { count += 1; }\n";
}
}
if ($minansw > 0)
{
//
// 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
// We only count the -other- as valid if both the cbox and the other text is filled
// ==> hence the 1==1
if (1==1 || $qidattributes['other_comment_mandatory']==1)
{
$minanswscript .= "\tif (document.getElementById('answer".$myfname."').value != '' && document.getElementById('answer".$myfname."cbox').checked ) { count += 1; }\n";
}
else
{
$minanswscript .= "\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 .= "\tif (count > max)\n"
. "{\n"
. "alert('".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"
. "if (me.type == 'checkbox') {me.checked = false;}\n"
. "if (me.type == 'text') {\n"
. "\tme.value = '';\n"
. "\tif (document.getElementById(me.name + 'cbox') ){\n"
. " document.getElementById(me.name + 'cbox').checked = false;\n"
. "\t}\n"
. "}"
. "return max;\n"
. "}\n"
. "\t}\n"
. "\t//-->\n"
. "\t</script>\n";
$answer = $maxanswscript . $answer;
}
if ( $minansw > 0 )
{
$minanswscript .=
"\tif (count < {$minansw} && document.getElementById('display{$ia[0]}').value == 'on'){\n"
. "alert('".sprintf($clang->gT("Please choose at least %d answer(s) for question \"%s\"","js"),
$minansw, trim(javascript_escape(str_replace(array("\n", "\r"), "",$ia[3]),true,true)))."');\n"
. "return false;\n"
. "\t} else {\n"
. "if (oldonsubmit_{$ia[0]}){\n"
. "\treturn oldonsubmit_{$ia[0]}();\n"
. "}\n"
. "return true;\n"
. "\t}\n"
. "}\n"
. "document.limesurvey.onsubmit = ensureminansw_{$ia[0]}\n"
. "-->\n"
. "\t</script>\n";
//$answer = $minanswscript . $answer;
}
$checkotherscript = "";
if ($other == 'Y')
{
// Multiple options with 'other' is a specific case as the checkbox isn't recorded into DB
// this means that if it is cehcked We must force the end-user to enter text in the input
// box
$checkotherscript = "<script type='text/javascript'>\n"
. "\t<!--\n"
. "oldonsubmitOther_{$ia[0]} = document.limesurvey.onsubmit;\n"
. "function ensureOther_{$ia[0]}()\n"
. "{\n"
. "\tothercboxval=document.getElementById('answer".$myfname."cbox').checked;\n"
. "\totherval=document.getElementById('answer".$myfname."').value;\n"
. "\tif (otherval != '' || othercboxval != true) {\n"
. "if(typeof oldonsubmitOther_{$ia[0]} == 'function') {\n"
. "\treturn oldonsubmitOther_{$ia[0]}();\n"
. "}\n"
. "\t}\n"
. "\telse {\n"
. "alert('".sprintf($clang->gT("You've marked the \"other\" field for question \"%s\". Please also fill in the accompanying \"other comment\" field.","js"),trim(javascript_escape($ia[3],true,true)))."');\n"
. "return false;\n"
. "\t}\n"
. "}\n"
. "document.limesurvey.onsubmit = ensureOther_{$ia[0]};\n"
. "\t-->\n"
. "</script>\n";
}
$answer = $minanswscript . $checkotherscript . $answer;
if (count($excludeallothers)>0)
{
$excludeallotherscript .= "
if (document.getElementById(value).checked)
{
$excludeallotherscripton
}
else
{
$excludeallotherscriptoff
}
}
//-->
</script>";
$answer = $excludeallotherscript . $answer;
}
$answer .= $postrow;
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_multiplechoice_withcomments($ia)
{
global $dbprefix, $clang, $thissurvey;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
if ($qidattributes['other_numbers_only']==1)
{
$numbersonly = 'onkeypress="return goodchars(event,\'-0123456789.\')"';
}
else
{
$numbersonly = '';
}
if (trim($qidattributes['other_replace_text'])!='')
{
$othertext=$clang->gT($qidattributes['other_replace_text']);
}
else
{
$othertext=$clang->gT('Other:');
}
// Check if the max_answers attribute is set
$maxansw=0;
$callmaxanswscriptcheckbox = '';
$callmaxanswscriptcheckbox2 = '';
$callmaxanswscriptother = '';
$maxanswscript = '';
if (trim($qidattributes['max_answers'])!='') {
$maxansw=$qidattributes['max_answers'];
$callmaxanswscriptcheckbox = "limitmaxansw_{$ia[0]}(this);";
$callmaxanswscriptcheckbox2= "limitmaxansw_{$ia[0]}";
$callmaxanswscriptother = "onkeyup=\"limitmaxansw_{$ia[0]}(this)\"";
$maxanswscript = "\t<script type='text/javascript'>\n"
. "\t<!--\n"
. "function limitmaxansw_{$ia[0]}(me)\n"
. "\t{\n"
. "\tmax=$maxansw\n"
. "\tcount=0;\n"
. "\tif (max == 0) { return count; }\n";
}
// Check if the min_answers attribute is set
$minansw=0;
$minanswscript = "";
if (trim($qidattributes["min_answers"])!='')
{
$minansw=trim($qidattributes["min_answers"]);
$minanswscript = "<script type='text/javascript'>\n"
. "\t<!--\n"
. "oldonsubmit_{$ia[0]} = document.limesurvey.onsubmit;\n"
. "function ensureminansw_{$ia[0]}()\n"
. "{\n"
. "\tcount=0;\n"
;
}
$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'];}
if ($qidattributes['random_order']==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 = "<input type='hidden' name='MULTI$ia[1]' value='$anscount' />\n";
$answer_main = '';
$fn = 1;
if($other == 'Y')
{
$label_width = 25;
}
else
{
$label_width = 0;
}
while ($ansrow = $ansresult->FetchRow())
{
$myfname = $ia[1].$ansrow['code'];
$trbc='';
/* Check for array_filter */
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname, $trbc, $myfname, "li");
if($label_width < strlen(trim(strip_tags($ansrow['answer']))))
{
$label_width = strlen(trim(strip_tags($ansrow['answer'])));
}
$myfname2 = $myfname."comment";
$startitem = "\t$htmltbody2\n";
/* Print out the checkbox */
$answer_main .= $startitem;
$answer_main .= "\t$hiddenfield\n";
$answer_main .= "<span class=\"option\">\n"
. "\t<label for=\"answer$myfname\" class=\"answertext\">\n"
. "\t<input class=\"checkbox\" type=\"checkbox\" name=\"$myfname\" id=\"answer$myfname\" value=\"Y\"";
/* If the question has already been ticked, check the checkbox */
if (isset($_SESSION[$myfname]))
{
if ($_SESSION[$myfname] == 'Y')
{
$answer_main .= CHECKED;
}
}
elseif ($ansrow['default_value'] == 'Y')
{
$answer_main .= CHECKED;
}
$answer_main .=" onclick='cancelBubbleThis(event);".$callmaxanswscriptcheckbox."$checkconditionFunction(this.value, this.name, this.type)' "
. " onchange='document.getElementById(\"answer$myfname2\").value=\"\";' />\n"
. $ansrow['answer']."</label>\n";
if ($maxansw > 0) {$maxanswscript .= "\tif (document.getElementById('answer".$myfname."').checked) { count += 1; }\n";}
if ($minansw > 0) {$minanswscript .= "\tif (document.getElementById('answer".$myfname."').checked) { count += 1; }\n";}
$answer_main .= "<input type='hidden' name='java$myfname' id='java$myfname' value='";
if (isset($_SESSION[$myfname])) {$answer_main .= $_SESSION[$myfname];}
$answer_main .= "' />\n";
$fn++;
$answer_main .= "</span>\n<span class=\"comment\">\n\t<label for='answer$myfname2' class=\"answer-comment\">\n"
."<input class='text' type='text' size='40' id='answer$myfname2' name='$myfname2' title='".$clang->gT("Make a comment on your choice here:")."' value='";
if (isset($_SESSION[$myfname2])) {$answer_main .= htmlspecialchars($_SESSION[$myfname2],ENT_QUOTES);}
// --> START NEW FEATURE - SAVE
$answer_main .= "' onclick='cancelBubbleThis(event);' onkeypress='if (jQuery.trim($(\"#answer{$myfname2}\").val())!=\"\") { document.getElementById(\"answer{$myfname}\").checked=true;$checkconditionFunction(document.getElementById(\"answer{$myfname}\").value,\"$myfname\",\"checkbox\");}' onkeyup='".$callmaxanswscriptcheckbox2."(document.getElementById(\"answer{$myfname}\"))' />\n\t</label>\n</span>\n"
. "\t</li>\n";
// --> END NEW FEATURE - SAVE
$fn++;
$inputnames[]=$myfname;
$inputnames[]=$myfname2;
}
if ($other == 'Y')
{
$myfname = $ia[1].'other';
$myfname2 = $myfname.'comment';
$anscount = $anscount + 2;
$answer_main .= "\t<li class=\"other\">\n<span class=\"option\">\n"
. "\t<label for=\"answer$myfname\" class=\"answertext\">\n".$othertext."\n<input class=\"text other\" $numbersonly type=\"text\" name=\"$myfname\" id=\"answer$myfname\" title=\"".$clang->gT('Other').'" size="10"';
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname])
{
$answer_main .= ' value="'.htmlspecialchars($_SESSION[$myfname],ENT_QUOTES).'"';
}
$fn++;
// --> START NEW FEATURE - SAVE
$answer_main .= " $callmaxanswscriptother />\n\t</label>\n</span>\n"
. "<span class=\"comment\">\n\t<label for=\"answer$myfname2\" class=\"answer-comment\">\n"
. '
<input class="text" type="text" size="40" name="'.$myfname2.'" id="answer'.$myfname2.'" title="'.$clang->gT('Make a comment on your choice here:').'" value="';
// --> END NEW FEATURE - SAVE
if (isset($_SESSION[$myfname2])) {$answer_main .= htmlspecialchars($_SESSION[$myfname2],ENT_QUOTES);}
// --> START NEW FEATURE - SAVE
$answer_main .= '" onkeyup="'.$callmaxanswscriptcheckbox2.'(document.getElementById(\'answer'.$myfname."'))\" />\n";
if ($maxansw > 0)
{
if ($qidattributes['other_comment_mandatory']==1)
{
$maxanswscript .= "\tif (document.getElementById('answer".$myfname."').value != '' && document.getElementById('answer".$myfname2."').value != '') { count += 1; }\n";
}
else
{
$maxanswscript .= "\tif (document.getElementById('answer".$myfname."').value != '') { count += 1; }\n";
}
}
if ($minansw > 0)
{
if ($qidattributes['other_comment_mandatory']==1)
{
$minanswscript .= "\tif (document.getElementById('answer".$myfname."').value != '' && document.getElementById('answer".$myfname2."').value != '') { count += 1; }\n";
}
else
{
$minanswscript .= "\tif (document.getElementById('answer".$myfname."').value != '') { count += 1; }\n";
}
}
$answer_main .= "\t</label>\n</span>\n\t</li>\n";
// --> END NEW FEATURE - SAVE
$inputnames[]=$myfname;
$inputnames[]=$myfname2;
}
$answer .= "<ul>\n".$answer_main."</ul>\n";
if ( $maxansw > 0 )
{
$maxanswscript .= "\tif (count > max)\n"
. "{\n"
. "alert('".sprintf($clang->gT("Please choose at most %d answer(s) for question \"%s\"","js"), $maxansw, trim(javascript_escape($ia[3],true,true)))."');\n"
. "var commentname='answer'+me.name+'comment';\n"
. "if (me.type == 'checkbox') {\n"
. "\tme.checked = false;\n"
. "\tvar commentname='answer'+me.name+'comment';\n"
. "}\n"
. "if (me.type == 'text') {\n"
. "\tme.value = '';\n"
. "\tif (document.getElementById(me.name + 'cbox') ){\n"
. " document.getElementById(me.name + 'cbox').checked = false;\n"
. "\t}\n"
. "}"
. "document.getElementById(commentname).value='';\n"
. "return max;\n"
. "}\n"
. "\t}\n"
. "\t//-->\n"
. "\t</script>\n";
$answer = $maxanswscript . $answer;
}
if ( $minansw > 0 )
{
$minanswscript .=
"\tif (count < {$minansw} && document.getElementById('display{$ia[0]}').value == 'on'){\n"
. "alert('".sprintf($clang->gT("Please choose at least %d answer(s) for question \"%s\"","js"),
$minansw, trim(javascript_escape(str_replace(array("\n", "\r"), "",$ia[3]),true,true)))."');\n"
. "return false;\n"
. "\t} else {\n"
. "if (oldonsubmit_{$ia[0]}){\n"
. "\treturn oldonsubmit_{$ia[0]}();\n"
. "}\n"
. "return true;\n"
. "\t}\n"
. "}\n"
. "document.limesurvey.onsubmit = ensureminansw_{$ia[0]}\n"
. "-->\n"
. "\t</script>\n";
//$answer = $minanswscript . $answer;
}
$checkotherscript = "";
if ($other == 'Y' && $qidattributes['other_comment_mandatory']==1)
{
// Multiple options with 'other' is a specific case as the checkbox isn't recorded into DB
// this means that if it is cehcked We must force the end-user to enter text in the input
// box
$checkotherscript = "<script type='text/javascript'>\n"
. "\t<!--\n"
. "oldonsubmitOther_{$ia[0]} = document.limesurvey.onsubmit;\n"
. "function ensureOther_{$ia[0]}()\n"
. "{\n"
. "\tothercommentval=document.getElementById('answer".$myfname2."').value;\n"
. "\totherval=document.getElementById('answer".$myfname."').value;\n"
. "\tif (otherval != '' && othercommentval == '') {\n"
. "alert('".sprintf($clang->gT("You've marked the \"other\" field for question \"%s\". Please also fill in the accompanying \"other comment\" field.","js"),trim(javascript_escape($ia[3],true,true)))."');\n"
. "return false;\n"
. "\t}\n"
. "\telse {\n"
. "if(typeof oldonsubmitOther_{$ia[0]} == 'function') {\n"
. "\treturn oldonsubmitOther_{$ia[0]}();\n"
. "}\n"
. "\t}\n"
. "}\n"
. "document.limesurvey.onsubmit = ensureOther_{$ia[0]};\n"
. "\t-->\n"
. "</script>\n";
}
$answer = $minanswscript . $checkotherscript . $answer;
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_multipleshorttext($ia)
{
global $dbprefix, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$answer='';
$qidattributes=getQuestionAttributes($ia[0]);
if ($qidattributes['numbers_only']==1)
{
$numbersonly = 'onkeypress="return goodchars(event,\'0123456789.\')"';
}
else
{
$numbersonly = '';
}
if (trim($qidattributes['maximum_chars'])!='')
{
$maxsize=$qidattributes['maximum_chars'];
}
else
{
$maxsize=255;
}
if (trim($qidattributes['text_input_width'])!='')
{
$tiwidth=$qidattributes['text_input_width'];
}
else
{
$tiwidth=20;
}
if (trim($qidattributes['prefix'])!='') {
$prefix=$qidattributes['prefix'];
}
else
{
$prefix = '';
}
if (trim($qidattributes['suffix'])!='') {
$suffix=$qidattributes['suffix'];
}
else
{
$suffix = '';
}
if ($qidattributes['random_order']==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<input type='hidden' name='MULTI$ia[1]' value='$anscount'>\n";
$fn = 1;
$answer_main = '';
$label_width = 0;
if ($anscount==0)
{
$inputnames=array();
$answer_main .= ' <li>'.$clang->gT('Error: This question has no answers.')."</li>\n";
}
else
{
if (trim($qidattributes['display_rows'])!='')
{
//question attribute "display_rows" is set -> we need a textarea to be able to show several rows
$drows=$qidattributes['display_rows'];
//extend maximum chars if this is set to short text default of 255
if($maxsize == 255)
{
$maxsize=65525;
}
//some JS to check max possible input
$answer = "<script type='text/javascript'>
<!--
function textLimit(field, maxlen) {
if (document.getElementById(field).value.length > maxlen)
document.getElementById(field).value = document.getElementById(field).value.substring(0, maxlen);
}
//-->
</script>\n";
while ($ansrow = $ansresult->FetchRow())
{
$myfname = $ia[1].$ansrow['code'];
if ($ansrow['answer'] == "")
{
$ansrow['answer'] = " ";
}
//NEW: textarea instead of input=text field
$answer_main .= "\t<li>\n"
. "<label for=\"answer$myfname\">{$ansrow['answer']}</label>\n"
. "\t<span>\n".$prefix."\n".'
<textarea class="textarea" name="'.$myfname.'" id="answer'.$myfname.'"
rows="'.$drows.'" cols="'.$tiwidth.'" onkeyup="textLimit(\'answer'.$ia[1].'\', '.$maxsize.'); '.$checkconditionFunction.'(this.value, this.name, this.type);" '.$numbersonly.'>';
if($label_width < strlen(trim(strip_tags($ansrow['answer']))))
{
$label_width = strlen(trim(strip_tags($ansrow['answer'])));
}
if (isset($_SESSION[$myfname]))
{
$answer_main .= $_SESSION[$myfname];
}
$answer_main .= "</textarea>\n".$suffix."\n\t</span>\n"
. "\t</li>\n";
$fn++;
$inputnames[]=$myfname;
}
}
else
{
while ($ansrow = $ansresult->FetchRow())
{
$myfname = $ia[1].$ansrow['code'];
if ($ansrow['answer'] == "") {$ansrow['answer'] = " ";}
$answer_main .= "\t<li>\n"
. "<label for=\"answer$myfname\">{$ansrow['answer']}</label>\n"
. "\t<span>\n".$prefix."\n".'<input class="text" type="text" size="'.$tiwidth.'" name="'.$myfname.'" id="answer'.$myfname.'" value="';
if($label_width < strlen(trim(strip_tags($ansrow['answer']))))
{
$label_width = strlen(trim(strip_tags($ansrow['answer'])));
}
if (isset($_SESSION[$myfname]))
{
$answer_main .= $_SESSION[$myfname];
}
// --> START NEW FEATURE - SAVE
$answer_main .= '" onkeyup="'.$checkconditionFunction.'(this.value, this.name, this.type);" '.$numbersonly.' maxlength="'.$maxsize.'" />'."\n".$suffix."\n\t</span>\n"
. "\t</li>\n";
// --> END NEW FEATURE - SAVE
$fn++;
$inputnames[]=$myfname;
}
}
}
$answer .= "<ul>\n".$answer_main."</ul>\n";
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_multiplenumeric($ia)
{
global $dbprefix, $clang, $js_header_includes, $css_header_includes;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0],'K');
$answer='';
//Must turn on the "numbers only javascript"
$numbersonly = 'onkeypress="inputField = event.srcElement ? event.srcElement : event.target || event.currentTarget; if (inputField.value.indexOf(\'.\')>0 && String.fromCharCode(getkey(event))==\'.\') return false; return goodchars(event,\'0123456789.\')"';
if (trim($qidattributes['maximum_chars'])!='')
{
$maxsize=$qidattributes['maximum_chars'];
}
else
{
$maxsize = 25;
}
//EQUALS VALUE
if (trim($qidattributes['equals_num_value'])!=''){
$equals_num_value=$qidattributes['equals_num_value'];
$numbersonlyonblur[]='calculateValue'.$ia[1].'(3)';
$calculateValue[]=3;
}
elseif (trim($qidattributes['num_value_equals_sgqa'])!='')
{
$equals_num_value=$_SESSION[$qidattributes['num_value_equals_sgqa']];
$numbersonlyonblur[]='calculateValue'.$ia[1].'(3)';
$calculateValue[]=3;
}
else
{
$equals_num_value=0;
}
//MIN VALUE
if (trim($qidattributes['min_num_value'])!=''){
$min_num_value=$qidattributes['min_num_value'];
$numbersonlyonblur[]='calculateValue'.$ia[1].'(2)';
$calculateValue[]=2;
}
elseif (trim($qidattributes['min_num_value_sgqa'])!=''){
$min_num_value=$_SESSION[$qidattributes['min_num_value_sgqa']];
$numbersonlyonblur[]='calculateValue'.$ia[1].'(2)';
$calculateValue[]=2;
}
else
{
$min_num_value=0;
}
//MAX VALUE
if (trim($qidattributes['max_num_value'])!=''){
$max_num_value = $qidattributes['max_num_value'];
$numbersonlyonblur[]='calculateValue'.$ia[1].'(1)';
$calculateValue[]=1;
}
elseif (trim($qidattributes['max_num_value_sgqa'])!=''){
$max_num_value = $_SESSION[$qidattributes['max_num_value_sgqa']];
$numbersonlyonblur[]='calculateValue'.$ia[1].'(1)';
$calculateValue[]=1;
}
else
{
$max_num_value = 0;
}
if (trim($qidattributes['prefix'])!='') {
$prefix=$qidattributes['prefix'];
}
else
{
$prefix = '';
}
if (trim($qidattributes['suffix'])!='') {
$suffix=$qidattributes['suffix'];
}
else
{
$suffix = '';
}
if(!empty($numbersonlyonblur))
{
$numbersonly .= ' onblur="'.implode(';', $numbersonlyonblur).'"';
$numbersonly_slider = implode(';', $numbersonlyonblur);
}
else
{
$numbersonly_slider = '';
}
if (trim($qidattributes['text_input_width'])!='')
{
$tiwidth=$qidattributes['text_input_width'];
}
else
{
$tiwidth=10;
}
if ($qidattributes['slider_layout']==1)
{
$slider_layout=true;
$css_header_includes[]= '/scripts/jquery/css/start/jquery-ui.css';
if (trim($qidattributes['slider_accuracy'])!='')
{
//$slider_divisor = 1 / $slider_accuracy['value'];
$decimnumber = strlen($qidattributes['slider_accuracy']) - strpos($qidattributes['slider_accuracy'],'.') -1;
$slider_divisor = pow(10,$decimnumber);
$slider_stepping = $qidattributes['slider_accuracy'] * $slider_divisor;
// error_log('acc='.$slider_accuracy['value']." div=$slider_divisor stepping=$slider_stepping");
}
else
{
$slider_divisor = 1;
$slider_stepping = 1;
}
if (trim($qidattributes['slider_min'])!='')
{
$slider_mintext = $qidattributes['slider_min'];
$slider_min = $qidattributes['slider_min'] * $slider_divisor;
}
else
{
$slider_mintext = 0;
$slider_min = 0;
}
if (trim($qidattributes['slider_max'])!='')
{
$slider_maxtext = $qidattributes['slider_max'];
$slider_max = $qidattributes['slider_max'] * $slider_divisor;
}
else
{
$slider_maxtext = "100";
$slider_max = 100 * $slider_divisor;
}
if (trim($qidattributes['slider_default'])!='')
{
$slider_default = $qidattributes['slider_default'];
}
else
{
$slider_default = '';
}
if ($slider_default == '' && $qidattributes['slider_middlestart']==1)
{
$slider_middlestart = intval(($slider_max + $slider_min)/2);
}
else
{
$slider_middlestart = '';
}
if (trim($qidattributes['slider_separator'])!='')
{
$slider_separator = $qidattributes['slider_separator'];
}
else
{
$slider_separator = '';
}
}
else
{
$slider_layout = false;
}
$hidetip=$qidattributes['hide_tip'];
if ($slider_layout === true) // auto hide tip when using sliders
{
$hidetip=1;
}
if ($qidattributes['random_order']==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<input type='hidden' name='MULTI$ia[1]' value='$anscount'>\n";
$fn = 1;
$answer_main = '';
if ($anscount==0)
{
$inputnames=array();
$answer_main .= ' <li>'.$clang->gT('Error: This question has no answers.')."</li>\n";
}
else
{
$label_width = 0;
while ($ansrow = $ansresult->FetchRow())
{
$myfname = $ia[1].$ansrow['code'];
if ($ansrow['answer'] == "") {$ansrow['answer'] = " ";}
if ($slider_layout === false || $slider_separator == '')
{
$theanswer = $ansrow['answer'];
$sliderleft='';
$sliderright='';
}
else
{
$answer_and_slider_array=explode($slider_separator,$ansrow['answer']);
if (isset($answer_and_slider_array[0]))
$theanswer=$answer_and_slider_array[0];
else
$theanswer="";
if (isset($answer_and_slider_array[1]))
$sliderleft=$answer_and_slider_array[1];
else
$sliderleft="";
if (isset($answer_and_slider_array[2]))
$sliderright=$answer_and_slider_array[2];
else
$sliderright="";
$sliderleft="<div class=\"slider_lefttext\">$sliderleft</div>";
$sliderright="<div class=\"slider_righttext\">$sliderright</div>";
}
if ($slider_layout === false)
{
$answer_main .= "\t<li>\n<label for=\"answer$myfname\">{$theanswer}</label>\n";
}
else
{
$answer_main .= "\t<li>\n<label for=\"answer$myfname\" class=\"slider-label\">{$theanswer}</label>\n";
}
if($label_width < strlen(trim(strip_tags($ansrow['answer']))))
{
$label_width = strlen(trim(strip_tags($ansrow['answer'])));
}
if ($slider_layout === false)
{
$answer_main .= "<span class=\"input\">\n\t".$prefix."\n\t<input class=\"text\" type=\"text\" size=\"".$tiwidth.'" name="'.$myfname.'" id="answer'.$myfname.'" value="';
if (isset($_SESSION[$myfname]))
{
$answer_main .= $_SESSION[$myfname];
}
$answer_main .= '" onkeyup="'.$checkconditionFunction.'(this.value, this.name, this.type);" '.$numbersonly.' maxlength="'.$maxsize."\" />\n\t".$suffix."\n</span>\n\t</li>\n";
}
else
{
if ($qidattributes['slider_showminmax']==1)
{
//$slider_showmin=$slider_min;
$slider_showmin= "\t<div id=\"slider-left-$myfname\" class=\"slider_showmin\">$slider_mintext</div>\n";
$slider_showmax= "\t<div id=\"slider-right-$myfname\" class=\"slider_showmax\">$slider_maxtext</div>\n";
}
else
{
$slider_showmin='';
$slider_showmax='';
}
$js_header_includes[] = '/scripts/jquery/jquery-ui.js';
$js_header_includes[] = '/scripts/jquery/lime-slider.js';
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] != '')
{
$slider_startvalue = $_SESSION[$myfname] * $slider_divisor;
$displaycallout_atstart=1;
}
elseif ($slider_default != "")
{
$slider_startvalue = $slider_default * $slider_divisor;
$displaycallout_atstart=1;
}
elseif ($slider_middlestart != '')
{ //TIBO
$slider_startvalue = $slider_middlestart;
$displaycallout_atstart=0;
}
else
{
$slider_startvalue = 'NULL';
$displaycallout_atstart=0;
}
$answer_main .= "$sliderleft<div id='container-$myfname' class='multinum-slider'>\n"
. "\t<input type=\"text\" id=\"slider-modifiedstate-$myfname\" value=\"$displaycallout_atstart\" style=\"display: none;\" />\n"
. "\t<input type=\"text\" id=\"slider-param-min-$myfname\" value=\"$slider_min\" style=\"display: none;\" />\n"
. "\t<input type=\"text\" id=\"slider-param-max-$myfname\" value=\"$slider_max\" style=\"display: none;\" />\n"
. "\t<input type=\"text\" id=\"slider-param-stepping-$myfname\" value=\"$slider_stepping\" style=\"display: none;\" />\n"
. "\t<input type=\"text\" id=\"slider-param-divisor-$myfname\" value=\"$slider_divisor\" style=\"display: none;\" />\n"
. "\t<input type=\"text\" id=\"slider-param-startvalue-$myfname\" value='$slider_startvalue' style=\"display: none;\" />\n"
. "\t<input type=\"text\" id=\"slider-onchange-js-$myfname\" value=\"$numbersonly_slider\" style=\"display: none;\" />\n"
. "\t<input type=\"text\" id=\"slider-prefix-$myfname\" value=\"$prefix\" style=\"display: none;\" />\n"
. "\t<input type=\"text\" id=\"slider-suffix-$myfname\" value=\"$suffix\" style=\"display: none;\" />\n"
. "<div id=\"slider-$myfname\" class=\"ui-slider-1\">\n"
. $slider_showmin
. "<div class=\"slider_callout\" id=\"slider-callout-$myfname\"></div>\n"
. "<div class=\"ui-slider-handle\" id=\"slider-handle-$myfname\"></div>\n"
. $slider_showmax
. "\t</div>"
. "</div>$sliderright\n"
. "<input class=\"text\" type=\"text\" name=\"$myfname\" id=\"answer$myfname\" style=\"display: none;\" value=\"";
if (isset($_SESSION[$myfname]))
{
$answer_main .= $_SESSION[$myfname];
}
elseif ($slider_default != "")
{
$answer_main .= $slider_default;
}
$answer_main .= "\"/>\n"
. "\t</li>\n";
}
// $answer .= "\t</tr>\n";
$fn++;
$inputnames[]=$myfname;
}
$question_tip = '';
if($hidetip == 0)
{
$question_tip .= '<p class="tip">'.$clang->gT('Only numbers may be entered in these fields')."</p>\n";
}
if ($max_num_value)
{
$question_tip .= '<p id="max_num_value_'.$ia[1].'" class="tip">'.sprintf($clang->gT('Total of all entries must not exceed %d'), $max_num_value)."</p>\n";
}
if ($equals_num_value)
{
$question_tip .= '<p id="equals_num_value_'.$ia[1].'" class="tip">'.sprintf($clang->gT('Total of all entries must equal %d'),$equals_num_value)."</p>\n";
}
if ($min_num_value)
{
$question_tip .= '<p id="min_num_value_'.$ia[1].'" class="tip">'.sprintf($clang->gT('Total of all entries must be at least %s'),$min_num_value)."</p>\n";
}
if ($max_num_value || $equals_num_value || $min_num_value)
{
$answer_computed = '';
if ($equals_num_value)
{
$answer_computed .= "\t<li class='multiplenumerichelp'>\n<label for=\"remainingvalue_{$ia[1]}\">\n\t".$clang->gT('Remaining: ')."\n</label>\n<span>\n\t$prefix\n\t<input size=10 type='text' id=\"remainingvalue_{$ia[1]}\" disabled=\"disabled\" />\n\t$suffix\n</span>\n\t</li>\n";
}
$answer_computed .= "\t<li class='multiplenumerichelp'>\n<label for=\"totalvalue_{$ia[1]}\">\n\t".$clang->gT('Total: ')."\n</label>\n<span>\n\t$prefix\n\t<input size=10 type=\"text\" id=\"totalvalue_{$ia[1]}\" disabled=\"disabled\" />\n\t$suffix\n</span>\n\t</li>\n";
$answer_main.=$answer_computed;
}
$answer .= $question_tip."<ul>\n".$answer_main."</ul>\n";
}
//just added these here so its easy to change in one place
$errorClass = 'tip problem';
$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 ($max_num_value || $equals_num_value || $min_num_value)
{ //Do value validation
$answer .= '<input type="hidden" name="qattribute_answer[]" value="'.$ia[1]."\" />\n";
$answer .= '<input type="hidden" name="qattribute_answer'.$ia[1]."\" />\n";
$answer .= "<script type='text/javascript'>\n";
$answer .= " function calculateValue".$ia[1]."(method) {\n";
//Make all empty fields 0 (or else calculation won't work
foreach ($inputnames as $inputname)
{
$answer .= " if(document.limesurvey.answer".$inputname.".value == '') { document.limesurvey.answer".$inputname.".value = 0; }\n";
$javainputnames[]="parseInt(parseFloat(document.limesurvey.answer".$inputname.".value)*1000)";
}
$answer .= " bob = eval('document.limesurvey.qattribute_answer".$ia[1]."');\n";
$answer .= " totalvalue_".$ia[1]."=(";
$answer .= implode(" + ", $javainputnames);
$answer .= ")/1000;\n";
$answer .= " $('#totalvalue_{$ia[1]}').val(parseFloat(totalvalue_{$ia[1]}));\n";
$answer .= " var ua = navigator.appVersion.indexOf('MSIE');\n";
$answer .= " var ieAtt = ua != -1 ? 'className' : 'class';\n";
$answer .= " switch(method)\n";
$answer .= " {\n";
$answer .= " case 1:\n";
$answer .= " if (totalvalue_".$ia[1]." > $max_num_value)\n";
$answer .= " {\n";
$answer .= " bob.value = '".$clang->gT("Answer is invalid. The total of all entries should not add up to more than ").$max_num_value."';\n";
$answer .= " document.getElementById('totalvalue_{$ia[1]}').setAttribute(ieAtt,'" . $errorClass . "');\n";
$answer .= " document.getElementById('max_num_value_{$ia[1]}').setAttribute(ieAtt,'" . $errorClass . "');\n";
$answer .= " }\n";
$answer .= " else\n";
$answer .= " {\n";
$answer .= " if (bob.value == '' || bob.value == '".$clang->gT("Answer is invalid. The total of all entries should not add up to more than ").$max_num_value."')\n";
$answer .= " {\n";
$answer .= " bob.value = '';\n";
// $answer .= " document.getElementById('totalvalue_{$ia[1]}').style.color='black';\n";
$answer .= " document.getElementById('totalvalue_{$ia[1]}').setAttribute(ieAtt,'" . $goodClass . "');\n";
$answer .= " }\n";
// $answer .= " document.getElementById('max_num_value_{$ia[1]}').style.color='black';\n";
$answer .= " document.getElementById('max_num_value_{$ia[1]}').setAttribute(ieAtt,'" . $goodClass . "');\n";
$answer .= " }\n";
$answer .= " break;\n";
$answer .= " case 2:\n";
$answer .= " if (totalvalue_".$ia[1]." < $min_num_value)\n";
$answer .= " {\n";
$answer .= " bob.value = '".sprintf($clang->gT("Answer is invalid. The total of all entries should add up to at least %s.",'js'),$min_num_value)."';\n";
// $answer .= " document.getElementById('totalvalue_".$ia[1]."').style.color='red';\n";
// $answer .= " document.getElementById('min_num_value_".$ia[1]."').style.color='red';\n";
$answer .= " document.getElementById('totalvalue_".$ia[1]."').setAttribute(ieAtt,'" . $errorClass . "');\n";
$answer .= " document.getElementById('min_num_value_".$ia[1]."').setAttribute(ieAtt,'" . $errorClass . "');\n";
$answer .= " }\n";
$answer .= " else\n";
$answer .= " {\n";
$answer .= " if (bob.value == '' || bob.value == '".sprintf($clang->gT("Answer is invalid. The total of all entries should add up to at least %s.",'js'),$min_num_value)."')\n";
$answer .= " {\n";
$answer .= " bob.value = '';\n";
// $answer .= " document.getElementById('totalvalue_".$ia[1]."').style.color='black';\n";
$answer .= " document.getElementById('totalvalue_".$ia[1]."').setAttribute(ieAtt,'" . $goodClass . "');\n";
$answer .= " }\n";
// $answer .= " document.getElementById('min_num_value_".$ia[1]."').style.color='black';\n";
$answer .= " document.getElementById('min_num_value_".$ia[1]."').setAttribute(ieAtt,'" . $goodClass . "');\n";
$answer .= " }\n";
$answer .= " break;\n";
$answer .= " case 3:\n";
$answer .= " remainingvalue = (parseInt(parseFloat($equals_num_value)*1000) - parseInt(parseFloat(totalvalue_".$ia[1].")*1000))/1000;\n";
$answer .= " document.getElementById('remainingvalue_".$ia[1]."').value=remainingvalue;\n";
$answer .= " if (totalvalue_".$ia[1]." == $equals_num_value)\n";
$answer .= " {\n";
$answer .= " if (bob.value == '' || bob.value == '".$clang->gT("Answer is invalid. The total of all entries should not add up to more than ").$equals_num_value."')\n";
$answer .= " {\n";
$answer .= " bob.value = '';\n";
// $answer .= " document.getElementById('totalvalue_".$ia[1]."').style.color='black';\n";
// $answer .= " document.getElementById('equals_num_value_".$ia[1]."').style.color='black';\n";
$answer .= " document.getElementById('totalvalue_".$ia[1]."').setAttribute(ieAtt,'" . $goodClass . "');\n";
$answer .= " document.getElementById('equals_num_value_".$ia[1]."').setAttribute(ieAtt,'" . $goodClass . "');\n";
$answer .= " }\n";
$answer .= " }\n";
$answer .= " else\n";
$answer .= " {\n";
$answer .= " bob.value = '".$clang->gT("Answer is invalid. The total of all entries should not add up to more than ").$equals_num_value."';\n";
// $answer .= " document.getElementById('totalvalue_".$ia[1]."').style.color='red';\n";
// $answer .= " document.getElementById('equals_num_value_".$ia[1]."').style.color='red';\n";
$answer .= " document.getElementById('totalvalue_".$ia[1]."').setAttribute(ieAtt,'" . $errorClass . "');\n";
$answer .= " document.getElementById('equals_num_value_".$ia[1]."').setAttribute(ieAtt,'" . $errorClass . "');\n";
$answer .= " }\n";
$answer .= " break;\n";
$answer .= " }\n";
$answer .= " }\n";
foreach($calculateValue as $cValue)
{
$answer .= " calculateValue".$ia[1]."($cValue);\n";
}
$answer .= "</script>\n";
}
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_numerical($ia)
{
global $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
if (trim($qidattributes['prefix'])!='') {
$prefix=$qidattributes['prefix'];
}
else
{
$prefix = '';
}
if (trim($qidattributes['suffix'])!='') {
$suffix=$qidattributes['suffix'];
}
else
{
$suffix = '';
}
if (trim($qidattributes['maximum_chars'])!='')
{
$maxsize=$qidattributes['maximum_chars'];
if ($maxsize>20)
{
$maxsize=20;
}
}
else
{
$maxsize=20; // The field length for numerical fields is 20
}
if (trim($qidattributes['text_input_width'])!='')
{
$tiwidth=$qidattributes['text_input_width'];
}
else
{
$tiwidth=10;
}
// --> START NEW FEATURE - SAVE
$answer = "<p class=\"question\">\n\t$prefix\n\t<input class=\"text\" type=\"text\" size=\"$tiwidth\" name=\"$ia[1]\" "
. "id=\"answer{$ia[1]}\" value=\"{$_SESSION[$ia[1]]}\" alt=\"".$clang->gT('Answer')."\" onkeypress=\"return goodchars(event,'0123456789.')\" onchange='$checkconditionFunction(this.value, this.name, this.type)'"
. "maxlength=\"$maxsize\" />\n\t$suffix\n</p>\n";
if ($qidattributes['hide_tip']==0)
{
$answer .= "<p class=\"tip\">".$clang->gT('Only numbers may be entered in this field')."</p>\n";
}
// --> END NEW FEATURE - SAVE
$inputnames[]=$ia[1];
$mandatory=null;
return array($answer, $inputnames, $mandatory);
}
// ---------------------------------------------------------------
function do_shortfreetext($ia)
{
global $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
if ($qidattributes['numbers_only']==1)
{
$numbersonly = 'onkeypress="return goodchars(event,\'0123456789.\')"';
}
else
{
$numbersonly = '';
}
if (trim($qidattributes['maximum_chars'])!='')
{
$maxsize=$qidattributes['maximum_chars'];
}
else
{
$maxsize=255;
}
if (trim($qidattributes['text_input_width'])!='')
{
$tiwidth=$qidattributes['text_input_width'];
}
else
{
$tiwidth=50;
}
if (trim($qidattributes['prefix'])!='') {
$prefix=$qidattributes['prefix'];
}
else
{
$prefix = '';
}
if (trim($qidattributes['suffix'])!='') {
$suffix=$qidattributes['suffix'];
}
else
{
$suffix = '';
}
if (trim($qidattributes['display_rows'])!='')
{
//question attribute "display_rows" is set -> we need a textarea to be able to show several rows
$drows=$qidattributes['display_rows'];
//extend maximum chars if this is set to short text default of 255
if($maxsize == 255)
{
$maxsize=65525;
}
//if a textarea should be displayed we make it equal width to the long text question
//this looks nicer and more continuous
if($tiwidth == 50)
{
$tiwidth=40;
}
//some JS to check max possible input
$answer = "<script type='text/javascript'>
<!--
function textLimit(field, maxlen) {
if (document.getElementById(field).value.length > maxlen)
document.getElementById(field).value = document.getElementById(field).value.substring(0, maxlen);
}
//-->
</script>\n";
//NEW: textarea instead of input=text field
// --> START NEW FEATURE - SAVE
$answer .= '<textarea class="textarea" name="'.$ia[1].'" id="answer'.$ia[1].'" '
.'rows="'.$drows.'" cols="'.$tiwidth.'" onkeyup="textLimit(\'answer'.$ia[1].'\', '.$maxsize.'); '.$checkconditionFunction.'(this.value, this.name, this.type);" '.$numbersonly.'>';
// --> END NEW FEATURE - SAVE
if ($_SESSION[$ia[1]]) {$answer .= str_replace("\\", "", $_SESSION[$ia[1]]);}
$answer .= "</textarea>\n";
}
else
{
//no question attribute set, use common input text field
$answer = "<p class=\"question\">\n\t$prefix\n\t<input class=\"text\" type=\"text\" size=\"$tiwidth\" name=\"$ia[1]\" id=\"answer$ia[1]\" value=\""
.htmlspecialchars($_SESSION[$ia[1]],ENT_QUOTES,'UTF-8')
."\" maxlength=\"$maxsize\" onkeyup=\"$checkconditionFunction(this.value, this.name, this.type)\" $numbersonly />\n\t$suffix\n</p>\n";
}
if (trim($qidattributes['time_limit'])!='')
{
$answer .= return_timer_script($qidattributes, $ia, "answer".$ia[1]);
}
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_longfreetext($ia)
{
global $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
if (trim($qidattributes['maximum_chars'])!='')
{
$maxsize=$qidattributes['maximum_chars'];
}
else
{
$maxsize=65525;
}
// --> START ENHANCEMENT - DISPLAY ROWS
if (trim($qidattributes['display_rows'])!='')
{
$drows=$qidattributes['display_rows'];
}
else
{
$drows=5;
}
// <-- END ENHANCEMENT - DISPLAY ROWS
// --> START ENHANCEMENT - TEXT INPUT WIDTH
if (trim($qidattributes['text_input_width'])!='')
{
$tiwidth=$qidattributes['text_input_width'];
}
else
{
$tiwidth=40;
}
// <-- END ENHANCEMENT - TEXT INPUT WIDTH
$answer = "<script type='text/javascript'>
<!--
function textLimit(field, maxlen) {
if (document.getElementById(field).value.length > maxlen)
document.getElementById(field).value = document.getElementById(field).value.substring(0, maxlen);
}
//-->
</script>\n";
// --> START NEW FEATURE - SAVE
$answer .= '<textarea class="textarea" name="'.$ia[1].'" id="answer'.$ia[1].'" alt="'.$clang->gT('Answer').'" '
.'rows="'.$drows.'" cols="'.$tiwidth.'" onkeyup="textLimit(\'answer'.$ia[1].'\', '.$maxsize.'); '.$checkconditionFunction.'(this.value, this.name, this.type)">';
// --> END NEW FEATURE - SAVE
if ($_SESSION[$ia[1]]) {$answer .= str_replace("\\", "", $_SESSION[$ia[1]]);}
$answer .= "</textarea>\n";
if (trim($qidattributes['time_limit'])!='')
{
$answer .= return_timer_script($qidattributes, $ia, "answer".$ia[1]);
}
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_hugefreetext($ia)
{
global $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
if (trim($qidattributes['maximum_chars'])!='')
{
$maxsize=$qidattributes['maximum_chars'];
}
else
{
$maxsize=65525;
}
// --> START ENHANCEMENT - DISPLAY ROWS
if (trim($qidattributes['display_rows'])!='')
{
$drows=$qidattributes['display_rows'];
}
else
{
$drows=30;
}
// <-- END ENHANCEMENT - DISPLAY ROWS
// --> START ENHANCEMENT - TEXT INPUT WIDTH
if (trim($qidattributes['text_input_width'])!='')
{
$tiwidth=$qidattributes['text_input_width'];
}
else
{
$tiwidth=70;
}
// <-- END ENHANCEMENT - TEXT INPUT WIDTH
$answer = "<script type='text/javascript'>
<!--
function textLimit(field, maxlen) {
if (document.getElementById(field).value.length > maxlen)
document.getElementById(field).value = document.getElementById(field).value.substring(0, maxlen);
}
//-->
</script>\n";
// --> START ENHANCEMENT - DISPLAY ROWS
// --> START ENHANCEMENT - TEXT INPUT WIDTH
// --> START NEW FEATURE - SAVE
$answer .= '<textarea class="display" name="'.$ia[1].'" id="answer'.$ia[1].'" alt="'.$clang->gT('Answer').'" '
.'rows="'.$drows.'" cols="'.$tiwidth.'" onkeyup="textLimit(\'answer'.$ia[1].'\', '.$maxsize.'); '.$checkconditionFunction.'(this.value, this.name, this.type)">';
// --> END NEW FEATURE - SAVE
// <-- END ENHANCEMENT - TEXT INPUT WIDTH
// <-- END ENHANCEMENT - DISPLAY ROWS
if ($_SESSION[$ia[1]]) {$answer .= str_replace("\\", "", $_SESSION[$ia[1]]);}
$answer .= "</textarea>\n";
if (trim($qidattributes['time_limit']) != '')
{
$answer .= return_timer_script($qidattributes, $ia, "answer".$ia[1]);
}
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_yesno($ia)
{
global $shownoanswer, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$answer = "<ul>\n"
. "\t<li>\n<input class=\"radio\" type=\"radio\" name=\"{$ia[1]}\" id=\"answer{$ia[1]}Y\" value=\"Y\"";
if ($_SESSION[$ia[1]] == 'Y')
{
$answer .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n<label for=\"answer{$ia[1]}Y\" class=\"answertext\">\n\t".$clang->gT('Yes')."\n</label>\n\t</li>\n"
. "\t<li>\n<input class=\"radio\" type=\"radio\" name=\"{$ia[1]}\" id=\"answer{$ia[1]}N\" value=\"N\"";
// --> END NEW FEATURE - SAVE
if ($_SESSION[$ia[1]] == 'N')
{
$answer .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n<label for=\"answer{$ia[1]}N\" class=\"answertext\" >\n\t".$clang->gT('No')."\n</label>\n\t</li>\n";
// --> END NEW FEATURE - SAVE
if ($ia[6] != 'Y' && $shownoanswer == 1)
{
$answer .= "\t<li>\n<input class=\"radio\" type=\"radio\" name=\"{$ia[1]}\" id=\"answer{$ia[1]}\" value=\"\"";
if ($_SESSION[$ia[1]] == '')
{
$answer .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n<label for=\"answer{$ia[1]}\" class=\"answertext\">\n\t".$clang->gT('No answer')."\n</label>\n\t</li>\n";
// --> END NEW FEATURE - SAVE
}
$answer .= "</ul>\n\n<input type=\"hidden\" name=\"java{$ia[1]}\" id=\"java{$ia[1]}\" value=\"{$_SESSION[$ia[1]]}\" />\n";
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_gender($ia)
{
global $shownoanswer, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
$answer = "<ul>\n"
. "\t<li>\n"
. ' <input class="radio" type="radio" name="'.$ia[1].'" id="answer'.$ia[1].'F" value="F"';
if ($_SESSION[$ia[1]] == 'F')
{
$answer .= CHECKED;
}
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n"
. ' <label for="answer'.$ia[1].'F" class="answertext">'.$clang->gT('Female')."</label>\n\t</li>\n";
$answer .= "\t<li>\n<input class=\"radio\" type=\"radio\" name=\"$ia[1]\" id=\"answer".$ia[1].'M" value="M"';
if ($_SESSION[$ia[1]] == 'M')
{
$answer .= CHECKED;
}
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n<label for=\"answer$ia[1]M\" class=\"answertext\">".$clang->gT('Male')."</label>\n\t</li>\n";
if ($ia[6] != 'Y' && $shownoanswer == 1)
{
/* columns now done by CSS
if ($dcols > 2)
{
$answer .= "\n</td><td>\n";
}
elseif ($dcols > 1)
{
$answer .= "\n</td></tr><tr><td colspan='2' align='center'>\n";
}
else
{
$answer .= "<br />";
}
*/
$answer .= "\t<li>\n<input class=\"radio\" type=\"radio\" name=\"$ia[1]\" id=\"answer".$ia[1].'" value=""';
if ($_SESSION[$ia[1]] == '')
{
$answer .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n<label for=\"answer$ia[1]\" class=\"answertext\">".$clang->gT('No answer')."</label>\n\t</li>\n";
// --> END NEW FEATURE - SAVE
}
$answer .= "</ul>\n\n<input type=\"hidden\" name=\"java$ia[1]\" id=\"java$ia[1]\" value=\"{$_SESSION[$ia[1]]}\" />\n";
$inputnames[]=$ia[1];
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
/**
* DONE: well-formed valid HTML is appreciated
* Enter description here...
* @param $ia
* @return unknown_type
*/
function do_array_5point($ia)
{
global $dbprefix, $shownoanswer, $notanswered, $thissurvey, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$qidattributes=getQuestionAttributes($ia[0]);
if (trim($qidattributes['answer_width'])!='')
{
$answerwidth=$qidattributes['answer_width'];
}
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 ($qidattributes['random_order']==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<table class=\"question\" summary=\"".str_replace('"','' ,strip_tags($ia[3]))." - a five point Likert scale array\">\n\n"
. "\t<colgroup class=\"col-responses\">\n"
. "\t<col class=\"col-answers\" width=\"$answerwidth%\" />\n";
$odd_even = '';
for ($xc=1; $xc<=5; $xc++)
{
$odd_even = alternation($odd_even);
$answer .= "<col class=\"$odd_even\" width=\"$cellwidth%\" />\n";
}
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory
{
$odd_even = alternation($odd_even);
$answer .= "<col class=\"col-no-answer $odd_even\" width=\"$cellwidth%\" />\n";
}
$answer .= "\t</colgroup>\n\n"
. "\t<thead>\n<tr class=\"array1\">\n"
. "\t<th> </th>\n";
for ($xc=1; $xc<=5; $xc++)
{
$answer .= "\t<th>$xc</th>\n";
}
if ($right_exists) {$answer .= "\t<td width='$answerwidth%'> </td>\n";}
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory
{
$answer .= "\t<th>".$clang->gT('No answer')."</th>\n";
}
$answer .= "</tr></thead>\n";
$answer_t_content = '';
$trbc = '';
$n=0;
//return array($answer, $inputnames);
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 = "<span class=\"errormandatory\">{$answertext}</span>";
}
$trbc = alternation($trbc , 'row');
// Get array_filter stuff
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname, $trbc, $myfname);
$answer_t_content .= $htmltbody2;
$answer_t_content .= "<tr class=\"$trbc\">\n"
. "\t<th class=\"answertext\" width=\"$answerwidth%\">\n$answertext\n"
. $hiddenfield
. "<input type=\"hidden\" name=\"java$myfname\" id=\"java$myfname\" value=\"";
if (isset($_SESSION[$myfname]))
{
$answer_t_content .= $_SESSION[$myfname];
}
$answer_t_content .= "\" />\n\t</th>\n";
for ($i=1; $i<=5; $i++)
{
$answer_t_content .= "\t<td class=\"answer_cell_00$i\">\n<label for=\"answer$myfname-$i\">"
."\n\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-$i\" value=\"$i\" title=\"$i\"";
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == $i)
{
$answer_t_content .= CHECKED;
}
$answer_t_content .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n</label>\n\t</td>\n";
}
$answertext2=answer_replace($ansrow['answer']);
if (strpos($answertext2,'|'))
{
$answertext2=substr($answertext2,strpos($answertext2,'|')+1);
$answer_t_content .= "\t<td class=\"answertextright\" style='text-align:left;' width=\"$answerwidth%\">$answertext2</td>\n";
}
elseif ($right_exists)
{
$answer_t_content .= "\t<td class=\"answertextright\" style='text-align:left;' width=\"$answerwidth%\"> </td>\n";
}
if ($ia[6] != 'Y' && $shownoanswer == 1)
{
$answer_t_content .= "\t<td>\n<label for=\"answer$myfname-\">"
."\n\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-\" value=\"\" title=\"".$clang->gT('No answer').'"';
if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == '')
{
$answer_t_content .= CHECKED;
}
$answer_t_content .= " onclick='$checkconditionFunction(this.value, this.name, this.type)' />\n</label>\n\t</td>\n";
}
$answer_t_content .= "</tr>\n\n\t</tbody>";
$fn++;
$inputnames[]=$myfname;
}
$answer .= $answer_t_content . "\t</table>\n";
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
/**
* DONE: well-formed valid HTML is appreciated
* Enter description here...
* @param $ia
* @return unknown_type
*/
function do_array_10point($ia)
{
global $dbprefix, $shownoanswer, $notanswered, $thissurvey, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$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 (trim($qidattributes['answer_width'])!='')
{
$answerwidth=$qidattributes['answer_width'];
}
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 ($qidattributes['random_order']==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<table class=\"question\" summary=\"".str_replace('"','' ,strip_tags($ia[3]))." - a ten point Likert scale array\" >\n\n"
. "\t<colgroup class=\"col-responses\">\n"
. "\t<col class=\"col-answers\" width=\"$answerwidth%\" />\n";
$odd_even = '';
for ($xc=1; $xc<=10; $xc++)
{
$odd_even = alternation($odd_even);
$answer .= "<col class=\"$odd_even\" width=\"$cellwidth%\" />\n";
}
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory
{
$odd_even = alternation($odd_even);
$answer .= "<col class=\"col-no-answer $odd_even\" width=\"$cellwidth$\" />\n";
}
$answer .= "\t</colgroup>\n\n"
. "\t<thead>\n<tr class=\"array1\">\n"
. "\t<th> </th>\n";
for ($xc=1; $xc<=10; $xc++)
{
$answer .= "\t<th>$xc</th>\n";
}
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory
{
$answer .= "\t<th>".$clang->gT('No answer')."</th>\n";
}
$answer .= "</tr>\n</thead>";
$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 = "<span class='errormandatory'>{$answertext}</span>";
}
$trbc = alternation($trbc , 'row');
//Get array filter stuff
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname, $trbc, $myfname);
$answer_t_content .= $htmltbody2;
$answer_t_content .= "<tr class=\"$trbc\">\n"
. "\t<th class=\"answertext\">\n$answertext\n"
. $hiddenfield
. "<input type=\"hidden\" name=\"java$myfname\" id=\"java$myfname\" value=\"";
if (isset($_SESSION[$myfname]))
{
$answer_t_content .= $_SESSION[$myfname];
}
$answer_t_content .= "\" />\n\t</th>\n";
for ($i=1; $i<=10; $i++)
{
$answer_t_content .= "\t<td class=\"answer_cell_00$i\">\n<label for=\"answer$myfname-$i\">\n"
."\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-$i\" value=\"$i\" title=\"$i\"";
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == $i)
{
$answer_t_content .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer_t_content .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n</label>\n\t</td>\n";
// --> END NEW FEATURE - SAVE
}
if ($ia[6] != "Y" && $shownoanswer == 1)
{
$answer_t_content .= "\t<td>\n<label for=\"answer$myfname-\">\n"
."\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-\" value=\"\" title=\"".$clang->gT('No answer')."\"";
if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == '')
{
$answer_t_content .= CHECKED;
}
$answer_t_content .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n</label>\n\t</td>\n";
}
$answer_t_content .= "</tr>\n</tbody>";
$inputnames[]=$myfname;
$fn++;
}
$answer .= $answer_t_content . "\t\n</table>\n";
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_array_yesnouncertain($ia)
{
global $dbprefix, $shownoanswer, $notanswered, $thissurvey, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$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 (trim($qidattributes['answer_width'])!='')
{
$answerwidth=$qidattributes['answer_width'];
}
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 ($qidattributes['random_order']==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<table class=\"question\" summary=\"".str_replace('"','' ,strip_tags($ia[3]))." - a Yes/No/uncertain Likert scale array\">\n"
. "\t<colgroup class=\"col-responses\">\n"
. "\n\t<col class=\"col-answers\" width=\"$answerwidth%\" />\n";
$odd_even = '';
for ($xc=1; $xc<=3; $xc++)
{
$odd_even = alternation($odd_even);
$answer .= "<col class=\"$odd_even\" width=\"$cellwidth%\" />\n";
}
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory
{
$odd_even = alternation($odd_even);
$answer .= "<col class=\"col-no-answer $odd_even\" width=\"$cellwidth%\" />\n";
}
$answer .= "\t</colgroup>\n\n"
. "\t<thead>\n<tr class=\"array1\">\n"
. "\t<td> </td>\n"
. "\t<th>".$clang->gT('Yes')."</th>\n"
. "\t<th>".$clang->gT('Uncertain')."</th>\n"
. "\t<th>".$clang->gT('No')."</th>\n";
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory
{
$answer .= "\t<th>".$clang->gT('No answer')."</th>\n";
}
$answer .= "</tr>\n\t</thead>";
$answer_t_content = '';
if ($anscount==0)
{
$inputnames=array();
$answer.="<tr>\t<th class=\"answertext\">".$clang->gT('Error: This question has no answers.')."</th>\n</tr>\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 = "<span class='errormandatory'>{$answertext}</span>";
}
$trbc = alternation($trbc , 'row');
// Get array_filter stuff
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname, $trbc, $myfname);
$answer_t_content .= $htmltbody2;
$answer_t_content .= "<tr class=\"$trbc\">\n"
. "\t<th class=\"answertext\">\n"
. $hiddenfield
. "\t\t\t\t$answertext</th>\n"
. "\t<td class=\"answer_cell_Y\">\n<label for=\"answer$myfname-Y\">\n"
. "\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-Y\" value=\"Y\" title=\"".$clang->gT('Yes').'"';
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'Y')
{
$answer_t_content .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer_t_content .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n\t</label>\n\t</td>\n"
. "\t<td class=\"answer_cell_U\">\n<label for=\"answer$myfname-U\">\n"
. "<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-U\" value=\"U\" title=\"".$clang->gT('Uncertain')."\"";
// --> END NEW FEATURE - SAVE
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'U')
{
$answer_t_content .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer_t_content .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n</label>\n\t</td>\n"
. "\t<td class=\"answer_cell_N\">\n<label for=\"answer$myfname-N\">\n"
. "<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-N\" value=\"N\" title=\"".$clang->gT('No').'"';
// --> END NEW FEATURE - SAVE
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'N')
{
$answer_t_content .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer_t_content .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n</label>\n"
. "<input type=\"hidden\" name=\"java$myfname\" id=\"java$myfname\" value=\"";
// --> END NEW FEATURE - SAVE
if (isset($_SESSION[$myfname]))
{
$answer_t_content .= $_SESSION[$myfname];
}
$answer_t_content .= "\" />\n\t</td>\n";
if ($ia[6] != 'Y' && $shownoanswer == 1)
{
$answer_t_content .= "\t<td>\n\t<label for=\"answer$myfname-\">\n"
. "\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-\" value=\"\" title=\"".$clang->gT('No answer')."\"";
if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == '')
{
$answer_t_content .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer_t_content .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n</label>\n\t</td>\n";
// --> END NEW FEATURE - SAVE
}
$answer_t_content .= "</tr>\n</tbody>";
$inputnames[]=$myfname;
$fn++;
}
}
$answer .= $answer_t_content . "\t\n</table>\n";
return array($answer, $inputnames);
}
function do_array_increasesamedecrease($ia)
{
global $dbprefix, $thissurvey, $clang;
global $shownoanswer;
global $notanswered;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$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 (trim($qidattributes['answer_width'])!='')
{
$answerwidth=$qidattributes['answer_width'];
}
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 ($qidattributes['random_order']==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<table class=\"question\" summary=\"".str_replace('"','' ,strip_tags($ia[3]))." - Increase/Same/Decrease Likert scale array\">\n"
. "\t<colgroup class=\"col-responses\">\n"
. "\t<col class=\"col-answers\" width=\"$answerwidth%\" />\n";
$odd_even = '';
for ($xc=1; $xc<=3; $xc++)
{
$odd_even = alternation($odd_even);
$answer .= "<col class=\"$odd_even\" width=\"$cellwidth%\" />\n";
}
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory
{
$odd_even = alternation($odd_even);
$answer .= "<col class=\"col-no-answer $odd_even\" width=\"$cellwidth%\" />\n";
}
$answer .= "\t</colgroup>\n"
. "\t<thead>\n"
. "<tr>\n"
. "\t<td> </td>\n"
. "\t<th>".$clang->gT('Increase')."</th>\n"
. "\t<th>".$clang->gT('Same')."</th>\n"
. "\t<th>".$clang->gT('Decrease')."</th>\n";
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory
{
$answer .= "\t<th>".$clang->gT('No answer')."</th>\n";
}
$answer .= "</tr>\n"
."\t</thead>\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 = "<span class=\"errormandatory\">{$answertext}</span>";
}
$trbc = alternation($trbc , 'row');
// Get array_filter stuff
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname, $trbc, $myfname);
$answer_body .= $htmltbody2;
$answer_body .= "<tr class=\"$trbc\">\n"
. "\t<th class=\"answertext\">\n"
. "$answertext\n"
. $hiddenfield
. "<input type=\"hidden\" name=\"java$myfname\" id=\"java$myfname\" value=\"";
if (isset($_SESSION[$myfname]))
{
$answer_body .= $_SESSION[$myfname];
}
$answer_body .= "\" />\n\t</th>\n";
$answer_body .= "\t<td class=\"answer_cell_I\">\n"
. "<label for=\"answer$myfname-I\">\n"
."\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-I\" value=\"I\" title=\"".$clang->gT('Increase').'"';
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'I')
{
$answer_body .= CHECKED;
}
$answer_body .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n"
. "</label>\n"
. "\t</td>\n"
. "\t<td class=\"answer_cell_S\">\n"
. "<label for=\"answer$myfname-S\">\n"
. "\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-S\" value=\"S\" title=\"".$clang->gT('Same').'"';
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'S')
{
$answer_body .= CHECKED;
}
$answer_body .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n"
. "</label>\n"
. "\t</td>\n"
. "\t<td class=\"answer_cell_D\">\n"
. "<label for=\"answer$myfname-D\">\n"
. "\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-D\" value=\"D\" title=\"".$clang->gT('Decrease').'"';
// --> END NEW FEATURE - SAVE
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == 'D')
{
$answer_body .= CHECKED;
}
$answer_body .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n"
. "</label>\n"
. "<input type=\"hidden\" name=\"java$myfname\" id=\"java$myfname\" value=\"";
if (isset($_SESSION[$myfname])) {$answer_body .= $_SESSION[$myfname];}
$answer_body .= "\" />\n\t</td>\n";
if ($ia[6] != 'Y' && $shownoanswer == 1)
{
$answer_body .= "\t<td>\n"
. "<label for=\"answer$myfname-\">\n"
. "\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" id=\"answer$myfname-\" value=\"\" title=\"".$clang->gT('No answer').'"';
if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == '')
{
$answer_body .= CHECKED;
}
$answer_body .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n"
. "</label>\n"
. "\t</td>\n";
}
$answer_body .= "</tr>\n\t</tbody>";
$inputnames[]=$myfname;
$fn++;
}
$answer .= $answer_body . "\t\n</table>\n";
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_array_flexible($ia)
{
global $dbprefix, $connect, $thissurvey, $clang;
global $shownoanswer;
global $repeatheadings;
global $notanswered;
global $minrepeatheadings;
if (isset($ia[8]) && $ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$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 (trim($qidattributes['answer_width'])!='')
{
$answerwidth=$qidattributes['answer_width'];
}
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 ($qidattributes['random_order']==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<table class=\"question\" summary=\"".str_replace('"','' ,strip_tags($ia[3]))." - an array type question\" >\n";
$answer_head = "\t<thead>\n"
. "<tr>\n"
. "\t<td> </td>\n";
foreach ($labelans as $ld)
{
$answer_head .= "\t<th>".$ld."</th>\n";
}
if ($right_exists) {$answer_head .= "\t<td> </td>\n";}
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory and we can show "no answer"
{
$answer_head .= "\t<th>".$clang->gT('No answer')."</th>\n";
}
$answer_head .= "</tr>\n\t</thead>\n\n\t<tbody>\n";
$answer = '';
$trbc = '';
$inputnames=array();
while ($ansrow = $ansresult->FetchRow())
{
if (isset($repeatheadings) && $repeatheadings > 0 && ($fn-1) > 0 && ($fn-1) % $repeatheadings == 0)
{
if ( ($anscount - $fn + 1) >= $minrepeatheadings )
{
$answer .= "<tr class=\"repeat headings\">\n"
. "\t<td> </td>\n";
foreach ($labelans as $ld)
{
$answer .= "\t<th>".$ld."</th>\n";
}
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory and we can show "no answer"
{
$answer .= "\t<th>".$clang->gT('No answer')."</th>\n";
}
$answer .= "</tr>\n";
}
}
$myfname = $ia[1].$ansrow['code'];
$trbc = alternation($trbc , 'row');
$answertext=answer_replace($ansrow['answer']);
$answertextsave=$answertext;
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 (strpos($answertext,'|')) {$answerwidth=$answerwidth/2;}
if ((is_array($notanswered)) && (array_search($ia[1], $notanswered) !== FALSE) && ($_SESSION[$myfname] == '') ) {
$answertext = '<span class="errormandatory">'.$answertext.'</span>';
}
// Get array_filter stuff
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname, $trbc, $myfname);
$answer .= $htmltbody2;
$answer .= "<tr class=\"$trbc\">\n"
. "\t<th class=\"answertext\">\n$answertext"
. $hiddenfield
. "<input type=\"hidden\" name=\"java$myfname\" id=\"java$myfname\" value=\"";
if (isset($_SESSION[$myfname]))
{
$answer .= $_SESSION[$myfname];
}
$answer .= "\" />\n\t</th>\n";
$thiskey=0;
foreach ($labelcode as $ld)
{
$answer .= "\t\t\t<td class=\"answer_cell_00$ld\">\n"
. "<label for=\"answer$myfname-$ld\">\n"
. "\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" value=\"$ld\" id=\"answer$myfname-$ld\" title=\""
. html_escape(strip_tags($labelans[$thiskey])).'"';
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == $ld)
{
$answer .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n"
. "</label>\n"
. "\t</td>\n";
// --> END NEW FEATURE - SAVE
$thiskey++;
}
if (strpos($answertextsave,'|'))
{
$answertext=substr($answertextsave,strpos($answertextsave,'|')+1);
$answer .= "\t<th class=\"answertextright\">$answertext</th>\n";
}
elseif ($right_exists)
{
$answer .= "\t<td class=\"answertextright\"> </td>\n";
}
if ($ia[6] != 'Y' && $shownoanswer == 1)
{
$answer .= "\t<td>\n<label for=\"answer$myfname-\">\n"
."\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" value=\"\" id=\"answer$myfname-\" title=\"".$clang->gT('No answer').'"';
if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == '')
{
$answer .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n</label>\n\t</td>\n";
// --> END NEW FEATURE - SAVE
}
$answer .= "</tr>\n</tbody>";
$inputnames[]=$myfname;
//IF a MULTIPLE of flexi-redisplay figure, repeat the headings
$fn++;
}
$answer_cols = "\t<colgroup class=\"col-responses\">\n"
."\t<col class=\"col-answers\" width=\"$answerwidth%\" />\n" ;
$odd_even = '';
foreach ($labelans as $c)
{
$odd_even = alternation($odd_even);
$answer_cols .= "<col class=\"$odd_even\" width=\"$cellwidth%\" />\n";
}
if ($right_exists)
{
$odd_even = alternation($odd_even);
$answer_cols .= "<col class=\"answertextright $odd_even\" width=\"$answerwidth%\" />\n";
}
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory
{
$odd_even = alternation($odd_even);
$answer_cols .= "<col class=\"col-no-answer $odd_even\" width=\"$cellwidth%\" />\n";
}
$answer_cols .= "\t</colgroup>\n";
$answer = $answer_start . $answer_cols . $answer_head .$answer . "\t</tbody>\n</table>\n";
}
else
{
$answer = "\n<p class=\"error\">".$clang->gT('Error: The labelset used for this question is not available in this language and/or does not exist.')."</p>\n";
$inputnames='';
}
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_array_multitext($ia)
{
global $dbprefix, $connect, $thissurvey, $clang;
global $shownoanswer;
global $repeatheadings;
global $notanswered;
global $minrepeatheadings;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
//echo "<pre>"; print_r($_POST); echo "</pre>";
$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 ($qidattributes['numbers_only']==1)
{
$numbersonly = 'onkeypress="return goodchars(event,\'-0123456789.\')"';
}
else
{
$numbersonly = '';
}
if (trim($qidattributes['answer_width'])!='')
{
$answerwidth=$qidattributes['answer_width'];
}
else
{
$answerwidth=20;
}
if (trim($qidattributes['text_input_width'])!='')
{
$inputwidth=$qidattributes['text_input_width'];
}
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 ($qidattributes['random_order']==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 = "\t<colgroup class=\"col-responses\">\n"
."\n\t<col class=\"answertext\" width=\"$answerwidth%\" />\n" ;
$answer_head = "\n\t<thead>\n"
. "<tr>\n"
. "\t<td width='$answerwidth%'> </td>\n";
$odd_even = '';
foreach ($labelans as $ld)
{
$answer_head .= "\t<th>".$ld."</th>\n";
$odd_even = alternation($odd_even);
$answer_cols .= "<col class=\"$odd_even\" width=\"$cellwidth%\" />\n";
}
if ($right_exists)
{
$answer_head .= "\t<td> </td>\n";// class=\"answertextright\"
$odd_even = alternation($odd_even);
$answer_cols .= "<col class=\"answertextright $odd_even\" width=\"$cellwidth%\" />\n";
}
$answer_cols .= "\n\t</colgroup>\n";
$answer_head .= "</tr>\n"
. "\t</thead>\n";
$answer = "\n<table class=\"question\" summary=\"".str_replace('"','' ,strip_tags($ia[3]))." - an array of text responses\">\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 .= "<tr class=\"$trbc repeat\">\n"
. "\t<td> </td>\n";
foreach ($labelans as $ld)
{
$answer .= "\t<th>".$ld."</td>\n";
}
$answer .= "</tr>\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 = "<span class=\"errormandatory\">{$answertext}</span>";
}
}
// Get array_filter stuff
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname, $trbc, $myfname);
$answer .= $htmltbody2;
if (strpos($answertext,'|')) {$answertext=substr($answertext,0, strpos($answertext,'|'));}
$trbc = alternation($trbc , 'row');
$answer .= "\t\t<tr class=\"$trbc\">\n"
. "\t\t\t<th class=\"answertext\">\n"
. $hiddenfield
. "$answertext\n"
. "<input type=\"hidden\" name=\"java$myfname\" id=\"java$myfname\" value=\"";
if (isset($_SESSION[$myfname])) {$answer .= $_SESSION[$myfname];}
$answer .= "\" />\n\t</th>\n";
$thiskey=0;
foreach ($labelcode as $ld)
{
$myfname2=$myfname."_$ld";
$myfname2value = isset($_SESSION[$myfname2]) ? $_SESSION[$myfname2] : "";
$answer .= "\t<td class=\"answer_cell_00$ld\">\n"
. "<label for=\"answer{$myfname2}\">\n"
. "<input type=\"hidden\" name=\"java{$myfname2}\" id=\"java{$myfname2}\" />\n"
. "<input type=\"text\" name=\"$myfname2\" id=\"answer{$myfname2}\" title=\""
. FlattenText($labelans[$thiskey]).'" '
. "onchange=\"getElementById('java{$myfname2}').value=this.value;$checkconditionFunction(this.value, this.name, this.type)\" size=\"$inputwidth\" "
. $numbersonly
. ' value="'.str_replace ('"', "'", str_replace('\\', '', $myfname2value))."\" />\n";
$inputnames[]=$myfname2;
$answer .= "</label>\n\t</td>\n";
$thiskey += 1;
}
if (strpos($answertextsave,'|'))
{
$answertext=substr($answertextsave,strpos($answertextsave,'|')+1);
$answer .= "\t<td class=\"answertextright\" style='text-align:left;' width='$answerwidth%'>$answertext</td>\n";
}
elseif ($right_exists)
{
$answer .= "\t<td class=\"answertextright\" style='text-align:left;' width='$answerwidth%'> </td>\n";
}
$answer .= "</tr>\n";
//IF a MULTIPLE of flexi-redisplay figure, repeat the headings
$fn++;
}
$answer .= "\t</tbody>\n</table>\n";
}
else
{
$answer = "\n<p class=\"error\">".$clang->gT('Error: The labelset used for this question is not available in this language and/or does not exist.')."</p>";
$inputnames='';
}
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_array_multiflexi($ia)
{
global $dbprefix, $connect, $thissurvey, $clang;
global $shownoanswer;
global $repeatheadings;
global $notanswered;
global $minrepeatheadings;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
//echo '<pre>'; print_r($_POST); echo '</pre>';
$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 (trim($qidattributes['multiflexible_max'])!='' && trim($qidattributes['multiflexible_min']) ==''){
$maxvalue=$qidattributes['multiflexible_max'];
if(isset($minvalue['value']) && $minvalue['value'] == 0) {$minvalue = 0;} else {$minvalue=1;}
}
if (trim($qidattributes['multiflexible_min'])!='' && trim($qidattributes['multiflexible_max']) ==''){
$minvalue=$qidattributes['multiflexible_min'];
$maxvalue=$qidattributes['multiflexible_min'] + 10;
}
if (trim($qidattributes['multiflexible_min'])=='' && trim($qidattributes['multiflexible_max']) ==''){
if(isset($minvalue['value']) && $minvalue['value'] == 0) {$minvalue = 0;} else {$minvalue=1;}
$maxvalue=10;
}
if (trim($qidattributes['multiflexible_min']) !='' && trim($qidattributes['multiflexible_max']) !=''){
if($qidattributes['multiflexible_min'] < $qidattributes['multiflexible_max']){
$minvalue=$qidattributes['multiflexible_min'];
$maxvalue=$qidattributes['multiflexible_max'];
}
}
if (trim($qidattributes['multiflexible_step'])!='')
{
$stepvalue=$qidattributes['multiflexible_step'];
}
else
{
$stepvalue=1;
}
$checkboxlayout=false;
if ($qidattributes['multiflexible_checkbox']!=0)
{
$minvalue=0;
$maxvalue=1;
$checkboxlayout=true;
}
if (trim($qidattributes['answer_width'])!='')
{
$answerwidth=$qidattributes['answer_width'];
}
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 ($qidattributes['random_order']==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 = "\t<colgroup class=\"col-responses\">\n"
. "\n\t<col class=\"answertext\" width=\"$answerwidth%\" />\n";
$myheader = "\n\t<thead>\n"
. "<tr>\n"
. "\t<td > </td>\n";
$odd_even = '';
foreach ($labelans as $ld)
{
$myheader .= "\t<th>".$ld."</th>\n";
$odd_even = alternation($odd_even);
$mycols .= "<col class=\"$odd_even\" width=\"$cellwidth%\" />\n";
}
if ($right_exists)
{
$myheader .= "\t<td> </td>";
$odd_even = alternation($odd_even);
$mycols .= "<col class=\"answertextright $odd_even\" width=\"$answerwidth%\" />\n";
}
$myheader .= "</tr>\n"
. "\t</thead>\n";
$mycols .= "\t</colgroup>\n";
$trbc = '';
$answer = "\n<table class=\"question\" summary=\"".str_replace('"','' ,strip_tags($ia[3]))." - an array type question with dropdown responses\">\n" . $mycols . $myheader . "\n\t<tbody>\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 .= "<tr class=\"$trbc repeat\">\n"
. "\t<td> </td>\n";
foreach ($labelans as $ld)
{
$answer .= "\t<th>".$ld."</th>\n";
}
$answer .= "</tr>\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 = '<span class="errormandatory">'.$answertext.'</span>';
}
}
// Get array_filter stuff
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname, $trbc, $myfname);
$answer .= $htmltbody2;
if (strpos($answertext,'|')) {$answertext=substr($answertext,0, strpos($answertext,'|'));}
$trbc = alternation($trbc , 'row');
$answer .= "<tr class=\"$trbc\">\n"
. "\t<th class=\"answertext\" width=\"$answerwidth%\">\n"
. "$answertext\n"
. $hiddenfield
. "<input type=\"hidden\" name=\"java$myfname\" id=\"java$myfname\" value=\"";
if (isset($_SESSION[$myfname]))
{
$answer .= $_SESSION[$myfname];
}
$answer .= "\" />\n\t</th>\n";
$first_hidden_field = '';
$thiskey=0;
foreach ($labelcode as $ld)
{
if ($checkboxlayout == false)
{
$myfname2=$myfname."_$ld";
if(isset($_SESSION[$myfname2]))
{
$myfname2_java_value = " value=\"$_SESSION[$myfname2]\" ";
}
else
{
$myfname2_java_value = "";
}
$answer .= "\t<td class=\"answer_cell_00$ld\">\n"
. "<label for=\"answer{$myfname2}\">\n"
. "\t<input type=\"hidden\" name=\"java{$myfname2}\" id=\"java{$myfname2}\" $myfname2_java_value />\n"
. "\t<select class=\"multiflexiselect\" name=\"$myfname2\" id=\"answer{$myfname2}\" title=\""
. html_escape($labelans[$thiskey]).'"'
. " onchange=\"$checkconditionFunction(this.value, this.name, this.type)\">\n"
. "<option value=\"\">...</option>\n";
for($ii=$minvalue; $ii<=$maxvalue; $ii+=$stepvalue) {
$answer .= "<option value=\"$ii\"";
if(isset($_SESSION[$myfname2]) && $_SESSION[$myfname2] == $ii) {
$answer .= SELECTED;
}
$answer .= ">$ii</option>\n";
}
$inputnames[]=$myfname2;
$answer .= "\t</select>\n"
. "</label>\n"
. "\t</td>\n";
$thiskey++;
}
else
{
$myfname2=$myfname."_$ld";
if(isset($_SESSION[$myfname2]) && $_SESSION[$myfname2] == '1')
{
$myvalue = '1';
$setmyvalue = CHECKED;
}
else
{
$myvalue = '0';
$setmyvalue = '';
}
$answer .= "\t<td class=\"answer_cell_00$ld\">\n"
// . "<label for=\"answer{$myfname2}\">\n"
. "\t<input type=\"hidden\" name=\"java{$myfname2}\" id=\"java{$myfname2}\" value=\"$myvalue\"/>\n"
. "\t<input type=\"hidden\" name=\"$myfname2\" id=\"answer{$myfname2}\" value=\"$myvalue\" />\n";
$answer .= "\t<input type=\"checkbox\" name=\"cbox_$myfname2\" id=\"cbox_$myfname2\" $setmyvalue "
. " onclick=\"cancelBubbleThis(event); "
. " aelt=document.getElementById('answer{$myfname2}');"
. " jelt=document.getElementById('java{$myfname2}');"
. " if(this.checked) {"
. " aelt.value=1;jelt.value=1;$checkconditionFunction(1,'answer{$myfname2}',aelt.type);"
. " } else {"
. " aelt.value=0;jelt.value=0;$checkconditionFunction(0,'answer{$myfname2}',aelt.type);"
. " }; return true;\" "
// . " onchange=\"checkconditions(this.value, this.name, this.type)\" "
. " />\n";
$inputnames[]=$myfname2;
// $answer .= "</label>\n"
$answer .= ""
. "\t</td>\n";
$thiskey++;
}
}
if (strpos($answertextsave,'|'))
{
$answertext=substr($answertextsave,strpos($answertextsave,'|')+1);
$answer .= "\t<td class=\"answertextright\" style='text-align:left;' width=\"$answerwidth%\">$answertext</td>\n";
}
elseif ($right_exists)
{
$answer .= "\t<td class=\"answertextright\" style='text-align:left;' width=\"$answerwidth%\"> </td>\n";
}
$answer .= "</tr>\n\t</tbody>";
//IF a MULTIPLE of flexi-redisplay figure, repeat the headings
$fn++;
}
$answer .= "\n</table>\n";
}
else
{
$answer = "\n<p class=\"error\">".$clang->gT('Error: The labelset used for this question is not available in this language and/or does not exist.')."</p>\n";
$inputnames = '';
}
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_array_flexiblecolumns($ia)
{
global $dbprefix;
global $shownoanswer;
global $notanswered, $clang;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$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 ($qidattributes['random_order']==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<table class=\"question\" summary=\"".str_replace('"','' ,strip_tags($ia[3]))." - an array type question with a single response per row\">\n\n"
. "\t<colgroup class=\"col-responses\">\n"
. "\t<col class=\"col-answers\" width=\"50%\" />\n";
$odd_even = '';
for( $c = 0 ; $c < $anscount ; ++$c )
{
$odd_even = alternation($odd_even);
$answer .= "<col class=\"$odd_even\" width=\"$cellwidth%\" />\n";
}
$answer .= "\t</colgroup>\n\n"
. "\t<thead>\n"
. "<tr>\n"
. "\t<td> </td>\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 = "<span class=\"errormandatory\">{$ld}</span>";
}
$odd_even = alternation($odd_even);
$answer .= "\t<th class=\"$odd_even\">$ld</th>\n";
}
unset($trbc);
$answer .= "</tr>\n\t</thead>\n\n\t<tbody>\n";
$ansrowcount=0;
$ansrowtotallength=0;
while ($ansrow = $ansresult->FetchRow())
{
$ansrowcount++;
$ansrowtotallength=$ansrowtotallength+strlen($ansrow['answer']);
}
$percwidth=100 - ($cellwidth*$anscount);
foreach($labels as $ansrow)
{
$answer .= "<tr>\n"
. "\t<th class=\"arraycaptionleft\">{$ansrow['answer']}</th>\n";
foreach ($anscode as $ld)
{
//if (!isset($trbc) || $trbc == 'array1') {$trbc = 'array2';} else {$trbc = 'array1';}
$myfname=$ia[1].$ld;
$answer .= "\t<td class=\"answer_cell_00$ld\">\n"
. "<label for=\"answer".$myfname.'-'.$ansrow['code']."\">\n"
. "\t<input class=\"radio\" type=\"radio\" name=\"".$myfname.'" value="'.$ansrow['code'].'" '
. 'id="answer'.$myfname.'-'.$ansrow['code'].'" '
. 'title="'.html_escape(strip_tags($ansrow['answer'])).'"';
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == $ansrow['code'])
{
$answer .= CHECKED;
}
elseif (!isset($_SESSION[$myfname]) && $ansrow['code'] == '')
{
$answer .= CHECKED;
// Humm.. (by lemeur), not sure this section can be reached
// because I think $_SESSION[$myfname] is always set (by save.php ??) !
// should remove the !isset part I think !!
}
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n</label>\n\t</td>\n";
}
unset($trbc);
$answer .= "</tr>\n";
$fn++;
}
$answer .= "\t</tbody>\n</table>\n";
foreach($anscode as $ld)
{
$myfname=$ia[1].$ld;
$answer .= '<input type="hidden" name="java'.$myfname.'" id="java'.$myfname.'" value="';
if (isset($_SESSION[$myfname]))
{
$answer .= $_SESSION[$myfname];
}
$answer .= "\" />\n";
$inputnames[]=$myfname;
}
}
else
{
$answer = '<p class="error">'.$clang->gT('Error: There are no answers defined for this question.')."</p>";
$inputnames="";
}
}
else
{
$answer = '<p class="error">'.$clang->gT('Error: The labelset used for this question is not available in this language and/or does not exist.')."</p>";
$inputnames = '';
}
return array($answer, $inputnames);
}
// ---------------------------------------------------------------
function do_array_flexible_dual($ia)
{
global $dbprefix, $connect, $thissurvey, $clang;
global $shownoanswer;
global $repeatheadings;
global $notanswered;
global $minrepeatheadings;
if ($ia[8] == 'Y')
{
$checkconditionFunction = "checkconditions";
}
else
{
$checkconditionFunction = "noop_checkconditions";
}
$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 ($qidattributes['use_dropdown']==1)
{
$useDropdownLayout = true;
}
else
{
$useDropdownLayout = false;
}
if (trim($qidattributes['dualscale_headerA'])!='') {
$leftheader= $qidattributes['dualscale_headerA'];
}
else
{
$leftheader ='';
}
if (trim($qidattributes['dualscale_headerB'])!='')
{
$rightheader= $qidattributes['dualscale_headerB'];
}
else {
$rightheader ='';
}
$lresult = db_execute_assoc($lquery); //Checked
if ($useDropdownLayout === false && $lresult->RecordCount() > 0)
{
if (trim($qidattributes['answer_width'])!='')
{
$answerwidth=$qidattributes['answer_width'];
}
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 ($qidattributes['random_order']==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 = "<script type='text/javascript'>\n"
. "<!--\n"
. "\tfunction noanswer_checkconditions(value, name, type)\n"
. "{\n"
. "\tvar vname;\n"
. "\tvname = name.replace(/#0/g,\"#1\");\n"
. "\tfor(var i=0, n=document.getElementsByName(vname).length; i<n; ++i)\n"
. "\t{\n"
. "document.getElementsByName(vname)[i].checked=false;\n"
. "\t}\n"
. "\t$checkconditionFunction(value, name, type);\n"
. "}\n"
. "\tfunction secondlabel_checkconditions(value, name, type)\n"
. "{\n"
. "\tvar vname;\n"
. "\tvname = \"answer\"+name.replace(/#1/g,\"#0-\");\n"
. "\tif(document.getElementById(vname))\n"
. "\t{\n"
. "document.getElementById(vname).checked=false;\n"
. "\t}\n"
. "\t$checkconditionFunction(value, name, type);\n"
. "}\n"
. " //-->\n"
. " </script>\n";
$mycolumns = "\t<colgroup class=\"col-responses group-1\">\n"
."\t<col class=\"col-answers\" width=\"$answerwidth%\" />\n";
$myheader2 = "\n<tr class=\"array1\">\n"
. "\t<th> </th>\n\n";
$odd_even = '';
foreach ($labelans as $ld)
{
$myheader2 .= "\t<th>".$ld."</th>\n";
$odd_even = alternation($odd_even);
$mycolumns .= "<col class=\"$odd_even\" width=\"$cellwidth%\" />\n";
}
$mycolumns .= "\t</colgroup>\n";
if (count($labelans1)>0) // if second label set is used
{
$mycolumns .= "\t<colgroup class=\"col-responses group-2\">\n"
. "\t<col class=\"seperator\" />\n";
$myheader2 .= "\n\t<td> </td>\n\n";
foreach ($labelans1 as $ld)
{
$myheader2 .= "\t<th>".$ld."</th>\n";
$odd_even = alternation($odd_even);
$mycolumns .= "<col class=\"$odd_even\" width=\"$cellwidth%\" />\n";
}
}
$myheader2 .= "\t<td> </td>\n";
if ($right_exists)
{
$mycolumns .= "\n\t<col class=\"answertextright\" />\n\n";
}
else
{
$mycolumns .= "\n\t<col class=\"seperator\" />\n\n";
}
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory and we can show "no answer"
{
$myheader2 .= "\t<th>".$clang->gT('No answer')."</th>\n";
$odd_even = alternation($odd_even);
$mycolumns .= "\t<col class=\"col-no-answer $odd_even\" width=\"$cellwidth%\" />\n";
}
$mycolumns .= "\t</colgroup>\n";
$myheader2 .= "</tr>\n";
// build first row of header if needed
if ($leftheader != '' || $rightheader !='')
{
$myheader1 = "<tr class=\"array1 groups\">\n"
. "\t<th> </th>\n"
. "\t<th colspan=\"".count($labelans)."\" class=\"dsheader\">$leftheader</th>\n";
if (count($labelans1)>0)
{
$myheader1 .= "\t<td> </td>\n"
."\t<th colspan=\"".count($labelans1)."\" class=\"dsheader\">$rightheader</th>\n";
}
$myheader1 .= "\t<td> </td>\n";
if ($ia[6] != 'Y' && $shownoanswer == 1)
{
$myheader1 .= "\t<th> </th>\n";
}
$myheader1 .= "</tr>\n";
}
else
{
$myheader1 = '';
}
$answer .= "\n<table class=\"question\" summary=\"".str_replace('"','' ,strip_tags($ia[3]))." - an dual array type question\">\n"
. $mycolumns
. "\n\t<thead>\n"
. $myheader1
. $myheader2
. "\n\t</thead>\n"
. "\n\t<tbody>\n";
$trbc = '';
while ($ansrow = $ansresult->FetchRow())
{
if (isset($repeatheadings) && $repeatheadings > 0 && ($fn-1) > 0 && ($fn-1) % $repeatheadings == 0)
{
if ( ($anscount - $fn + 1) >= $minrepeatheadings )
{
$answer .= "<tr class=\"repeat\">\n"
. "\t<th> </th>\n";
foreach ($labelans as $ld)
{
$answer .= "\t<th>".$ld."</td>\n";
}
if (count($labelans1)>0) // if second label set is used
{
$answer .= "<th> </th>\n"; // separator
foreach ($labelans1 as $ld)
{
$answer .= "\t<th>".$ld."</th>\n";
}
}
if ($ia[6] != 'Y' && $shownoanswer == 1) //Question is not mandatory and we can show "no answer"
{
$answer .= "\t<td> </td>\n"; // separator
$answer .= "\t<th>".$clang->gT('No answer')."</th>\n";
}
$answer .= "</tr>\n";
}
}
$trbc = alternation($trbc , 'row');
$answertext=answer_replace($ansrow['answer']);
$answertextsave=$answertext;
$dualgroup=0;
$myfname0= $ia[1].$ansrow['code'];
$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 = "<span class='errormandatory'>{$answertext}</span>";
}
// Get array_filter stuff
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $myfname0, $trbc, $myfname);
$answer .= $htmltbody2;
if (strpos($answertext,'|')) {$answertext=substr($answertext,0, strpos($answertext,'|'));}
array_push($inputnames,$myfname);
$answer .= "<tr class=\"$trbc\">\n"
. "\t<th class=\"answertext\">\n"
. $hiddenfield
. "$answertext\n"
. "<input type=\"hidden\" name=\"java$myfname\" id=\"java$myfname\" value=\"";
if (isset($_SESSION[$myfname])) {$answer .= $_SESSION[$myfname];}
$answer .= "\" />\n\t</th>\n";
$hiddenanswers='';
$thiskey=0;
foreach ($labelcode as $ld)
{
$answer .= "\t<td class=\"answer_cell_1_00$ld\">\n"
. "<label for=\"answer$myfname-$ld\">\n"
. "\t<input class=\"radio\" type=\"radio\" name=\"$myfname\" value=\"$ld\" id=\"answer$myfname-$ld\" title=\""
. html_escape(strip_tags($labelans[$thiskey])).'"';
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == $ld)
{
$answer .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer .= " onclick=\"$checkconditionFunction(this.value, this.name, this.type)\" />\n</label>\n";
// --> END NEW FEATURE - SAVE
$answer .= "\n\t</td>\n";
$thiskey++;
}
if (count($labelans1)>0) // if second label set is used
{
$dualgroup++;
$hiddenanswers='';
$answer .= "\t<td class=\"dual_scale_separator\"> </td>\n"; // separator
array_push($inputnames,$myfname1);
$hiddenanswers .= "<input type=\"hidden\" name=\"java$myfname1\" id=\"java$myfname1\" value=\"";
if (isset($_SESSION[$myfname1])) {$hiddenanswers .= $_SESSION[$myfname1];}
$hiddenanswers .= "\" />\n";
$thiskey=0;
foreach ($labelcode1 as $ld) // second label set
{
$answer .= "\t<td class=\"answer_cell_2_00$ld\">\n";
if ($hiddenanswers!='')
{
$answer .=$hiddenanswers;
$hiddenanswers='';
}
$answer .= "<label for=\"answer$myfname1-$ld\">\n"
. "\t<input class=\"radio\" type=\"radio\" name=\"$myfname1\" value=\"$ld\" id=\"answer$myfname1-$ld\" title=\""
. html_escape(strip_tags($labelans1[$thiskey])).'"';
if (isset($_SESSION[$myfname1]) && $_SESSION[$myfname1] == $ld)
{
$answer .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer .= " onclick=\"secondlabel_checkconditions(this.value, this.name, this.type)\" />\n</label>\n";
// --> END NEW FEATURE - SAVE
$answer .= "\t</td>\n";
$thiskey++;
}
}
if (strpos($answertextsave,'|'))
{
$answertext=substr($answertextsave,strpos($answertextsave,'|')+1);
$answer .= "\t<td class=\"answertextright\">$answertext</td>\n";
$hiddenanswers = '';
}
elseif ($right_exists)
{
$answer .= "\t<td class=\"answertextright\"> </td>\n";
}
else
{
$answer .= "\t<td> </td>\n"; // separator
}
if ($ia[6] != "Y" && $shownoanswer == 1)
{
$answer .= "\t<td>\n"
. "<label for='answer$myfname-'>\n"
. "\t<input class='radio' type='radio' name='$myfname' value='' id='answer$myfname-' title='".$clang->gT("No answer")."'";
if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == "")
{
$answer .= CHECKED;
}
// --> START NEW FEATURE - SAVE
$answer .= " onclick=\"noanswer_checkconditions(this.value, this.name, this.type)\" />\n"
. "</label>\n"
. "\t</td>\n";
// --> END NEW FEATURE - SAVE
}
$answer .= "</tr>\n";
// $inputnames[]=$myfname;
//IF a MULTIPLE of flexi-redisplay figure, repeat the headings
$fn++;
}
$answer .= "\t</tbody>\n</table>\n";
}
elseif ($useDropdownLayout === true && $lresult->RecordCount() > 0)
{
if (trim($qidattributes['answer_width'])!='')
{
$answerwidth=$qidattributes['answer_width'];
} else {
$answerwidth=20;
}
$separatorwidth=(100-$answerwidth)/10;
$columnswidth=100-$answerwidth-($separatorwidth*2);
$answer = "<script type='text/javascript'>\n"
. "<!--\n"
. "\tfunction special_checkconditions(value, name, type, rank)\n"
. "{\n"
. "\tif (value == '') {\n"
. "if (rank == 0) { dualname = name.replace(/#0/g,\"#1\"); }\n"
. "else if (rank == 1) { dualname = name.replace(/#1/g,\"#0\"); }\n"
. "document.getElementsByName(dualname)[0].value=value;\n"
. "\t}\n"
. "$checkconditionFunction(value, name, type);\n"
. "}\n"
. " //-->\n"
. " </script>\n";
// Get Answers
//question atribute random_order set?
if ($qidattributes['random_order']==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<p class=\"error\">".$clang->gT('Error: This question has no answers.')."</p>\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 (trim($qidattributes['dropdown_prepostfix'])!='') {
list ($ddprefix, $ddsuffix) =explode("|",$qidattributes['dropdown_prepostfix']);
$ddprefix = $ddprefix;
$ddsuffix = $ddsuffix;
}
else
{
$ddprefix ='';
$ddsuffix='';
}
if (trim($qidattributes['dropdown_separators'])!='') {
list ($postanswSep, $interddSep) =explode('|',$qidattributes['dropdown_separators']);
$postanswSep = $postanswSep;
$interddSep = $interddSep;
}
else {
$postanswSep = '';
$interddSep = '';
}
$colspan_1 = '';
$colspan_2 = '';
$suffix_cell = '';
$answer .= "\n<table class=\"question\" summary=\"".str_replace('"','' ,strip_tags($ia[3]))." - an duel array type question\">\n\n"
. "\t<col class=\"answertext\" width=\"$answerwidth%\" />\n";
if($ddprefix != '')
{
$answer .= "\t<col class=\"ddprefix\" />\n";
$colspan_1 = ' colspan="2"';
}
$answer .= "\t<col class=\"dsheader\" />\n";
if($ddsuffix != '')
{
$answer .= "\t<col class=\"ddsuffix\" />\n";
if(!empty($colspan_1))
{
$colspan_2 = ' colspan="3"';
}
$suffix_cell = "\t<td> </td>\n"; // suffix
}
$answer .= "\t<col class=\"ddarrayseparator\" width=\"$separatorwidth%\" />\n";
if($ddprefix != '')
{
$answer .= "\t<col class=\"ddprefix\" />\n";
}
$answer .= "\t<col class=\"dsheader\" />\n";
if($ddsuffix != '')
{
$answer .= "\t<col class=\"ddsuffix\" />\n";
};
// headers
$answer .= "\n\t<thead>\n"
. "<tr>\n"
. "\t<td$colspan_1> </td>\n" // prefix
. "\n"
// . "\t<td align='center' width='$columnswidth%'><span class='dsheader'>$leftheader</span></td>\n"
. "\t<th>$leftheader</th>\n"
. "\n"
. "\t<td$colspan_2> </td>\n" // suffix // Inter DD separator // prefix
// . "\t<td align='center' width='$columnswidth%'><span class='dsheader'>$rightheader</span></td>\n"
. "\t<th>$rightheader</th>\n"
. $suffix_cell."</tr>\n"
. "\t</thead>\n\n"
. "\t<tbody>\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="<span class='errormandatory'>".answer_replace($ansrow['answer'])."</span>";
}
else
{
$answertext=answer_replace($ansrow['answer']);
}
$trbc = alternation($trbc , 'row');
// Get array_filter stuff
list($htmltbody2, $hiddenfield)=return_array_filter_strings($ia, $qidattributes, $thissurvey, $ansrow, $rowname, $trbc, $myfname);
$answer .= $htmltbody2;
$answer .= "<tr class=\"$trbc\">\n"
. "\t<th class=\"answertext\">\n"
. "<label for=\"answer$rowname\">\n"
. $hiddenfield
. "$answertext\n"
. "</label>\n"
. "\t</th>\n";
// Label0
// prefix
if($ddprefix != '')
{
$answer .= "\t<td class=\"ddprefix\">$ddprefix</td>\n";
}
$answer .= "\t<td >\n"
. "<select name=\"$myfname\" id=\"answer$myfname\" onchange=\"special_checkconditions(this.value, this.name, this.type,$dualgroup);\">\n";
if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] =='')
{
$answer .= "\t<option value=\"\" ".SELECTED.'>'.$clang->gT('Please choose')."...</option>\n";
}
foreach ($labels0 as $lrow)
{
$answer .= "\t<option value=\"".$lrow['code'].'" ';
if (isset($_SESSION[$myfname]) && $_SESSION[$myfname] == $lrow['code'])
{
$answer .= SELECTED;
}
$answer .= '>'.$lrow['title']."</option>\n";
}
// If not mandatory and showanswer, show no ans
if ($ia[6] != 'Y' && $shownoanswer == 1)
{
$answer .= "\t<option value=\"\" ";
if (!isset($_SESSION[$myfname]) || $_SESSION[$myfname] == '')
{
$answer .= SELECTED;
}
$answer .= '>'.$clang->gT('No answer')."</option>\n";
}
$answer .= "</select>\n";
// suffix
if($ddsuffix != '')
{
$answer .= "\t<td class=\"ddsuffix\">$ddsuffix</td>\n";
}
$answer .= "<input type=\"hidden\" name=\"java$myfname\" id=\"java$myfname\" value=\"";
if (isset($_SESSION[$myfname]))
{
$answer .= $_SESSION[$myfname];
}
$answer .= "\" />\n"
. "\t</td>\n";
$inputnames[]=$myfname;
$answer .= "\t<td class=\"ddarrayseparator\">$interddSep</td>\n"; //Separator
// Label1
// prefix
if($ddprefix != '')
{
$answer .= "\t<td class='ddprefix'>$ddprefix</td>\n";
}
// $answer .= "\t<td align='left' width='$columnswidth%'>\n"
$answer .= "\t<td>\n"
. "<select name=\"$myfname1\" id=\"answer$myfname1\" onchange=\"special_checkconditions(this.value, this.name, this.type,$dualgroup1);\">\n";
if (!isset($_SESSION[$myfname1]) || $_SESSION[$myfname1] =='')
{
$answer .= "\t<option value=\"\"".SELECTED.'>'.$clang->gT('Please choose')."...</option>\n";
}
foreach ($labels1 as $lrow1)
{
$answer .= "\t<option value=\"".$lrow1['code'].'" ';
if (isset($_SESSION[$myfname1]) && $_SESSION[$myfname1] == $lrow1['code'])
{
$answer .= SELECTED;
}
$answer .= '>'.$lrow1['title']."</option>\n";
}
// If not mandatory and showanswer, show no ans
if ($ia[6] != 'Y' && $shownoanswer == 1)
{
$answer .= "\t<option value='' ";
if (!isset($_SESSION[$myfname1]) || $_SESSION[$myfname1] == '')
{
$answer .= SELECTED;
}
$answer .= ">".$clang->gT('No answer')."</option>\n";
}
$answer .= "</select>\n";
// suffix
if($ddsuffix != '')
{
$answer .= "\t<td class=\"ddsuffix\">$ddsuffix</td>\n";
}
$answer .= "<input type=\"hidden\" name=\"java$myfname1\" id=\"java$myfname1\" value=\"";
if (isset($_SESSION[$myfname1]))
{
$answer .= $_SESSION[$myfname1];
}
$answer .= "\" />\n"
. "\t</td>\n";
$inputnames[]=$myfname1;
$answer .= "</tr>\n";
}
} // End there are answers
$answer .= "\t</tbody>\n</table>\n";
}
else
{
$answer = '<span class="error" style="color:#f00">'.$clang->gT('Error: The labelset used for this question is not available in this language and/or does not exist.')."</span>";
$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, $_SESSION['dateformats']['phpdate']);
$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<br />$ansquery<br />".$connect->ErrorMsg()); //Checked
if ($tablabel->RecordCount()>0) {return true;} else {return false;}
}
?>