';
}
if (!function_exists('mb_convert_encoding'))
{
$dieoutput .= "This script needs the PHP Multibyte String Functions library installed: See FAQ and PHP documentation ";
}
if ($dieoutput!='') die($dieoutput);
if (!isset($debug)) {$debug=0;} // for some older config.php's
if ($debug>0) {//For debug purposes - switch on in config.php
@ini_set("display_errors", 1);
error_reporting(E_ALL);
}
if ($debug>2) {//For debug purposes - switch on in config.php
error_reporting(E_ALL | E_STRICT);
}
if (ini_get("max_execution_time")<1200) @set_time_limit(1200); // Maximum execution time - works only if safe_mode is off
//@ini_set("memory_limit",$memorylimit); // Set Memory Limit for big surveys
$maildebug='';
// The following function (when called) includes FireBug Lite if true
define('FIREBUG' , $use_firebug_lite);
define('ADODB_ASSOC_CASE', 2); // needed to set proper upper/lower casing for mssql
##################################################################################
require_once ($rootdir.'/classes/adodb/adodb.inc.php');
require_once ($rootdir.'/classes/datetimeconverter/class.datetimeconverter.php');
require_once ($rootdir.'/classes/phpmailer/class.phpmailer.php');
require_once ($rootdir.'/classes/php-gettext/gettext.inc');
require_once ($rootdir.'/classes/core/surveytranslator.php');
require_once ($rootdir.'/classes/core/sanitize.php');
// DB session handling
if ($sessionhandler=='db')
{
require_once($rootdir."/classes/adodb/session/adodb-session2.php");
$sessionoptions['table'] = $dbprefix.'sessions';
ADOdb_Session::config($databasetype, $databaselocation, $databaseuser, $databasepass, $databasename, $sessionoptions);
}
$dbprefix=strtolower($dbprefix);
define("_PHPVERSION", phpversion()); // This is the same as the server defined 'PHP_VERSION'
// Deal with server systems having not set a default time zone
if(function_exists("date_default_timezone_set") and function_exists("date_default_timezone_get"))
@date_default_timezone_set(@date_default_timezone_get());
//Every 50th time clean up the temp directory of old files (older than 1 day)
//depending on the load the probability might be set higher or lower
if (rand(1,50)==25)
{
cleanTempDirectory();
}
// Array of JS and CSS scripts to include in client header
$js_header_includes = array();
$css_header_includes = array();
// JS scripts and CSS to include in admin header
// updated by admin scripts
$js_admin_includes = array();
$css_admin_includes = array();
/*
* $sourcefrom variable checks the location of the current script against
* the administration directory, and if the current script is running
* in the administration directory, it is set to "admin". Otherwise it is set
* to "public". When $sourcefrom is "admin" certain administration only functions
* are loaded.
*/
$scriptlocation=realpath(".");
$slashlesspath=str_replace(array("\\", "/"), "", $scriptlocation);
$slashlesshome=str_replace(array("\\", "/"), "", $homedir);
// Uncomment the following line for debug purposes
// echo $slashlesspath." - ".$slashlesshome;
if (strcasecmp($slashlesshome, $slashlesspath) == 0) {
if (strcasecmp($slashlesshome."install", $slashlesspath) != 0)
{
$sourcefrom="admin";
}
else
{
$sourcefrom="install";
}
} else {
$sourcefrom="public";
}
// Set path for captcha verification.php
if ($sourcefrom == "admin")
{
$captchapath='../';
}
else
{
$captchapath=$rooturl.'/';
}
//BEFORE SESSIONCONTOL BECAUSE OF THE CONNECTION
//CACHE DATA
$connect=ADONewConnection($databasetype);
$database_exists = FALSE;
switch ($databasetype)
{
case "postgres":
case "mysqli":
case "mysql": if ($databaseport!="default") {$dbhost="$databaselocation:$databaseport";}
else {$dbhost=$databaselocation;}
break;
case "mssql_n":
case "mssqlnative":
case "mssql": if ($databaseport!="default") {$dbhost="$databaselocation,$databaseport";}
else {$dbhost=$databaselocation;}
break;
case "odbc_mssql": $dbhost="Driver={SQL Server};Server=$databaselocation;Database=".$databasename;
break;
default: safe_die("Unknown database type");
}
// Now try connecting to the database
if ($databasepersistent==true)
{
if (@$connect->PConnect($dbhost, $databaseuser, $databasepass, $databasename))
{
$database_exists = TRUE;
}
else {
// If that doesnt work try connection without database-name
$connect->database = '';
if (!@$connect->PConnect($dbhost, $databaseuser, $databasepass))
{
safe_die("Can't connect to LimeSurvey database. Reason: ".$connect->ErrorMsg());
}
}
}
else
{
if (@$connect->Connect($dbhost, $databaseuser, $databasepass, $databasename))
{
$database_exists = TRUE;
}
else {
// If that doesnt work try connection without database-name
$connect->database = '';
if (!@$connect->Connect($dbhost, $databaseuser, $databasepass))
{
safe_die("Can't connect to LimeSurvey database. Reason: ".$connect->ErrorMsg());
}
}
}
// AdoDB seems to be defaulting to ADODB_FETCH_NUM and we want to be sure that the right default mode is set
$connect->SetFetchMode(ADODB_FETCH_ASSOC);
$dbexistsbutempty=($database_exists && !tableExists('surveys'));
if ($databasetype=='mysql' || $databasetype=='mysqli') {
if ($debug>1) { @$connect->Execute("SET SESSION SQL_MODE='STRICT_ALL_TABLES,ANSI'"); } //for development - use mysql in the strictest mode //Checked
$infoarray=$connect->ServerInfo();
if (version_compare ($infoarray['version'],'4.1','<'))
{
safe_die (" Error: You need at least MySQL version 4.1 to run LimeSurvey. Your version:".$infoarray['version']);
}
@$connect->Execute("SET CHARACTER SET 'utf8'"); //Checked
@$connect->Execute("SET NAMES 'utf8'"); //Checked
}
// Setting dateformat for mssql driver. It seems if you don't do that the in- and output format could be different
if ($databasetype=='odbc_mssql' || $databasetype=='odbtp' || $databasetype=='mssql_n' || $databasetype=='mssqlnative') {
@$connect->Execute('SET DATEFORMAT ymd;'); //Checked
@$connect->Execute('SET QUOTED_IDENTIFIER ON;'); //Checked
}
// Check if the DB is up to date
If ($dbexistsbutempty && $sourcefrom=='admin') {
die (" The LimeSurvey database does exist but it seems to be empty. Please run the install script to create the necessary tables.");
}
// Default global values that should not appear in config-defaults.php
$updateavailable=0;
$updatebuild='';
$updateversion='';
$updatelastcheck='';
$updatekey='';
$updatekeyvaliduntil='';
require ($homedir.'/globalsettings.php');
// Check if the DB is up to date
If (!$dbexistsbutempty && $sourcefrom=='admin')
{
$usrow = getGlobalSetting('DBVersion');
if (intval($usrow)<$dbversionnumber)
{
$action='';
require_once($rootdir.'/classes/core/language.php');
$clang = new limesurvey_lang($defaultlang);
include_once($homedir.'/update/updater.php');
$output=CheckForDBUpgrades();
echo $output;
echo " ".$clang->gT("Back to main menu")."";
updatecheck();
die();
}
if (is_dir($homedir."/install") && $debug<2)
{
die ("
Congratulations
Your installation is now complete. The final step is to remove or rename the LimeSurvey installation directory (admin/install) on your server since it may be a security risk.
Once this directory has been removed or renamed you will be able to log in to your new LimeSurvey Installation.
");
}
}
//Admin menus and standards
//IF THIS IS AN ADMIN SCRIPT, RUN THE SESSIONCONTROL SCRIPT
if ($sourcefrom == "admin")
{
include($homedir."/sessioncontrol.php");
/**
* @param string $htmlheader
* This is the html header text for all administration pages
*
*/
$htmlheader = getAdminHeader();
}
//SET LANGUAGE DIRECTORY
if ($sourcefrom == "admin")
{
$langdir="$publicurl/locale/".$_SESSION['adminlang']."/help";
$langdirlocal="$rootdir/locale/".$_SESSION['adminlang']."/help";
if (!is_dir($langdirlocal)) // is_dir only works on local dirs
{
$langdir="$publicurl/locale/en/help"; //default to english if there is no matching language dir
}
}
if ($sourcefrom == "admin" && $buildnumber != "" && $updatecheckperiod>0 && $updatelastcheck list
*
* Explanation of questiontype array:
*
* description : Question description
* subquestions : 0= Does not support subquesitons 1=Supports subquestions
* answerscales : 0= Does not need answers x=Number of answer scales (usually 1, but e.g. for dual scale question set to 2)
*/
function getqtypelist($SelectedCode = "T", $ReturnType = "selector")
{
global $publicurl;
global $sourcefrom, $clang;
if (!isset($clang))
{
$clang = new limesurvey_lang("en");
}
$qtypes = array(
"1"=>array('description'=>$clang->gT("Array Dual Scale"),
'subquestions'=>1,
'assessable'=>1,
'hasdefaultvalues'=>0,
'answerscales'=>2),
"5"=>array('description'=>$clang->gT("5 Point Choice"),
'subquestions'=>0,
'hasdefaultvalues'=>0,
'assessable'=>0,
'answerscales'=>0),
"A"=>array('description'=>$clang->gT("Array (5 Point Choice)"),
'subquestions'=>1,
'hasdefaultvalues'=>0,
'assessable'=>1,
'answerscales'=>0),
"B"=>array('description'=>$clang->gT("Array (10 Point Choice)"),
'subquestions'=>1,
'hasdefaultvalues'=>0,
'assessable'=>1,
'answerscales'=>0),
"C"=>array('description'=>$clang->gT("Array (Yes/No/Uncertain)"),
'subquestions'=>1,
'hasdefaultvalues'=>0,
'assessable'=>1,
'answerscales'=>0),
"D"=>array('description'=>$clang->gT("Date"),
'subquestions'=>0,
'hasdefaultvalues'=>0,
'assessable'=>0,
'answerscales'=>0),
"E"=>array('description'=>$clang->gT("Array (Increase/Same/Decrease)"),
'subquestions'=>1,
'hasdefaultvalues'=>0,
'assessable'=>1,
'answerscales'=>0),
"F"=>array('description'=>$clang->gT("Array"),
'subquestions'=>1,
'hasdefaultvalues'=>0,
'assessable'=>1,
'answerscales'=>1),
"G"=>array('description'=>$clang->gT("Gender"),
'subquestions'=>0,
'hasdefaultvalues'=>0,
'assessable'=>0,
'answerscales'=>0),
"H"=>array('description'=>$clang->gT("Array by column"),
'hasdefaultvalues'=>0,
'subquestions'=>1,
'assessable'=>1,
'answerscales'=>1),
"I"=>array('description'=>$clang->gT("Language Switch"),
'hasdefaultvalues'=>0,
'subquestions'=>0,
'assessable'=>0,
'answerscales'=>0),
"K"=>array('description'=>$clang->gT("Multiple Numerical Input"),
'hasdefaultvalues'=>0,
'subquestions'=>1,
'assessable'=>1,
'answerscales'=>0),
"L"=>array('description'=>$clang->gT("List (Radio)"),
'subquestions'=>0,
'hasdefaultvalues'=>1,
'assessable'=>1,
'answerscales'=>1),
"M"=>array('description'=>$clang->gT("Multiple Options"),
'subquestions'=>1,
'hasdefaultvalues'=>1,
'assessable'=>1,
'answerscales'=>0),
"N"=>array('description'=>$clang->gT("Numerical Input"),
'subquestions'=>0,
'hasdefaultvalues'=>0,
'assessable'=>0,
'answerscales'=>0),
"O"=>array('description'=>$clang->gT("List with comment"),
'subquestions'=>0,
'hasdefaultvalues'=>1,
'assessable'=>1,
'answerscales'=>1),
"P"=>array('description'=>$clang->gT("Multiple Options With Comments"),
'subquestions'=>1,
'hasdefaultvalues'=>1,
'assessable'=>1,
'answerscales'=>0),
"Q"=>array('description'=>$clang->gT("Multiple Short Text"),
'subquestions'=>1,
'hasdefaultvalues'=>0,
'assessable'=>0,
'answerscales'=>0),
"R"=>array('description'=>$clang->gT("Ranking"),
'subquestions'=>0,
'hasdefaultvalues'=>0,
'assessable'=>1,
'answerscales'=>1),
"S"=>array('description'=>$clang->gT("Short Free Text"),
'subquestions'=>0,
'hasdefaultvalues'=>0,
'assessable'=>0,
'answerscales'=>0),
"T"=>array('description'=>$clang->gT("Long Free Text"),
'subquestions'=>0,
'hasdefaultvalues'=>0,
'assessable'=>0,
'answerscales'=>0),
"U"=>array('description'=>$clang->gT("Huge Free Text"),
'subquestions'=>0,
'hasdefaultvalues'=>0,
'assessable'=>0,
'answerscales'=>0),
"X"=>array('description'=>$clang->gT("Boilerplate Question"),
'subquestions'=>0,
'hasdefaultvalues'=>0,
'assessable'=>0,
'answerscales'=>0),
"Y"=>array('description'=>$clang->gT("Yes/No"),
'subquestions'=>0,
'hasdefaultvalues'=>0,
'assessable'=>0,
'answerscales'=>0),
"!"=>array('description'=>$clang->gT("List (Dropdown)"),
'subquestions'=>0,
'hasdefaultvalues'=>1,
'assessable'=>1,
'answerscales'=>1),
":"=>array('description'=>$clang->gT("Array (Numbers)"),
'subquestions'=>2,
'hasdefaultvalues'=>0,
'assessable'=>1,
'answerscales'=>0),
";"=>array('description'=>$clang->gT("Array (Texts)"),
'subquestions'=>2,
'hasdefaultvalues'=>0,
'assessable'=>0,
'answerscales'=>0),
);
asort($qtypes);
if ($ReturnType == "array") {return $qtypes;}
$qtypeselecter = "";
foreach($qtypes as $TypeCode=>$TypeProperties)
{
$qtypeselecter .= " formatted list of existing surveys
*
*/
function getsurveylist($returnarray=false,$returnwithouturl=false)
{
global $surveyid, $dbprefix, $scriptname, $connect, $clang, $timeadjust;
static $cached = null;
if(is_null($cached)) {
$surveyidquery = " SELECT a.*, surveyls_title, surveyls_description, surveyls_welcometext, surveyls_url "
." FROM ".db_table_name('surveys')." AS a "
. "INNER JOIN ".db_table_name('surveys_languagesettings')." on (surveyls_survey_id=a.sid and surveyls_language=a.language) ";
if ($_SESSION['USER_RIGHT_SUPERADMIN'] != 1)
{
$surveyidquery .= " INNER JOIN ".db_table_name('surveys_rights')." AS b ON a.sid = b.sid ";
$surveyidquery .= "WHERE b.uid =".$_SESSION['loginID'];
}
$surveyidquery .= " order by active DESC, surveyls_title";
$surveyidresult = db_execute_assoc($surveyidquery); //Checked
if (!$surveyidresult) {return "Database Error";}
$surveynames = $surveyidresult->GetRows();
$cached=$surveynames;
} else {
$surveynames = $cached;
}
$surveyselecter = "";
if ($returnarray===true) return $surveynames;
$activesurveys='';
$inactivesurveys='';
$expiredsurveys='';
if ($surveynames)
{
foreach($surveynames as $sv)
{
$surveylstitle=FlattenText($sv['surveyls_title']);
if (strlen($surveylstitle)>45)
{
$surveylstitle = htmlspecialchars(mb_strcut(html_entity_decode($surveylstitle,ENT_QUOTES,'UTF-8'), 0, 45, 'UTF-8'))."...";
}
if($sv['active']!='Y')
{
$inactivesurveys .= "";
}
if ($inactivesurveys!='')
{
$surveyselecter .= "";
}
if (!isset($svexist))
{
$surveyselecter = "\n".$surveyselecter;
} else
{
if ($returnwithouturl===false)
{
$surveyselecter = "\n".$surveyselecter;
} else
{
$surveyselecter = "\n".$surveyselecter;
}
}
return $surveyselecter;
}
/**
* getQuestions() queries the database for an list of all questions matching the current survey and group id
*
* @global string $surveyid
* @global string $gid
* @global string $selectedqid
*
* @return This string is returned containing formatted list of questions in the current survey and group
*/
function getQuestions($surveyid,$gid,$selectedqid)
{
global $scriptname, $clang;
$s_lang = GetBaseLanguageFromSurveyID($surveyid);
$qquery = 'SELECT * FROM '.db_table_name('questions')." WHERE sid=$surveyid AND gid=$gid AND language='{$s_lang}' and parent_qid=0 order by question_order";
$qresult = db_execute_assoc($qquery); //checked
$qrows = $qresult->GetRows();
if (!isset($questionselecter)) {$questionselecter="";}
foreach ($qrows as $qrow)
{
$qrow['title'] = strip_tags($qrow['title']);
$questionselecter .= "\n".$questionselecter;
}
return $questionselecter;
}
/**
* Gets number of groups inside a particular survey
*
* @param string $surveyid
* @param mixed $lang
*/
function getGroupSum($surveyid, $lang)
{
global $surveyid,$dbprefix ;
$sumquery3 = "SELECT * FROM ".db_table_name('groups')." WHERE sid=$surveyid AND language='".$lang."'"; //Getting a count of questions for this survey
$sumresult3 = db_execute_assoc($sumquery3); //Checked
$groupscount = $sumresult3->RecordCount();
return $groupscount ;
}
/**
* Gets number of questions inside a particular group
*
* @param string $surveyid
* @param mixed $groupid
*/
function getQuestionSum($surveyid, $groupid)
{
global $surveyid,$dbprefix ;
$s_lang = GetBaseLanguageFromSurveyID($surveyid);
$sumquery3 = "SELECT * FROM ".db_table_name('questions')." WHERE gid=$groupid and sid=$surveyid AND language='{$s_lang}'"; //Getting a count of questions for this survey
$sumresult3 = db_execute_assoc($sumquery3); //Checked
$questionscount = $sumresult3->RecordCount();
return $questionscount ;
}
/**
* getMaxgrouporder($surveyid) queries the database for the maximum sortorder of a group.
*
* @param mixed $surveyid
* @global string $surveyid
*/
function getMaxgrouporder($surveyid)
{
global $surveyid ;
$s_lang = GetBaseLanguageFromSurveyID($surveyid);
$max_sql = "SELECT max( group_order ) AS max FROM ".db_table_name('groups')." WHERE sid =$surveyid AND language='{$s_lang}'" ;
$max_result =db_execute_assoc($max_sql) ; //Checked
$maxrow = $max_result->FetchRow() ;
$current_max = $maxrow['max'];
if($current_max=="")
{
return "0" ;
}
else return ++$current_max ;
}
/**
* getGroupOrder($surveyid,$gid) queries the database for the sortorder of a group.
*
* @param mixed $surveyid
* @param mixed $gid
* @return mixed
*/
function getGroupOrder($surveyid,$gid)
{
$s_lang = GetBaseLanguageFromSurveyID($surveyid);
$grporder_sql = "SELECT group_order FROM ".db_table_name('groups')." WHERE sid =$surveyid AND language='{$s_lang}' AND gid=$gid" ;
$grporder_result =db_execute_assoc($grporder_sql); //Checked
$grporder_row = $grporder_result->FetchRow() ;
$group_order = $grporder_row['group_order'];
if($group_order=="")
{
return "0" ;
}
else return $group_order ;
}
/**
* getMaxquestionorder($gid) queries the database for the maximum sortorder of a question.
*
* @global string $surveyid
*/
function getMaxquestionorder($gid)
{
global $surveyid ;
$gid=sanitize_int($gid);
$s_lang = GetBaseLanguageFromSurveyID($surveyid);
$max_sql = "SELECT max( question_order ) AS max FROM ".db_table_name('questions')." WHERE gid='$gid' AND language='$s_lang'";
$max_result =db_execute_assoc($max_sql) ; //Checked
$maxrow = $max_result->FetchRow() ;
$current_max = $maxrow['max'];
if($current_max=="")
{
return "0" ;
}
else return $current_max ;
}
/**
* question_class() returns a class name for a given question type to allow custom styling for each question type.
*
* @param string $input containing unique character representing each question type.
* @return string containing the class name for a given question type.
*/
function question_class($input)
{
switch($input)
{ // I think this is a bad solution to adding classes to question
// DIVs but I can't think of a better solution. (eric_t_cruiser)
case 'X': return 'boilerplate'; // BOILERPLATE QUESTION
case '5': return 'choice-5-pt-radio'; // 5 POINT CHOICE radio-buttons
case 'D': return 'date'; // DATE
case 'Z': return 'list-radio-flexible'; // LIST Flexible radio-button
case 'L': return 'list-radio'; // LIST radio-button
case 'W': return 'list-dropdown-flexible'; // LIST drop-down (flexible label)
case '!': return 'list-dropdown'; // List - dropdown
case 'O': return 'list-with-comment'; // LIST radio-button + textarea
case 'R': return 'ranking'; // RANKING STYLE
case 'M': return 'multiple-opt'; // MULTIPLE OPTIONS checkbox
case 'I': return 'language'; // Language Question
case 'P': return 'multiple-opt-comments'; // MULTIPLE OPTIONS WITH COMMENTS checkbox + text
case 'Q': return 'multiple-short-txt'; // TEXT
case 'K': return 'numeric-multi'; // MULTIPLE NUMERICAL QUESTION
case 'N': return 'numeric'; // NUMERICAL QUESTION TYPE
case 'S': return 'text-short'; // SHORT FREE TEXT
case 'T': return 'text-long'; // LONG FREE TEXT
case 'U': return 'text-huge'; // HUGE FREE TEXT
case 'Y': return 'yes-no'; // YES/NO radio-buttons
case 'G': return 'gender'; // GENDER drop-down list
case 'A': return 'array-5-pt'; // ARRAY (5 POINT CHOICE) radio-buttons
case 'B': return 'array-10-pt'; // ARRAY (10 POINT CHOICE) radio-buttons
case 'C': return 'array-yes-uncertain-no'; // ARRAY (YES/UNCERTAIN/NO) radio-buttons
case 'E': return 'array-increase-same-decrease'; // ARRAY (Increase/Same/Decrease) radio-buttons
case 'F': return 'array-flexible-row'; // ARRAY (Flexible) - Row Format
case 'H': return 'array-flexible-column'; // ARRAY (Flexible) - Column Format
// case '^': return 'slider'; // SLIDER CONTROL
case ':': return 'array-multi-flexi'; // ARRAY (Multi Flexi) 1 to 10
case ";": return 'array-multi-flexi-text';
case "1": return 'array-flexible-duel-scale'; // Array dual scale
default: return 'generic_question'; // Should have a default fallback
};
};
if(!defined('COLSTYLE'))
{
/**
* The following prepares and defines the 'COLSTYLE' constant which
* dictates how columns are to be marked up for list type questions.
*
* $column_style is initialised at the end of config-defaults.php or from within config.php
*/
if( !isset($column_style) ||
$column_style != 'css' ||
$column_style != 'ul' ||
$column_style != 'table' ||
$column_style != null )
{
$column_style = 'ul';
};
define('COLSTYLE' ,strtolower($column_style), true);
};
function setup_columns($columns, $answer_count)
{
/**
* setup_columns() defines all the html tags to be wrapped around
* various list type answers.
*
* @param integer $columns - the number of columns, usually supplied by $dcols
* @param integer $answer_count - the number of answers to a question, usually supplied by $anscount
* @return array with all the various opening and closing tags to generate a set of columns.
*
* It returns an array with the following items:
* $wrapper['whole-start'] = Opening wrapper for the whole list
* $wrapper['whole-end'] = closing wrapper for the whole list
* $wrapper['col-devide'] = normal column devider
* $wrapper['col-devide-last'] = the last column devider (to allow
* for different styling of the last
* column
* $wrapper['item-start'] = opening wrapper tag for individual
* option
* $wrapper['item-start-other'] = opening wrapper tag for other
* option
* $wrapper['item-end'] = closing wrapper tag for individual
* option
* $wrapper['maxrows'] = maximum number of rows in each
* column
* $wrapper['cols'] = Number of columns to be inserted
* (and checked against)
*
* It also expect the constant COLSTYLE which sets how columns should
* be rendered.
*
* COLSTYLE is defined 30 lines above.
*
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* Columns are a problem.
* Really there is no perfect solution to columns at the moment.
*
* - Using Tables is problematic semanticly.
* - Using inline or float to create columns, causes the answers
* flows horizontally, not vertically which is not ideal visually.
* - Using CSS3 columns is also a problem because of browser support
* and also because if you have answeres split across two or more
* lines, and those answeres happen to fall at the bottom of a
* column, the answer might be split across columns as well as
* lines.
* - Using nested unordered list with the first level of
s
* floated is the same as using tables and so is bad semantically
* for the same reason tables are bad.
* - Breaking the unordered lists into consecutive floated unordered
* lists is not great semantically but probably not as bad as
* using tables.
*
* Because I haven't been able to decide which option is the least
* bad, I have handed over that responsibility to the admin who sets
* LimeSurvey up on their server.
*
* There are four options:
* 'css' using one of the various CSS only methods for
* rendering columns.
* (Check the CSS file for your chosen template to see
* how columns are defined.)
* 'ul' using multiple floated unordered lists. (DEFAULT)
* 'table' using conventional tables based layout.
* NULL blocks the use of columns
*
* 'ul' is the default because it's the best possible compromise
* between semantic markup and visual layout.
*/
$colstyle = COLSTYLE;
/*
if(defined('PRINT_TEMPLATE')) // This forces tables based columns for printablesurvey
{
$colstyle = 'table';
};
*/
if($columns < 2)
{
$colstyle = null;
$columns = 1;
}
if($columns > $answer_count)
{
$columns = $answer_count;
};
$columns = ceil($answer_count/ceil($answer_count/$columns)); // # of columns is # of answers divided by # of rows (all rounded up)
$class_first = '';
if($columns > 1 && $colstyle != null)
{
if($colstyle == 'ul')
{
$ul = '-ul';
}
else
{
$ul = '';
}
$class_first = ' class="cols-'.$columns . $ul.' first"';
$class = ' class="cols-'.$columns . $ul.'"';
$class_last_ul = ' class="cols-'.$columns . $ul.' last"';
$class_last_table = ' class="cols-'.$columns.' last"';
}
else
{
$class = '';
$class_last_ul = '';
$class_last_table = '';
};
$wrapper = array(
'whole-start' => "\n\n"
,'whole-end' => "\n"
,'col-devide' => ''
,'col-devide-last' => ''
,'item-start' => "\t
\n";
};
return $wrapper;
};
function alternation($alternate = '' , $type = 'col')
{
/**
* alternation() Returns a class identifyer for alternating between
* two options. Used to style alternate elements differently. creates
* or alternates between the odd string and the even string used in
* as column and row classes for array type questions.
*
* @param string $alternate = '' (empty) (default) , 'array2' , 'array1' , 'odd' , 'even'
* @param string $type = 'col' (default) or 'row'
*
* @return string representing either the first alternation or the opposite alternation to the one supplied..
*/
/*
// The following allows type to be left blank for row in subsequent
// function calls.
// It has been left out because 'row' must be defined the first time
// alternation() is called. Since it is only ever written once for each
// while statement within a function, 'row' is always defined.
if(!empty($alternate) && $type != 'row')
{ if($alternate == ('array2' || 'array1'))
{
$type = 'row';
};
};
// It has been left in case it becomes useful but probably should be
// removed.
*/
if($type == 'row')
{
$odd = 'array2'; // should be row_odd
$even = 'array1'; // should be row_even
}
else
{
$odd = 'odd'; // should be col_odd
$even = 'even'; // should be col_even
};
if($alternate == $odd)
{
$alternate = $even;
}
else
{
$alternate = $odd;
};
return $alternate;
}
/**
* longest_string() returns the length of the longest string past to it.
* @peram string $new_string
* @peram integer $longest_length length of the (previously) longest string passed to it.
* @return integer representing the length of the longest string passed (updated if $new_string was longer than $longest_length)
*
* usage should look like this: $longest_length = longest_string( $new_string , $longest_length );
*
*/
function longest_string( $new_string , $longest_length )
{
if($longest_length < strlen(trim(strip_tags($new_string))))
{
$longest_length = strlen(trim(strip_tags($new_string)));
};
return $longest_length;
};
/**
* getNotificationlist() returns different options for notifications
*
* @param string $notificationcode - the currently selected one
*
* @return This string is returned containing formatted list of notification methods for current survey
*/
function getNotificationlist($notificationcode)
{
global $clang;
$ntypes = array(
"0"=>$clang->gT("No email notification"),
"1"=>$clang->gT("Basic email notification"),
"2"=>$clang->gT("Detailed email notification with result codes")
);
if (!isset($ntypeselector)) {$ntypeselector="";}
foreach($ntypes as $ntcode=>$ntdescription)
{
$ntypeselector .= " formatted list of groups to current survey
*/
function getgrouplist($gid)
{
global $surveyid, $dbprefix, $scriptname, $connect, $clang;
$groupselecter="";
$gid=sanitize_int($gid);
$surveyid=sanitize_int($surveyid);
if (!$surveyid) {$surveyid=returnglobal('sid');}
$s_lang = GetBaseLanguageFromSurveyID($surveyid);
$gidquery = "SELECT gid, group_name FROM ".db_table_name('groups')." WHERE sid='{$surveyid}' AND language='{$s_lang}' ORDER BY group_order";
$gidresult = db_execute_num($gidquery) or safe_die("Couldn't get group list in common.php $gidquery ".$connect->ErrorMsg()); //Checked
while($gv = $gidresult->FetchRow())
{
$groupselecter .= "\n";
}
if ($groupselecter)
{
if (!isset($gvexist)) {$groupselecter = "\n".$groupselecter;}
else {$groupselecter .= "\n";}
}
return $groupselecter;
}
function getgrouplist2($gid)
{
global $surveyid, $dbprefix, $connect, $clang;
$groupselecter = "";
if (!$surveyid) {$surveyid=returnglobal('sid');}
$s_lang = GetBaseLanguageFromSurveyID($surveyid);
$gidquery = "SELECT gid, group_name FROM ".db_table_name('groups')." WHERE sid=$surveyid AND language='{$s_lang}' ORDER BY group_order";
$gidresult = db_execute_num($gidquery) or safe_die("Plain old did not work!"); //Checked
while ($gv = $gidresult->FetchRow())
{
$groupselecter .= "\n";
}
if ($groupselecter)
{
if (!$gvexist) {$groupselecter = "\n".$groupselecter;}
else {$groupselecter .= "\n";}
}
return $groupselecter;
}
function getgrouplist3($gid)
{
global $surveyid, $dbprefix;
if (!$surveyid) {$surveyid=returnglobal('sid');}
$groupselecter = "";
$s_lang = GetBaseLanguageFromSurveyID($surveyid);
$gidquery = "SELECT gid, group_name FROM ".db_table_name('groups')." WHERE sid=$surveyid AND language='{$s_lang}' ORDER BY group_order";
$gidresult = db_execute_num($gidquery) or safe_die("Plain old did not work!"); //Checked
while ($gv = $gidresult->FetchRow())
{
$groupselecter .= "\n";
}
return $groupselecter;
}
/**
* Gives back the name of a group for a certaing group id
*
* @param integer $gid Group ID
*/
function getgroupname($gid)
{
global $surveyid;
if (!$surveyid) {$surveyid=returnglobal('sid');}
$s_lang = GetBaseLanguageFromSurveyID($surveyid);
$gidquery = "SELECT group_name FROM ".db_table_name('groups')." WHERE sid=$surveyid AND language='{$s_lang}' and gid=$gid";
$gidresult = db_execute_num($gidquery) or safe_die("Group name could not be fetched (getgroupname)."); //Checked
while ($gv = $gidresult->FetchRow())
{
$groupname = htmlspecialchars($gv[0]);
}
return $groupname;
}
/**
* put your comment there...
*
* @param mixed $gid
* @param mixed $language
*/
function getgrouplistlang($gid, $language)
{
global $surveyid, $scriptname, $connect, $clang;
$groupselecter="";
if (!$surveyid) {$surveyid=returnglobal('sid');}
$gidquery = "SELECT gid, group_name FROM ".db_table_name('groups')." WHERE sid=$surveyid AND language='".$language."' ORDER BY group_order";
$gidresult = db_execute_num($gidquery) or safe_die("Couldn't get group list in common.php $gidquery ".$connect->ErrorMsg()); //Checked
while($gv = $gidresult->FetchRow())
{
$groupselecter .= "gT("Please Choose...")."\n".$groupselecter;}
else {$groupselecter .= "\n";}
}
return $groupselecter;
}
function getuserlist($outputformat='fullinfoarray')
{
global $dbprefix, $connect, $databasetype;
global $usercontrolSameGroupPolicy;
if (isset($_SESSION['loginID']))
{
$myuid=sanitize_int($_SESSION['loginID']);
}
if ($_SESSION['USER_RIGHT_SUPERADMIN'] != 1 && isset($usercontrolSameGroupPolicy) &&
$usercontrolSameGroupPolicy == true)
{
if (isset($myuid))
{
// List users from same group as me + all my childs
// a subselect is used here because MSSQL does not like to group by text
// also Postgres does like this one better
$uquery = " SELECT * FROM ".db_table_name('users')." where uid in
(SELECT u.uid FROM ".db_table_name('users')." AS u,
".db_table_name('user_in_groups')." AS ga ,".db_table_name('user_in_groups')." AS gb
WHERE u.uid=$myuid
OR (ga.ugid=gb.ugid AND ( (gb.uid=$myuid AND u.uid=ga.uid) OR (u.parent_id=$myuid) ) )
GROUP BY u.uid)";
}
else
{
return Array(); // Or die maybe
}
}
else
{
$uquery = "SELECT * FROM ".db_table_name('users')." ORDER BY uid";
}
$uresult = db_execute_assoc($uquery); //Checked
if ($uresult->RecordCount()==0)
//user is not in a group and usercontrolSameGroupPolicy is activated - at least show his own userinfo
{
$uquery = "SELECT u.* FROM ".db_table_name('users')." AS u WHERE u.uid=".$myuid;
$uresult = db_execute_assoc($uquery);//Checked
}
$userlist = array();
$userlist[0] = "Reserved for logged in user";
while ($srow = $uresult->FetchRow())
{
if ($outputformat != 'onlyuidarray')
{
if ($srow['uid'] != $_SESSION['loginID'])
{
$userlist[] = array("user"=>$srow['users_name'], "uid"=>$srow['uid'], "email"=>$srow['email'], "password"=>$srow['password'], "full_name"=>$srow['full_name'], "parent_id"=>$srow['parent_id'], "create_survey"=>$srow['create_survey'], "configurator"=>$srow['configurator'], "create_user"=>$srow['create_user'], "delete_user"=>$srow['delete_user'], "superadmin"=>$srow['superadmin'], "manage_template"=>$srow['manage_template'], "manage_label"=>$srow['manage_label']); //added by Dennis modified by Moses
}
else
{
$userlist[0] = array("user"=>$srow['users_name'], "uid"=>$srow['uid'], "email"=>$srow['email'], "password"=>$srow['password'], "full_name"=>$srow['full_name'], "parent_id"=>$srow['parent_id'], "create_survey"=>$srow['create_survey'], "configurator"=>$srow['configurator'], "create_user"=>$srow['create_user'], "delete_user"=>$srow['delete_user'], "superadmin"=>$srow['superadmin'], "manage_template"=>$srow['manage_template'], "manage_label"=>$srow['manage_label']);
}
}
else
{
if ($srow['uid'] != $_SESSION['loginID'])
{
$userlist[] = $srow['uid'];
}
else
{
$userlist[0] = $srow['uid'];
}
}
}
return $userlist;
}
/**
* Gets all survey infos in one big array including the language specific settings
*
* @param string $surveyid The survey ID
* @param string $languagecode The language code - if not given the base language of the particular survey is used
* @return array Returns array with survey info or false, if survey does not exist
*/
function getSurveyInfo($surveyid, $languagecode='')
{
global $dbprefix, $siteadminname, $siteadminemail, $connect, $languagechanger;
$surveyid=sanitize_int($surveyid);
$languagecode=sanitize_languagecode($languagecode);
$thissurvey=false;
// if no language code is set then get the base language one
if (!isset($languagecode) || $languagecode=='')
{
$languagecode=GetBaseLanguageFromSurveyID($surveyid);;
}
$query="SELECT * FROM ".db_table_name('surveys').",".db_table_name('surveys_languagesettings')." WHERE sid=$surveyid and surveyls_survey_id=$surveyid and surveyls_language='$languagecode'";
$result=db_execute_assoc($query) or safe_die ("Couldn't access survey settings $query ".$connect->ErrorMsg()); //Checked
while ($row=$result->FetchRow())
{
$thissurvey=$row;
// now create some stupid array translations - needed for backward compatibility
// Newly added surveysettings don't have to be added specifically - these will be available by field name automatically
$thissurvey['name']=$thissurvey['surveyls_title'];
$thissurvey['description']=$thissurvey['surveyls_description'];
$thissurvey['welcome']=$thissurvey['surveyls_welcometext'];
$thissurvey['templatedir']=$thissurvey['template'];
$thissurvey['adminname']=$thissurvey['admin'];
$thissurvey['tablename']=$dbprefix.'survey_'.$thissurvey['sid'];
$thissurvey['urldescrip']=$thissurvey['surveyls_urldescription'];
$thissurvey['url']=$thissurvey['surveyls_url'];
$thissurvey['sendnotification']=$thissurvey['notification'];
$thissurvey['expiry']=$thissurvey['expires'];
$thissurvey['email_invite_subj']=$thissurvey['surveyls_email_invite_subj'];
$thissurvey['email_invite']=$thissurvey['surveyls_email_invite'];
$thissurvey['email_remind_subj']=$thissurvey['surveyls_email_remind_subj'];
$thissurvey['email_remind']=$thissurvey['surveyls_email_remind'];
$thissurvey['email_confirm_subj']=$thissurvey['surveyls_email_confirm_subj'];
$thissurvey['email_confirm']=$thissurvey['surveyls_email_confirm'];
$thissurvey['email_register_subj']=$thissurvey['surveyls_email_register_subj'];
$thissurvey['email_register']=$thissurvey['surveyls_email_register'];
if (!isset($thissurvey['adminname'])) {$thissurvey['adminname']=$siteadminname;}
if (!isset($thissurvey['adminemail'])) {$thissurvey['adminemail']=$siteadminemail;}
if (!isset($thissurvey['urldescrip']) ||
$thissurvey['urldescrip'] == '' ) {$thissurvey['urldescrip']=$thissurvey['surveyls_url'];}
$thissurvey['passthrulabel']=isset($_SESSION['passthrulabel']) ? $_SESSION['passthrulabel'] : "";
$thissurvey['passthruvalue']=isset($_SESSION['passthruvalue']) ? $_SESSION['passthruvalue'] : "";
}
//not sure this should be here... ToDo: Find a better place
if (function_exists('makelanguagechanger')) $languagechanger = makelanguagechanger();
return $thissurvey;
}
function getlabelsets($languages=null)
// Returns a list with label sets
// if the $languages paramter is provided then only labelset containing all of the languages in the paramter are provided
{
global $dbprefix, $connect, $surveyid;
if ($languages){
$languages=sanitize_languagecodeS($languages);
$languagesarray=explode(' ',trim($languages));
}
$query = "SELECT ".db_table_name('labelsets').".lid as lid, label_name FROM ".db_table_name('labelsets');
if ($languages){
$query .=" where ";
foreach ($languagesarray as $item)
{
$query .=" ((languages like '% $item %') or (languages='$item') or (languages like '% $item') or (languages like '$item %')) and ";
}
$query .=" 1=1 ";
}
$query .=" order by label_name";
$result = db_execute_assoc($query) or safe_die ("Couldn't get list of label sets $query ".$connect->ErrorMsg()); //Checked
$labelsets=array();
while ($row=$result->FetchRow())
{
$labelsets[] = array($row['lid'], $row['label_name']);
}
return $labelsets;
}
/**
* Compares two elements from an array (passed by the usort function)
* and returns -1, 0 or 1 depending on the result of the comparison of
* the sort order of the group_order and question_order field
*
* @param mixed $a
* @param mixed $b
* @return int
*/
function GroupOrderThenQuestionOrder($a, $b)
{
if (isset($a['group_order']) && isset($b['group_order']))
{
$GroupResult = strnatcasecmp($a['group_order'], $b['group_order']);
}
else
{
$GroupResult = "";
}
if ($GroupResult == 0)
{
$TitleResult = strnatcasecmp($a["question_order"], $b["question_order"]);
return $TitleResult;
}
return $GroupResult;
}
function StandardSort($a, $b)
{
return strnatcasecmp($a, $b);
}
function fixsortorderAnswers($qid) //Function rewrites the sortorder for a group of answers
{
global $dbprefix, $connect, $surveyid;
$qid=sanitize_int($qid);
$baselang = GetBaseLanguageFromSurveyID($surveyid);
$cdresult = db_execute_num("SELECT qid, code, sortorder FROM ".db_table_name('answers')." WHERE qid={$qid} and language='{$baselang}' ORDER BY sortorder"); //Checked
$position=0;
while ($cdrow=$cdresult->FetchRow())
{
$cd2query="UPDATE ".db_table_name('answers')." SET sortorder={$position} WHERE qid={$cdrow[0]} AND code='{$cdrow[1]}' AND sortorder={$cdrow[2]} ";
$cd2result=$connect->Execute($cd2query) or safe_die ("Couldn't update sortorder $cd2query ".$connect->ErrorMsg()); //Checked
$position++;
}
}
/**
* This function rewrites the sortorder for questions inside the named group
*
* @param integer $groupid the group id
* @param integer $surveyid the survey id
*/
function fixsortorderQuestions($groupid, $surveyid) //Function rewrites the sortorder for questions
{
global $connect;
$gid = sanitize_int($groupid);
$surveyid = sanitize_int($surveyid);
$baselang = GetBaseLanguageFromSurveyID($surveyid);
$cdresult = db_execute_assoc("SELECT qid FROM ".db_table_name('questions')." WHERE gid='{$gid}' and language='{$baselang}' ORDER BY question_order, title ASC"); //Checked
$position=0;
while ($cdrow=$cdresult->FetchRow())
{
$cd2query="UPDATE ".db_table_name('questions')." SET question_order='{$position}' WHERE qid='{$cdrow['qid']}' ";
$cd2result = $connect->Execute($cd2query) or safe_die ("Couldn't update question_order $cd2query ".$connect->ErrorMsg()); //Checked
$position++;
}
}
function shiftorderQuestions($sid,$gid,$shiftvalue) //Function shifts the sortorder for questions
{
global $dbprefix, $connect, $surveyid;
$sid=sanitize_int($sid);
$gid=sanitize_int($gid);
$shiftvalue=sanitize_int($shiftvalue);
$baselang = GetBaseLanguageFromSurveyID($surveyid);
$cdresult = db_execute_assoc("SELECT qid FROM ".db_table_name('questions')." WHERE gid='{$gid}' and language='{$baselang}' ORDER BY question_order, title ASC"); //Checked
$position=$shiftvalue;
while ($cdrow=$cdresult->FetchRow())
{
$cd2query="UPDATE ".db_table_name('questions')." SET question_order='{$position}' WHERE qid='{$cdrow['qid']}' ";
$cd2result = $connect->Execute($cd2query) or safe_die ("Couldn't update question_order $cd2query ".$connect->ErrorMsg()); //Checked
$position++;
}
}
function fixSortOrderGroups($surveyid) //Function rewrites the sortorder for groups
{
global $dbprefix, $connect;
$baselang = GetBaseLanguageFromSurveyID($surveyid);
$cdresult = db_execute_assoc("SELECT gid FROM ".db_table_name('groups')." WHERE sid='{$surveyid}' AND language='{$baselang}' ORDER BY group_order, group_name");
$position=0;
while ($cdrow=$cdresult->FetchRow())
{
$cd2query="UPDATE ".db_table_name('groups')." SET group_order='{$position}' WHERE gid='{$cdrow['gid']}' ";
$cd2result = $connect->Execute($cd2query) or safe_die ("Couldn't update group_order $cd2query ".$connect->ErrorMsg()); //Checked
$position++;
}
}
function fixmovedquestionConditions($qid,$oldgid,$newgid) //Function rewrites the cfieldname for a question after group change
{
global $dbprefix, $connect, $surveyid;
$qid=sanitize_int($qid);
$oldgid=sanitize_int($oldgid);
$newgid=sanitize_int($newgid);
$cresult = db_execute_assoc("SELECT cid, cfieldname FROM ".db_table_name('conditions')." WHERE cqid={$qid}"); //Checked
while ($crow=$cresult->FetchRow())
{
$mycid=$crow['cid'];
$mycfieldname=$crow['cfieldname'];
$cfnregs="";
if (preg_match('/'.$surveyid."X".$oldgid."X".$qid."(.*)/", $mycfieldname, $cfnregs) > 0)
{
$newcfn=$surveyid."X".$newgid."X".$qid.$cfnregs[1];
$c2query="UPDATE ".db_table_name('conditions')
." SET cfieldname='{$newcfn}' WHERE cid={$mycid}";
$c2result=$connect->Execute($c2query) //Checked
or safe_die ("Couldn't update conditions $c2query ".$connect->ErrorMsg());
}
}
}
function returnglobal($stringname)
{
global $useWebserverAuth;
if (isset($useWebserverAuth) && $useWebserverAuth === true)
{
if (isset($_GET[$stringname])) $urlParam = $_GET[$stringname];
if (isset($_POST[$stringname])) $urlParam = $_POST[$stringname];
}
elseif (isset($_REQUEST[$stringname]))
{
$urlParam = $_REQUEST[$stringname];
}
if (isset($urlParam))
{
if ($stringname == 'sid' || $stringname == "gid" || $stringname == "oldqid" ||
$stringname == "qid" || $stringname == "tid" ||
$stringname == "lid" || $stringname == "ugid"||
$stringname == "thisstep" || $stringname == "scenario" ||
$stringname == "cqid" || $stringname == "cid" ||
$stringname == "qaid" || $stringname == "scid")
{
return sanitize_int($urlParam);
}
elseif ($stringname =="lang" || $stringname =="adminlang")
{
return sanitize_languagecode($urlParam);
}
elseif ($stringname =="htmleditormode" ||
$stringname =="subaction")
{
return sanitize_paranoid_string($urlParam);
}
elseif ( $stringname =="cquestions")
{
return sanitize_cquestions($urlParam);
}
return $urlParam;
}
else
{
return NULL;
}
}
function sendcacheheaders()
{
global $embedded;
if ( $embedded ) return;
if (!headers_sent())
{
header('P3P:CP="IDC DSP COR ADM DEVi TAIi PSA PSD IVAi IVDi CONi HIS OUR IND CNT"'); // this line lets IE7 run LimeSurvey in an iframe
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); // Date in the past
header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT"); // always modified
header("Cache-Control: no-store, no-cache, must-revalidate"); // HTTP/1.1
header("Cache-Control: post-check=0, pre-check=0", false);
header("Pragma: no-cache");
header('Content-Type: text/html; charset=utf-8');
}
}
function getsidgidqidaidtype($fieldcode)
{
// use simple parsing to get {sid}, {gid}
// and what may be {qid} or {qid}{aid} combination
list($fsid, $fgid, $fqid) = split("X", $fieldcode);
$fsid=sanitize_int($fsid);
$fgid=sanitize_int($fgid);
if (!$fqid) {$fqid=0;}
$fqid=sanitize_int($fqid);
// try a true parsing of fieldcode (can separate qid from aid)
// but fails for type M and type P multiple choice
// questions because the SESSION fieldcode is combined
// and we want here to pass only the sidXgidXqid for type M and P
$fields=arraySearchByKey($fieldcode, createFieldMap($fsid), "fieldname", 1);
if (count($fields) != 0)
{
$aRef['sid']=$fields['sid'];
$aRef['gid']=$fields['gid'];
$aRef['qid']=$fields['qid'];
$aRef['aid']=$fields['aid'];
$aRef['type']=$fields['type'];
}
else
{
// either the fielcode doesn't match a question
// or it is a type M or P question
$aRef['sid']=$fsid;
$aRef['gid']=$fgid;
$aRef['qid']=sanitize_int($fqid);
$s_lang = GetBaseLanguageFromSurveyID($fsid);
$query = "SELECT type FROM ".db_table_name('questions')." WHERE qid=".$fqid." AND language='".$s_lang."'";
$result = db_execute_assoc($query) or safe_die ("Couldn't get question type - getsidgidqidaidtype() in common.php ".$connect->ErrorMsg()); //Checked
if ( $result->RecordCount() == 0 )
{ // question doesn't exist
return Array();
}
else
{ // certainly is type M or P
while($row=$result->FetchRow())
{
$aRef['type']=$row['type'];
}
}
}
//return array('sid'=>$fsid, "gid"=>$fgid, "qid"=>$fqid);
return $aRef;
}
/**
* put your comment there...
*
* @param mixed $fieldcode
* @param mixed $value
* @param mixed $format
* @param mixed $dateformatid
* @return string
*/
function getextendedanswer($fieldcode, $value, $format='', $dateformatphp='d.m.Y')
{
global $dbprefix, $surveyid, $connect, $clang, $action;
// use Survey base language if s_lang isn't set in _SESSION (when browsing answers)
$s_lang = GetBaseLanguageFromSurveyID($surveyid);
if (!isset($action) || (isset($action) && $action!='browse') )
{
if (isset($_SESSION['s_lang'])) $s_lang = $_SESSION['s_lang']; //This one does not work in admin mode when you browse a particular answer
}
//Fieldcode used to determine question, $value used to match against answer code
//Returns NULL if question type does not suit
if (substr_count($fieldcode, "X") > 1) //Only check if it looks like a real fieldcode
{
$fieldmap = createFieldMap($surveyid);
if (isset($fieldmap[$fieldcode]))
$fields = $fieldmap[$fieldcode];
else
return false;
//Find out the question type
$this_type = $fields['type'];
switch($this_type)
{
case 'D': if (trim($value)!='')
{
$datetimeobj = new Date_Time_Converter($value , "Y-m-d H:i:s");
$value=$datetimeobj->convert($dateformatphp);
}
break;
case "L":
case "!":
case "O":
case "^":
case "I":
case "R":
$query = "SELECT code, answer FROM ".db_table_name('answers')." WHERE qid={$fields['qid']} AND code='".$connect->escape($value)."' AND scale_id=0 AND language='".$s_lang."'";
$result = db_execute_assoc($query) or safe_die ("Couldn't get answer type L - getextendedanswer() in common.php $query ".$connect->ErrorMsg()); //Checked
while($row=$result->FetchRow())
{
$this_answer=$row['answer'];
} // while
if ($value == "-oth-")
{
$this_answer=$clang->gT("Other");
}
break;
case "M":
case "J":
case "P":
switch($value)
{
case "Y": $this_answer=$clang->gT("Yes"); break;
}
break;
case "Y":
switch($value)
{
case "Y": $this_answer=$clang->gT("Yes"); break;
case "N": $this_answer=$clang->gT("No"); break;
default: $this_answer=$clang->gT("No answer");
}
break;
case "G":
switch($value)
{
case "M": $this_answer=$clang->gT("Male"); break;
case "F": $this_answer=$clang->gT("Female"); break;
default: $this_answer=$clang->gT("No answer");
}
break;
case "C":
switch($value)
{
case "Y": $this_answer=$clang->gT("Yes"); break;
case "N": $this_answer=$clang->gT("No"); break;
case "U": $this_answer=$clang->gT("Uncertain"); break;
}
break;
case "E":
switch($value)
{
case "I": $this_answer=$clang->gT("Increase"); break;
case "D": $this_answer=$clang->gT("Decrease"); break;
case "S": $this_answer=$clang->gT("Same"); break;
}
break;
case "F":
case "H":
case "1":
$query = "SELECT answer FROM ".db_table_name('answers')." WHERE qid={$fields['qid']} AND code='".$connect->escape($value)."' AND language='".$s_lang."'";
$result = db_execute_assoc($query) or safe_die ("Couldn't get answer type F/H - getextendedanswer() in common.php"); //Checked
while($row=$result->FetchRow())
{
$this_answer=$row['answer'];
} // while
if ($value == "-oth-")
{
$this_answer=$clang->gT("Other");
}
break;
default:
;
} // switch
}
if (isset($this_answer))
{
if ($format != 'INSERTANS')
{
return $this_answer." [$value]";
}
else
{
if (strip_tags($this_answer) == "")
{
switch ($this_type)
{// for questions with answers beeing
// answer code, it is safe to return the
// code instead of the blank stripped answer
case "A":
case "B":
case "C":
case "E":
case "F":
case "H":
case "1":
case "M":
case "P":
case "!":
case "5":
case "L":
case "O":
return $value;
break;
default:
return strip_tags($this_answer);
break;
}
}
else
{
return strip_tags($this_answer);
}
}
}
else
{
return $value;
}
}
/*function validate_email($email)
{
// Create the syntactical validation regular expression
// Validate the syntax
// see http://data.iana.org/TLD/tlds-alpha-by-domain.txt
$maxrootdomainlength = 6;
return ( ! preg_match("/^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)*\.(([0-9]{1,3})|([a-zA-Z]{2,".$maxrootdomainlength."}))$/ix", $email)) ? FALSE : TRUE;
}*/
function validate_email($email){
$no_ws_ctl = "[\\x01-\\x08\\x0b\\x0c\\x0e-\\x1f\\x7f]";
$alpha = "[\\x41-\\x5a\\x61-\\x7a]";
$digit = "[\\x30-\\x39]";
$cr = "\\x0d";
$lf = "\\x0a";
$crlf = "(?:$cr$lf)";
$obs_char = "[\\x00-\\x09\\x0b\\x0c\\x0e-\\x7f]";
$obs_text = "(?:$lf*$cr*(?:$obs_char$lf*$cr*)*)";
$text = "(?:[\\x01-\\x09\\x0b\\x0c\\x0e-\\x7f]|$obs_text)";
$text = "(?:$lf*$cr*$obs_char$lf*$cr*)";
$obs_qp = "(?:\\x5c[\\x00-\\x7f])";
$quoted_pair = "(?:\\x5c$text|$obs_qp)";
$wsp = "[\\x20\\x09]";
$obs_fws = "(?:$wsp+(?:$crlf$wsp+)*)";
$fws = "(?:(?:(?:$wsp*$crlf)?$wsp+)|$obs_fws)";
$ctext = "(?:$no_ws_ctl|[\\x21-\\x27\\x2A-\\x5b\\x5d-\\x7e])";
$ccontent = "(?:$ctext|$quoted_pair)";
$comment = "(?:\\x28(?:$fws?$ccontent)*$fws?\\x29)";
$cfws = "(?:(?:$fws?$comment)*(?:$fws?$comment|$fws))";
$outer_ccontent_dull = "(?:$fws?$ctext|$quoted_pair)";
$outer_ccontent_nest = "(?:$fws?$comment)";
$outer_comment = "(?:\\x28$outer_ccontent_dull*(?:$outer_ccontent_nest$outer_ccontent_dull*)+$fws?\\x29)";
$atext = "(?:$alpha|$digit|[\\x21\\x23-\\x27\\x2a\\x2b\\x2d\\x2f\\x3d\\x3f\\x5e\\x5f\\x60\\x7b-\\x7e])";
$atext_domain = "(?:$alpha|$digit|[\\x2b\\x2d\\x5f])";
$atom = "(?:$cfws?(?:$atext)+$cfws?)";
$atom_domain = "(?:$cfws?(?:$atext_domain)+$cfws?)";
$qtext = "(?:$no_ws_ctl|[\\x21\\x23-\\x5b\\x5d-\\x7e])";
$qcontent = "(?:$qtext|$quoted_pair)";
$quoted_string = "(?:$cfws?\\x22(?:$fws?$qcontent)*$fws?\\x22$cfws?)";
$quoted_string = "(?:$cfws?\\x22(?:$fws?$qcontent)+$fws?\\x22$cfws?)";
$word = "(?:$atom|$quoted_string)";
$obs_local_part = "(?:$word(?:\\x2e$word)*)";
$obs_domain = "(?:$atom_domain(?:\\x2e$atom_domain)*)";
$dot_atom_text = "(?:$atext+(?:\\x2e$atext+)*)";
$dot_atom_text_domain = "(?:$atext_domain+(?:\\x2e$atext_domain+)*)";
$dot_atom = "(?:$cfws?$dot_atom_text$cfws?)";
$dot_atom_domain = "(?:$cfws?$dot_atom_text_domain$cfws?)";
$dtext = "(?:$no_ws_ctl|[\\x21-\\x5a\\x5e-\\x7e])";
$dcontent = "(?:$dtext|$quoted_pair)";
$domain_literal = "(?:$cfws?\\x5b(?:$fws?$dcontent)*$fws?\\x5d$cfws?)";
$local_part = "(($dot_atom)|($quoted_string)|($obs_local_part))";
$domain = "(($dot_atom_domain)|($domain_literal)|($obs_domain))";
$addr_spec = "$local_part\\x40$domain";
if (strlen($email) > 256) return FALSE;
$email = strip_comments($outer_comment, $email, "(x)");
if (!preg_match("!^$addr_spec$!", $email, $m)){
return FALSE;
}
$bits = array(
'local' => isset($m[1]) ? $m[1] : '',
'local-atom' => isset($m[2]) ? $m[2] : '',
'local-quoted' => isset($m[3]) ? $m[3] : '',
'local-obs' => isset($m[4]) ? $m[4] : '',
'domain' => isset($m[5]) ? $m[5] : '',
'domain-atom' => isset($m[6]) ? $m[6] : '',
'domain-literal' => isset($m[7]) ? $m[7] : '',
'domain-obs' => isset($m[8]) ? $m[8] : '',
);
$bits['local'] = strip_comments($comment, $bits['local']);
$bits['domain'] = strip_comments($comment, $bits['domain']);
if (strlen($bits['local']) > 64) return FALSE;
if (strlen($bits['domain']) > 255) return FALSE;
if (strlen($bits['domain-literal'])){
$Snum = "(\d{1,3})";
$IPv4_address_literal = "$Snum\.$Snum\.$Snum\.$Snum";
$IPv6_hex = "(?:[0-9a-fA-F]{1,4})";
$IPv6_full = "IPv6\:$IPv6_hex(:?\:$IPv6_hex){7}";
$IPv6_comp_part = "(?:$IPv6_hex(?:\:$IPv6_hex){0,5})?";
$IPv6_comp = "IPv6\:($IPv6_comp_part\:\:$IPv6_comp_part)";
$IPv6v4_full = "IPv6\:$IPv6_hex(?:\:$IPv6_hex){5}\:$IPv4_address_literal";
$IPv6v4_comp_part = "$IPv6_hex(?:\:$IPv6_hex){0,3}";
$IPv6v4_comp = "IPv6\:((?:$IPv6v4_comp_part)?\:\:(?:$IPv6v4_comp_part\:)?)$IPv4_address_literal";
if (preg_match("!^\[$IPv4_address_literal\]$!", $bits['domain'], $m)){
if (intval($m[1]) > 255) return FALSE;
if (intval($m[2]) > 255) return FALSE;
if (intval($m[3]) > 255) return FALSE;
if (intval($m[4]) > 255) return FALSE;
}else{
while (1){
if (preg_match("!^\[$IPv6_full\]$!", $bits['domain'])){
break;
}
if (preg_match("!^\[$IPv6_comp\]$!", $bits['domain'], $m)){
list($a, $b) = explode('::', $m[1]);
$folded = (strlen($a) && strlen($b)) ? "$a:$b" : "$a$b";
$groups = explode(':', $folded);
if (count($groups) > 6) return FALSE;
break;
}
if (preg_match("!^\[$IPv6v4_full\]$!", $bits['domain'], $m)){
if (intval($m[1]) > 255) return FALSE;
if (intval($m[2]) > 255) return FALSE;
if (intval($m[3]) > 255) return FALSE;
if (intval($m[4]) > 255) return FALSE;
break;
}
if (preg_match("!^\[$IPv6v4_comp\]$!", $bits['domain'], $m)){
list($a, $b) = explode('::', $m[1]);
$b = substr($b, 0, -1); # remove the trailing colon before the IPv4 address
$folded = (strlen($a) && strlen($b)) ? "$a:$b" : "$a$b";
$groups = explode(':', $folded);
if (count($groups) > 4) return FALSE;
break;
}
return FALSE;
}
}
}else{
$labels = explode('.', $bits['domain']);
if (count($labels) == 1) return FALSE;
foreach ($labels as $label){
if (strlen($label) > 63) return FALSE;
if (substr($label, 0, 1) == '-') return FALSE;
if (substr($label, -1) == '-') return FALSE;
}
if (preg_match('!^[0-9]+$!', array_pop($labels))) return FALSE;
}
return TRUE;
}
##################################################################################
function strip_comments($comment, $email, $replace=''){
while (1){
$new = preg_replace("!$comment!", $replace, $email);
if (strlen($new) == strlen($email)){
return $email;
}
$email = $new;
}
}
function validate_templatedir($templatename)
{
global $usertemplaterootdir, $standardtemplaterootdir, $defaulttemplate;
if (is_dir("$usertemplaterootdir/{$templatename}/"))
{
return $templatename;
}
elseif (is_dir("$standardtemplaterootdir/{$templatename}/"))
{
return $templatename;
}
elseif (is_dir("$usertemplaterootdir/{$defaulttemplate}/"))
{
return $defaulttemplate;
}
else
{
return 'default';
}
}
/**
* This function generates an array containing the fieldcode, and matching data in the same order as the activate script
*
* @param string $surveyid The Survey ID
* @param mixed $style 'short' (default) or 'full' - full creates extra information like default values
* @param mixed $force_refresh - Forces to really refresh the array, not just take the session copy
* @param int $questionid Limit to a certain qid only (for question preview)
* @return array
*/
function createFieldMap($surveyid, $style='short', $force_refresh=false, $questionid=false, $sQuestionLanguage=null) {
global $dbprefix, $connect, $globalfieldmap, $clang;
$surveyid=sanitize_int($surveyid);
//checks to see if fieldmap has already been built for this page.
if (isset($globalfieldmap[$surveyid][$style][$clang->langcode]) && $force_refresh==false) {
return $globalfieldmap[$surveyid][$style][$clang->langcode];
}
$fieldmap["id"]=array("fieldname"=>"id", 'sid'=>$surveyid, 'type'=>"id", "gid"=>"", "qid"=>"", "aid"=>"");
if ($style == "full")
{
$fieldmap["id"]['title']="";
$fieldmap["id"]['question']=$clang->gT("Response ID");
$fieldmap["id"]['group_name']="";
}
$fieldmap["submitdate"]=array("fieldname"=>"submitdate", 'type'=>"submitdate", 'sid'=>$surveyid, "gid"=>"", "qid"=>"", "aid"=>"");
if ($style == "full")
{
$fieldmap["submitdate"]['title']="";
$fieldmap["submitdate"]['question']=$clang->gT("Date submitted");
$fieldmap["submitdate"]['group_name']="";
}
$fieldmap["lastpage"]=array("fieldname"=>"lastpage", 'sid'=>$surveyid, 'type'=>"lastpage", "gid"=>"", "qid"=>"", "aid"=>"");
if ($style == "full")
{
$fieldmap["lastpage"]['title']="";
$fieldmap["lastpage"]['question']=$clang->gT("Last page");
$fieldmap["lastpage"]['group_name']="";
}
$fieldmap["startlanguage"]=array("fieldname"=>"startlanguage", 'sid'=>$surveyid, 'type'=>"startlanguage", "gid"=>"", "qid"=>"", "aid"=>"");
if ($style == "full")
{
$fieldmap["startlanguage"]['title']="";
$fieldmap["startlanguage"]['question']=$clang->gT("Start language");
$fieldmap["startlanguage"]['group_name']="";
}
//Check for any additional fields for this survey and create necessary fields (token and datestamp and ipaddr)
$pquery = "SELECT private, datestamp, ipaddr, refurl FROM ".db_table_name('surveys')." WHERE sid=$surveyid";
$presult=db_execute_assoc($pquery); //Checked
while($prow=$presult->FetchRow())
{
if ($prow['private'] == "N")
{
$fieldmap["token"]=array("fieldname"=>"token", 'sid'=>$surveyid, 'type'=>"token", "gid"=>"", "qid"=>"", "aid"=>"");
if ($style == "full")
{
$fieldmap["token"]['title']="";
$fieldmap["token"]['question']=$clang->gT("Token");
$fieldmap["token"]['group_name']="";
}
}
if ($prow['datestamp'] == "Y")
{
$fieldmap["datestamp"]=array("fieldname"=>"datestamp",
'type'=>"datestamp",
'sid'=>$surveyid,
"gid"=>"",
"qid"=>"",
"aid"=>"");
if ($style == "full")
{
$fieldmap["datestamp"]['title']="";
$fieldmap["datestamp"]['question']=$clang->gT("Date last action");
$fieldmap["datestamp"]['group_name']="";
}
$fieldmap["startdate"]=array("fieldname"=>"startdate",
'type'=>"startdate",
'sid'=>$surveyid,
"gid"=>"",
"qid"=>"",
"aid"=>"");
if ($style == "full")
{
$fieldmap["startdate"]['title']="";
$fieldmap["startdate"]['question']=$clang->gT("Date started");
$fieldmap["startdate"]['group_name']="";
}
}
if ($prow['ipaddr'] == "Y")
{
$fieldmap["ipaddr"]=array("fieldname"=>"ipaddr",
'type'=>"ipaddress",
'sid'=>$surveyid,
"gid"=>"",
"qid"=>"",
"aid"=>"");
if ($style == "full")
{
$fieldmap["ipaddr"]['title']="";
$fieldmap["ipaddr"]['question']=$clang->gT("IP address");
$fieldmap["ipaddr"]['group_name']="";
}
}
// Add 'refurl' to fieldmap.
if ($prow['refurl'] == "Y")
{
$fieldmap["refurl"]=array("fieldname"=>"refurl", 'type'=>"url", 'sid'=>$surveyid, "gid"=>"", "qid"=>"", "aid"=>"");
if ($style == "full")
{
$fieldmap["refurl"]['title']="";
$fieldmap["refurl"]['question']=$clang->gT("Referrer URL");
$fieldmap["refurl"]['group_name']="";
}
}
}
//Get list of questions
if (is_null($sQuestionLanguage))
{
$s_lang = GetBaseLanguageFromSurveyID($surveyid);
}
else
{
$s_lang = $sQuestionLanguage;
}
$qtypes=getqtypelist('','array');
$aquery = "SELECT *, "
." (SELECT count(1) FROM ".db_table_name('conditions')." c\n"
." WHERE questions.qid = c.qid) AS hasconditions,\n"
." (SELECT count(1) FROM ".db_table_name('conditions')." c\n"
." WHERE questions.qid = c.cqid) AS usedinconditions\n"
." FROM ".db_table_name('questions')." as questions, ".db_table_name('groups')." as groups"
." WHERE questions.gid=groups.gid AND "
." questions.sid=$surveyid AND "
." questions.language='{$s_lang}' AND "
." questions.parent_qid=0 AND "
." groups.language='{$s_lang}' ";
if ($questionid!==false)
{
$aquery.=" and questions.qid={$questionid} ";
}
$aquery.=" ORDER BY group_order, question_order";
$aresult = db_execute_assoc($aquery) or safe_die ("Couldn't get list of questions in createFieldMap function. $query ".$connect->ErrorMsg()); //Checked
while ($arow=$aresult->FetchRow()) //With each question, create the appropriate field(s)
{
if ($arow['hasconditions']>0)
{
$conditions = "Y";
}
else
{
$conditions = "N";
}
if ($arow['usedinconditions']>0)
{
$usedinconditions = "Y";
}
else
{
$usedinconditions = "N";
}
// Field identifier
// GXQXSXA
// G=Group Q=Question S=Subquestion A=Answer Option
// If S or A don't exist then set it to 0
// Implicit (subqestion intermal to a question type ) or explicit qubquestions/answer count starts at 1
// Types "L", "!" , "O", "D", "G", "N", "X", "Y", "5","S","T","U"
if ($qtypes[$arow['type']]['subquestions']==0 && $arow['type'] != "R")
{
$fieldname="{$arow['sid']}X{$arow['gid']}X{$arow['qid']}";
$fieldmap[$fieldname]=array("fieldname"=>$fieldname, 'type'=>"{$arow['type']}", 'sid'=>$surveyid, "gid"=>$arow['gid'], "qid"=>$arow['qid'], "aid"=>"");
if ($style == "full")
{
$fieldmap[$fieldname]['title']=$arow['title'];
$fieldmap[$fieldname]['question']=$arow['question'];
$fieldmap[$fieldname]['group_name']=$arow['group_name'];
$fieldmap[$fieldname]['mandatory']=$arow['mandatory'];
$fieldmap[$fieldname]['hasconditions']=$conditions;
$fieldmap[$fieldname]['usedinconditions']=$usedinconditions;
$fieldmap[$fieldname]['defaultvalue']=$connect->GetOne("SELECT defaultvalue FROM ".db_table_name('defaultvalues')." WHERE qid={$arow['qid']} AND scale_id=0 AND language='{$clang->langcode}'");
}
switch($arow['type'])
{
case "L": //RADIO LIST
case "!": //DROPDOWN LIST
if ($arow['other'] == "Y")
{
$fieldname="{$arow['sid']}X{$arow['gid']}X{$arow['qid']}other";
$fieldmap[$fieldname]=array("fieldname"=>$fieldname,
'type'=>$arow['type'],
'sid'=>$surveyid,
"gid"=>$arow['gid'],
"qid"=>$arow['qid'],
"aid"=>"other");
// dgk bug fix line above. aid should be set to "other" for export to append to the field name in the header line.
if ($style == "full")
{
$fieldmap[$fieldname]['title']=$arow['title'];
$fieldmap[$fieldname]['question']=$arow['question'];
$fieldmap[$fieldname]['subquestion']=$clang->gT("Other");
$fieldmap[$fieldname]['group_name']=$arow['group_name'];
$fieldmap[$fieldname]['mandatory']=$arow['mandatory'];
$fieldmap[$fieldname]['hasconditions']=$conditions;
$fieldmap[$fieldname]['usedinconditions']=$usedinconditions;
$fieldmap[$fieldname]['defaultvalue']=$connect->GetOne("SELECT * FROM ".db_table_name('defaultvalues')." WHERE qid={$arow['gid']} AND scale_id=0 AND language='{$clang->langcode}'");
}
}
break;
case "O": //DROPDOWN LIST WITH COMMENT
$fieldname="{$arow['sid']}X{$arow['gid']}X{$arow['qid']}comment";
$fieldmap[$fieldname]=array("fieldname"=>$fieldname,
'type'=>$arow['type'],
'sid'=>$surveyid,
"gid"=>$arow['gid'],
"qid"=>$arow['qid'],
"aid"=>"comment");
// dgk bug fix line below. aid should be set to "comment" for export to append to the field name in the header line. Also needed set the type element correctly.
if ($style == "full")
{
$fieldmap[$fieldname]['title']=$arow['title'];
$fieldmap[$fieldname]['question']=$arow['question'];
$fieldmap[$fieldname]['subquestion']=$clang->gT("Comment");
$fieldmap[$fieldname]['group_name']=$arow['group_name'];
$fieldmap[$fieldname]['mandatory']=$arow['mandatory'];
$fieldmap[$fieldname]['hasconditions']=$conditions;
$fieldmap[$fieldname]['usedinconditions']=$usedinconditions;
}
break;
}
}
// For Multi flexi question types
elseif ($qtypes[$arow['type']]['subquestions']==2 && $qtypes[$arow['type']]['answerscales']==0)
{
//MULTI FLEXI
$abrows = getSubQuestions($surveyid,$arow['qid']);
//Now first process scale=1
foreach ($abrows as $key=>$abrow)
{
if($abrow['scale_id']==1) {
$answerset[]=$abrow;
unset($abrows[$key]);
}
}
reset($abrows);
foreach ($abrows as $abrow)
{
foreach($answerset as $answer)
{
$fieldname="{$arow['sid']}X{$arow['gid']}X{$arow['qid']}{$abrow['title']}_{$answer['title']}";
$fieldmap[$fieldname]=array("fieldname"=>$fieldname,
'type'=>$arow['type'],
'sid'=>$surveyid,
"gid"=>$arow['gid'],
"qid"=>$arow['qid'],
"aid"=>$abrow['title']."_".$answer['title'],
"sqid"=>$abrow['qid']);
if ($abrow['other']=="Y") {$alsoother="Y";}
if ($style == "full")
{
$fieldmap[$fieldname]['title']=$arow['title'];
$fieldmap[$fieldname]['question']=$arow['question'];
$fieldmap[$fieldname]['subquestion1']=$abrow['question'];
$fieldmap[$fieldname]['subquestion2']=$answer['question'];
$fieldmap[$fieldname]['group_name']=$arow['group_name'];
$fieldmap[$fieldname]['mandatory']=$arow['mandatory'];
$fieldmap[$fieldname]['hasconditions']=$conditions;
$fieldmap[$fieldname]['usedinconditions']=$usedinconditions;
}
}
}
unset($answerset);
}
elseif ($arow['type'] == "1")
{
$abrows = getSubQuestions($surveyid,$arow['qid']);
foreach ($abrows as $abrow)
{
$fieldname="{$arow['sid']}X{$arow['gid']}X{$arow['qid']}{$abrow['title']}#0";
$fieldmap[$fieldname]=array("fieldname"=>$fieldname, 'type'=>$arow['type'], 'sid'=>$surveyid, "gid"=>$arow['gid'], "qid"=>$arow['qid'], "aid"=>$abrow['title'], "scale_id"=>0);
if ($style == "full")
{
$fieldmap[$fieldname]['title']=$arow['title'];
$fieldmap[$fieldname]['question']=$arow['question'];
$fieldmap[$fieldname]['subquestion']=$abrow['question'];
$fieldmap[$fieldname]['group_name']=$arow['group_name'];
$fieldmap[$fieldname]['scale']=$clang->gT('Scale 1');
$fieldmap[$fieldname]['mandatory']=$arow['mandatory'];
$fieldmap[$fieldname]['hasconditions']=$conditions;
$fieldmap[$fieldname]['usedinconditions']=$usedinconditions;
}
$fieldname="{$arow['sid']}X{$arow['gid']}X{$arow['qid']}{$abrow['title']}#1";
$fieldmap[$fieldname]=array("fieldname"=>$fieldname, 'type'=>$arow['type'], 'sid'=>$surveyid, "gid"=>$arow['gid'], "qid"=>$arow['qid'], "aid"=>$abrow['title'], "scale_id"=>1);
if ($style == "full")
{
$fieldmap[$fieldname]['title']=$arow['title'];
$fieldmap[$fieldname]['question']=$arow['question'];
$fieldmap[$fieldname]['subquestion']=$abrow['question'];
$fieldmap[$fieldname]['group_name']=$arow['group_name'];
$fieldmap[$fieldname]['scale']=$clang->gT('Scale 2');
$fieldmap[$fieldname]['mandatory']=$arow['mandatory'];
$fieldmap[$fieldname]['hasconditions']=$conditions;
$fieldmap[$fieldname]['usedinconditions']=$usedinconditions;
}
}
}
elseif ($arow['type'] == "R")
{
//MULTI ENTRY
$slots=$connect->GetOne("select value from ".db_table_name('question_attributes')." where qid={$arow['qid']} and attribute='ranking_slots'");
for ($i=1; $i<=$slots; $i++)
{
$fieldname="{$arow['sid']}X{$arow['gid']}X{$arow['qid']}$i";
$fieldmap[$fieldname]=array("fieldname"=>$fieldname, 'type'=>$arow['type'], 'sid'=>$surveyid, "gid"=>$arow['gid'], "qid"=>$arow['qid'], "aid"=>$i);
if ($style == "full")
{
$fieldmap[$fieldname]['title']=$arow['title'];
$fieldmap[$fieldname]['question']=$arow['question'];
$fieldmap[$fieldname]['subquestion']=sprintf($clang->gT('Rank %s'),$i);
$fieldmap[$fieldname]['group_name']=$arow['group_name'];
$fieldmap[$fieldname]['mandatory']=$arow['mandatory'];
$fieldmap[$fieldname]['hasconditions']=$conditions;
$fieldmap[$fieldname]['usedinconditions']=$usedinconditions;
}
}
}
else // Question types with subquestions and one answer per subquestion (M/A/B/C/E/F/H/P)
{
//MULTI ENTRY
$abrows = getSubQuestions($surveyid,$arow['qid']);
foreach ($abrows as $abrow)
{
$fieldname="{$arow['sid']}X{$arow['gid']}X{$arow['qid']}{$abrow['title']}";
$fieldmap[$fieldname]=array("fieldname"=>$fieldname, 'type'=>$arow['type'], 'sid'=>$surveyid, "gid"=>$arow['gid'], "qid"=>$arow['qid'], "aid"=>$abrow['title']);
if ($abrow['other']=="Y") {$alsoother="Y";}
if ($style == "full")
{
$fieldmap[$fieldname]['title']=$arow['title'];
$fieldmap[$fieldname]['question']=$arow['question'];
$fieldmap[$fieldname]['subquestion']=$abrow['question'];
$fieldmap[$fieldname]['group_name']=$arow['group_name'];
$fieldmap[$fieldname]['mandatory']=$arow['mandatory'];
$fieldmap[$fieldname]['hasconditions']=$conditions;
$fieldmap[$fieldname]['usedinconditions']=$usedinconditions;
$fieldmap[$fieldname]['defaultvalue']=$connect->GetOne("SELECT defaultvalue FROM ".db_table_name('defaultvalues')." WHERE sqid={$abrow['qid']} and qid={$arow['qid']} AND scale_id=0 AND specialtype='' and language='{$clang->langcode}'");
}
if ($arow['type'] == "P")
{
$fieldname="{$arow['sid']}X{$arow['gid']}X{$arow['qid']}{$abrow['title']}comment";
$fieldmap[$fieldname]=array("fieldname"=>$fieldname, 'type'=>$arow['type'], 'sid'=>$surveyid, "gid"=>$arow['gid'], "qid"=>$arow['qid'], "aid"=>"comment");
if ($style == "full")
{
$fieldmap[$fieldname]['title']=$arow['title'];
$fieldmap[$fieldname]['question']=$arow['question'];
$fieldmap[$fieldname]['subquestion']=$clang->gT('Comment');
$fieldmap[$fieldname]['group_name']=$arow['group_name'];
$fieldmap[$fieldname]['mandatory']=$arow['mandatory'];
$fieldmap[$fieldname]['hasconditions']=$conditions;
$fieldmap[$fieldname]['usedinconditions']=$usedinconditions;
}
}
}
if ((isset($alsoother) && $alsoother=="Y") && ($arow['type']=="M" || $arow['type']=="P"))
{
$fieldname="{$arow['sid']}X{$arow['gid']}X{$arow['qid']}other";
$fieldmap[$fieldname]=array("fieldname"=>$fieldname, 'type'=>$arow['type'], 'sid'=>$surveyid, "gid"=>$arow['gid'], "qid"=>$arow['qid'], "aid"=>"other");
if ($style == "full")
{
$fieldmap[$fieldname]['title']=$arow['title'];
$fieldmap[$fieldname]['question']=$arow['question'];
$fieldmap[$fieldname]['subquestion']=$clang->gT('Other');
$fieldmap[$fieldname]['group_name']=$arow['group_name'];
$fieldmap[$fieldname]['mandatory']=$arow['mandatory'];
$fieldmap[$fieldname]['hasconditions']=$conditions;
$fieldmap[$fieldname]['usedinconditions']=$usedinconditions;
}
if ($arow['type']=="P")
{
$fieldname="{$arow['sid']}X{$arow['gid']}X{$arow['qid']}othercomment";
$fieldmap[$fieldname]=array("fieldname"=>$fieldname, 'type'=>$arow['type'], 'sid'=>$surveyid, "gid"=>$arow['gid'], "qid"=>$arow['qid'], "aid"=>"othercomment");
if ($style == "full")
{
$fieldmap[$fieldname]['title']=$arow['title'];
$fieldmap[$fieldname]['question']=$arow['question'];
$fieldmap[$fieldname]['subquestion']=$clang->gT('Other comment');
$fieldmap[$fieldname]['group_name']=$arow['group_name'];
$fieldmap[$fieldname]['mandatory']=$arow['mandatory'];
$fieldmap[$fieldname]['hasconditions']=$conditions;
$fieldmap[$fieldname]['usedinconditions']=$usedinconditions;
}
}
}
}
}
if (isset($fieldmap)) {
$globalfieldmap[$surveyid][$style][$clang->langcode] = $fieldmap;
return $fieldmap;
}
}
/**
* put your comment there...
*
* @param mixed $needle
* @param mixed $haystack
* @param mixed $keyname
* @param mixed $maxanswers
*/
function arraySearchByKey($needle, $haystack, $keyname, $maxanswers="") {
$output=array();
foreach($haystack as $hay) {
if (array_key_exists($keyname, $hay)) {
if ($hay[$keyname] == $needle) {
if ($maxanswers == 1) {
return $hay;
} else {
$output[]=$hay;
}
}
}
}
return $output;
}
/**
* This function replaces keywords in a text and is mainly intended for templates
* If you use this functions put your replacement strings into the $replacements variable
* instead of using global variables
*
* @param mixed $line Text to search in
* @param mixed $replacements Array of replacements: Array( =>
* @return string Text with replaced strings
*/
function templatereplace($line, $replacements=array())
{
global $surveylist, $sitename, $clienttoken, $rooturl;
global $thissurvey, $imagefiles, $defaulttemplate;
global $percentcomplete, $move;
global $groupname, $groupdescription;
global $question;
global $questioncode, $answer, $navigator;
global $help, $totalquestions, $surveyformat;
global $completed, $register_errormsg;
global $notanswered, $privacy, $surveyid;
global $publicurl, $templatedir, $token;
global $assessments, $s_lang;
global $errormsg, $clang;
global $saved_id, $usertemplaterootdir;
global $totalBoilerplatequestions, $relativeurl;
global $languagechanger;
global $printoutput, $captchapath, $loadname;
// lets sanitize the survey template
if(isset($thissurvey['templatedir']))
{
$templatename=$thissurvey['templatedir'];
}
else
{
$templatename=$defaulttemplate;
}
$templatename=validate_templatedir($templatename);
// create absolute template URL and template dir vars
$templateurl=sGetTemplateURL($templatename).'/';
$templatedir=sgetTemplatePath($templatename);
if (stripos ($line,""))
{
$line=str_ireplace("",
"\n"
.use_firebug()
."\t", $line);
}
// If there are non-bracketed replacements to be made do so above this line.
// Only continue in this routine if there are bracketed items to replace {}
if (strpos($line, "{") === false) {
return $line;
}
foreach ($replacements as $replacementkey=>$replacementvalue)
{
if (strpos($line, '{'.$replacementkey.'}') !== false) $line=str_replace('{'.$replacementkey.'}', $replacementvalue, $line);
}
if (strpos($line, "{SURVEYLISTHEADING}") !== false) $line=str_replace("{SURVEYLISTHEADING}", $surveylist['listheading'], $line);
if (strpos($line, "{SURVEYLIST}") !== false) $line=str_replace("{SURVEYLIST}", $surveylist['list'], $line);
if (strpos($line, "{NOSURVEYID}") !== false) $line=str_replace("{NOSURVEYID}", $surveylist['nosid'], $line);
if (strpos($line, "{SURVEYCONTACT}") !== false) $line=str_replace("{SURVEYCONTACT}", $surveylist['contact'], $line);
if (strpos($line, "{SITENAME}") !== false) $line=str_replace("{SITENAME}", $sitename, $line);
if (strpos($line, "{SURVEYLIST}") !== false) $line=str_replace("{SURVEYLIST}", $surveylist, $line);
if (strpos($line, "{CHECKJAVASCRIPT}") !== false) $line=str_replace("{CHECKJAVASCRIPT}", "", $line);
if (strpos($line, "{ANSWERTABLE}") !== false) $line=str_replace("{ANSWERTABLE}", $printoutput, $line);
if (strpos($line, "{SURVEYNAME}") !== false) $line=str_replace("{SURVEYNAME}", $thissurvey['name'], $line);
if (strpos($line, "{SURVEYDESCRIPTION}") !== false) $line=str_replace("{SURVEYDESCRIPTION}", $thissurvey['description'], $line);
if (strpos($line, "{WELCOME}") !== false) $line=str_replace("{WELCOME}", $thissurvey['welcome'], $line);
if (strpos($line, "{LANGUAGECHANGER}") !== false) $line=str_replace("{LANGUAGECHANGER}", $languagechanger, $line);
if (strpos($line, "{PERCENTCOMPLETE}") !== false) $line=str_replace("{PERCENTCOMPLETE}", $percentcomplete, $line);
if (strpos($line, "{GROUPNAME}") !== false) $line=str_replace("{GROUPNAME}", $groupname, $line);
if (strpos($line, "{GROUPDESCRIPTION}") !== false) $line=str_replace("{GROUPDESCRIPTION}", $groupdescription, $line);
if (is_array($question))
{
if (strpos($line, "{QUESTION}") !== false)
{
$line=str_replace("{QUESTION}", $question['all'], $line);
}
else
{
if (strpos($line, "{QUESTION_TEXT}") !== false) $line=str_replace("{QUESTION_TEXT}", $question['text'], $line);
if (strpos($line, "{QUESTION_HELP}") !== false) $line=str_replace("{QUESTION_HELP}", $question['help'], $line);
if (strpos($line, "{QUESTION_MANDATORY}") !== false) $line=str_replace("{QUESTION_MANDATORY}", $question['mandatory'], $line);
if (strpos($line, "{QUESTION_MAN_MESSAGE}") !== false) $line=str_replace("{QUESTION_MAN_MESSAGE}", $question['man_message'], $line);
if (strpos($line, "{QUESTION_VALID_MESSAGE}") !== false) $line=str_replace("{QUESTION_VALID_MESSAGE}", $question['valid_message'], $line);
}
}
else
{
if (strpos($line, "{QUESTION}") !== false) $line=str_replace("{QUESTION}", $question, $line);
};
if (strpos($line, '{QUESTION_ESSENTIALS}') !== false) $line=str_replace('{QUESTION_ESSENTIALS}', $question['essentials'], $line);
if (strpos($line, '{QUESTION_CLASS}') !== false) $line=str_replace('{QUESTION_CLASS}', $question['class'], $line);
if (strpos($line, '{QUESTION_MAN_CLASS}') !== false) $line=str_replace('{QUESTION_MAN_CLASS}', $question['man_class'], $line);
if (strpos($line, "{QUESTION_INPUT_ERROR_CLASS}") !== false) $line=str_replace("{QUESTION_INPUT_ERROR_CLASS}", $question['input_error_class'], $line);
if (strpos($line, "{QUESTION_CODE}") !== false) $line=str_replace("{QUESTION_CODE}", $question['code'], $line);
if (strpos($line, "{ANSWER}") !== false) $line=str_replace("{ANSWER}", $answer, $line);
$totalquestionsAsked = $totalquestions - $totalBoilerplatequestions;
if ($totalquestionsAsked < 1)
{
if (strpos($line, "{THEREAREXQUESTIONS}") !== false) $line=str_replace("{THEREAREXQUESTIONS}", $clang->gT("There are no questions in this survey"), $line); //Singular
}
if ($totalquestionsAsked == 1)
{
if (strpos($line, "{THEREAREXQUESTIONS}") !== false) $line=str_replace("{THEREAREXQUESTIONS}", $clang->gT("There is 1 question in this survey"), $line); //Singular
}
else
{
if (strpos($line, "{THEREAREXQUESTIONS}") !== false) $line=str_replace("{THEREAREXQUESTIONS}", $clang->gT("There are {NUMBEROFQUESTIONS} questions in this survey."), $line); //Note this line MUST be before {NUMBEROFQUESTIONS}
}
if (strpos($line, "{NUMBEROFQUESTIONS}") !== false) $line=str_replace("{NUMBEROFQUESTIONS}", $totalquestionsAsked, $line);
if (strpos($line, "{TOKEN}") !== false) {
if (isset($token)) {
$line=str_replace("{TOKEN}", $token, $line);
}
elseif (isset($clienttoken)) {
$line=str_replace("{TOKEN}", htmlentities($clienttoken,ENT_QUOTES,'UTF-8'), $line);
}
else {
$line=str_replace("{TOKEN}",'', $line);
}
}
if (strpos($line, "{SID}") !== false) $line=str_replace("{SID}", $surveyid, $line);
if (strpos($line, "{EXPIRY}") !== false) $line=str_replace("{EXPIRY}", $thissurvey['expiry'], $line);
if (strpos($line, "{EXPIRY-DMY}") !== false) $line=str_replace("{EXPIRY-DMY}", date("d-m-Y",strtotime($thissurvey["expiry"])), $line);
if (strpos($line, "{EXPIRY-MDY}") !== false) $line=str_replace("{EXPIRY-MDY}", date("m-d-Y",strtotime($thissurvey["expiry"])), $line);
if (strpos($line, "{NAVIGATOR}") !== false) $line=str_replace("{NAVIGATOR}", $navigator, $line);
if (strpos($line, "{SUBMITBUTTON}") !== false) {
$submitbutton="";
$line=str_replace("{SUBMITBUTTON}", $submitbutton, $line);
}
if (strpos($line, "{COMPLETED}") !== false) $line=str_replace("{COMPLETED}", $completed, $line);
if (strpos($line, "{URL}") !== false) {
if ($thissurvey['surveyls_url']!=""){
if (trim($thissurvey['surveyls_urldescription'])!=''){
$linkreplace="{$thissurvey['surveyls_urldescription']}";
}
else {
$linkreplace="{$thissurvey['surveyls_url']}";
}
}
else $linkreplace='';
$line=str_replace("{URL}", $linkreplace, $line);
$line=str_replace("{SAVEDID}",$saved_id, $line); // to activate the SAVEDID in the END URL
if (isset($clienttoken)) {$token=$clienttoken;} else {$token='';}
$line=str_replace("{TOKEN}",urlencode($token), $line); // to activate the TOKEN in the END URL
$line=str_replace("{SID}", $surveyid, $line); // to activate the SID in the RND URL
}
if (strpos($line, "{PRIVACY}") !== false)
{
$line=str_replace("{PRIVACY}", $privacy, $line);
}
if (strpos($line, "{PRIVACYMESSAGE}") !== false)
{
$line=str_replace("{PRIVACYMESSAGE}", "".$clang->gT("A Note On Privacy")." ".$clang->gT("This survey is anonymous.")." ".$clang->gT("The record kept of your survey responses does not contain any identifying information about you unless a specific question in the survey has asked for this. If you have responded to a survey that used an identifying token to allow you to access the survey, you can rest assured that the identifying token is not kept with your responses. It is managed in a separate database, and will only be updated to indicate that you have (or haven't) completed this survey. There is no way of matching identification tokens with survey responses in this survey."), $line);
}
if (strpos($line, "{CLEARALL}") !== false) {
$clearall = "gT("Are you sure you want to clear all your responses?")."')) {window.open('{$publicurl}/index.php?sid=$surveyid&move=clearall&lang=".$_SESSION['s_lang'];
if (returnglobal('token'))
{
$clearall .= "&token=".urlencode(trim(sanitize_xss_string(strip_tags(returnglobal('token')))));
}
$clearall .= "', '_top')}\" />";
$line=str_replace("{CLEARALL}", $clearall, $line);
}
// --> START NEW FEATURE - SAVE
if (strpos($line, "{DATESTAMP}") !== false) {
if (isset($_SESSION['datestamp'])) {
$line=str_replace("{DATESTAMP}", $_SESSION['datestamp'], $line);
}
else {
$line=str_replace("{DATESTAMP}", "-", $line);
}
}
// <-- END NEW FEATURE - SAVE
if (strpos($line, "{SAVE}") !== false) {
//Set up save/load feature
if ($thissurvey['allowsave'] == "Y")
{
// Find out if the user has any saved data
if ($thissurvey['format']=='A')
{
$saveall = ""
.""; // Show Save So Far button
}
elseif (!isset($_SESSION['step']) || !$_SESSION['step']) //First page, show LOAD
{
$saveall = "";
}
elseif (isset($_SESSION['scid']) && (isset($move) && $move == "movelast")) //Already saved and on Submit Page, dont show Save So Far button
{
$saveall="";
}
else
{
$saveall= ""; // Show Save So Far button
}
}
else
{
$saveall="";
}
$line=str_replace("{SAVE}", $saveall, $line);
}
if (strpos($line, "{TEMPLATEURL}") !== false) {
$line=str_replace("{TEMPLATEURL}", $templateurl, $line);
}
if (strpos($line, "{TEMPLATECSS}") !== false) {
$templatecss="\n";
if (getLanguageRTL($clang->langcode))
{
$templatecss.="\n";
}
$line=str_replace("{TEMPLATECSS}", $templatecss, $line);
}
if (FlattenText($help,true)!='') {
if (strpos($line, "{QUESTIONHELP}") !== false)
{
If (!isset($helpicon))
{
if (file_exists($templatedir.'/help.gif'))
{
$helpicon=$templateurl.'help.gif';
}
elseif (file_exists($templatedir.'/help.png'))
{
$helpicon=$templateurl.'help.png';
}
else
{
$helpicon=$imagefiles."/help.gif";
}
}
$line=str_replace("{QUESTIONHELP}", "".$help, $line);
}
if (strpos($line, "{QUESTIONHELPPLAINTEXT}") !== false) $line=str_replace("{QUESTIONHELPPLAINTEXT}", strip_tags(addslashes($help)), $line);
}
else
{
if (strpos($line, "{QUESTIONHELP}") !== false) $line=str_replace("{QUESTIONHELP}", $help, $line);
if (strpos($line, "{QUESTIONHELPPLAINTEXT}") !== false) $line=str_replace("{QUESTIONHELPPLAINTEXT}", strip_tags(addslashes($help)), $line);
}
$line=insertansReplace($line);
if (strpos($line, "{SUBMITCOMPLETE}") !== false) $line=str_replace("{SUBMITCOMPLETE}", "".$clang->gT("Thank You!")."
".$clang->gT("You have completed answering the questions in this survey.")."
".$clang->gT("Click on 'Submit' now to complete the process and save your answers."), $line);
if (strpos($line, "{SUBMITREVIEW}") !== false) {
if (isset($thissurvey['allowprev']) && $thissurvey['allowprev'] == "N") {
$strreview = "";
}
else {
$strreview=$clang->gT("If you want to check any of the answers you have made, and/or change them, you can do that now by clicking on the [<< prev] button and browsing through your responses.");
}
$line=str_replace("{SUBMITREVIEW}", $strreview, $line);
}
$line=tokenReplace($line);
if (strpos($line, "{ANSWERSCLEARED}") !== false) $line=str_replace("{ANSWERSCLEARED}", $clang->gT("Answers Cleared"), $line);
if (strpos($line, "{RESTART}") !== false)
{
if ($thissurvey['active'] == "N")
{
$replacetext= "gT("Restart this Survey")."";
$line=str_replace("{RESTART}", $replacetext, $line);
} else {
$restart_extra = "";
$restart_token = returnglobal('token');
if (!empty($restart_token)) $restart_extra .= "&token=".urlencode($restart_token);
else $restart_extra = "&newtest=Y";
if (!empty($_GET['lang'])) $restart_extra .= "&lang=".returnglobal('lang');
$line=str_replace("{RESTART}", "".$clang->gT("Restart this Survey")."", $line);
}
}
if (strpos($line, "{CLOSEWINDOW}") !== false) $line=str_replace("{CLOSEWINDOW}", "".$clang->gT("Close this Window")."", $line);
if (strpos($line, "{SAVEERROR}") !== false) $line=str_replace("{SAVEERROR}", $errormsg, $line);
if (strpos($line, "{SAVEHEADING}") !== false) $line=str_replace("{SAVEHEADING}", $clang->gT("Save Your Unfinished Survey"), $line);
if (strpos($line, "{SAVEMESSAGE}") !== false) $line=str_replace("{SAVEMESSAGE}", $clang->gT("Enter a name and password for this survey and click save below.")." \n".$clang->gT("Your survey will be saved using that name and password, and can be completed later by logging in with the same name and password.")."
\n".$clang->gT("If you give an email address, an email containing the details will be sent to you."), $line);
if (strpos($line, "{RETURNTOSURVEY}") !== false)
{
$savereturn = "gT("Return To Survey")."";
$line=str_replace("{RETURNTOSURVEY}", $savereturn, $line);
}
if (strpos($line, "{SAVEFORM}") !== false) {
//SAVE SURVEY DETAILS
$saveform = "
".$clang->gT("Name").":
".$clang->gT("Password").":
".$clang->gT("Repeat Password").":
".$clang->gT("Your Email").":
gT("Security Question").":
\n";
}
$saveform .= "
\n"
. "
\n"
. "
";
$line=str_replace("{SAVEFORM}", $saveform, $line);
}
if (strpos($line, "{LOADERROR}") !== false) $line=str_replace("{LOADERROR}", $errormsg, $line);
if (strpos($line, "{LOADHEADING}") !== false) $line=str_replace("{LOADHEADING}", $clang->gT("Load A Previously Saved Survey"), $line);
if (strpos($line, "{LOADMESSAGE}") !== false) $line=str_replace("{LOADMESSAGE}", $clang->gT("You can load a survey that you have previously saved from this screen.")." ".$clang->gT("Type in the 'name' you used to save the survey, and the password.")." ", $line);
if (strpos($line, "{LOADFORM}") !== false) {
//LOAD SURVEY DETAILS
$loadform = "
".$clang->gT("Saved name").":
\n"
. "
".$clang->gT("Password").":
\n";
if (function_exists("ImageCreate") && captcha_enabled('saveandloadscreen',$thissurvey['usecaptcha']))
{
$loadform .="
".$clang->gT("Security Question").":
\n";
}
$loadform .="
\n"
. "
\n";
$line=str_replace("{LOADFORM}", $loadform, $line);
}
//REGISTER SURVEY DETAILS
if (strpos($line, "{REGISTERERROR}") !== false) $line=str_replace("{REGISTERERROR}", $register_errormsg, $line);
if (strpos($line, "{REGISTERMESSAGE1}") !== false) $line=str_replace("{REGISTERMESSAGE1}", $clang->gT("You must be registered to complete this survey"), $line);
if (strpos($line, "{REGISTERMESSAGE2}") !== false) $line=str_replace("{REGISTERMESSAGE2}", $clang->gT("You may register for this survey if you wish to take part.")." \n".$clang->gT("Enter your details below, and an email containing the link to participate in this survey will be sent immediately."), $line);
if (strpos($line, "{REGISTERFORM}") !== false)
{
$registerform="\n";
$line=str_replace("{REGISTERFORM}", $registerform, $line);
}
if (strpos($line, "{ASSESSMENT_CURRENT_TOTAL}") !== false && function_exists('doAssessment'))
{
$assessmentdata=doAssessment($surveyid,true);
$line=str_replace("{ASSESSMENT_CURRENT_TOTAL}", $assessmentdata['total'], $line);
}
if (strpos($line, "{ASSESSMENTS}") !== false) $line=str_replace("{ASSESSMENTS}", $assessments, $line);
if (strpos($line, "{ASSESSMENT_HEADING}") !== false) $line=str_replace("{ASSESSMENT_HEADING}", $clang->gT("Your Assessment"), $line);
return $line;
}
/**
* insertAnsReplace() takes a string and looks for any {INSERTANS:xxxx} variables
* which it then, one by one, substitutes the SGQA code with the relevant answer
* from the session array containing responses
*
* The operations of this function were previously in the templatereplace function
* but have been moved to a function of their own to make it available
* to other areas of the script.
*
* @param mixed $line string - the string to iterate, and then return
*
* @return string This string is returned containing the substituted responses
*
*/
function insertansReplace($line)
{
while (strpos($line, "{INSERTANS:") !== false)
{
$answreplace=substr($line, strpos($line, "{INSERTANS:"), strpos($line, "}", strpos($line, "{INSERTANS:"))-strpos($line, "{INSERTANS:")+1);
$answreplace2=substr($answreplace, 11, strpos($answreplace, "}", strpos($answreplace, "{INSERTANS:"))-11);
$answreplace3=strip_tags(retrieve_Answer($answreplace2, $_SESSION['dateformats']['phpdate']));
$line=str_replace($answreplace, $answreplace3, $line);
}
return $line;
}
/**
* tokenReplace() takes a string and looks for any {TOKEN:xxxx} variables
* which it then, one by one, substitutes the TOKEN code with the relevant token
* from the session array containing token information
*
* The operations of this function were previously in the templatereplace function
* but have been moved to a function of their own to make it available
* to other areas of the script.
*
* @param mixed $line string - the string to iterate, and then return
*
* @return string This string is returned containing the substituted responses
*
*/
function tokenReplace($line)
{
global $surveyid;
if (isset($_SESSION['token']) && $_SESSION['token'] != '')
{
//Gather survey data for tokenised surveys, for use in presenting questions
$_SESSION['thistoken']=getTokenData($surveyid, $_SESSION['token']);
}
if (isset($_SESSION['thistoken']))
{
if (strpos($line, "{TOKEN:FIRSTNAME}") !== false) $line=str_replace("{TOKEN:FIRSTNAME}", $_SESSION['thistoken']['firstname'], $line);
if (strpos($line, "{TOKEN:LASTNAME}") !== false) $line=str_replace("{TOKEN:LASTNAME}", $_SESSION['thistoken']['lastname'], $line);
if (strpos($line, "{TOKEN:EMAIL}") !== false) $line=str_replace("{TOKEN:EMAIL}", $_SESSION['thistoken']['email'], $line);
}
else
{
if (strpos($line, "{TOKEN:FIRSTNAME}") !== false) $line=str_replace("{TOKEN:FIRSTNAME}", "", $line);
if (strpos($line, "{TOKEN:LASTNAME}") !== false) $line=str_replace("{TOKEN:LASTNAME}", "", $line);
if (strpos($line, "{TOKEN:EMAIL}") !== false) $line=str_replace("{TOKEN:EMAIL}", "", $line);
}
while (strpos($line, "{TOKEN:ATTRIBUTE_")!== false)
{
$templine=substr($line,strpos($line, "{TOKEN:ATTRIBUTE_"));
$templine=substr($templine,0,strpos($templine, "}")+1);
$attr_no=(int)substr($templine,17,strpos($templine, "}")-17);
$replacestr='';
if (isset($_SESSION['thistoken']['attribute_'.$attr_no])) $replacestr=$_SESSION['thistoken']['attribute_'.$attr_no];
$line=str_replace($templine, $replacestr, $line);
}
return $line;
}
/**
* passthruReplace() takes a string and looks for {PASSTHRULABEL} and {PASSTHRUVALUE} variables
* which it then substitutes for passthru data sent in the initial URL and stored
* in the session array containing responses
*
* @param mixed $line string - the string to iterate, and then return
* @param mixed $thissurvey string - the string containing the surveyinformation
* @return string This string is returned containing the substituted responses
*
*/
function passthruReplace($line, $thissurvey)
{
$line=str_replace("{PASSTHRULABEL}", $thissurvey['passthrulabel'], $line);
$line=str_replace("{PASSTHRUVALUE}", $thissurvey['passthruvalue'], $line);
return $line;
}
/**
* This function returns a count of the number of saved responses to a survey
*
* @param mixed $surveyid Survey ID
*/
function getSavedCount($surveyid)
{
global $dbprefix, $connect;
$surveyid=(int)$surveyid;
$query = "SELECT COUNT(*) FROM ".db_table_name('saved_control')." WHERE sid=$surveyid";
$count=$connect->getOne($query);
return $count;
}
function GetBaseLanguageFromSurveyID($surveyid)
{
static $cache = array();
global $connect;
$surveyid=(int)($surveyid);
if (!isset($cache[$surveyid])) {
$query = "SELECT language FROM ".db_table_name('surveys')." WHERE sid=$surveyid";
$surveylanguage = $connect->GetOne($query); //Checked
if (is_null($surveylanguage))
{
$surveylanguage='en';
}
$cache[$surveyid] = $surveylanguage;
} else {
$surveylanguage = $cache[$surveyid];
}
return $surveylanguage;
}
function GetAdditionalLanguagesFromSurveyID($surveyid)
{
static $cache = array();
global $connect;
$surveyid=sanitize_int($surveyid);
if (!isset($cache[$surveyid])) {
$query = "SELECT additional_languages FROM ".db_table_name('surveys')." WHERE sid=$surveyid";
$additional_languages = $connect->GetOne($query);
if (trim($additional_languages)=='')
{
$additional_languages = array();
}
else
{
$additional_languages = explode(" ", trim($additional_languages));
}
$cache[$surveyid] = $additional_languages;
} else {
$additional_languages = $cache[$surveyid];
}
return $additional_languages;
}
//For multilanguage surveys
// If null or 0 is given for $surveyid then the default language from config-defaults.php is returned
function SetSurveyLanguage($surveyid, $language)
{
global $rootdir, $defaultlang, $clang;
$surveyid=sanitize_int($surveyid);
require_once($rootdir.'/classes/core/language.php');
if (isset($surveyid) && $surveyid>0)
{
// see if language actually is present in survey
$query = "SELECT language, additional_languages FROM ".db_table_name('surveys')." WHERE sid=$surveyid";
$result = db_execute_assoc($query); //Checked
while ($result && ($row=$result->FetchRow())) {
$additional_languages = $row['additional_languages'];
$default_language = $row['language'];
}
if (!isset($language) || ($language=='') || (isset($additional_languages) && strpos($additional_languages, $language) === false)
or (isset($default_language) && $default_language == $language)
) {
// Language not supported, or default language for survey, fall back to survey's default language
$_SESSION['s_lang'] = $default_language;
//echo "Language not supported, resorting to ".$_SESSION['s_lang']." ";
} else {
$_SESSION['s_lang'] = $language;
//echo "Language will be set to ".$_SESSION['s_lang']." ";
}
$clang = new limesurvey_lang($_SESSION['s_lang']);
}
else {
$clang = new limesurvey_lang($defaultlang);
}
$thissurvey=getSurveyInfo($surveyid, $_SESSION['s_lang']);
$_SESSION['dateformats'] = getDateFormatData($thissurvey['surveyls_dateformat']);
return $clang;
}
function buildLabelSetCheckSumArray()
{
global $connect;
// BUILD CHECKSUMS FOR ALL EXISTING LABEL SETS
$query = "SELECT lid
FROM ".db_table_name('labelsets')."
ORDER BY lid";
$result = db_execute_assoc($query) or safe_die("safe_died collecting labelset ids $query ".$connect->ErrorMsg()); //Checked
$csarray=array();
while ($row=$result->FetchRow())
{
$thisset="";
$query2 = "SELECT code, title, sortorder, language, assessment_value
FROM ".db_table_name('labels')."
WHERE lid={$row['lid']}
ORDER BY language, sortorder, code";
$result2 = db_execute_num($query2) or safe_die("safe_died querying labelset $lid $query2 ".$connect->ErrorMsg()); //Checked
while($row2=$result2->FetchRow())
{
$thisset .= implode('.', $row2);
} // while
$csarray[$row['lid']]=dechex(crc32($thisset)*1);
}
return $csarray;
}
/**
*
* Returns a flat array with all question attributes for the question only (and the qid we gave it)!
* @author: c_schmitz
* @param $qid The question ID
* @param $type optional The question type - saves a DB query if you provide it
* @return array{attribute=>value , attribute=>value}
*/
function getQuestionAttributes($qid, $type='')
{
static $cache = array();
static $availableattributesarr = null;
if (isset($cache[$qid])) {
return $cache[$qid];
}
if ($type=='') // If type is not given find it out
{
$query = "SELECT type FROM ".db_table_name('questions')." WHERE qid=$qid and parent_qid=0 group by type";
$result = db_execute_assoc($query) or safe_die("Error finding question attributes"); //Checked
$row=$result->FetchRow();
$type=$row['type'];
}
//Now read available attributes, make sure we do this only once per request to save
//processing cycles and memory
if (is_null($availableattributesarr)) $availableattributesarr=questionAttributes();
if (isset($availableattributesarr[$type]))
{
$availableattributes=$availableattributesarr[$type];
}
else
{
$cache[$qid]=array();
return array();
}
foreach($availableattributes as $attribute){
$defaultattributes[$attribute['name']]=$attribute['default'];
}
$setattributes=array();
$qid=sanitize_int($qid);
$query = "SELECT attribute, value FROM ".db_table_name('question_attributes')." WHERE qid=$qid";
$result = db_execute_assoc($query) or safe_die("Error finding question attributes"); //Checked
$setattributes=array();
while ($row=$result->FetchRow())
{
$setattributes[$row['attribute']]=$row['value'];
}
//echo "
";print_r($qid_attributes);echo "
";
$qid_attributes=array_merge($defaultattributes,$setattributes);
$cache[$qid]=$qid_attributes;
return $qid_attributes;
}
/**
*
* Returns the questionAttribtue value set or '' if not set
* @author: lemeur
* @param $questionAttributeArray
* @param $attributeName
* @return string
*/
function getQuestionAttributeValue($questionAttributeArray, $attributeName)
{
if (isset($questionAttributeArray[$attributeName]))
{
return $questionAttributeArray[$attributeName];
}
else
{
return '';
}
}
/**
* Returns array of question type chars with attributes
*
* @param mixed $returnByName If set to true the array will be by attribute name
*/
function questionAttributes($returnByName=false)
{
global $clang;
//For each question attribute include a key:
// name - the display name
// types - a string with one character representing each question typy to which the attribute applies
// help - a short explanation
// If you insert a new attribute please do it in correct alphabetical order!
$qattributes["alphasort"]=array(
"types"=>"!LOWZ",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT("Sort answers alphabetically"),
"caption"=>$clang->gT('Sort answers alphabetically'));
$qattributes["answer_width"]=array(
"types"=>"ABCEF1:;",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'integer',
'min'=>'1',
'max'=>'100',
"help"=>$clang->gT('Set the percentage width of the answer column (1-100)'),
"caption"=>$clang->gT('Answer width'));
$qattributes["array_filter"]=array(
"types"=>"1ABCEF:;MPLT",
'category'=>$clang->gT('Logic'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT("Enter the code of a Multiple options question to only show the matching answer options in this question."),
"caption"=>$clang->gT('Array filter'));
$qattributes["array_filter_exclude"]=array(
"types"=>"1ABCEF:;MPLT",
'category'=>$clang->gT('Logic'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT("Enter the code of a Multiple options question to exclude the matching answer options in this question."),
"caption"=>$clang->gT('Array filter exclusion'));
$qattributes["category_separator"]=array(
"types"=>"!",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Category Separator'),
"caption"=>$clang->gT('Category Separator'));
$qattributes["code_filter"]=array(
"types"=>"WZ",
'category'=>$clang->gT('Logic'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Filter the available answers by this value'),
"caption"=>$clang->gT('Code filter'));
$qattributes["display_columns"]=array(
"types"=>"GLMZ",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'integer',
'default'=>'1',
'min'=>'1',
'max'=>'100',
"help"=>$clang->gT('The answer options will be distributed across the number of columns set here'),
"caption"=>$clang->gT('Display columns'));
$qattributes["display_rows"]=array(
"types"=>"QSTU",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('How many rows to display'),
"caption"=>$clang->gT('Display rows'));
$qattributes["dropdown_dates"]=array(
"types"=>"D",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT('Use accessible select boxes instead of calendar popup'),
"caption"=>$clang->gT('Display select boxes'));
$qattributes["dropdown_dates_year_min"]=array(
"types"=>"D",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Minimum year value in calendar'),
"caption"=>$clang->gT('Minimum dropdown year'));
$qattributes["dropdown_dates_year_max"]=array(
"types"=>"D",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Maximum year value for calendar'),
"caption"=>$clang->gT('Maximum dropdown year'));
$qattributes["dropdown_prepostfix"]=array(
"types"=>"1",
'category'=>$clang->gT('Other'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Prefix|Suffix for dropdown lists'),
"caption"=>$clang->gT('Prefix|Suffix'));
$qattributes["dropdown_separators"]=array(
"types"=>"1",
'category'=>$clang->gT('Other'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Post-Answer-Separator|Inter-Dropdownlist-Separator for dropdown lists'),
"caption"=>$clang->gT('Dropdown separators'));
$qattributes["dualscale_headerA"]=array(
"types"=>"1",
'category'=>$clang->gT('Other'),
'sortorder'=>110,
'inputtype'=>'text',
"help"=>$clang->gT('Enter a header text for scale A'),
"caption"=>$clang->gT('Header scale A'));
$qattributes["dualscale_headerB"]=array(
"types"=>"1",
'category'=>$clang->gT('Other'),
'sortorder'=>111,
'inputtype'=>'text',
"help"=>$clang->gT('Enter a header text for scale B'),
"caption"=>$clang->gT('Header scale B'));
$qattributes["equals_num_value"]=array(
"types"=>"K",
'category'=>$clang->gT('Input'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Multiple numeric inputs sum must equal this value'),
"caption"=>$clang->gT('Equals sum value'));
$qattributes["exclude_all_others"]=array(
"types"=>"M",
'category'=>$clang->gT('Logic'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Excludes all other options if a certain answer is selected - just enter the answer code(s) seperated with a semikolon.'),
"caption"=>$clang->gT('Exclusive option'));
$qattributes["hide_tip"]=array(
"types"=>"!KLMNOPRWZ",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT('Hide the tip that is normally shown with a question'),
"caption"=>$clang->gT('Hide tip'));
$qattributes['hidden']=array(
'types'=>'15ABCDEFGHIKLMNOPQRSTUWXYZ!:;',
'category'=>$clang->gT('Display'),
'sortorder'=>101,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
'help'=>$clang->gT('Hide this question at any time. This is useful for including data using answer prefilling.'),
'caption'=>$clang->gT('Always hide this question'));
$qattributes["max_answers"]=array(
"types"=>"MPR",
'category'=>$clang->gT('Logic'),
'sortorder'=>11,
'inputtype'=>'integer',
"help"=>$clang->gT('Limit the number of possible answers'),
"caption"=>$clang->gT('Maximum answers'));
$qattributes["max_num_value"]=array(
"types"=>"K",
'category'=>$clang->gT('Input'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Maximum sum value of multiple numeric input'),
"caption"=>$clang->gT('Maximum sum value'));
$qattributes["max_num_value_sgqa"]=array(
"types"=>"K",
'category'=>$clang->gT('Logic'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Enter the SGQA identifier to use the total of a previous question as the maximum for this question'),
"caption"=>$clang->gT('Max value from SGQA'));
$qattributes["maximum_chars"]=array(
"types"=>"STUNQK",
'category'=>$clang->gT('Input'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Maximum characters allowed'),
"caption"=>$clang->gT('Maximum characters'));
$qattributes["min_answers"]=array(
"types"=>"MPR",
'category'=>$clang->gT('Logic'),
'sortorder'=>10,
'inputtype'=>'integer',
"help"=>$clang->gT('Ensure a minimum number of possible answers (0=No limit)'),
"caption"=>$clang->gT('Minimum answers'));
$qattributes["min_num_value"]=array(
"types"=>"K",
'category'=>$clang->gT('Input'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Multiple numeric inputs must be greater than this value'),
"caption"=>$clang->gT('Minimum sum value'));
$qattributes["min_num_value_sgqa"]=array(
"types"=>"K",
'category'=>$clang->gT('Logic'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Enter the SGQA identifier to use the total of a previous question as the minimum for this question'),
"caption"=>$clang->gT('Min value from SGQA'));
$qattributes["multiflexible_max"]=array(
"types"=>":",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Maximum value for array(mult-flexible) question type'),
"caption"=>$clang->gT('Maximum value'));
$qattributes["multiflexible_min"]=array(
"types"=>":",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Minimum value for array(multi-flexible) question type'),
"caption"=>$clang->gT('Minimum value'));
$qattributes["multiflexible_step"]=array(
"types"=>":",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Step value'),
"caption"=>$clang->gT('Step value'));
$qattributes["multiflexible_checkbox"]=array(
"types"=>":",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT('Use checkbox layout'),
"caption"=>$clang->gT('Checkbox layout'));
$qattributes["num_value_equals_sgqa"]=array(
"types"=>"K",
'category'=>$clang->gT('Logic'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('SGQA identifier to use total of previous question as total for this question'),
"caption"=>$clang->gT('Value equals SGQA'));
$qattributes["numbers_only"]=array(
"types"=>"Q;S",
'category'=>$clang->gT('Other'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT('Allow only numerical input'),
"caption"=>$clang->gT('Numbers only'));
$qattributes["input_boxes"]=array(
"types"=>":",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT("Present as text input boxes instead of dropdown lists"),
"caption"=>$clang->gT("Text inputs"));
$qattributes["other_comment_mandatory"]=array(
"types"=>"PLW!Z",
'category'=>$clang->gT('Logic'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT("Make the 'Other:' comment field mandatory when the 'Other:' option is active"),
"caption"=>$clang->gT("'Other:' comment mandatory"));
$qattributes["other_numbers_only"]=array(
"types"=>"LMP",
'category'=>$clang->gT('Logic'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT("Allow only numerical input for 'Other' text"),
"caption"=>$clang->gT("Numbers only for 'Other'"));
$qattributes["other_replace_text"]=array(
"types"=>"LMPWZ!",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT("Replaces the label of the 'Other:' answer option with a custom text"),
"caption"=>$clang->gT("Label for 'Other:' option"));
$qattributes["page_break"]=array(
"types"=>"15ABCDEFGHKLMNOPQRSTUWXYZ!:;",
'category'=>$clang->gT('Other'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT('Insert a page break before this question in printable view by setting this to Yes.'),
"caption"=>$clang->gT('Insert page break in printable view'));
$qattributes["prefix"]=array(
"types"=>"KNQS",
'category'=>$clang->gT('Display'),
'sortorder'=>10,
'inputtype'=>'text',
"help"=>$clang->gT('Add a prefix to the answer field'),
"caption"=>$clang->gT('Answer prefix'));
$qattributes["public_statistics"]=array(
"types"=>"15ABCEFGHKLMNOPRWYZ!:",
'category'=>$clang->gT('Other'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT('Show statistics of this question in the public statistics page'),
"caption"=>$clang->gT('Show in public statistics'));
$qattributes["random_order"]=array(
"types"=>"!ABCEFHKLMOPQRWZ1:;",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT('Present answers in random order'),
"caption"=>$clang->gT('Random answer order'));
$qattributes["ranking_slots"]=array(
"types"=>"R",
'category'=>$clang->gT('Other'),
'sortorder'=>10,
'inputtype'=>'integer',
'default'=>0,
'readonly_when_active'=>true,
"help"=>$clang->gT("Set the number of slots available to rank the available answers. Note: This settings can't be changed after survey activation."),
"caption"=>$clang->gT('Ranking slots'));
$qattributes["slider_layout"]=array(
"types"=>"K",
'category'=>$clang->gT('Slider'),
'sortorder'=>1,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT('Use slider layout'),
"caption"=>$clang->gT('Use slider layout'));
$qattributes["slider_min"]=array(
"types"=>"K",
'category'=>$clang->gT('Slider'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Slider minimum value'),
"caption"=>$clang->gT('Slider minimum value'));
$qattributes["slider_max"]=array(
"types"=>"K",
'category'=>$clang->gT('Slider'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Slider maximum value'),
"caption"=>$clang->gT('Slider maximum value'));
$qattributes["slider_accuracy"]=array(
"types"=>"K",
'category'=>$clang->gT('Slider'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Slider accuracy'),
"caption"=>$clang->gT('Slider accuracy'));
$qattributes["slider_default"]=array(
"types"=>"K",
'category'=>$clang->gT('Slider'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Slider initial value'),
"caption"=>$clang->gT('Slider initial value'));
$qattributes["slider_middlestart"]=array(
"types"=>"K",
'category'=>$clang->gT('Slider'),
'sortorder'=>10,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT('The handle is displayed at the middle of the slider (this will not set the initial value)'),
"caption"=>$clang->gT('Slider starts at the middle position'));
$qattributes["slider_showminmax"]=array(
"types"=>"K",
'category'=>$clang->gT('Slider'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT('Display min and max value under the slider'),
"caption"=>$clang->gT('Display slider min and max value'));
$qattributes["slider_separator"]=array(
"types"=>"K",
'category'=>$clang->gT('Slider'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Answer|Left-slider-text|Right-slider-text separator character'),
"caption"=>$clang->gT('Slider left/right text separator'));
$qattributes["suffix"]=array(
"types"=>"KNQS",
'category'=>$clang->gT('Display'),
'sortorder'=>11,
'inputtype'=>'text',
"help"=>$clang->gT('Add a suffix to the answer field'),
"caption"=>$clang->gT('Answer suffix'));
$qattributes["text_input_width"]=array(
"types"=>"KNSTUQ;",
'category'=>$clang->gT('Display'),
'sortorder'=>100,
'inputtype'=>'text',
"help"=>$clang->gT('Width of text input box'),
"caption"=>$clang->gT('Input box width'));
$qattributes["use_dropdown"]=array(
"types"=>"1",
'category'=>$clang->gT('Other'),
'sortorder'=>112,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
'default'=>0,
"help"=>$clang->gT('Use dual dropdown boxes instead of dual scales'),
"caption"=>$clang->gT('Dual dropdown'));
$qattributes["scale_export"]=array(
"types"=>"CEFGHLMOPWYZ1!:",
'category'=>$clang->gT('Other'),
'sortorder'=>100,
'inputtype'=>'singleselect',
'options'=>array(0=>$clang->gT('Default'),
1=>$clang->gT('Nominal'),
2=>$clang->gT('Ordinal'),
3=>$clang->gT('Scale')),
'default'=>0,
"help"=>$clang->gT("Set a specific SPSS export scale type for this question"),
"caption"=>$clang->gT('SPSS export scale type'));
//Timer attributes
$qattributes["time_limit"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>90,
"inputtype"=>"integer",
"help"=>$clang->gT("Limit time to answer question (in seconds)"),
"caption"=>$clang->gT("Time limit"));
$qattributes["time_limit_action"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>92,
'inputtype'=>'singleselect',
'options'=>array(1=>$clang->gT('Warn and move on'),
2=>$clang->gT('Move on without warning'),
3=>$clang->gT('Disable only')),
"help"=>$clang->gT("Action to perform when time limit is up"),
"caption"=>$clang->gT("Time limit action"));
$qattributes["time_limit_disable_next"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>94,
"inputtype"=>"singleselect",
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
"help"=>$clang->gT("Disable the next button until time limit expires"),
"caption"=>$clang->gT("Time limit disable next"));
$qattributes["time_limit_disable_prev"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>96,
"inputtype"=>"singleselect",
'options'=>array(0=>$clang->gT('No'),
1=>$clang->gT('Yes')),
"help"=>$clang->gT("Disable the prev button until the time limit expires"),
"caption"=>$clang->gT("Time limit disable prev"));
$qattributes["time_limit_countdown_message"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>98,
"inputtype"=>"textarea",
"help"=>$clang->gT("The text message that displays in the countdown timer during the countdown"),
"caption"=>$clang->gT("Time limit countdown message"));
$qattributes["time_limit_timer_style"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>100,
"inputtype"=>"textarea",
"help"=>$clang->gT("CSS Style for the message that displays in the countdown timer during the countdown"),
"caption"=>$clang->gT("Time limit timer CSS style"));
$qattributes["time_limit_message_delay"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>102,
"inputtype"=>"integer",
"help"=>$clang->gT("Display the 'time limit expiry message' for this many seconds before performing the 'time limit action' (defaults to 1 second if left blank)"),
"caption"=>$clang->gT("Time limit expiry message display time"));
$qattributes["time_limit_message"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>104,
"inputtype"=>"textarea",
"help"=>$clang->gT("The message to display when the time limit has expired (a default message will display if this setting is left blank)"),
"caption"=>$clang->gT("Time limit expiry message"));
$qattributes["time_limit_message_style"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>106,
"inputtype"=>"textarea",
"help"=>$clang->gT("CSS style for the 'time limit expiry message'"),
"caption"=>$clang->gT("Time limit message CSS style"));
$qattributes["time_limit_warning"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>108,
"inputtype"=>"integer",
"help"=>$clang->gT("Display a 'time limit warning' when there are this many seconds remaining in the countdown (warning will not display if left blank)"),
"caption"=>$clang->gT("1st Time limit warning message timer"));
$qattributes["time_limit_warning_display_time"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>110,
"inputtype"=>"integer",
"help"=>$clang->gT("The 'time limit warning' will stay visible for this many seconds (will not turn off if this setting is left blank)"),
"caption"=>$clang->gT("1st Time limit warning message display time"));
$qattributes["time_limit_warning_message"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>112,
"inputtype"=>"textarea",
"help"=>$clang->gT("The message to display as a 'time limit warning' (a default warning will display if this is left blank)"),
"caption"=>$clang->gT("1st Time limit warning message"));
$qattributes["time_limit_warning_style"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>114,
"inputtype"=>"textarea",
"help"=>$clang->gT("CSS style used when the 'time limit warning' message is displayed"),
"caption"=>$clang->gT("1st Time limit warning CSS style"));
$qattributes["time_limit_warning_2"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>116,
"inputtype"=>"integer",
"help"=>$clang->gT("Display the 2nd 'time limit warning' when there are this many seconds remaining in the countdown (warning will not display if left blank)"),
"caption"=>$clang->gT("2nd Time limit warning message timer"));
$qattributes["time_limit_warning_2_display_time"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>118,
"inputtype"=>"integer",
"help"=>$clang->gT("The 2nd 'time limit warning' will stay visible for this many seconds (will not turn off if this setting is left blank)"),
"caption"=>$clang->gT("2nd Time limit display time"));
$qattributes["time_limit_warning_2_message"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>120,
"inputtype"=>"textarea",
"help"=>$clang->gT("The 2nd message to display as a 'time limit warning' (a default warning will display if this is left blank)"),
"caption"=>$clang->gT("2nd Time limit warning message"));
$qattributes["time_limit_warning_2_style"]=array(
"types"=>"STUX",
'category'=>$clang->gT('Timing'),
'sortorder'=>122,
"inputtype"=>"textarea",
"help"=>$clang->gT("CSS style used when the 2nd 'time limit warning' message is displayed"),
"caption"=>$clang->gT("2nd Time Limit Warning CSS Style"));
//This builds a more useful array (don't modify)
if ($returnByName==false)
{
foreach($qattributes as $qname=>$qvalue)
{
for ($i=0; $i<=strlen($qvalue['types'])-1; $i++)
{
$qat[substr($qvalue['types'], $i, 1)][]=array("name"=>$qname,
"inputtype"=>$qvalue['inputtype'],
"category"=>$qvalue['category'],
"sortorder"=>$qvalue['sortorder'],
"readonly"=>isset($qvalue['readonly_when_active'])?$qvalue['readonly_when_active']:false,
"options"=>isset($qvalue['options'])?$qvalue['options']:'',
"default"=>isset($qvalue['default'])?$qvalue['default']:'',
"help"=>$qvalue['help'],
"caption"=>$qvalue['caption']);
}
}
return $qat;
}
else {
return $qattributes;
}
}
function CategorySort($a, $b)
{
$result=strnatcasecmp($a['category'], $b['category']);
if ($result==0)
{
$result=$a['sortorder']-$b['sortorder'];
}
return $result;
}
// make sure the given string (which comes from a POST or GET variable)
// is safe to use in MySQL. This does nothing if gpc_magic_quotes is on.
function auto_escape($str) {
global $connect;
if (!get_magic_quotes_gpc()) {
return $connect->escape($str);
}
return $str;
}
// the opposite of the above: takes a POST or GET variable which may or
// may not have been 'auto-quoted', and return the *unquoted* version.
// this is useful when the value is destined for a web page (eg) not
// a SQL query.
function auto_unescape($str) {
if (!isset($str)) {return null;};
if (!get_magic_quotes_gpc())
return $str;
return stripslashes($str);
}
// make a string safe to include in an HTML 'value' attribute.
function html_escape($str) {
// escape newline characters, too, in case we put a value from
// a TEXTAREA into an value attribute.
return str_replace(array("\x0A","\x0D"),array("
","
"),
htmlspecialchars( $str, ENT_QUOTES ));
}
// make a string safe to include in a JavaScript String parameter.
function javascript_escape($str, $strip_tags=false, $htmldecode=false) {
$new_str ='';
if ($htmldecode==true) {
$str=html_entity_decode($str,ENT_QUOTES,'UTF-8');
}
if ($strip_tags==true)
{
$str=strip_tags($str);
}
return str_replace(array('\'','"', "\n"),
array("\\'",'\u0022', "\\n"),
$str);
}
// This function returns the header as result string
// If you want to echo the header use doHeader() !
function getHeader()
{
global $embedded, $surveyid, $rooturl,$defaultlang, $js_header_includes, $css_header_includes;
$js_header_includes = array_unique($js_header_includes);
$css_header_includes = array_unique($css_header_includes);
if (isset($_SESSION['s_lang']) && $_SESSION['s_lang'])
{
$surveylanguage= $_SESSION['s_lang'];
}
elseif (isset($surveyid) && $surveyid)
{
$surveylanguage=GetBaseLanguageFromSurveyID($surveyid);
}
else
{
$surveylanguage=$defaultlang;
}
$js_header = ''; $css_header='';
foreach ($js_header_includes as $jsinclude)
{
$js_header .= "\n";
}
foreach ($css_header_includes as $cssinclude)
{
$css_header .= "\n";
}
if ( !$embedded )
{
$header= "\n"
. "\n"
. "\n"
. ""
. ""
. $js_header;
return $header;
}
global $embedded_headerfunc;
if ( function_exists( $embedded_headerfunc ) )
return $embedded_headerfunc();
}
function doHeader()
{
echo getHeader();
}
function doAdminFooter()
{
echo getAdminFooter();
}
function getAdminFooter($url, $explanation)
{
global $js_admin_includes, $homeurl;
global $versionnumber, $buildnumber, $setfont, $imagefiles, $clang;
if ($buildnumber != "")
{
$buildtext="Build $buildnumber";
}
else
{
$buildtext="";
}
//If user is not logged in, don't print the version number information in the footer.
$versiontitle=$clang->gT('Version');
if(!isset($_SESSION['loginID']))
{
$versionnumber="";
$buildtext="";
$versiontitle="";
}
$strHTMLFooter = "\n";
$js_admin_includes = array_unique($js_admin_includes);
foreach ($js_admin_includes as $jsinclude)
{
$strHTMLFooter .= "\n";
}
$strHTMLFooter.="\n
Congratulations
