// the name of the javascript variable if it is defined on the current page - often 'answerSGQA' * 'jsName' => // the name of the javascript variable when referenced on different pages - usually 'javaSGQA' * 'readWrite' => // 'Y' for yes, 'N' for no - currently not used * 'hidden' => // 1 if the question attribute 'hidden' is true, otherwise 0 * 'question' => // the text of the question (or sub-question) * 'qid' => // the numeric question id - e.g. the Q part of the SGQA name * 'gid' => // the numeric group id - e.g. the G part of the SGQA name * 'grelevance' => // the group level relevance string * 'relevance' => // the question level relevance string * 'qcode' => // the qcode-style variable name for this question (or sub-question) * 'qseq' => // the 0-based index of the question within the survey * 'gseq' => // the 0-based index of the group within the survey * 'type' => // the single character type code for the question * 'sgqa' => // the SGQA name for the variable * 'ansList' => // ansArray converted to a JavaScript fragment - e.g. ",'answers':{ 'M':'Male','F':'Female'}" * 'ansArray' => // PHP array of answer strings, keyed on the answer code = e.g. array['M']='Male'; * 'scale_id' => // '0' for most answers. '1' for second scale within dual-scale questions * 'rootVarName' => // the root code / name / title for the question, without any sub-question or answer-level suffix. This is from the title column in the questions table * 'subqtext' => // the sub-question text * 'rowdivid' => // the JavaScript ID of the row identifier for a question. This is used to show/hide entire question rows * 'onlynum' => // 1 if only numbers are allowed for this variable. If so, then extra processing is needed to ensure that can use comma as a decimal separator * ); * * Reserved variables (e.g. TOKEN:xxxx) are stored with this structure: * $knownVars[$token] = array( * 'code' => // the static value for the variable * 'type' => // '' * 'jsName_on' => // '' * 'jsName' => // '' * 'readWrite' => // 'N' - since these are always read-only variables * ); * * @var type */ private $knownVars; /** * maps qcode varname to SGQA code * * @example ['gender'] = '38612X10X145' * @var type */ private $qcode2sgqa; /** * variables temporarily set for substitution purposes * * These are typically the LimeReplacement Fields passed in via templatereplace() * Each has the following structure: array( * 'code' => // the static value of the variable * 'jsName_on' => // '' * 'jsName' => // '' * 'readWrite' => // 'N' * ); * * @var type */ private $tempVars; /** * Array of relevance information for each page (gseq), indexed by gseq. * Within a page, it contains a sequential list of the results of each relevance equation processed * array( * 'qid' => // question id -- e.g. 154 * 'gseq' => // 0-based group sequence -- e.g. 2 * 'eqn' => // the raw relevance equation parsed -- e.g. "!is_empty(p2_sex)" * 'result' => // the Boolean result of parsing that equation in the current context -- e.g. 0 * 'numJsVars' => // the number of dynamic JavaScript variables used in that equation -- e.g. 1 * 'relevancejs' => // the actual JavaScript to insert for that relevance equation -- e.g. "LEMif(LEManyNA('p2_sex'),'',( ! LEMempty(LEMval('p2_sex') )))" * 'relevanceVars' => // a pipe-delimited list of JavaScript variables upon which that equation depends -- e.g. "java38612X12X153" * 'jsResultVar' => // the JavaScript variable in which that result will be stored -- e.g. "java38612X12X154" * 'type' => // the single character type of the question -- e.g. 'S' * 'hidden' => // 1 if the question should always be hidden * 'hasErrors' => // 1 if there were parsing errors processing that relevance equation * @var type */ private $pageRelevanceInfo; /** * * @var type */ private $pageTailorInfo; /** * internally set to true (1) for survey.php so get group-specific logging but keep javascript variable namings consistent on the page. * @var type */ private $allOnOnePage=false; /** * survey mode. One of 'survey', 'group', or 'question' * @var string */ private $surveyMode='group'; /** * a set of global survey options passed from LimeSurvey * * For example, array( * 'rooturl' => // URL prefix needed to be able to click on a syntax-highlighted variable name and have it open the needed editting window * 'hyperlinkSyntaxHighlighting' => // true if should be able to click on variables to edit them * 'active' => // 0 for inactive, 1 for active survey * 'allowsave' => // 0 for do not allow save; 1 for allow save * 'anonymized' => // 1 for anonymous * 'assessments' => // 1 for use assessments * 'datestamp' => // 1 for use date stamps * 'ipaddr' => // 1 for capture IP address * 'radix' => // '.' for use period as decimal separator; ',' for use comma as decimal separator * 'savetimings' => // "Y" if should save survey timings * 'startlanguage' => // the starting language -- e.g. 'en' * 'surveyls_dateformat' => // the index of the language specific date format -- e.g. 1 * 'tablename' => // the name of the table storing the survey data, if active -- e.g. lime_survey_38612 * 'target' => // the path for uploading files -- e.g. '/temp/files/' * 'timeadjust' => // the time offset -- e.g. 0 * 'tempdir' => // the temporary directory for uploading files -- e.g. '/temp/' * ); * * @var type */ private $surveyOptions=array(); /** * array of mappings of Question # (qid) to pipe-delimited list of SGQA codes used within it * * @example [150] = "38612X11X150|38612X11X150other" * @var type */ private $qid2code; /** * array of mappings of JavaScript Variable names to Question number (qid) * * @example ['java38612X13X161other'] = '161' * @var type */ private $jsVar2qid; /** * maps name of the variable to the SGQ name (without the A suffix) * * @example ['p1_sex'] = "38612X10X147" * @example ['afDS_sq1_1'] = "26626X37X705sq1#1" * @var type */ private $qcode2sgq; /** * array of mappings of knownVar aliases to the JavaScript variable names. * This maps both the SGQA and qcode alias names to the same 2 dimensional array * * @example ['p1_sex'] = array( * 'jsName' => // the JavaScript variable name used by EM -- e.g. "java38612X11X147" * 'jsPart' => // the JavaScript fragment used in EM's ____ array -- e.g. "'p1_sex':'java38612X11X147'" * ); * @example ['afDS_sq1_1] = array( * 'jsName' => "java26626X37X705sq1#1" * 'jsPart' => "'afDS_sq1_1':'java26626X37X705sq1#1'" * ); * @var type */ private $alias2varName; /** * JavaScript array of mappings of canonical JavaScript variable name to key attributes. * These fragments are used to create the JavaScript varNameAttr array. * * @example ['java38612X11X147'] = "'java38612X11X147':{ 'jsName':'java38612X11X147','jsName_on':'java38612X11X147','sgqa':'38612X11X147','qid':147,'gid':11,'type':'G','default':'','rowdivid':'','onlynum':'','gseq':1,'answers':{ 'M':'Male','F':'Female'}}" * @example ['java26626X37X705sq1#1'] = "'java26626X37X705sq1#1':{ 'jsName':'java26626X37X705sq1#1','jsName_on':'java26626X37X705sq1#1','sgqa':'26626X37X705sq1#1','qid':705,'gid':37,'type':'1','default':'','rowdivid':'26626X37X705sq1','onlynum':'','gseq':1,'answers':{ '0~1':'1|Low','0~2':'2|Medium','0~3':'3|High','1~1':'1|Never','1~2':'2|Sometimes','1~3':'3|Always'}}" * * @var type */ private $varNameAttr; /** * array of enumerated answer lists indexed by qid * These use a tilde syntax to indicate which scale the answer is part of. * * @example ['0~4'] = "4|Child" // this means that code 4 in scale 0 has a coded value of 4 and a display value of 'Child' * @example (for [705]): ['1~2'] = '2|Sometimes' // this means that the second scale for this question uses the coded value of 2 to represent 'Sometimes' * @example // TODO - add example from survey using assessments * * @var type */ private $qans; /** * map of gid to 0-based sequence number of groups * * @example [10] = 0 // means that the first group (gseq=0) has gid=10 * * @var type */ private $groupId2groupSeq; /** * map question # to an incremental count of question order across the whole survey * * @example [157] = 13 // means that that 14th question in the survey has qid=157 * * @var type */ private $questionId2questionSeq; /** * map question # to the group it is within, using an incremental count of group order * * @example [157] = 2 // means that qid 157 is in the 3rd page of questions (gseq = 2) * * @var type */ private $questionId2groupSeq; /** * array of info about each Group, indexed by GroupSeq * * @example [2] = array( * 'qstart' => 9 // the first qseq within that group * 'qend' => 13 //the last qseq within that group * ); * * @var type */ private $groupSeqInfo; /** * tracks which groups have at least one relevant, non-hidden question * * @example [2] = 0 // means that the third group (gseq==2) is currently irrelevant * * @var type */ private $gseq2relevanceStatus; /** * maps question # to the validation equation(s) for that question. * These are grouped by qid then validation type, such as 'value_range', and 'num_answers' * * @example [703] = array( * 'eqn' => array( * 'value_range' = "((is_empty(26626X34X703.NAOK) || 26626X34X703.NAOK >= (0)) and (is_empty(26626X34X703.NAOK) || 26626X34X703.NAOK <= (5)))" * ), * 'tips' => array( * 'value_range' = "Each answer must be between {fixnum(0)} and {fixnum(5)}" * ), * 'subqValidEqns' = array( * [] = array( * 'subqValidSelector' => '' // * 'subqValidEqn' => "(is_empty(26626X34X703.NAOK) || 26626X34X703.NAOK >= (0)) && (is_empty(26626X34X703.NAOK) || 26626X34X703.NAOK <= (5))" * ), * 'sumEqn' => '' // the equation to compute the current sum of the responses * 'sumRemainingEqn' => '' // the equation to how much is left (for the question attribute that lets you specify the exact value of the sum of the answers) * ); * * @var type */ private $qid2validationEqn; /** * keeps relevance in proper sequence so can minimize relevance processing to see what should be see on page and in indexes * Array is indexed on qseq * * @example [3] = array( * 'relevance' => "!is_empty(num)" // the question-level relevance equation * 'grelevance' => "" // the group-level relevance equation * 'qid' => "699" // the question id * 'qseq' => 3 // the 0-index question sequence * 'gseq' => 0 // the 0-index group sequence * 'jsResultVar_on' => 'answer26626X34X699' // the javascript variable holding the input value * 'jsResultVar' => 'java26226X34X699' // the javascript variable (often hidden) holding the value to be submitted * 'type' => 'N' // the one character question type * 'hidden' => 0 // 1 if it should be always_hidden * 'gid' => "34" // group id * 'mandatory' => 'N' // 'Y' if mandatory * 'eqn' => "" // TODO ?? * 'help' => "" // the help text * 'qtext' => "Enter a larger number than {num}" // the question text * 'code' => 'afDS_sq5_1' // the full variable name * 'other' => 'N' // whether the question supports the 'other' option - 'Y' if true * 'rootVarName' => 'afDS' // the root variable name * 'rowdivid' => '2626X37X705sq5' // the javascript id for the row - in this case, the 5th sub-question * 'aid' => 'sq5' // the answer id * 'sqid' => '791' // the sub-question's qid (only populated for some question types) * ); * * @var type */ private $questionSeq2relevance; /** * current Group sequence (0-based index) * @example 1 * @var integer */ private $currentGroupSeq; /** * for Question-by-Question mode, the 0-based index * @example 3 * @var integer */ private $currentQuestionSeq; /** * used in Question-by-Question mode * @var integer */ private $currentQID; /** * set of the current set of questions to be displayed, indexed by QID - at least one must be relevant * * The array has N entries, where N is the number if qids in the Qset. Each has the following contents: * @example [705] = array( * 'info' => array() // this is an exact copy of $questionSeq2relevance[$qseq] -- TODO - remove redundancy * 'relevant' => 1 // 1 if the question is currently relevant * 'hidden' => 0 // 1 if the question is always hidden * 'relEqn' => '' // the relevance equation -- TODO - how different from ['info']['relevance']? * 'sgqa' => // pipe-separated list of SGQA codes for this question -- e.g. "26626X37X705sq1#0|26626X37X705sq1#1|26626X37X705sq2#0|26626X37X705sq2#1|26626X37X705sq3#0|26626X37X705sq3#1|26626X37X705sq4#0|26626X37X705sq4#1|26626X37X705sq5#0|26626X37X705sq5#1" * 'unansweredSQs' => // pipe-separated list of currently unanswered SGQA codes for this question -- e.g. "26626X37X705sq1#0|26626X37X705sq1#1|26626X37X705sq3#0|26626X37X705sq3#1|26626X37X705sq5#0|26626X37X705sq5#1" * 'valid' => 0 // 1 if the current answers pass all of the validation criteria for the question * 'validEqn' => // the auto-generated validation criteria, based upon advanced question attributes -- e.g. "((count(if(count(26626X37X705sq1#0.NAOK,26626X37X705sq1#1.NAOK)==2,1,''), if(count(26626X37X705sq2#0.NAOK,26626X37X705sq2#1.NAOK)==2,1,''), if(count(26626X37X705sq3#0.NAOK,26626X37X705sq3#1.NAOK)==2,1,''), if(count(26626X37X705sq4#0.NAOK,26626X37X705sq4#1.NAOK)==2,1,''), if(count(26626X37X705sq5#0.NAOK,26626X37X705sq5#1.NAOK)==2,1,'')) >= (minSelect)) and (count(if(count(26626X37X705sq1#0.NAOK,26626X37X705sq1#1.NAOK)==2,1,''), if(count(26626X37X705sq2#0.NAOK,26626X37X705sq2#1.NAOK)==2,1,''), if(count(26626X37X705sq3#0.NAOK,26626X37X705sq3#1.NAOK)==2,1,''), if(count(26626X37X705sq4#0.NAOK,26626X37X705sq4#1.NAOK)==2,1,''), if(count(26626X37X705sq5#0.NAOK,26626X37X705sq5#1.NAOK)==2,1,'')) <= (maxSelect)))" * 'prettyValidEqn' => // syntax-highlighted version of validEqn, only showing syntax errors * 'validTip' => // html fragment to insert for the validation tip -- e.g. "
Please select between 1 and 3 answer(s)
" * 'prettyValidTip' => // version of validTip that can be parsed by EM to create dynmamic validation -- e.g. "
Please select between {fixnum(minSelect)} and {fixnum(maxSelect)} answer(s)
" * 'validJS' => // JavaScript fragment that can perform validation. This is the result of parsing validEqn -- e.g. "LEMif(LEManyNA('minSelect', 'maxSelect'),'',(((LEMcount(LEMif(LEMcount(LEMval('26626X37X705sq1#0.NAOK') , LEMval('26626X37X705sq1#1.NAOK') ) == 2, 1, ''), LEMif(LEMcount(LEMval('26626X37X705sq2#0.NAOK') , LEMval('26626X37X705sq2#1.NAOK') ) == 2, 1, ''), LEMif(LEMcount(LEMval('26626X37X705sq3#0.NAOK') , LEMval('26626X37X705sq3#1.NAOK') ) == 2, 1, ''), LEMif(LEMcount(LEMval('26626X37X705sq4#0.NAOK') , LEMval('26626X37X705sq4#1.NAOK') ) == 2, 1, ''), LEMif(LEMcount(LEMval('26626X37X705sq5#0.NAOK') , LEMval('26626X37X705sq5#1.NAOK') ) == 2, 1, '')) >= (LEMval('minSelect') )) && (LEMcount(LEMif(LEMcount(LEMval('26626X37X705sq1#0.NAOK') , LEMval('26626X37X705sq1#1.NAOK') ) == 2, 1, ''), LEMif(LEMcount(LEMval('26626X37X705sq2#0.NAOK') , LEMval('26626X37X705sq2#1.NAOK') ) == 2, 1, ''), LEMif(LEMcount(LEMval('26626X37X705sq3#0.NAOK') , LEMval('26626X37X705sq3#1.NAOK') ) == 2, 1, ''), LEMif(LEMcount(LEMval('26626X37X705sq4#0.NAOK') , LEMval('26626X37X705sq4#1.NAOK') ) == 2, 1, ''), LEMif(LEMcount(LEMval('26626X37X705sq5#0.NAOK') , LEMval('26626X37X705sq5#1.NAOK') ) == 2, 1, '')) <= (LEMval('maxSelect') )))))" * 'invalidSQs' => // current list of subquestions that fail validation criteria -- e.g. "26626X37X705sq1#0|26626X37X705sq1#1|26626X37X705sq2#0|26626X37X705sq2#1|26626X37X705sq3#0|26626X37X705sq3#1|26626X37X705sq4#0|26626X37X705sq4#1|26626X37X705sq5#0|26626X37X705sq5#1" * 'relevantSQs' => // current list of subquestions that are relevant -- e.g. "26626X37X705sq1#0|26626X37X705sq1#1|26626X37X705sq2#0|26626X37X705sq2#1|26626X37X705sq3#0|26626X37X705sq3#1|26626X37X705sq4#0|26626X37X705sq4#1|26626X37X705sq5#0|26626X37X705sq5#1" * 'irrelevantSQs' => // current list of subquestions that are irrelevant -- e.g. "26626X37X705sq2#0|26626X37X705sq2#1|26626X37X705sq4#0|26626X37X705sq4#1" * 'subQrelEqn' => // TODO - ?? * 'mandViolation' => 0 // 1 if the question is mandatory and fails the mandatory criteria * 'anyUnanswered' => 1 // 1 if any parts of the question are unanswered * 'mandTip' => '' // message to display if the question fails mandatory criteria * 'message' => '' // TODO ?? * 'updatedValues' => // array of values that should be updated for this question, as [$sgqa] = $value * 'sumEqn' => '' // * 'sumRemainingEqn' => '' // * ); * * @var type */ private $currentQset=NULL; /** * last result of NavigateForwards, NavigateBackwards, or JumpTo * Array of status information about last movement, whether at question, group, or survey level * * @example = array( * 'finished' => 0 // 1 if the survey has been completed and needs to be finalized * 'message' => '' // any error message that needs to be displayed * 'seq' => 1 // the sequence count, using gseq, or qseq units if in 'group' or 'question' mode, respectively * 'mandViolation' => 0 // whether there was any violation of mandatory constraints in the last movement * 'valid' => 0 // 1 if the last movement passed all validation constraints. 0 if there were any validation errors * 'unansweredSQs' => // pipe-separated list of any sub-questions that were not answered * 'invalidSQs' => // pipe-separated list of any sub-questions that failed validation constraints * ); * * @var type */ private $lastMoveResult=NULL; /** * array of information needed to generate navigation index in question-by-question mode * One entry for each question, indexed by qseq * * @example [4] = array( * 'qid' => "700" // the question id * 'qtext' => 'How old are you?' // the question text * 'qcode' => 'age' // the variable name * 'qhelp' => '' // the help text * 'anyUnanswered' => 0 // 1 if there are any sub-questions answered. Used for index display * 'anyErrors' => 0 // 1 if there are any errors among the sub-questions. Could be used for index display * 'show' => 1 // 1 if there are any relevant, non-hidden sub-questions. Only if so, then display the index entry * 'gseq' => 0 // the group sequence * 'gtext' => // text description for the group * 'gname' => 'G1' // the group title * 'gid' => "34" // the group id * 'mandViolation' => 0 // 1 if the question as a whole fails the mandatory criteria * 'valid' => 1 // 0 if any part of the question fails validation criteria. * ); * * @var type */ private $indexQseq; /** * array of information needed to generate navigation index in group-by-group mode * One entry for each group, indexed by gseq * * @example [0] = array( * 'gtext' => // the description for the group * 'gname' => 'G1' // the group title * 'gid' => '34' // the group id * 'anyUnanswered' => 0 // 1 if any questions within the group are unanswered * 'anyErrors' => 0 // 1 if any of the questions within the group fail either validity or mandatory constraints * 'valid' => 1 // 1 if at least question in the group is relevant and non-hidden * 'mandViolation' => 0 // 1 if at least one relevant, non-hidden question in the group fails mandatory constraints * 'show' => 1 // 1 if there is at least one relevant, non-hidden question within the group * ); * * @var type */ private $indexGseq; /** * array of group sequence number to static info * One entry per group, indexed on gseq * * @example [0] = array( * 'group_order' => 0 // gseq * 'gid' => "34" // group id * 'group_name' => 'G2' // the group title * 'description' => // the description of the group (e.g. gtitle) * 'grelevance' => '' // the group-level relevance * ); * * @var type */ private $gseq2info; /** * the maximum groupSeq reached - this is needed for Index * @var type */ private $maxGroupSeq; /** * mapping of questions to information about their subquestions. * One entry per question, indexed on qid * * @example [702] = array( * 'qid' => 702 // the question id * 'qseq' => 6 // the question sequence * 'gseq' => 0 // the group sequence * 'sgqa' => '26626X34X702' // the root of the SGQA code (reallly just the SGQ) * 'varName' => 'afSrcFilter_sq1' // the full qcode variable name - note, if there are sub-questions, don't use this one. * 'type' => 'M' // the one-letter question type * 'fieldname' => '26626X34X702sq1' // the fieldname (used as JavaScript variable name, and also as database column name * 'rootVarName' => 'afDS' // the root variable name * 'preg' => '/[A-Z]+/' // regular expression validation equation, if any * 'subqs' => array() of sub-questions, where each contains: * 'rowdivid' => '26626X34X702sq1' // the javascript id identifying the question row (so array_filter can hide rows) * 'varName' => 'afSrcFilter_sq1' // the full variable name for the sub-question * 'jsVarName_on' => 'java26626X34X702sq1' // the JavaScript variable name if the variable is defined on the current page * 'jsVarName' => 'java26626X34X702sq1' // the JavaScript variable name to use if the variable is defined on a different page * 'csuffix' => 'sq1' // the SGQ suffix to use for a fieldname * 'sqsuffix' => '_sq1' // the suffix to use for a qcode variable name * ); * * @var type */ private $q2subqInfo; /** * array of advanced question attributes for each question * Indexed by qid; available for all quetions * * @example [784] = array( * 'array_filter_exclude' => 'afSrcFilter' * 'exclude_all_others' => 'sq5' * 'max_answers' => '3' * 'min_answers' => '1' * 'other_replace_text' => '{afSrcFilter_other}' * ); * * @var type */ private $qattr; /** * list of needed sub-question relevance (e.g. array_filter) * Indexed by qid then sgqa; only generated for current group of questions * * @example [708][26626X37X708sq2] = array( * 'qid' => '708' // the question id * 'eqn' => "((26626X34X702sq2 != ''))" // the auto-generated sub-question-level relevance equation * 'prettyPrintEqn' => '' // only generated if there errors - shows syntax highlighting of them * 'result' => 0 // result of processing the sub-question-level relevance equation in the current context * 'numJsVars' => 1 // the number of on-page javascript variables in 'eqn' * 'relevancejs' => // the generated javascript from 'eqn' -- e.g. "LEMif(LEManyNA('26626X34X702sq2'),'',(((LEMval('26626X34X702sq2') != ""))))" * 'relevanceVars' => "java26626X34X702sq2" // the pipe-separated list of on-page javascript variables in 'eqn' * 'rowdivid' => "26626X37X708sq2" // the javascript id of the question row (so can apply array_filter) * 'type' => 'array_filter' // semicolon delimited list of types of subquestion relevance filters applied * 'qtype' => 'A' // the single character question type * 'sgqa' => "26626X37X708" // the SGQ portion of the fieldname * 'hasErrors' => 0 // 1 if there are any parse errors in the sub-question validation equations * ); * * @var type */ private $subQrelInfo=array(); /** * array of Group-level relevance status * Indexed by gseq; only shows groups that have been visited * * @example [1] = array( * 'gseq' => 1 // group sequence * 'eqn' => '' // the group-level relevance * 'result' => 1 // result of processing the group-level relevance * 'numJsVars' => 0 // the number of on-page javascript variables in the group-level relevance equation * 'relevancejs' => '' // the javascript version of the relevance equation * 'relevanceVars' => '' // the pipe-delimited list of on-page javascript variable names used within the group-level relevance equation * 'prettyPrint' => '' // a pretty-print version of the group-level relevance equation, only if there are errors * ); * * @var type */ private $gRelInfo=array(); /** * Array of timing information to debug how long it takes for portions of LEM to run. * Array of timing information (in seconds) for EM to help with debugging * * @example [1] = array( * [0]="LimeExpressionManager::NavigateForwards" * [1]=1.7079849243164 * ); * * @var type */ private $runtimeTimings=array(); /** * True (1) if calling LimeExpressionManager functions between StartSurvey and FinishProcessingPage * Used (mostly deprecated) to detect calls to LEM which happen outside of the normal processing scope * @var Boolean */ private $initialized=false; /** * True (1) if have already processed the relevance equations (so don't need to do it again) * * @var Boolean */ private $processedRelevance=false; /** * Message generated to show debug timing values, if debugLevel includes LEM_DEBUG_TIMING * @var type */ private $debugTimingMsg=''; /** * temporary variable to reduce need to parse same equation multiple times. Used for relevance and validation * Array, indexed on equation, providing the following information: * * @example ['!is_empty(num)'] = array( * 'result' => 1 // result of processing the equation in the current scope * 'prettyPrint' => '' // syntax-highlighted version of equation if there are any errors * 'hasErrors' => 0 // 1 if there are any syntax errors * ); * * @var type */ private $ParseResultCache; /** * array of 2nd scale answer lists for types ':' and ';' -- needed for convenient print of logic file * Indexed on qid; available for all questions * * @example [706] = array( * '1~1' => '1|Never', * '1~2' => '2|Sometimes', * '1~3' => '3|Always' * ); * * @var type */ private $multiflexiAnswers; /** * used to specify whether to generate equations using SGQA codes or qcodes * Default is to convert all qcode naming to sgqa naming when generating javascript, as that provides the greatest backwards compatibility * Excel export of survey structure sets this to false so as to force use of qcode naming * * @var Boolean */ private $sgqaNaming = true; /** * Number of groups in survey (number of possible pages to display) * @var integer */ private $numGroups=0; /** * Numer of questions in survey (counting display-only ones?) * @var integer */ private $numQuestions=0; /** * Linked list of array filters * @var array */ private $qrootVarName2arrayFilter = array(); /** * Array, keyed on qid, to JavaScript and list of variables needed to implement exclude_all_others_auto * @var type */ private $qid2exclusiveAuto = array(); /** * Array of values to be updated * @var type */ private $updatedValues = array(); /** * A private constructor; prevents direct creation of object */ private function __construct() { self::$instance =& $this; $this->em = new ExpressionManager(); if (!isset($_SESSION['LEMlang'])) { $_SESSION['LEMlang'] = 'en'; // so that there is a default } } /** * Ensures there is only one instances of LEM. Note, if switch between surveys, have to clear this cache * @return LimeExpressionManager */ public static function &singleton() { $now = microtime(true); if (isset($_SESSION['LEMdirtyFlag'])) { $c = __CLASS__; self::$instance = new $c; unset($_SESSION['LEMdirtyFlag']); } else if (!isset(self::$instance)) { if (isset($_SESSION['LEMsingleton'])) { self::$instance = unserialize($_SESSION['LEMsingleton']); } else { $c = __CLASS__; self::$instance = new $c; } } else { // does exist, and OK to cache return self::$instance; } // only record duration if have to create new (or unserialize) an instance self::$instance->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); return self::$instance; } /** * Prevent users to clone the instance */ public function __clone() { trigger_error('Clone is not allowed.', E_USER_ERROR); } /** * Tells Expression Manager that something has changed enough that needs to eliminate internal caching */ public static function SetDirtyFlag() { $_SESSION['LEMdirtyFlag'] = true; $_SESSION['LEMforceRefresh'] = true; } /** * Set the SurveyId - really checks whether the survey you're about to work with is new, and if so, clears the LEM cache * @param $sid */ public static function SetSurveyId($sid=NULL) { if (!is_null($sid)) { if (isset($_SESSION['LEMsid']) && $sid != $_SESSION['LEMsid']) { // then trying to use a new survey - so clear the LEM cache $_SESSION['LEMdirtyFlag'] = true; } $_SESSION['LEMsid'] = $sid; } } /** * Sets the language for Expression Manager. If the language has changed, then EM cache must be invalidated and refreshed * @param $lang */ public static function SetEMLanguage($lang=NULL) { if (is_null($lang)) { return; // should never happen } if (!isset($_SESSION['LEMlang'])) { $_SESSION['LEMlang'] = $lang; } if ($_SESSION['LEMlang'] != $lang) { // then changing languages, so clear cache // $_SESSION['LEMdirtyFlag'] = true; $_SESSION['LEMforceRefresh'] = true; } $_SESSION['LEMlang'] = $lang; } /** * Do bulk-update/save of Conditions to Relevance * @param $surveyId - if NULL, processes the entire database, otherwise just the specified survey * @param $qid - if specified, just updates that one question * @return array of query strings */ public static function UpgradeConditionsToRelevance($surveyId=NULL, $qid=NULL) { LimeExpressionManager::SetDirtyFlag(); // set dirty flag even if not conditions, since must have had a DB change // Cheat and upgrade question attributes here too. self::UpgradeQuestionAttributes(true,$surveyId,$qid); $releqns = self::ConvertConditionsToRelevance($surveyId,$qid); $num = count($releqns); if ($num == 0) { return NULL; } $queries = array(); foreach ($releqns as $key=>$value) { $query = "UPDATE ".db_table_name('questions')." SET relevance=".db_quoteall($value)." WHERE qid=".$key; db_execute_assoc($query); $queries[] = $query; } LimeExpressionManager::SetDirtyFlag(); return $queries; } /** * This reverses UpgradeConditionsToRelevance(). It removes Relevance for questions that have Conditions * @param $surveyId * @param $qid */ public static function RevertUpgradeConditionsToRelevance($surveyId=NULL, $qid=NULL) { LimeExpressionManager::SetDirtyFlag(); // set dirty flag even if not conditions, since must have had a DB change $releqns = self::ConvertConditionsToRelevance($surveyId,$qid); $num = count($releqns); if ($num == 0) { return NULL; } foreach ($releqns as $key=>$value) { $query = "UPDATE ".db_table_name('questions')." SET relevance='1' WHERE qid=".$key; db_execute_assoc($query); } return count($releqns); } /** * If $qid is set, returns the relevance equation generated from conditions (or NULL if there are no conditions for that $qid) * If $qid is NULL, returns an array of relevance equations generated from Conditions, keyed on the question ID * @param $surveyId * @param $qid - if passed, only generates relevance equation for that question - otherwise genereates for all questions with conditions * @return array of generated relevance strings, indexed by $qid */ public static function ConvertConditionsToRelevance($surveyId=NULL, $qid=NULL) { $query = LimeExpressionManager::getConditionsForEM($surveyId,$qid); $_qid = -1; $relevanceEqns = array(); $scenarios = array(); $relAndList = array(); $relOrList = array(); foreach($query->GetRows() as $row) { $row['method']=trim($row['method']); //For Postgres if ($row['qid'] != $_qid) { // output the values for prior question is there was one if ($_qid != -1) { if (count($relOrList) > 0) { $relAndList[] = '(' . implode(' or ', $relOrList) . ')'; } if (count($relAndList) > 0) { $scenarios[] = '(' . implode(' and ', $relAndList) . ')'; } $relevanceEqn = implode(' or ', $scenarios); $relevanceEqns[$_qid] = $relevanceEqn; } // clear for next question $_qid = $row['qid']; $_scenario = $row['scenario']; $_cqid = $row['cqid']; $_subqid = -1; $relAndList = array(); $relOrList = array(); $scenarios = array(); $releqn = ''; } if ($row['scenario'] != $_scenario) { if (count($relOrList) > 0) { $relAndList[] = '(' . implode(' or ', $relOrList) . ')'; } $scenarios[] = '(' . implode(' and ', $relAndList) . ')'; $relAndList = array(); $relOrList = array(); $_scenario = $row['scenario']; $_cqid = $row['cqid']; $_subqid = -1; } if ($row['cqid'] != $_cqid) { $relAndList[] = '(' . implode(' or ', $relOrList) . ')'; $relOrList = array(); $_cqid = $row['cqid']; $_subqid = -1; } // fix fieldnames if ($row['type'] == '' && preg_match('/^{.+}$/',$row['cfieldname'])) { $fieldname = substr($row['cfieldname'],1,-1); // {TOKEN:xxxx} $subqid = $fieldname; $value = $row['value']; } else if ($row['type'] == 'M' || $row['type'] == 'P') { if (substr($row['cfieldname'],0,1) == '+') { // if prefixed with +, then a fully resolved name $fieldname = substr($row['cfieldname'],1) . '.NAOK'; $subqid = $fieldname; $value = $row['value']; } else { // else create name by concatenating two parts together $fieldname = $row['cfieldname'] . $row['value'] . '.NAOK'; $subqid = $row['cfieldname']; $value = 'Y'; } } else { $fieldname = $row['cfieldname'] . '.NAOK'; $subqid = $fieldname; $value = $row['value']; } if ($_subqid != -1 && $_subqid != $subqid) { $relAndList[] = '(' . implode(' or ', $relOrList) . ')'; $relOrList = array(); } $_subqid = $subqid; // fix values if (preg_match('/^@\d+X\d+X\d+.*@$/',$value)) { $value = substr($value,1,-1); } else if (preg_match('/^{.+}$/',$value)) { $value = substr($value,1,-1); } else if ($row['method'] == 'RX') { if (!preg_match('#^/.*/$#',$value)) { $value = '"/' . $value . '/"'; // if not surrounded by slashes, add them. } } else { $value = '"' . $value . '"'; } // add equation if ($row['method'] == 'RX') { $relOrList[] = "regexMatch(" . $value . "," . $fieldname . ")"; } else { // Conditions uses ' ' to mean not answered, but internally it is really stored as ''. Fix this if ($value === '" "' || $value == '""') { if ($row['method'] == '==') { $relOrList[] = "is_empty(" . $fieldname . ")"; } else if ($row['method'] == '!=') { $relOrList[] = "!is_empty(" . $fieldname . ")"; } else { $relOrList[] = $fieldname . " " . $row['method'] . " " . $value; } } else { if ($value == '"0"' || !preg_match('/^".+"$/',$value)) { switch ($row['method']) { case '==': case '<': case '<=': case '>=': $relOrList[] = '(!is_empty(' . $fieldname . ') && (' . $fieldname . " " . $row['method'] . " " . $value . '))'; break; case '!=': $relOrList[] = '(is_empty(' . $fieldname . ') || (' . $fieldname . " != " . $value . '))'; break; default: $relOrList[] = $fieldname . " " . $row['method'] . " " . $value; break; } } else { switch ($row['method']) { case '<': case '<=': $relOrList[] = '(!is_empty(' . $fieldname . ') && (' . $fieldname . " " . $row['method'] . " " . $value . '))'; break; default: $relOrList[] = $fieldname . " " . $row['method'] . " " . $value; break; } } } } if ($row['cqid'] == 0 || substr($row['cfieldname'],0,1) == '+') { $_cqid = -1; // forces this statement to be ANDed instead of being part of a cqid OR group } } // output last one if ($_qid != -1) { if (count($relOrList) > 0) { $relAndList[] = '(' . implode(' or ', $relOrList) . ')'; } if (count($relAndList) > 0) { $scenarios[] = '(' . implode(' and ', $relAndList) . ')'; } $relevanceEqn = implode(' or ', $scenarios); $relevanceEqns[$_qid] = $relevanceEqn; } if (is_null($qid)) { return $relevanceEqns; } else { if (isset($relevanceEqns[$qid])) { $result = array(); $result[$qid] = $relevanceEqns[$qid]; return $result; } else { return NULL; } } } /** * Return list of relevance equations generated from conditions * @param $surveyId * @param $qid * @return array of relevance equations, indexed by $qid */ public static function UnitTestConvertConditionsToRelevance($surveyId=NULL, $qid=NULL) { $LEM =& LimeExpressionManager::singleton(); return $LEM->ConvertConditionsToRelevance($surveyId, $qid); } /** * Process all question attributes that apply to EM * (1) Sub-question-level relevance: e.g. array_filter, array_filter_exclude * (2) Validations: e.g. min/max number of answers; min/max/eq sum of answers * @param $onlyThisQseq - only process these attributes for the specified question */ public function _CreateSubQLevelRelevanceAndValidationEqns($onlyThisQseq=NULL) { // $now = microtime(true); $this->subQrelInfo=array(); // reset it each time this is called $subQrels = array(); // array of sub-question-level relevance equations $validationEqn = array(); $validationTips = array(); // array of visible tips for validation criteria, indexed by $qid // Associate these with $qid so that can be nested under appropriate question-level relevance foreach ($this->q2subqInfo as $qinfo) { if (!is_null($onlyThisQseq) && $onlyThisQseq != $qinfo['qseq']) { continue; } else if (!$this->allOnOnePage && $this->currentGroupSeq != $qinfo['gseq']) { continue; // only need subq relevance for current page. } $questionNum = $qinfo['qid']; $type = $qinfo['type']; $hasSubqs = (isset($qinfo['subqs']) && count($qinfo['subqs'] > 0)); $qattr = isset($this->qattr[$questionNum]) ? $this->qattr[$questionNum] : array(); if (isset($qattr['input_boxes']) && $qattr['input_boxes'] == '1') { $input_boxes='1'; } else { $input_boxes=''; } if (isset($qattr['value_range_allows_missing']) && $qattr['value_range_allows_missing'] == '1') { $value_range_allows_missing = true; } else { $value_range_allows_missing = false; } // array_filter // If want to filter question Q2 on Q1, where each have subquestions SQ1-SQ3, this is equivalent to relevance equations of: // relevance for Q2_SQ1 is Q1_SQ1!='' $array_filter = NULL; if (isset($qattr['array_filter']) && trim($qattr['array_filter']) != '') { $array_filter = $qattr['array_filter']; $this->qrootVarName2arrayFilter[$qinfo['rootVarName']]['array_filter'] = $array_filter; } // array_filter_exclude // If want to filter question Q2 on Q1, where each have subquestions SQ1-SQ3, this is equivalent to relevance equations of: // relevance for Q2_SQ1 is Q1_SQ1=='' $array_filter_exclude = NULL; if (isset($qattr['array_filter_exclude']) && trim($qattr['array_filter_exclude']) != '') { $array_filter_exclude = $qattr['array_filter_exclude']; $this->qrootVarName2arrayFilter[$qinfo['rootVarName']]['array_filter_exclude'] = $array_filter_exclude; } // array_filter and array_filter_exclude get processed together if (!is_null($array_filter) || !is_null($array_filter_exclude)) { if ($hasSubqs) { $cascadedAF = array(); $cascadedAFE = array(); list($cascadedAF, $cascadedAFE) = $this->_recursivelyFindAntecdentArrayFilters($qinfo['rootVarName'],array(),array()); $cascadedAF = array_reverse($cascadedAF); $cascadedAFE = array_reverse($cascadedAFE); $subqs = $qinfo['subqs']; if ($type == 'R') { $subqs = array(); foreach ($this->qans[$qinfo['qid']] as $k=>$v) { $_code = explode('~',$k); $subqs[] = array( 'rowdivid'=>$qinfo['sgqa'] . $_code[1], 'sqsuffix'=>'_' . $_code[1], ); } } $last_rowdivid = '--'; foreach ($subqs as $sq) { if ($sq['rowdivid'] == $last_rowdivid) { continue; } $last_rowdivid = $sq['rowdivid']; $af_names = array(); $afe_names = array(); switch ($type) { case '1': //Array (Flexible Labels) dual scale case ':': //ARRAY (Multi Flexi) 1 to 10 case ';': //ARRAY (Multi Flexi) Text case 'A': //ARRAY (5 POINT CHOICE) radio-buttons case 'B': //ARRAY (10 POINT CHOICE) radio-buttons case 'C': //ARRAY (YES/UNCERTAIN/NO) radio-buttons case 'E': //ARRAY (Increase/Same/Decrease) radio-buttons case 'F': //ARRAY (Flexible) - Row Format case 'L': //LIST drop-down/radio-button list case 'M': //Multiple choice checkbox case 'P': //Multiple choice with comments checkbox + text case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT // case 'R': //Ranking // if ($this->sgqaNaming) // { foreach ($cascadedAF as $_caf) { $sgq = ((isset($this->qcode2sgq[$_caf])) ? $this->qcode2sgq[$_caf] : $_caf); $fqid = explode('X',$sgq); if (!isset($fqid[2])) { continue; } $fqid = $fqid[2]; if ($this->q2subqInfo[$fqid]['type'] == 'R') { $rankables = array(); foreach ($this->qans[$fqid] as $k=>$v) { $rankable = explode('~',$k); $rankables[] = '_' . $rankable[1]; } if (array_search($sq['sqsuffix'],$rankables) === false) { continue; } } $fsqs = array(); foreach ($this->q2subqInfo[$fqid]['subqs'] as $fsq) { if ($this->q2subqInfo[$fqid]['type'] == 'R') { // we know the suffix exists $fsqs[] = '(' . $sgq . $fsq['csuffix'] . ".NAOK == '" . substr($sq['sqsuffix'],1) . "')"; } else if ($this->q2subqInfo[$fqid]['type'] == ':' && isset($this->qattr[$fqid]['multiflexible_checkbox']) && $this->qattr[$fqid]['multiflexible_checkbox']=='1') { if ($fsq['sqsuffix'] == $sq['sqsuffix']) { $fsqs[] = $sgq . $fsq['csuffix'] . '.NAOK=="1"'; } } else { if ($fsq['sqsuffix'] == $sq['sqsuffix']) { $fsqs[] = '!is_empty(' . $sgq . $fsq['csuffix'] . '.NAOK)'; } } } if (count($fsqs) > 0) { $af_names[] = '(' . implode(' or ', $fsqs) . ')'; } } foreach ($cascadedAFE as $_cafe) { $sgq = ((isset($this->qcode2sgq[$_cafe])) ? $this->qcode2sgq[$_cafe] : $_cafe); $fqid = explode('X',$sgq); if (!isset($fqid[2])) { continue; } $fqid = $fqid[2]; if ($this->q2subqInfo[$fqid]['type'] == 'R') { $rankables = array(); foreach ($this->qans[$fqid] as $k=>$v) { $rankable = explode('~',$k); $rankables[] = '_' . $rankable[1]; } if (array_search($sq['sqsuffix'],$rankables) === false) { continue; } } $fsqs = array(); foreach ($this->q2subqInfo[$fqid]['subqs'] as $fsq) { if ($this->q2subqInfo[$fqid]['type'] == 'R') { // we know the suffix exists $fsqs[] = '(' . $sgq . $fsq['csuffix'] . ".NAOK != '" . substr($sq['sqsuffix'],1) . "')"; } else if ($this->q2subqInfo[$fqid]['type'] == ':' && isset($this->qattr[$fqid]['multiflexible_checkbox']) && $this->qattr[$fqid]['multiflexible_checkbox']=='1') { if ($fsq['sqsuffix'] == $sq['sqsuffix']) { $fsqs[] = $sgq . $fsq['csuffix'] . '.NAOK!="1"'; } } else { if ($fsq['sqsuffix'] == $sq['sqsuffix']) { $fsqs[] = 'is_empty(' . $sgq . $fsq['csuffix'] . '.NAOK)'; } } } if (count($fsqs) > 0) { $afe_names[] = '(' . implode(' and ', $fsqs) . ')'; } } // } // else // TODO - implement qcode naming for this // { // foreach ($cascadedAF as $_caf) // { // $sgq = $_caf . $sq['sqsuffix']; // if (isset($this->knownVars[$sgq])) // { // $af_names[] = $sgq . '.NAOK'; // } // } // foreach ($cascadedAFE as $_cafe) // { // $sgq = $_cafe . $sq['sqsuffix']; // if (isset($this->knownVars[$sgq])) // { // $afe_names[] = $sgq . '.NAOK'; // } // } // } break; default: break; } $af_names = array_unique($af_names); $afe_names= array_unique($afe_names); if (count($af_names) > 0 || count($afe_names) > 0) { $afs_eqn = ''; if (count($af_names) > 0) { $afs_eqn .= implode(' && ', $af_names); } if (count($afe_names) > 0) { if ($afs_eqn != '') { $afs_eqn .= ' && '; } $afs_eqn .= implode(' && ', $afe_names); } $subQrels[] = array( 'qtype' => $type, 'type' => 'array_filter', 'rowdivid' => $sq['rowdivid'], 'eqn' => '(' . $afs_eqn . ')', 'qid' => $questionNum, 'sgqa' => $qinfo['sgqa'], ); } } } } // code_filter: WZ // This can be skipped, since question types 'W' (list-dropdown-flexible) and 'Z'(list-radio-flexible) are no longer supported // equals_num_value // Validation:= sum(sq1,...,sqN) == value (which could be an expression). if (isset($qattr['equals_num_value']) && trim($qattr['equals_num_value']) != '') { $equals_num_value = $qattr['equals_num_value']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case 'K': //MULTIPLE NUMERICAL QUESTION if ($this->sgqaNaming) { $sq_name = $sq['rowdivid'] . '.NAOK'; } else { $sq_name = $sq['varName'] . '.NAOK'; } break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } // sumEqn and sumRemainingEqn may need to be rounded if using sliders $precision=LEM_DEFAULT_PRECISION; // default is not to round if (isset($qattr['slider_layout']) && $qattr['slider_layout']=='1') { $precision=0; // default is to round to whole numbers if (isset($qattr['slider_accuracy']) && trim($qattr['slider_accuracy'])!='') { $slider_accuracy = $qattr['slider_accuracy']; $_parts = explode('.',$slider_accuracy); if (isset($_parts[1])) { $precision = strlen($_parts[1]); // number of digits after mantissa } } } $sumEqn = 'sum(' . implode(', ', $sq_names) . ')'; $sumRemainingEqn = '(' . $equals_num_value . ' - sum(' . implode(', ', $sq_names) . '))'; $mainEqn = 'sum(' . implode(', ', $sq_names) . ')'; if (!is_null($precision)) { $sumEqn = 'round(' . $sumEqn . ', ' . $precision . ')'; $sumRemainingEqn = 'round(' . $sumRemainingEqn . ', ' . $precision . ')'; $mainEqn = 'round(' . $mainEqn . ', ' . $precision . ')'; } $noanswer_option = ''; if ($value_range_allows_missing) { $noanswer_option = ' || count(' . implode(', ', $sq_names) . ') == 0'; } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'equals_num_value', 'class' => 'sum_range', // Different script for mandatory or non-mandatory question 'eqn' => ($qinfo['mandatory']=='Y')?'(' . $mainEqn . ' == (' . $equals_num_value . '))':'(' . $mainEqn . ' == (' . $equals_num_value . ')' . $noanswer_option . ')', 'qid' => $questionNum, 'sumEqn' => $sumEqn, 'sumRemainingEqn' => $sumRemainingEqn, ); } } } else { $equals_num_value=''; } // exclude_all_others // If any excluded options are true (and relevant), then disable all other input elements for that question if (isset($qattr['exclude_all_others']) && trim($qattr['exclude_all_others']) != '') { $exclusive_options = explode(';',$qattr['exclude_all_others']); if ($hasSubqs) { foreach ($exclusive_options as $exclusive_option) { $exclusive_option = trim($exclusive_option); if ($exclusive_option == '') { continue; } $subqs = $qinfo['subqs']; $sq_names = array(); foreach ($subqs as $sq) { $sq_name = NULL; if ($sq['csuffix'] == $exclusive_option) { continue; // so don't make the excluded option irrelevant } switch ($type) { case ':': //ARRAY (Multi Flexi) 1 to 10 case 'A': //ARRAY (5 POINT CHOICE) radio-buttons case 'B': //ARRAY (10 POINT CHOICE) radio-buttons case 'C': //ARRAY (YES/UNCERTAIN/NO) radio-buttons case 'E': //ARRAY (Increase/Same/Decrease) radio-buttons case 'F': //ARRAY (Flexible) - Row Format case 'M': //Multiple choice checkbox case 'P': //Multiple choice with comments checkbox + text case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT if ($this->sgqaNaming) { $sq_name = $qinfo['sgqa'] . trim($exclusive_option) . '.NAOK'; } else { $sq_name = $qinfo['sgqa'] . trim($exclusive_option) . '.NAOK'; } break; default: break; } if (!is_null($sq_name)) { $subQrels[] = array( 'qtype' => $type, 'type' => 'exclude_all_others', 'rowdivid' => $sq['rowdivid'], 'eqn' => 'is_empty(' . $sq_name . ')', 'qid' => $questionNum, 'sgqa' => $qinfo['sgqa'], ); } } } } } else { $exclusive_option = ''; } // exclude_all_others_auto // if (count(this.relevanceStatus) == count(this)) { set exclusive option value to "Y" and call checkconditions() } // However, note that would need to blank the values, not use relevance, otherwise can't unclick the _auto option without having it re-enable itself if (isset($qattr['exclude_all_others_auto']) && trim($qattr['exclude_all_others_auto']) == '1' && isset($qattr['exclude_all_others']) && trim($qattr['exclude_all_others']) != '' && count(explode(';',trim($qattr['exclude_all_others']))) == 1) { $exclusive_option = trim($qattr['exclude_all_others']); if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case 'M': //Multiple choice checkbox case 'P': //Multiple choice with comments checkbox + text if ($this->sgqaNaming) { $sq_name = substr($sq['jsVarName'],4); } else { $sq_name = $sq['varName']; } break; default: break; } if (!is_null($sq_name)) { if ($sq['csuffix'] == $exclusive_option) { $eoVarName = substr($sq['jsVarName'],4); } else { $sq_names[] = $sq_name; } } } if (count($sq_names) > 0) { $relpart = "sum(" . implode(".relevanceStatus, ", $sq_names) . ".relevanceStatus)"; $checkedpart = "count(" . implode(".NAOK, ", $sq_names) . ".NAOK)"; $eoRelevantAndUnchecked = "(" . $eoVarName . ".relevanceStatus && is_empty(" . $eoVarName . "))"; $eoEqn = "(" . $eoRelevantAndUnchecked . " && (" . $relpart . " == " . $checkedpart . "))"; $this->em->ProcessBooleanExpression($eoEqn, $qinfo['gseq'], $qinfo['qseq']); $relevanceVars = implode('|',$this->em->GetJSVarsUsed()); $relevanceJS = $this->em->GetJavaScriptEquivalentOfExpression(); // Unset all checkboxes and hidden values for this question (irregardless of whether they are array filtered) $eosaJS = "if (" . $relevanceJS . ") {\n"; $eosaJS .=" $('#question" . $questionNum . " [type=checkbox]').attr('checked',false);\n"; $eosaJS .=" $('#java" . $qinfo['sgqa'] . "other').val('');\n"; $eosaJS .=" $('#answer" . $qinfo['sgqa'] . "other').val('');\n"; $eosaJS .=" $('[id^=java" . $qinfo['sgqa'] . "]').val('');\n"; $eosaJS .=" $('#answer" . $eoVarName . "').attr('checked',true);\n"; $eosaJS .=" $('#java" . $eoVarName . "').val('Y');\n"; $eosaJS .=" LEMrel" . $questionNum . "();\n"; $eosaJS .=" relChange" . $questionNum ."=true;\n"; $eosaJS .="}\n"; $this->qid2exclusiveAuto[$questionNum] = array( 'js'=>$eosaJS, 'relevanceVars'=>$relevanceVars, // so that EM knows which variables to declare 'rowdivid'=>$eoVarName, // to ensure that EM creates a hidden relevanceSGQA input for the exclusive option ); } } } // min_answers // Validation:= count(sq1,...,sqN) >= value (which could be an expression). if (isset($qattr['min_answers']) && trim($qattr['min_answers']) != '') { $min_answers = $qattr['min_answers']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case '1': //Array (Flexible Labels) dual scale if (substr($sq['varName'],-1,1) == '0') { if ($this->sgqaNaming) { $base = substr(substr($sq['jsVarName'],4),0,-1); $sq_name = "if(count(" . $base . "0.NAOK," . $base . "1.NAOK)==2,1,'')"; } else { $base = substr($sq['varName'],0,-1); $sq_name = "if(count(" . $base . "0.NAOK," . $base . "1.NAOK)==2,1,'')"; } } break; case ':': //ARRAY (Multi Flexi) 1 to 10 case ';': //ARRAY (Multi Flexi) Text case 'A': //ARRAY (5 POINT CHOICE) radio-buttons case 'B': //ARRAY (10 POINT CHOICE) radio-buttons case 'C': //ARRAY (YES/UNCERTAIN/NO) radio-buttons case 'E': //ARRAY (Increase/Same/Decrease) radio-buttons case 'F': //ARRAY (Flexible) - Row Format case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT case 'M': //Multiple choice checkbox case 'R': //RANKING STYLE if ($this->sgqaNaming) { $sq_name = substr($sq['jsVarName'],4) . '.NAOK'; } else { $sq_name = $sq['varName'] . '.NAOK'; } break; case 'P': //Multiple choice with comments checkbox + text if (!preg_match('/comment$/',$sq['varName'])) { if ($this->sgqaNaming) { $sq_name = $sq['rowdivid'] . '.NAOK'; } else { $sq_name = $sq['rowdivid'] . '.NAOK'; } } break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'min_answers', 'class' => 'num_answers', 'eqn' => 'if(is_empty('.$min_answers.'),1,(count(' . implode(', ', $sq_names) . ') >= (' . $min_answers . ')))', 'qid' => $questionNum, ); } } } else { $min_answers=''; } // max_answers // Validation:= count(sq1,...,sqN) <= value (which could be an expression). if (isset($qattr['max_answers']) && trim($qattr['max_answers']) != '') { $max_answers = $qattr['max_answers']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case '1': //Array (Flexible Labels) dual scale if (substr($sq['varName'],-1,1) == '0') { if ($this->sgqaNaming) { $base = substr(substr($sq['jsVarName'],4),0,-1); $sq_name = "if(count(" . $base . "0.NAOK," . $base . "1.NAOK)==2,1,'')"; } else { $base = substr($sq['varName'],0,-1); $sq_name = "if(count(" . $base . "0.NAOK," . $base . "1.NAOK)==2,1,'')"; } } break; case ':': //ARRAY (Multi Flexi) 1 to 10 case ';': //ARRAY (Multi Flexi) Text case 'A': //ARRAY (5 POINT CHOICE) radio-buttons case 'B': //ARRAY (10 POINT CHOICE) radio-buttons case 'C': //ARRAY (YES/UNCERTAIN/NO) radio-buttons case 'E': //ARRAY (Increase/Same/Decrease) radio-buttons case 'F': //ARRAY (Flexible) - Row Format case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT case 'M': //Multiple choice checkbox case 'R': //RANKING STYLE if ($this->sgqaNaming) { $sq_name = substr($sq['jsVarName'],4) . '.NAOK'; } else { $sq_name = $sq['varName'] . '.NAOK'; } break; case 'P': //Multiple choice with comments checkbox + text if (!preg_match('/comment$/',$sq['varName'])) { if ($this->sgqaNaming) { $sq_name = $sq['rowdivid'] . '.NAOK'; } else { $sq_name = $sq['varName'] . '.NAOK'; } } break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'max_answers', 'class' => 'num_answers', 'eqn' => '(if(is_empty('.$max_answers.'),1,count(' . implode(', ', $sq_names) . ') <= (' . $max_answers . ')))', 'qid' => $questionNum, ); } } } else { $max_answers=''; } // min_num_value_n // Validation:= N >= value (which could be an expression). if (isset($qattr['min_num_value_n']) && trim($qattr['min_num_value_n']) != '') { $min_num_value_n = $qattr['min_num_value_n']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); $subqValidEqns = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case 'K': //MULTIPLE NUMERICAL QUESTION if ($this->sgqaNaming) { if(($qinfo['mandatory']=='Y')){ $sq_name = '('. $sq['rowdivid'] . '.NAOK >= (' . $min_num_value_n . '))'; }else{ $sq_name = '(is_empty(' . $sq['rowdivid'] . '.NAOK) || '. $sq['rowdivid'] . '.NAOK >= (' . $min_num_value_n . '))'; } } else { if(($qinfo['mandatory']=='Y')){ $sq_name = '('. $sq['varName'] . '.NAOK >= (' . $min_num_value_n . '))'; }else{ $sq_name = '(is_empty(' . $sq['varName'] . '.NAOK) || '. $sq['varName'] . '.NAOK >= (' . $min_num_value_n . '))'; } } $subqValidSelector = $sq['jsVarName_on']; break; case 'N': //NUMERICAL QUESTION TYPE if ($this->sgqaNaming) { if(($qinfo['mandatory']=='Y')){ $sq_name = '('. $sq['rowdivid'] . '.NAOK >= (' . $min_num_value_n . '))'; }else{ $sq_name = '(is_empty(' . $sq['rowdivid'] . '.NAOK) || '. $sq['rowdivid'] . '.NAOK >= (' . $min_num_value_n . '))'; } } else { if(($qinfo['mandatory']=='Y')){ $sq_name = '('. $sq['varName'] . '.NAOK >= (' . $min_num_value_n . '))'; }else{ $sq_name = '(is_empty(' . $sq['varName'] . '.NAOK) || '. $sq['varName'] . '.NAOK >= (' . $min_num_value_n . '))'; } } $subqValidSelector = ''; break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; $subqValidEqns[$subqValidSelector] = array( 'subqValidEqn' => $sq_name, 'subqValidSelector' => $subqValidSelector, ); } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'min_num_value_n', 'class' => 'value_range', 'eqn' => implode(' && ', $sq_names), 'qid' => $questionNum, 'subqValidEqns' => $subqValidEqns, ); } } } else { $min_num_value_n=''; } // max_num_value_n // Validation:= N <= value (which could be an expression). if (isset($qattr['max_num_value_n']) && trim($qattr['max_num_value_n']) != '') { $max_num_value_n = $qattr['max_num_value_n']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); $subqValidEqns = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case 'K': //MULTIPLE NUMERICAL QUESTION if ($this->sgqaNaming) { $sq_name = '(is_empty(' . $sq['rowdivid'] . '.NAOK) || '. $sq['rowdivid'] . '.NAOK <= (' . $max_num_value_n . '))'; } else { $sq_name = '(is_empty(' . $sq['varName'] . '.NAOK) || '. $sq['varName'] . '.NAOK <= (' . $max_num_value_n . '))'; } $subqValidSelector = $sq['jsVarName_on']; break; case 'N': //NUMERICAL QUESTION TYPE if ($this->sgqaNaming) { $sq_name = '(is_empty(' . $sq['rowdivid'] . '.NAOK) || '. $sq['rowdivid'] . '.NAOK <= (' . $max_num_value_n . '))'; } else { $sq_name = '(is_empty(' . $sq['varName'] . '.NAOK) || '. $sq['varName'] . '.NAOK <= (' . $max_num_value_n . '))'; } $subqValidSelector = ''; break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; $subqValidEqns[$subqValidSelector] = array( 'subqValidEqn' => $sq_name, 'subqValidSelector' => $subqValidSelector, ); } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'max_num_value_n', 'class' => 'value_range', 'eqn' => implode(' && ', $sq_names), 'qid' => $questionNum, 'subqValidEqns' => $subqValidEqns, ); } } } else { $max_num_value_n=''; } // min_num_value // Validation:= sum(sq1,...,sqN) >= value (which could be an expression). if (isset($qattr['min_num_value']) && trim($qattr['min_num_value']) != '') { $min_num_value = $qattr['min_num_value']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case 'K': //MULTIPLE NUMERICAL QUESTION if ($this->sgqaNaming) { $sq_name = $sq['rowdivid'] . '.NAOK'; } else { $sq_name = $sq['varName'] . '.NAOK'; } break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $sumEqn = 'sum(' . implode(', ', $sq_names) . ')'; $precision = LEM_DEFAULT_PRECISION; if (!is_null($precision)) { $sumEqn = 'round(' . $sumEqn . ', ' . $precision . ')'; } $noanswer_option = ''; if ($value_range_allows_missing) { $noanswer_option = ' || count(' . implode(', ', $sq_names) . ') == 0'; } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'min_num_value', 'class' => 'sum_range', 'eqn' => '(sum(' . implode(', ', $sq_names) . ') >= (' . $min_num_value . ')' . $noanswer_option . ')', 'qid' => $questionNum, 'sumEqn' => $sumEqn, ); } } } else { $min_num_value=''; } // max_num_value // Validation:= sum(sq1,...,sqN) <= value (which could be an expression). if (isset($qattr['max_num_value']) && trim($qattr['max_num_value']) != '') { $max_num_value = $qattr['max_num_value']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case 'K': //MULTIPLE NUMERICAL QUESTION if ($this->sgqaNaming) { $sq_name = $sq['rowdivid'] . '.NAOK'; } else { $sq_name = $sq['varName'] . '.NAOK'; } break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $sumEqn = 'sum(' . implode(', ', $sq_names) . ')'; $precision = LEM_DEFAULT_PRECISION; if (!is_null($precision)) { $sumEqn = 'round(' . $sumEqn . ', ' . $precision . ')'; } $noanswer_option = ''; if ($value_range_allows_missing) { $noanswer_option = ' || count(' . implode(', ', $sq_names) . ') == 0'; } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'max_num_value', 'class' => 'sum_range', 'eqn' => '(sum(' . implode(', ', $sq_names) . ') <= (' . $max_num_value . ')' . $noanswer_option . ')', 'qid' => $questionNum, 'sumEqn' => $sumEqn, ); } } } else { $max_num_value=''; } // multiflexible_min // Validation:= sqN >= value (which could be an expression). if (isset($qattr['multiflexible_min']) && trim($qattr['multiflexible_min']) != '' && $input_boxes=='1') { $multiflexible_min = $qattr['multiflexible_min']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); $subqValidEqns = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case ':': //MULTIPLE NUMERICAL QUESTION if ($this->sgqaNaming) { $sgqa = substr($sq['jsVarName'],4); $sq_name = '(is_empty(' . $sgqa . '.NAOK) || ' . $sgqa . '.NAOK >= (' . $multiflexible_min . '))'; } else { $sq_name = '(is_empty(' . $sq['varName'] . '.NAOK) || ' . $sq['varName'] . '.NAOK >= (' . $multiflexible_min . '))'; } $subqValidSelector = $sq['jsVarName_on']; break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; $subqValidEqns[$subqValidSelector] = array( 'subqValidEqn' => $sq_name, 'subqValidSelector' => $subqValidSelector, ); } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'multiflexible_min', 'class' => 'value_range', 'eqn' => implode(' && ', $sq_names), 'qid' => $questionNum, 'subqValidEqns' => $subqValidEqns, ); } } } else { $multiflexible_min=''; } // multiflexible_max // Validation:= sqN <= value (which could be an expression). if (isset($qattr['multiflexible_max']) && trim($qattr['multiflexible_max']) != '' && $input_boxes=='1') { $multiflexible_max = $qattr['multiflexible_max']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); $subqValidEqns = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case ':': //MULTIPLE NUMERICAL QUESTION if ($this->sgqaNaming) { $sgqa = substr($sq['jsVarName'],4); $sq_name = '(is_empty(' . $sgqa . '.NAOK) || ' . $sgqa . '.NAOK <= (' . $multiflexible_max . '))'; } else { $sq_name = '(is_empty(' . $sq['varName'] . '.NAOK) || ' . $sq['varName'] . '.NAOK <= (' . $multiflexible_max . '))'; } $subqValidSelector = $sq['jsVarName_on']; break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; $subqValidEqns[$subqValidSelector] = array( 'subqValidEqn' => $sq_name, 'subqValidSelector' => $subqValidSelector, ); } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'multiflexible_max', 'class' => 'value_range', 'eqn' => implode(' && ', $sq_names), 'qid' => $questionNum, 'subqValidEqns' => $subqValidEqns, ); } } } else { $multiflexible_max=''; } // min_num_of_files // Validation:= sq_filecount >= value (which could be an expression). if (isset($qattr['min_num_of_files']) && trim($qattr['min_num_of_files']) != '') { $min_num_of_files = $qattr['min_num_of_files']; $eqn=''; $sgqa = $qinfo['sgqa']; switch ($type) { case '|': //List - dropdown $eqn = "(" . $sgqa . "_filecount >= (" . $min_num_of_files . "))"; break; default: break; } if ($eqn != '') { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'min_num_of_files', 'class' => 'num_answers', 'eqn' => $eqn, 'qid' => $questionNum, ); } } else { $min_num_of_files = ''; } // max_num_of_files // Validation:= sq_filecount <= value (which could be an expression). if (isset($qattr['max_num_of_files']) && trim($qattr['max_num_of_files']) != '') { $max_num_of_files = $qattr['max_num_of_files']; $eqn=''; $sgqa = $qinfo['sgqa']; switch ($type) { case '|': //List - dropdown $eqn = "(" . $sgqa . "_filecount <= (" . $max_num_of_files . "))"; break; default: break; } if ($eqn != '') { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'max_num_of_files', 'class' => 'num_answers', 'eqn' => $eqn, 'qid' => $questionNum, ); } } else { $max_num_of_files = ''; } // other_comment_mandatory // Validation:= sqN <= value (which could be an expression). if (isset($qattr['other_comment_mandatory']) && trim($qattr['other_comment_mandatory']) == '1') { $other_comment_mandatory = $qattr['other_comment_mandatory']; $eqn=''; if ($other_comment_mandatory == '1' && $this->questionSeq2relevance[$qinfo['qseq']]['other'] == 'Y') { $sgqa = $qinfo['sgqa']; switch ($type) { case '!': //List - dropdown case 'L': //LIST drop-down/radio-button list $eqn = "(" . $sgqa . ".NAOK!='-oth-' || (" . $sgqa . ".NAOK=='-oth-' && !is_empty(trim(" . $sgqa . "other.NAOK))))"; break; case 'P': //Multiple choice with comments checkbox + text $eqn = "(is_empty(trim(" . $sgqa . "other.NAOK)) || (!is_empty(trim(" . $sgqa . "other.NAOK)) && !is_empty(trim(" . $sgqa . "othercomment.NAOK))))"; break; default: break; } } if ($eqn != '') { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'other_comment_mandatory', 'class' => 'other_comment_mandatory', 'eqn' => $eqn, 'qid' => $questionNum, ); } } else { $other_comment_mandatory = ''; } // show_totals // TODO - create equations for these? // assessment_value // TODO? How does it work? // The assessment value (referenced how?) = count(sq1,...,sqN) * assessment_value // Since there are easy work-arounds to this, skipping it for now // preg - a PHP Regular Expression to validate text input fields if (isset($qinfo['preg']) && !is_null($qinfo['preg'])) { $preg = $qinfo['preg']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); $subqValidEqns = array(); foreach ($subqs as $sq) { $sq_name = NULL; $sgqa = substr($sq['jsVarName'],4); switch ($type) { case 'N': //NUMERICAL QUESTION TYPE case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT case ';': //ARRAY (Multi Flexi) Text case ':': //ARRAY (Multi Flexi) 1 to 10 case 'S': //SHORT FREE TEXT case 'T': //LONG FREE TEXT case 'U': //HUGE FREE TEXT if ($this->sgqaNaming) { $sq_name = '(if(is_empty('.$sgqa.'.NAOK),0,!regexMatch("' . $preg . '", ' . $sgqa . '.NAOK)))'; } else { $sq_name = '(if(is_empty('.$sq['varName'].'.NAOK),0,!regexMatch("' . $preg . '", ' . $sq['varName'] . '.NAOK)))'; } break; default: break; } switch ($type) { case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT case ';': //ARRAY (Multi Flexi) Text case ':': //ARRAY (Multi Flexi) 1 to 10 if ($this->sgqaNaming) { $subqValidEqn = '(is_empty('.$sgqa.'.NAOK) || regexMatch("' . $preg . '", ' . $sgqa . '.NAOK))'; } else { $subqValidEqn = '(is_empty('.$sq['varName'].'.NAOK) || regexMatch("' . $preg . '", ' . $sq['varName'] . '.NAOK))'; } $subqValidSelector = $sq['jsVarName_on']; break; case 'N': //NUMERICAL QUESTION TYPE case 'S': //SHORT FREE TEXT case 'T': //LONG FREE TEXT case 'U': //HUGE FREE TEXT // $subqValidEqn = '(strlen('.$sq['varName'].'.NAOK)==0 || regexMatch("' . $preg . '", ' . $sq['varName'] . '.NAOK))'; // $subqValidSelector = 'question' . $questionNum . ' :input'; break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; if (isset($subqValidSelector)) { $subqValidEqns[$subqValidSelector] = array( 'subqValidEqn' => $subqValidEqn, 'subqValidSelector' => $subqValidSelector, ); } } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'preg', 'class' => 'regex_validation', 'eqn' => '(sum(' . implode(', ', $sq_names) . ') == 0)', 'qid' => $questionNum, 'subqValidEqns' => $subqValidEqns, ); } } } else { $preg=''; } // em_validation_q_tip - a description of the EM validation equation that must be satisfied for the whole question. if (isset($qattr['em_validation_q_tip']) && !is_null($qattr['em_validation_q_tip']) && trim($qattr['em_validation_q_tip']) != '') { $em_validation_q_tip = trim($qattr['em_validation_q_tip']); } else { $em_validation_q_tip = ''; } // em_validation_q - an EM validation equation that must be satisfied for the whole question. Uses 'this' in the equation if (isset($qattr['em_validation_q']) && !is_null($qattr['em_validation_q']) && trim($qattr['em_validation_q']) != '') { $em_validation_q = $qattr['em_validation_q']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case 'A': //ARRAY (5 POINT CHOICE) radio-buttons case 'B': //ARRAY (10 POINT CHOICE) radio-buttons case 'C': //ARRAY (YES/UNCERTAIN/NO) radio-buttons case 'E': //ARRAY (Increase/Same/Decrease) radio-buttons case 'F': //ARRAY (Flexible) - Row Format case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT case ';': //ARRAY (Multi Flexi) Text case ':': //ARRAY (Multi Flexi) 1 to 10 case 'M': //Multiple choice checkbox case 'N': //NUMERICAL QUESTION TYPE case 'P': //Multiple choice with comments checkbox + text case 'R': //RANKING STYLE case 'S': //SHORT FREE TEXT case 'T': //LONG FREE TEXT case 'U': //HUGE FREE TEXT if ($this->sgqaNaming) { $sq_name = '!(' . preg_replace('/\bthis\b/',substr($sq['jsVarName'],4), $em_validation_q) . ')'; } else { $sq_name = '!(' . preg_replace('/\bthis\b/',$sq['varName'], $em_validation_q) . ')'; } break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'em_validation_q', 'class' => 'q_fn_validation', 'eqn' => '(sum(' . implode(', ', array_unique($sq_names)) . ') == 0)', 'qid' => $questionNum, ); } } } else { $em_validation_q=''; } // em_validation_sq_tip - a description of the EM validation equation that must be satisfied for each subquestion. if (isset($qattr['em_validation_sq_tip']) && !is_null($qattr['em_validation_sq_tip']) && trim($qattr['em_validation_sq']) != '') { $em_validation_sq_tip = trim($qattr['em_validation_sq_tip']); } else { $em_validation_sq_tip = ''; } // em_validation_sq - an EM validation equation that must be satisfied for each subquestion. Uses 'this' in the equation if (isset($qattr['em_validation_sq']) && !is_null($qattr['em_validation_sq']) && trim($qattr['em_validation_sq']) != '') { $em_validation_sq = $qattr['em_validation_sq']; if ($hasSubqs) { $subqs = $qinfo['subqs']; $sq_names = array(); $subqValidEqns = array(); foreach ($subqs as $sq) { $sq_name = NULL; switch ($type) { case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT case ';': //ARRAY (Multi Flexi) Text case ':': //ARRAY (Multi Flexi) 1 to 10 case 'N': //NUMERICAL QUESTION TYPE case 'S': //SHORT FREE TEXT case 'T': //LONG FREE TEXT case 'U': //HUGE FREE TEXT if ($this->sgqaNaming) { $sq_name = '!(' . preg_replace('/\bthis\b/',substr($sq['jsVarName'],4), $em_validation_sq) . ')'; } else { $sq_name = '!(' . preg_replace('/\bthis\b/',$sq['varName'], $em_validation_sq) . ')'; } break; default: break; } switch ($type) { case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT case ';': //ARRAY (Multi Flexi) Text case ':': //ARRAY (Multi Flexi) 1 to 10 case 'N': //NUMERICAL QUESTION TYPE case 'S': //SHORT FREE TEXT case 'T': //LONG FREE TEXT case 'U': //HUGE FREE TEXT if ($this->sgqaNaming) { $subqValidEqn = '(' . preg_replace('/\bthis\b/',substr($sq['jsVarName'],4), $em_validation_sq) . ')'; } else { $subqValidEqn = '(' . preg_replace('/\bthis\b/',$sq['varName'], $em_validation_sq) . ')'; } $subqValidSelector = $sq['jsVarName_on']; break; default: break; } if (!is_null($sq_name)) { $sq_names[] = $sq_name; if (isset($subqValidSelector)) { $subqValidEqns[$subqValidSelector] = array( 'subqValidEqn' => $subqValidEqn, 'subqValidSelector' => $subqValidSelector, ); } } } if (count($sq_names) > 0) { if (!isset($validationEqn[$questionNum])) { $validationEqn[$questionNum] = array(); } $validationEqn[$questionNum][] = array( 'qtype' => $type, 'type' => 'em_validation_sq', 'class' => 'sq_fn_validation', 'eqn' => '(sum(' . implode(', ', $sq_names) . ') == 0)', 'qid' => $questionNum, 'subqValidEqns' => $subqValidEqns, ); } } } else { $em_validation_sq=''; } //////////////////////////////////////////// // COMPOSE USER FRIENDLY MIN/MAX MESSAGES // //////////////////////////////////////////// // Put these in the order you with them to appear in messages. $qtips=array(); // min/max answers if ($min_answers!='' || $max_answers!='') { $_minA = (($min_answers == '') ? "''" : $min_answers); $_maxA = (($max_answers == '') ? "''" : $max_answers ); $qtips['num_answers']= "{if((is_empty($_minA) && is_empty($_maxA)),". "'',". "if(is_empty($_maxA),". "if(($_minA)==1,". "'".$this->gT("Please select at least one answer")."',". "sprintf('".$this->gT("Please select at least %s answers")."',fixnum($_minA))". "),". "if(is_empty($_minA),". "if(($_maxA)==1,". "'".$this->gT("Please select at most one answer")."',". "sprintf('".$this->gT("Please select at most %s answers")."',fixnum($_maxA))". "),". "if(($_minA)==($_maxA),". "if(($_minA)==1,". "'".$this->gT("Please select one answer")."',". "sprintf('".$this->gT("Please select %s answers")."',fixnum($_minA))". "),". "sprintf('".$this->gT("Please select between %s and %s answers")."',fixnum($_minA),fixnum($_maxA))". ")". ")". ")". ")}"; } // min/max value for each numeric entry if ($min_num_value_n!='' || $max_num_value_n!='') { $_minV = (($min_num_value_n == '') ? "''" : $min_num_value_n); $_maxV = (($max_num_value_n == '') ? "''" : $max_num_value_n); $qtips['value_range']= "{if((is_empty($_minV) && is_empty($_maxV)),". "'',". "if(is_empty($_maxV),". "sprintf('".$this->gT("Each answer must be at least %s")."',fixnum($_minV)),". "if(is_empty($_minV),". "sprintf('".$this->gT("Each answer must be at most %s")."',fixnum($_maxV)),". "if(($_minV)==($_maxV),". "sprintf('".$this->gT("Each answer must be %s")."',fixnum($_minV)),". "sprintf('".$this->gT("Each answer must be between %s and %s")."',fixnum($_minV),fixnum($_maxV))". ")". ")". ")". ")}"; } // min/max value for each numeric entry - for multi-flexible question type if ($multiflexible_min!='' || $multiflexible_max!='') { $_minV = (($multiflexible_min == '') ? "''" : $multiflexible_min); $_maxV = (($multiflexible_max == '') ? "''" : $multiflexible_max); $qtips['value_range']= "{if((is_empty($_minV) && is_empty($_maxV)),". "'',". "if(is_empty($_maxV),". "sprintf('".$this->gT("Each answer must be at least %s")."',fixnum($_minV)),". "if(is_empty($_minV),". "sprintf('".$this->gT("Each answer must be at most %s")."',fixnum($_maxV)),". "if(($_minV)==($_maxV),". "sprintf('".$this->gT("Each answer must be %s")."',fixnum($_minV)),". "sprintf('".$this->gT("Each answer must be between %s and %s")."',fixnum($_minV),fixnum($_maxV))". ")". ")". ")". ")}"; } // min/max sum value if ($min_num_value!='' || $max_num_value!='') { $_minV = (($min_num_value == '') ? "''" : $min_num_value); $_maxV = (($max_num_value == '') ? "''" : $max_num_value); $qtips['sum_range']= "{if((is_empty($_minV) && is_empty($_maxV)),". "'',". "if(is_empty($_maxV),". "sprintf('".$this->gT("The sum must be at least %s")."',fixnum($_minV)),". "if(is_empty($_minV),". "sprintf('".$this->gT("The sum must be at most %s")."',fixnum($_maxV)),". "if(($_minV)==($_maxV),". "sprintf('".$this->gT("The sum must equal %s")."',fixnum($_minV)),". "sprintf('".$this->gT("The sum must be between %s and %s")."',fixnum($_minV),fixnum($_maxV))". ")". ")". ")". ")}"; } // min/max num files if ($min_num_of_files !='' || $max_num_of_files !='') { $_minA = (($min_num_of_files == '') ? "''" : $min_num_of_files); $_maxA = (($max_num_of_files == '') ? "''" : $max_num_of_files ); // TODO - create em_num_files class so can sepately style num_files vs. num_answers $qtips['num_answers']= "{if((is_empty($_minA) && is_empty($_maxA)),". "'',". "if(is_empty($_maxA),". "if(($_minA)==1,". "'".$this->gT("Please upload at least one file")."',". "sprintf('".$this->gT("Please upload at least %s files")."',fixnum($_minA))". "),". "if(is_empty($_minA),". "if(($_maxA)==1,". "'".$this->gT("Please upload at most one file")."',". "sprintf('".$this->gT("Please upload at most %s files")."',fixnum($_maxA))". "),". "if(($_minA)==($_maxA),". "if(($_minA)==1,". "'".$this->gT("Please upload one file")."',". "sprintf('".$this->gT("Please upload %s files")."',fixnum($_minA))". "),". "sprintf('".$this->gT("Please upload between %s and %s files")."',fixnum($_minA),fixnum($_maxA))". ")". ")". ")". ")}"; } // equals_num_value if ($equals_num_value!='') { $qtips['sum_range']=sprintf($this->gT("The sum must equal %s"),'{fixnum('.$equals_num_value.')}'); } // other comment mandatory if ($other_comment_mandatory!='') { $qtips['other_comment_mandatory']=$this->gT('Please also fill in the "other comment" field.'); } // regular expression validation if ($preg!='') { // do string replacement here so that curly braces within the regular expression don't trigger an EM error // $qtips['regex_validation']=sprintf($this->gT('Each answer must conform to this regular expression: %s'), str_replace(array('{','}'),array('{ ',' }'), $preg)); $qtips['regex_validation']=$this->gT('Please check the format of your answer.'); } if ($em_validation_sq!='') { if ($em_validation_sq_tip =='') { // $stringToParse = htmlspecialchars_decode($em_validation_sq,ENT_QUOTES); // $gseq = $this->questionId2groupSeq[$qinfo['qid']]; // $result = $this->em->ProcessBooleanExpression($stringToParse,$gseq, $qinfo['qseq']); // $_validation_tip = $this->em->GetPrettyPrintString(); // $qtips['sq_fn_validation']=sprintf($this->gT('Each answer must conform to this expression: %s'),$_validation_tip); } else { $qtips['sq_fn_validation']=$em_validation_sq_tip; } } // em_validation_q - whole-question validation equation if ($em_validation_q!='') { if ($em_validation_q_tip =='') { // $stringToParse = htmlspecialchars_decode($em_validation_q,ENT_QUOTES); // $gseq = $this->questionId2groupSeq[$qinfo['qid']]; // $result = $this->em->ProcessBooleanExpression($stringToParse,$gseq, $qinfo['qseq']); // $_validation_tip = $this->em->GetPrettyPrintString(); // $qtips['q_fn_validation']=sprintf($this->gT('The question must conform to this expression: %s'), $_validation_tip); } else { $qtips['q_fn_validation']=$em_validation_q_tip; } } if (count($qtips) > 0) { $validationTips[$questionNum] = $qtips; } } // Consolidate logic across array filters $rowdivids = array(); $order=0; foreach ($subQrels as $sq) { $oldeqn = (isset($rowdivids[$sq['rowdivid']]['eqns']) ? $rowdivids[$sq['rowdivid']]['eqns'] : array()); $oldtype = (isset($rowdivids[$sq['rowdivid']]['type']) ? $rowdivids[$sq['rowdivid']]['type'] : ''); $neweqn = (($sq['type'] == 'exclude_all_others') ? array() : array($sq['eqn'])); $oldeo = (isset($rowdivids[$sq['rowdivid']]['exclusive_options']) ? $rowdivids[$sq['rowdivid']]['exclusive_options'] : array()); $neweo = (($sq['type'] == 'exclude_all_others') ? array($sq['eqn']) : array()); $rowdivids[$sq['rowdivid']] = array( 'order'=>$order++, 'qid'=>$sq['qid'], 'rowdivid'=>$sq['rowdivid'], 'type'=>$sq['type'] . ';' . $oldtype, 'qtype'=>$sq['qtype'], 'sgqa'=>$sq['sgqa'], 'eqns'=>array_merge($oldeqn, $neweqn), 'exclusive_options'=>array_merge($oldeo, $neweo), ); } foreach ($rowdivids as $sq) { $sq['eqn'] = implode(' and ', array_unique(array_merge($sq['eqns'],$sq['exclusive_options']))); // without array_unique, get duplicate of filters for question types 1, :, and ; $eos = array_unique($sq['exclusive_options']); $isExclusive = ''; $irrelevantAndExclusive = ''; if (count($eos) > 0) { $isExclusive = '!(' . implode(' and ', $eos) . ')'; $noneos = array_unique($sq['eqns']); if (count($noneos) > 0) { $irrelevantAndExclusive = '(' . implode(' and ', $noneos) . ') and ' . $isExclusive; } } $this->_ProcessSubQRelevance($sq['eqn'], $sq['qid'], $sq['rowdivid'], $sq['type'], $sq['qtype'], $sq['sgqa'], $isExclusive, $irrelevantAndExclusive); } foreach ($validationEqn as $qid=>$eqns) { $parts = array(); $tips = (isset($validationTips[$qid]) ? $validationTips[$qid] : array()); $subqValidEqns = array(); $sumEqn = ''; $sumRemainingEqn = ''; foreach ($eqns as $v) { if (!isset($parts[$v['class']])) { $parts[$v['class']] = array(); } $parts[$v['class']][] = $v['eqn']; // even if there are min/max/preg, the count or total will always be the same $sumEqn = (isset($v['sumEqn'])) ? $v['sumEqn'] : $sumEqn; $sumRemainingEqn = (isset($v['sumRemainingEqn'])) ? $v['sumRemainingEqn'] : $sumRemainingEqn; if (isset($v['subqValidEqns'])) { $subqValidEqns[] = $v['subqValidEqns']; } } // combine the sub-question level validation equations into a single validation equation per sub-question $subqValidComposite = array(); foreach ($subqValidEqns as $sqs) { foreach ($sqs as $sq) { if (!isset($subqValidComposite[$sq['subqValidSelector']])) { $subqValidComposite[$sq['subqValidSelector']] = array( 'subqValidSelector' => $sq['subqValidSelector'], 'subqValidEqns' => array(), ); } $subqValidComposite[$sq['subqValidSelector']]['subqValidEqns'][] = $sq['subqValidEqn']; } } $csubqValidEqns = array(); foreach ($subqValidComposite as $csq) { $csubqValidEqns[$csq['subqValidSelector']] = array( 'subqValidSelector' => $csq['subqValidSelector'], 'subqValidEqn' => implode(' && ', $csq['subqValidEqns']), ); } // now combine all classes of validation equations $veqns = array(); foreach ($parts as $vclass=>$eqns) { $veqns[$vclass] = '(' . implode(' and ', $eqns) . ')'; } $this->qid2validationEqn[$qid] = array( 'eqn' => $veqns, 'tips' => $tips, 'subqValidEqns' => $csubqValidEqns, 'sumEqn' => $sumEqn, 'sumRemainingEqn' => $sumRemainingEqn, ); } // $this->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); } /** * Recursively find all questions that logically preceded the current array_filter or array_filter_exclude request * Note, must support: * (a) semicolon-separated list of $qroot codes for either array_filter or array_filter_exclude * (b) mixed history of array_filter and array_filter_exclude values * @param type $qroot - the question root variable name * @param type $aflist - the list of array_filter $qroot codes * @param type $afelist - the list of array_filter_exclude $qroot codes * @return type */ private function _recursivelyFindAntecdentArrayFilters($qroot, $aflist, $afelist) { if (isset($this->qrootVarName2arrayFilter[$qroot])) { if (isset($this->qrootVarName2arrayFilter[$qroot]['array_filter'])) { $_afs = explode(';',$this->qrootVarName2arrayFilter[$qroot]['array_filter']); foreach ($_afs as $_af) { if (in_array($_af,$aflist)) { continue; } $aflist[] = $_af; list($aflist, $afelist) = $this->_recursivelyFindAntecdentArrayFilters($_af, $aflist, $afelist); } } if (isset($this->qrootVarName2arrayFilter[$qroot]['array_filter_exclude'])) { $_afes = explode(';',$this->qrootVarName2arrayFilter[$qroot]['array_filter_exclude']); foreach ($_afes as $_afe) { if (in_array($_afe,$afelist)) { continue; } $afelist[] = $_afe; list($aflist, $afelist) = $this->_recursivelyFindAntecdentArrayFilters($_afe, $aflist, $afelist); } } } return array($aflist, $afelist); } /** * Create the arrays needed by ExpressionManager to process LimeSurvey strings. * The long part of this function should only be called once per page display (e.g. only if $fieldMap changes) * * @param $surveyid * @param $forceRefresh * @param $anonymized * @param $allOnOnePage - if true (like for survey_format), uses certain optimizations * @return boolean - true if $fieldmap had been re-created, so ExpressionManager variables need to be re-set */ private function setVariableAndTokenMappingsForExpressionManager($surveyid,$forceRefresh=false,$anonymized=false,$allOnOnePage=false) { if (isset($_SESSION['LEMforceRefresh'])) { unset($_SESSION['LEMforceRefresh']); $forceRefresh=true; } else if (!$forceRefresh && isset($this->knownVars)) { return false; // means that those variables have been cached and no changes needed } $now = microtime(true); $this->em->SetSurveyMode($this->surveyMode); // TODO - do I need to force refresh, or trust that createFieldMap will cache langauges properly? $fieldmap=createFieldMap($surveyid,$style='full',$forceRefresh,false,$_SESSION['LEMlang']); $this->sid= $surveyid; $this->runtimeTimings[] = array(__METHOD__ . '.createFieldMap',(microtime(true) - $now)); // LimeExpressionManager::ShowStackTrace(); $now = microtime(true); if (!isset($fieldmap)) { return false; // implies an error occurred } $this->knownVars = array(); // mapping of VarName to Value $this->qcode2sgqa = array(); $this->tempVars = array(); $this->qid2code = array(); // List of codes for each question - needed to know which to NULL if a question is irrelevant $this->jsVar2qid = array(); $this->qcode2sgq = array(); $this->alias2varName = array(); $this->varNameAttr = array(); $this->questionId2questionSeq = array(); $this->questionId2groupSeq = array(); $this->questionSeq2relevance = array(); $this->groupId2groupSeq = array(); $this->qid2validationEqn = array(); $this->groupSeqInfo = array(); $this->gseq2relevanceStatus = array(); // Since building array of allowable answers, need to know preset values for certain question types $presets = array(); $presets['G'] = array( //GENDER drop-down list 'M' => $this->gT("Male"), 'F' => $this->gT("Female"), ); $presets['Y'] = array( //YES/NO radio-buttons 'Y' => $this->gT("Yes"), 'N' => $this->gT("No"), ); $presets['C'] = array( //ARRAY (YES/UNCERTAIN/NO) radio-buttons 'Y' => $this->gT("Yes"), 'N' => $this->gT("No"), 'U' => $this->gT("Uncertain"), ); $presets['E'] = array( //ARRAY (Increase/Same/Decrease) radio-buttons 'I' => $this->gT("Increase"), 'S' => $this->gT("Same"), 'D' => $this->gT("Decrease"), ); $this->gseq2info = $this->getGroupInfoForEM($surveyid,$_SESSION['LEMlang']); for ($i=0;$igseq2info);++$i) { $gseq = $this->gseq2info[$i]; $this->groupId2groupSeq[$gseq['gid']] = $i; // Only used for preview group } $qattr = $this->getQuestionAttributesForEM($surveyid,NULL,$_SESSION['LEMlang']); $this->qattr = $qattr; $this->runtimeTimings[] = array(__METHOD__ . ' - question_attributes_model->getQuestionAttributesForEM',(microtime(true) - $now)); $now = microtime(true); $this->qans = $this->getAnswerSetsForEM($surveyid,NULL,$_SESSION['LEMlang']); $this->runtimeTimings[] = array(__METHOD__ . ' - answers_model->getAnswerSetsForEM',(microtime(true) - $now)); $now = microtime(true); $q2subqInfo = array(); $this->multiflexiAnswers=array(); foreach($fieldmap as $fielddata) { if (!isset($fielddata['fieldname']) || !preg_match('#^\d+X\d+X\d+#',$fielddata['fieldname'])) { continue; // not an SGQA value } $sgqa = $fielddata['fieldname']; $type = $fielddata['type']; $mandatory = $fielddata['mandatory']; $fieldNameParts = explode('X',$sgqa); $groupNum = $fieldNameParts[1]; $aid = (isset($fielddata['aid']) ? $fielddata['aid'] : ''); $sqid = (isset($fielddata['sqid']) ? $fielddata['sqid'] : ''); $questionId = $fieldNameParts[2]; $questionNum = $fielddata['qid']; $relevance = (isset($fielddata['relevance'])) ? $fielddata['relevance'] : 1; $grelevance = (isset($fielddata['grelevance'])) ? $fielddata['grelevance'] : 1; $hidden = (isset($qattr[$questionNum]['hidden'])) ? ($qattr[$questionNum]['hidden'] == '1') : false; $scale_id = (isset($fielddata['scale_id'])) ? $fielddata['scale_id'] : '0'; $preg = (isset($fielddata['preg'])) ? $fielddata['preg'] : NULL; // a perl regular exrpession validation function $defaultValue = (isset($fielddata['defaultvalue']) ? $fielddata['defaultvalue'] : NULL); if (trim($preg) == '') { $preg = NULL; } $help = (isset($fielddata['help'])) ? $fielddata['help']: ''; $other = (isset($fielddata['other'])) ? $fielddata['other'] : ''; if (isset($this->questionId2groupSeq[$questionNum])) { $groupSeq = $this->questionId2groupSeq[$questionNum]; } else { $groupSeq = (isset($fielddata['groupSeq'])) ? $fielddata['groupSeq'] : -1; $this->questionId2groupSeq[$questionNum] = $groupSeq; } if (isset($this->questionId2questionSeq[$questionNum])) { $questionSeq = $this->questionId2questionSeq[$questionNum]; } else { $questionSeq = (isset($fielddata['questionSeq'])) ? $fielddata['questionSeq'] : -1; $this->questionId2questionSeq[$questionNum] = $questionSeq; } if (!isset($this->groupSeqInfo[$groupSeq])) { $this->groupSeqInfo[$groupSeq] = array( 'qstart' => $questionSeq, 'qend' => $questionSeq, ); } else { $this->groupSeqInfo[$groupSeq]['qend'] = $questionSeq; // with each question, update so know ending value } // Create list of codes associated with each question $codeList = (isset($this->qid2code[$questionNum]) ? $this->qid2code[$questionNum] : ''); if ($codeList == '') { $codeList = $sgqa; } else { $codeList .= '|' . $sgqa; } $this->qid2code[$questionNum] = $codeList; $readWrite = 'Y'; // Set $ansArray switch($type) { case '!': //List - dropdown case 'L': //LIST drop-down/radio-button list case 'O': //LIST WITH COMMENT drop-down/radio-button list + textarea case '1': //Array (Flexible Labels) dual scale // need scale case 'H': //ARRAY (Flexible) - Column Format case 'F': //ARRAY (Flexible) - Row Format case 'R': //RANKING STYLE $ansArray = (isset($this->qans[$questionNum]) ? $this->qans[$questionNum] : NULL); if ($other == 'Y' && ($type == 'L' || $type == '!')) { if (preg_match('/other$/',$sgqa)) { $ansArray = NULL; // since the other variable doesn't need it } else { $_qattr = isset($qattr[$questionNum]) ? $qattr[$questionNum] : array(); if (isset($_qattr['other_replace_text']) && trim($_qattr['other_replace_text']) != '') { $othertext = trim($_qattr['other_replace_text']); } else { $othertext = $this->gT('Other:'); } $ansArray['0~-oth-'] = '0|' . $othertext; } } break; case 'A': //ARRAY (5 POINT CHOICE) radio-buttons case 'B': //ARRAY (10 POINT CHOICE) radio-buttons case ':': //ARRAY (Multi Flexi) 1 to 10 case '5': //5 POINT CHOICE radio-buttons $ansArray=NULL; break; case 'N': //NUMERICAL QUESTION TYPE case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT case ';': //ARRAY (Multi Flexi) Text case 'S': //SHORT FREE TEXT case 'T': //LONG FREE TEXT case 'U': //HUGE FREE TEXT case 'M': //Multiple choice checkbox case 'P': //Multiple choice with comments checkbox + text case 'D': //DATE case '*': //Equation case 'I': //Language Question case '|': //File Upload case 'X': //BOILERPLATE QUESTION $ansArray = NULL; break; case 'G': //GENDER drop-down list case 'Y': //YES/NO radio-buttons case 'C': //ARRAY (YES/UNCERTAIN/NO) radio-buttons case 'E': //ARRAY (Increase/Same/Decrease) radio-buttons $ansArray = $presets[$type]; break; } // set $subqtext text - for display of primary sub-question $subqtext = ''; switch ($type) { default: $subqtext = (isset($fielddata['subquestion']) ? $fielddata['subquestion'] : ''); break; case ':': //ARRAY (Multi Flexi) 1 to 10 case ';': //ARRAY (Multi Flexi) Text $subqtext = (isset($fielddata['subquestion1']) ? $fielddata['subquestion1'] : ''); $ansList = array(); if (isset($fielddata['answerList'])) { foreach ($fielddata['answerList'] as $ans) { $ansList['1~' . $ans['code']] = $ans['code'] . '|' . $ans['answer']; } $this->multiflexiAnswers[$questionNum] = $ansList; } break; } // Set $varName (question code / questions.title), $rowdivid, $csuffix, $sqsuffix, and $question $rowdivid=NULL; // so that blank for types not needing it. $sqsuffix=''; switch($type) { case '!': //List - dropdown case '5': //5 POINT CHOICE radio-buttons case 'D': //DATE case 'G': //GENDER drop-down list case 'I': //Language Question case 'L': //LIST drop-down/radio-button list case 'N': //NUMERICAL QUESTION TYPE case 'O': //LIST WITH COMMENT drop-down/radio-button list + textarea case 'S': //SHORT FREE TEXT case 'T': //LONG FREE TEXT case 'U': //HUGE FREE TEXT case 'X': //BOILERPLATE QUESTION case 'Y': //YES/NO radio-buttons case '|': //File Upload case '*': //Equation $csuffix = ''; $sqsuffix = ''; $varName = $fielddata['title']; if ($fielddata['aid'] != '') { $varName .= '_' . $fielddata['aid']; } $question = $fielddata['question']; break; case '1': //Array (Flexible Labels) dual scale $csuffix = $fielddata['aid'] . '#' . $fielddata['scale_id']; $sqsuffix = '_' . $fielddata['aid']; $varName = $fielddata['title'] . '_' . $fielddata['aid'] . '_' . $fielddata['scale_id'];; $question = $fielddata['subquestion'] . '[' . $fielddata['scale'] . ']'; // $question = $fielddata['question'] . ': ' . $fielddata['subquestion'] . '[' . $fielddata['scale'] . ']'; $rowdivid = substr($sgqa,0,-2); break; case 'A': //ARRAY (5 POINT CHOICE) radio-buttons case 'B': //ARRAY (10 POINT CHOICE) radio-buttons case 'C': //ARRAY (YES/UNCERTAIN/NO) radio-buttons case 'E': //ARRAY (Increase/Same/Decrease) radio-buttons case 'F': //ARRAY (Flexible) - Row Format case 'H': //ARRAY (Flexible) - Column Format // note does not have javatbd equivalent - so array filters don't work on it case 'K': //MULTIPLE NUMERICAL QUESTION // note does not have javatbd equivalent - so array filters don't work on it, but need rowdivid to process validations case 'M': //Multiple choice checkbox case 'P': //Multiple choice with comments checkbox + text case 'Q': //MULTIPLE SHORT TEXT // note does not have javatbd equivalent - so array filters don't work on it case 'R': //RANKING STYLE // note does not have javatbd equivalent - so array filters don't work on it $csuffix = $fielddata['aid']; $varName = $fielddata['title'] . '_' . $fielddata['aid']; $question = $fielddata['subquestion']; // $question = $fielddata['question'] . ': ' . $fielddata['subquestion']; if ($type != 'H') { if ($type == 'P' && preg_match("/comment$/", $sgqa)) { // $rowdivid = substr($sgqa,0,-7); } else { $sqsuffix = '_' . $fielddata['aid']; $rowdivid = $sgqa; } } break; case ':': //ARRAY (Multi Flexi) 1 to 10 case ';': //ARRAY (Multi Flexi) Text $csuffix = $fielddata['aid']; $sqsuffix = '_' . substr($fielddata['aid'],0,strpos($fielddata['aid'],'_')); $varName = $fielddata['title'] . '_' . $fielddata['aid']; $question = $fielddata['subquestion1'] . '[' . $fielddata['subquestion2'] . ']'; // $question = $fielddata['question'] . ': ' . $fielddata['subquestion1'] . '[' . $fielddata['subquestion2'] . ']'; $rowdivid = substr($sgqa,0,strpos($sgqa,'_')); break; } // $onlynum $onlynum=false; // the default switch($type) { case 'K': //MULTIPLE NUMERICAL QUESTION case 'N': //NUMERICAL QUESTION TYPE case ':': //ARRAY (Multi Flexi) 1 to 10 $onlynum=true; break; case '*': // Equation case ';': //ARRAY (Multi Flexi) Text case 'Q': //MULTIPLE SHORT TEXT case 'S': //SHORT FREE TEXT if (isset($qattr[$questionNum]['numbers_only']) && $qattr[$questionNum]['numbers_only']=='1') { $onlynum=true; } break; case 'L': //LIST drop-down/radio-button list case 'M': //Multiple choice checkbox case 'P': //Multiple choice with comments checkbox + text if (isset($qattr[$questionNum]['other_numbers_only']) && $qattr[$questionNum]['other_numbers_only']=='1' && preg_match('/other$/',$sgqa)) { $onlynum=true; } break; default: break; } // Set $jsVarName_on (for on-page variables - e.g. answerSGQA) and $jsVarName (for off-page variables; the primary name - e.g. javaSGQA) switch($type) { case 'R': //RANKING STYLE $jsVarName_on = 'fvalue_' . $fieldNameParts[2]; $jsVarName = 'java' . $sgqa; break; case 'D': //DATE case 'N': //NUMERICAL QUESTION TYPE case 'S': //SHORT FREE TEXT case 'T': //LONG FREE TEXT case 'U': //HUGE FREE TEXT case 'Q': //MULTIPLE SHORT TEXT case 'K': //MULTIPLE NUMERICAL QUESTION case 'X': //BOILERPLATE QUESTION $jsVarName_on = 'answer' . $sgqa; $jsVarName = 'java' . $sgqa; break; case '!': //List - dropdown if (preg_match("/other$/",$sgqa)) { $jsVarName = 'java' . $sgqa; $jsVarName_on = 'othertext' . substr($sgqa,0,-5); } else { $jsVarName = 'java' . $sgqa; $jsVarName_on = $jsVarName; } break; case 'L': //LIST drop-down/radio-button list if (preg_match("/other$/",$sgqa)) { $jsVarName = 'java' . $sgqa; $jsVarName_on = 'answer' . $sgqa . "text"; } else { $jsVarName = 'java' . $sgqa; $jsVarName_on = $jsVarName; } break; case '5': //5 POINT CHOICE radio-buttons case 'G': //GENDER drop-down list case 'I': //Language Question case 'Y': //YES/NO radio-buttons case '*': //Equation case '1': //Array (Flexible Labels) dual scale case 'A': //ARRAY (5 POINT CHOICE) radio-buttons case 'B': //ARRAY (10 POINT CHOICE) radio-buttons case 'C': //ARRAY (YES/UNCERTAIN/NO) radio-buttons case 'E': //ARRAY (Increase/Same/Decrease) radio-buttons case 'F': //ARRAY (Flexible) - Row Format case 'H': //ARRAY (Flexible) - Column Format case 'M': //Multiple choice checkbox case 'O': //LIST WITH COMMENT drop-down/radio-button list + textarea if ($type == 'O' && preg_match('/_comment$/', $varName)) { $jsVarName_on = 'answer' . $sgqa; } else { $jsVarName_on = 'java' . $sgqa; } $jsVarName = 'java' . $sgqa; break; case ':': //ARRAY (Multi Flexi) 1 to 10 case ';': //ARRAY (Multi Flexi) Text $jsVarName = 'java' . $sgqa; $jsVarName_on = 'answer' . $sgqa;; break; case '|': //File Upload // Only want the use the one that ends in '_filecount' // $goodcode = preg_replace("/^(.*?)(_filecount)?$/","$1",$sgqa); // $jsVarName = $goodcode . '_filecount'; $jsVarName = $sgqa; $jsVarName_on = $jsVarName; break; case 'P': //Multiple choice with comments checkbox + text if (preg_match("/(other|comment)$/",$sgqa)) { $jsVarName_on = 'answer' . $sgqa; // is this true for survey.php and not for group.php? $jsVarName = 'java' . $sgqa; } else { $jsVarName = 'java' . $sgqa; $jsVarName_on = $jsVarName; } break; } if (!is_null($rowdivid) || $type == 'L' || $type == 'N' || $type == '!' || !is_null($preg) || $type == 'S' || $type == 'T' || $type == 'U' || $type == '|') { if (!isset($q2subqInfo[$questionNum])) { $q2subqInfo[$questionNum] = array( 'qid' => $questionNum, 'qseq' => $questionSeq, 'gseq' => $groupSeq, 'sgqa' => $surveyid . 'X' . $groupNum . 'X' . $questionNum, 'mandatory'=>$mandatory, 'varName' => $varName, 'type' => $type, 'fieldname' => $sgqa, 'preg' => $preg, 'rootVarName' => $fielddata['title'], ); } if (!isset($q2subqInfo[$questionNum]['subqs'])) { $q2subqInfo[$questionNum]['subqs'] = array(); } if ($type == 'L' || $type == '!') { if (!is_null($ansArray)) { foreach (array_keys($ansArray) as $key) { $parts = explode('~',$key); if ($parts[1] == '-oth-') { $parts[1] = 'other'; } $q2subqInfo[$questionNum]['subqs'][] = array( 'rowdivid' => $surveyid . 'X' . $groupNum . 'X' . $questionNum . $parts[1], 'varName' => $varName, 'sqsuffix' => '_' . $parts[1], ); } } } else if ($type == 'N' || $type == 'S' || $type == 'T' || $type == 'U') // for $preg { $q2subqInfo[$questionNum]['subqs'][] = array( 'varName' => $varName, 'rowdivid' => $surveyid . 'X' . $groupNum . 'X' . $questionNum, 'jsVarName' => 'java' . $surveyid . 'X' . $groupNum . 'X' . $questionNum, 'jsVarName_on' => $jsVarName_on, ); } else { $q2subqInfo[$questionNum]['subqs'][] = array( 'rowdivid' => $rowdivid, 'varName' => $varName, 'jsVarName_on' => $jsVarName_on, 'jsVarName' => $jsVarName, 'csuffix' => $csuffix, 'sqsuffix' => $sqsuffix, ); } } $ansList = ''; if (isset($ansArray) && !is_null($ansArray)) { $answers = array(); foreach ($ansArray as $key => $value) { $answers[] = "'" . $key . "':'" . htmlspecialchars(preg_replace('/[[:space:]]/',' ',$value),ENT_QUOTES) . "'"; } $ansList = ",'answers':{ " . implode(",",$answers) . "}"; } // Set mappings of variable names to needed attributes $varInfo_Code = array( 'jsName_on'=>$jsVarName_on, 'jsName'=>$jsVarName, 'readWrite'=>$readWrite, 'hidden'=>$hidden, 'question'=>$question, 'qid'=>$questionNum, 'gid'=>$groupNum, 'grelevance'=>$grelevance, 'relevance'=>$relevance, 'qcode'=>$varName, 'qseq'=>$questionSeq, 'gseq'=>$groupSeq, 'type'=>$type, 'sgqa'=>$sgqa, 'ansList'=>$ansList, 'ansArray'=>$ansArray, 'scale_id'=>$scale_id, 'default'=>$defaultValue, 'rootVarName'=>$fielddata['title'], 'subqtext'=>$subqtext, 'rowdivid'=>(is_null($rowdivid) ? '' : $rowdivid), 'onlynum'=>$onlynum, ); $this->questionSeq2relevance[$questionSeq] = array( 'relevance'=>$relevance, 'grelevance'=>$grelevance, 'qid'=>$questionNum, 'qseq'=>$questionSeq, 'gseq'=>$groupSeq, 'jsResultVar_on'=>$jsVarName_on, 'jsResultVar'=>$jsVarName, 'type'=>$type, 'hidden'=>$hidden, 'gid'=>$groupNum, 'mandatory'=>$mandatory, 'eqn'=>(($type == '*') ? $question : ''), 'help'=>$help, 'qtext'=>$fielddata['question'], // $question, 'code'=>$varName, 'other'=>$other, 'default'=>$defaultValue, 'rootVarName'=>$fielddata['title'], 'rowdivid'=>(is_null($rowdivid) ? '' : $rowdivid), 'aid'=>$aid, 'sqid'=>$sqid, ); $this->knownVars[$sgqa] = $varInfo_Code; $this->qcode2sgqa[$varName]=$sgqa; $this->jsVar2qid[$jsVarName] = $questionNum; $this->qcode2sgq[$fielddata['title']] = $surveyid . 'X' . $groupNum . 'X' . $questionNum; // Create JavaScript arrays $this->alias2varName[$varName] = array('jsName'=>$jsVarName, 'jsPart' => "'" . $varName . "':'" . $jsVarName . "'"); $this->alias2varName[$sgqa] = array('jsName'=>$jsVarName, 'jsPart' => "'" . $sgqa . "':'" . $jsVarName . "'"); $this->varNameAttr[$jsVarName] = "'" . $jsVarName . "':{ " . "'jsName':'" . $jsVarName . "','jsName_on':'" . $jsVarName_on . "','sgqa':'" . $sgqa . "','qid':" . $questionNum . ",'gid':" . $groupNum // . ",'mandatory':'" . $mandatory // . "','question':'" . htmlspecialchars(preg_replace('/[[:space:]]/',' ',$question),ENT_QUOTES) . ",'type':'" . $type // . "','relevance':'" . (($relevance != '') ? htmlspecialchars(preg_replace('/[[:space:]]/',' ',$relevance),ENT_QUOTES) : 1) // . "','readWrite':'" . $readWrite // . "','grelevance':'" . (($grelevance != '') ? htmlspecialchars(preg_replace('/[[:space:]]/',' ',$grelevance),ENT_QUOTES) : 1) . "','default':'" . (is_null($defaultValue) ? '' : $defaultValue) . "','rowdivid':'" . (is_null($rowdivid) ? '' : $rowdivid) . "','onlynum':'" . ($onlynum ? '1' : '') . "','gseq':" . $groupSeq // . ",'qseq':" . $questionSeq .$ansList; if ($type == 'M' || $type == 'P') { $this->varNameAttr[$jsVarName] .= ",'question':'" . htmlspecialchars(preg_replace('/[[:space:]]/',' ',$question),ENT_QUOTES) . "'"; } $this->varNameAttr[$jsVarName] .= "}"; } $this->q2subqInfo = $q2subqInfo; // Now set tokens if (isset($_SESSION['token']) && $_SESSION['token'] != '') { //Gather survey data for tokenised surveys, for use in presenting questions $_SESSION['thistoken']=getTokenData($surveyid, $_SESSION['token']); $this->knownVars['TOKEN:TOKEN'] = array( 'code'=>$_SESSION['token'], 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); //queXS Addition $this->knownVars['TOKEN:CASEID'] = array( 'code'=>$_SESSION['token'], 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); } else { //queXS Addition $this->knownVars['TOKEN:CASEID'] = array( 'code'=>0, 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); } if (isset($_SESSION['thistoken'])) { foreach (array_keys($_SESSION['thistoken']) as $tokenkey) { if ($anonymized) { $val = ""; } else { $val = $_SESSION['thistoken'][$tokenkey]; } $key = "TOKEN:" . strtoupper($tokenkey); $this->knownVars[$key] = array( 'code'=>$val, 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); } //queXS Addition //Add all sample variables for this case global $connect; $use_call = true; if (strlen($_SESSION['token']) == 15) $use_call = false; if ($use_call) { $sql = "SELECT sivr.var,sv.val FROM sample_var as sv, `case` as c, `call` as cl, `sample_import_var_restrict` as sivr WHERE c.sample_id = sv.sample_id AND c.case_id = cl.case_id AND sv.var_id = sivr.var_id AND cl.call_id = '{$_SESSION['token']}'"; } else { $sql = "SELECT sivr.var,sv.val FROM sample_var as sv, `case` as c, `sample_import_var_restrict` as sivr WHERE c.sample_id = sv.sample_id AND sv.var_id = sivr.var_id AND c.token = '{$_SESSION['token']}'"; } $queXSrs = $connect->GetAssoc($sql); foreach($queXSrs as $samplekey => $val) { $key = "SAMPLE:" . strtoupper($samplekey); $this->knownVars[$key] = array( 'code'=>$val, 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); } if ($use_call) { $osql = "FROM operator as o, `call` as cl WHERE o.operator_id = cl.operator_id AND cl.call_id = '{$_SESSION['token']}'"; $rsql = "FROM respondent as r, `call` as cl WHERE cl.call_id = '{$_SESSION['token']}' AND r.respondent_id = cl.respondent_id"; } else { $osql = "FROM operator as o, `case` as c WHERE c.token = '{$_SESSION['token']}' AND o.operator_id = c.current_operator_id"; $rsql = "FROM respondent as r, `case` as c, call_attempt as ca WHERE c.token = '{$_SESSION['token']}' AND ca.case_id = c.case_id AND ca.end IS NULL AND r.respondent_id = ca.respondent_id"; } //add operator and respondent details $this->knownVars["OPERATOR:FIRSTNAME"] = array('code' => $connect->GetOne(" SELECT o.firstName " . $osql ), 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); $this->knownVars["OPERATOR:LASTNAME"] = array('code' => $connect->GetOne(" SELECT o.lastName " . $osql ), 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); $this->knownVars["RESPONDENT:FIRSTNAME"] = array('code' => $connect->GetOne(" SELECT r.firstName " . $rsql ), 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); $this->knownVars["RESPONDENT:LASTNAME"] = array('code' => $connect->GetOne(" SELECT r.lastName " . $rsql ), 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); } else { // Read list of available tokens from the tokens table so that preview and error checking works correctly $attrs = GetAttributeFieldNames($surveyid,false); $blankVal = array( 'code'=>'', 'type'=>'', 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); foreach ($attrs as $key) { if (preg_match('/^(firstname|lastname|email|usesleft|token|attribute_\d+)$/',$key)) { $this->knownVars['TOKEN:' . strtoupper($key)] = $blankVal; } } //queXS Addition //Add all sample variables for this questionnaire global $connect; $sql = "SELECT sivr.var,sv.val FROM `questionnaire` as q, questionnaire_sample as qs, sample_var as sv, `sample_import_var_restrict` as sivr WHERE q.lime_sid = $surveyid AND qs.questionnaire_id = q.questionnaire_id AND sivr.sample_import_id = qs.sample_import_id AND sv.var_id = sivr.var_id GROUP BY qs.sample_import_id,sivr.var"; $queXSrs = $connect->GetAssoc($sql); foreach($queXSrs as $samplekey => $val) { $key = "SAMPLE:" . strtoupper($samplekey); $this->knownVars[$key] = array( 'code'=>$val, 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); } $oa= array("OPERATOR:FIRSTNAME","OPERATOR:LASTNAME","RESPONDENT:FIRSTNAME","RESPONDENT:LASTNAME"); foreach ($oa as $o) { $this->knownVars[$o] = array( 'code'=>"", 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); } } // set default value for reserved 'this' variable $this->knownVars['this'] = array( 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'', 'hidden'=>'', 'question'=>'this', 'qid'=>'', 'gid'=>'', 'grelevance'=>'', 'relevance'=>'', 'qcode'=>'this', 'qseq'=>'', 'gseq'=>'', 'type'=>'', 'sgqa'=>'', 'rowdivid'=>'', 'ansList'=>'', 'ansArray'=>array(), 'scale_id'=>'', 'default'=>'', 'rootVarName'=>'this', 'subqtext'=>'', 'rowdivid'=>'', ); $this->runtimeTimings[] = array(__METHOD__ . ' - process fieldMap',(microtime(true) - $now)); usort($this->questionSeq2relevance,'cmpQuestionSeq'); $this->numQuestions = count($this->questionSeq2relevance); $this->numGroups = count($this->groupSeqInfo); return true; } /** * Return whether a sub-question is relevant * @param $sgqa * @return */ static function SubQuestionIsRelevant($sgqa) { $LEM =& LimeExpressionManager::singleton(); if (!isset($LEM->knownVars[$sgqa])) { return false; } $var = $LEM->knownVars[$sgqa]; $sqrel=1; if (isset($var['rowdivid']) && $var['rowdivid'] != '') { $sqrel = (isset($_SESSION['relevanceStatus'][$var['rowdivid']]) ? $_SESSION['relevanceStatus'][$var['rowdivid']] : 1); } $qid = $var['qid']; $qrel = (isset($_SESSION['relevanceStatus'][$qid]) ? $_SESSION['relevanceStatus'][$qid] : 1); $gseq = $var['gseq']; $grel = (isset($_SESSION['relevanceStatus']['G' . $gseq]) ? $_SESSION['relevanceStatus']['G' . $gseq] : 1); // group-level relevance based upon grelevance equation return ($grel && $qrel && $sqrel); } /** * Return whether question $qid is relevanct * @param $qid * @return boolean */ static function QuestionIsRelevant($qid) { $LEM =& LimeExpressionManager::singleton(); $qrel = (isset($_SESSION['relevanceStatus'][$qid]) ? $_SESSION['relevanceStatus'][$qid] : 1); $gseq = (isset($LEM->questionId2groupSeq[$qid]) ? $LEM->questionId2groupSeq[$qid] : -1); $grel = (isset($_SESSION['relevanceStatus']['G' . $gseq]) ? $_SESSION['relevanceStatus']['G' . $gseq] : 1); // group-level relevance based upon grelevance equation return ($grel && $qrel); } /** * Return whether group $gseq is relevant * @param $gseq * @return boolean */ static function GroupIsIrrelevantOrHidden($gseq) { $LEM =& LimeExpressionManager::singleton(); $grel = (isset($_SESSION['relevanceStatus']['G' . $gseq]) ? $_SESSION['relevanceStatus']['G' . $gseq] : 1); // group-level relevance based upon grelevance equation $gshow = (isset($LEM->indexGseq[$gseq]['show']) ? $LEM->indexGseq[$gseq]['show'] : true); // default to true? return !($grel && $gshow); } /** * Check the relevance status of all questions on or before the current group. * This generates needed JavaScript for dynamic relevance, and sets flags about which questions and groups are relevant */ function ProcessAllNeededRelevance($onlyThisQseq=NULL) { // TODO - in a running survey, only need to process the current Group. For Admin mode, do we need to process all prior questions or not? // $now = microtime(true); $grelComputed=array(); // so only process it once per group foreach($this->questionSeq2relevance as $rel) { if (!is_null($onlyThisQseq) && $onlyThisQseq!=$rel['qseq']) { continue; } $qid = $rel['qid']; $gseq = $rel['gseq']; if ($this->allOnOnePage) { ; // process relevance for all questions } else if ($gseq != $this->currentGroupSeq) { continue; } $result = $this->_ProcessRelevance(htmlspecialchars_decode($rel['relevance'],ENT_QUOTES), $qid, $gseq, $rel['jsResultVar'], $rel['type'], $rel['hidden'] ); $_SESSION['relevanceStatus'][$qid] = $result; if (!isset($grelComputed[$gseq])) { $this->_ProcessGroupRelevance($gseq); $grelComputed[$gseq]=true; } } // $this->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); } /** * Translate all Expressions, Macros, registered variables, etc. in $string * @param $string - the string to be replaced * @param $questionNum - the $qid of question being replaced - needed for properly alignment of question-level relevance and tailoring * @param $replacementFields - optional replacement values * @param $debug - if true,write translations for this page to html-formatted log file * @param $numRecursionLevels - the number of times to recursively subtitute values in this string * @param $whichPrettyPrintIteration - if want to pretty-print the source string, which recursion level should be pretty-printed * @param $noReplacements - true if we already know that no replacements are needed (e.g. there are no curly braces) * @return - the original $string with all replacements done. */ static function ProcessString($string, $questionNum=NULL, $replacementFields=array(), $debug=false, $numRecursionLevels=1, $whichPrettyPrintIteration=1, $noReplacements=false, $timeit=true, $staticReplacement=false) { $now = microtime(true); $LEM =& LimeExpressionManager::singleton(); if ($noReplacements) { $LEM->em->SetPrettyPrintSource($string); return $string; } if (isset($replacementFields) && is_array($replacementFields) && count($replacementFields) > 0) { $replaceArray = array(); foreach ($replacementFields as $key => $value) { $replaceArray[$key] = array( 'code'=>$value, 'jsName_on'=>'', 'jsName'=>'', 'readWrite'=>'N', ); } $LEM->tempVars = $replaceArray; } $questionSeq = -1; $groupSeq = -1; if (!is_null($questionNum)) { $questionSeq = isset($LEM->questionId2questionSeq[$questionNum]) ? $LEM->questionId2questionSeq[$questionNum] : -1; $groupSeq = isset($LEM->questionId2groupSeq[$questionNum]) ? $LEM->questionId2groupSeq[$questionNum] : -1; } $stringToParse = $string; // decode called later htmlspecialchars_decode($string,ENT_QUOTES); $qnum = is_null($questionNum) ? 0 : $questionNum; $result = $LEM->em->sProcessStringContainingExpressions($stringToParse,$qnum, $numRecursionLevels, $whichPrettyPrintIteration, $groupSeq, $questionSeq, $staticReplacement); $hasErrors = $LEM->em->HasErrors(); if ($timeit) { $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); } return $result; } /** * Compute Relevance, processing $eqn to get a boolean value. If there are syntax errors, return false. * @param $eqn - the relevance equation * @param $questionNum - needed to align question-level relevance and tailoring * @param $jsResultVar - this variable determines whether irrelevant questions are hidden * @param $type - question type * @param $hidden - whether question should always be hidden * @return */ static function ProcessRelevance($eqn,$questionNum=NULL,$jsResultVar=NULL,$type=NULL,$hidden=0) { $LEM =& LimeExpressionManager::singleton(); return $LEM->_ProcessRelevance($eqn,$questionNum,NULL,$jsResultVar,$type,$hidden); } /** * Compute Relevance, processing $eqn to get a boolean value. If there are syntax errors, return false. * @param $eqn - the relevance equation * @param $questionNum - needed to align question-level relevance and tailoring * @param $jsResultVar - this variable determines whether irrelevant questions are hidden * @param $type - question type * @param $hidden - whether question should always be hidden * @return */ private function _ProcessRelevance($eqn,$questionNum=NULL,$gseq=NULL,$jsResultVar=NULL,$type=NULL,$hidden=0) { // These will be called in the order that questions are supposed to be asked // TODO - cache results and generated JavaScript equations? if (!isset($eqn) || trim($eqn=='') || trim($eqn)=='1') { $this->groupRelevanceInfo[] = array( 'qid' => $questionNum, 'gseq' => $gseq, 'eqn' => $eqn, 'result' => true, 'numJsVars' => 0, 'relevancejs' => '', 'relevanceVars' => '', 'jsResultVar'=> $jsResultVar, 'type'=>$type, 'hidden'=>$hidden, 'hasErrors'=>false, ); return true; } $questionSeq = -1; $groupSeq = -1; if (!is_null($questionNum)) { $questionSeq = isset($this->questionId2questionSeq[$questionNum]) ? $this->questionId2questionSeq[$questionNum] : -1; $groupSeq = isset($this->questionId2groupSeq[$questionNum]) ? $this->questionId2groupSeq[$questionNum] : -1; } $stringToParse = htmlspecialchars_decode($eqn,ENT_QUOTES); $result = $this->em->ProcessBooleanExpression($stringToParse,$groupSeq, $questionSeq); $hasErrors = $this->em->HasErrors(); if (!is_null($questionNum) && !is_null($jsResultVar)) { // so if missing either, don't generate JavaScript for this - means off-page relevance. $jsVars = $this->em->GetJSVarsUsed(); $relevanceVars = implode('|',$this->em->GetJSVarsUsed()); $relevanceJS = $this->em->GetJavaScriptEquivalentOfExpression(); $this->groupRelevanceInfo[] = array( 'qid' => $questionNum, 'gseq' => $gseq, 'eqn' => $eqn, 'result' => $result, 'numJsVars' => count($jsVars), 'relevancejs' => $relevanceJS, 'relevanceVars' => $relevanceVars, 'jsResultVar' => $jsResultVar, 'type'=>$type, 'hidden'=>$hidden, 'hasErrors'=>$hasErrors, ); } return $result; } /** * Create JavaScript needed to process sub-question-level relevance (e.g. for array_filter and _exclude) * @param $eqn - the equation to parse * @param $questionNum - the question number - needed to align relavance and tailoring blocks * @param $rowdivid - the javascript ID that needs to be shown/hidden in order to control array_filter visibility * @param $type - the type of sub-question relevance (e.g. 'array_filter', 'array_filter_exclude') * @return */ private function _ProcessSubQRelevance($eqn,$questionNum=NULL,$rowdivid=NULL, $type=NULL, $qtype=NULL, $sgqa=NULL, $isExclusive='', $irrelevantAndExclusive='') { // These will be called in the order that questions are supposed to be asked if (!isset($eqn) || trim($eqn=='') || trim($eqn)=='1') { return true; } $questionSeq = -1; $groupSeq = -1; if (!is_null($questionNum)) { $questionSeq = isset($this->questionId2questionSeq[$questionNum]) ? $this->questionId2questionSeq[$questionNum] : -1; $groupSeq = isset($this->questionId2groupSeq[$questionNum]) ? $this->questionId2groupSeq[$questionNum] : -1; } $stringToParse = htmlspecialchars_decode($eqn,ENT_QUOTES); $result = $this->em->ProcessBooleanExpression($stringToParse,$groupSeq, $questionSeq); $hasErrors = $this->em->HasErrors(); $prettyPrint = ''; if (($this->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX) { $prettyPrint= $this->em->GetPrettyPrintString(); } if (!is_null($questionNum)) { $jsVars = $this->em->GetJSVarsUsed(); $relevanceVars = implode('|',$this->em->GetJSVarsUsed()); $relevanceJS = $this->em->GetJavaScriptEquivalentOfExpression(); $isExclusiveJS=''; $irrelevantAndExclusiveJS=''; // Only need to extract JS, since will already have Vars and error counts from main equation if ($isExclusive != '') { $this->em->ProcessBooleanExpression($isExclusive,$groupSeq, $questionSeq); $isExclusiveJS = $this->em->GetJavaScriptEquivalentOfExpression(); } if ($irrelevantAndExclusive != '') { $this->em->ProcessBooleanExpression($irrelevantAndExclusive,$groupSeq, $questionSeq); $irrelevantAndExclusiveJS = $this->em->GetJavaScriptEquivalentOfExpression(); } if (!isset($this->subQrelInfo[$questionNum])) { $this->subQrelInfo[$questionNum] = array(); } $this->subQrelInfo[$questionNum][$rowdivid] = array( 'qid' => $questionNum, 'eqn' => $eqn, 'prettyPrintEqn' => $prettyPrint, 'result' => $result, 'numJsVars' => count($jsVars), 'relevancejs' => $relevanceJS, 'relevanceVars' => $relevanceVars, 'rowdivid' => $rowdivid, 'type'=>$type, 'qtype'=>$qtype, 'sgqa'=>$sgqa, 'hasErrors'=>$hasErrors, 'isExclusiveJS'=>$isExclusiveJS, 'irrelevantAndExclusiveJS'=>$irrelevantAndExclusiveJS, ); } return $result; } private function _ProcessGroupRelevance($groupSeq) { // These will be called in the order that questions are supposed to be asked if ($groupSeq == -1) { return; // invalid group, so ignore } $eqn = (isset($this->gseq2info[$groupSeq]['grelevance']) ? $this->gseq2info[$groupSeq]['grelevance'] : 1); if (is_null($eqn) || trim($eqn=='') || trim($eqn)=='1') { $this->gRelInfo[$groupSeq] = array( 'gseq' => $groupSeq, 'eqn' => '', 'result' => 1, 'numJsVars' => 0, 'relevancejs' => '', 'relevanceVars' => '', 'prettyPrint'=> '', ); return; } $stringToParse = htmlspecialchars_decode($eqn,ENT_QUOTES); $result = $this->em->ProcessBooleanExpression($stringToParse,$groupSeq); $hasErrors = $this->em->HasErrors(); $jsVars = $this->em->GetJSVarsUsed(); $relevanceVars = implode('|',$this->em->GetJSVarsUsed()); $relevanceJS = $this->em->GetJavaScriptEquivalentOfExpression(); $prettyPrint = $this->em->GetPrettyPrintString(); $this->gRelInfo[$groupSeq] = array( 'gseq' => $groupSeq, 'eqn' => $stringToParse, 'result' => $result, 'numJsVars' => count($jsVars), 'relevancejs' => $relevanceJS, 'relevanceVars' => $relevanceVars, 'prettyPrint'=> $prettyPrint, 'hasErrors' => $hasErrors, ); $_SESSION['relevanceStatus']['G' . $groupSeq] = $result; } /** * Used to show potential syntax errors of processing Relevance or Equations. * @return */ static function GetLastPrettyPrintExpression() { $LEM =& LimeExpressionManager::singleton(); return $LEM->em->GetLastPrettyPrintExpression(); } /** * Expand "self.suffix" and "that.qcode.suffix" into canonical list of variable names * @param type $qseq * @param type $varname */ static function GetAllVarNamesForQ($qseq,$varname) { $LEM =& LimeExpressionManager::singleton(); $parts = explode('.',$varname); $qroot = ''; $suffix = ''; $sqpatts = array(); $nosqpatts = array(); $sqpatt = ''; $nosqpatt = ''; $comments = ''; if ($parts[0] == 'self') { $type = 'self'; } else { $type = 'that'; array_shift($parts); if (isset($parts[0])) { $qroot = $parts[0]; } else { return $varname; } } array_shift($parts); if (count($parts) > 0) { if (preg_match('/^' . ExpressionManager::$RDP_regex_var_attr . '$/',$parts[count($parts)-1])) { $suffix = '.' . $parts[count($parts)-1]; array_pop($parts); } } foreach($parts as $part) { if ($part == 'nocomments') { $comments = 'N'; } else if ($part == 'comments') { $comments = 'Y'; } else if (preg_match('/^sq_.+$/',$part)) { $sqpatts[] = substr($part,3); } else if (preg_match('/^nosq_.+$/',$part)) { $nosqpatts[] = substr($part,5); } else { return $varname; // invalid } } $sqpatt = implode('|',$sqpatts); $nosqpatt = implode('|',$nosqpatts); $vars = array(); foreach ($LEM->knownVars as $kv) { if ($type == 'self') { if (!isset($kv['qseq']) || $kv['qseq'] != $qseq || trim($kv['sgqa']) == '') { continue; } } else { if (!isset($kv['rootVarName']) || $kv['rootVarName'] != $qroot) { continue; } } if ($comments != '') { if ($comments == 'Y' && !preg_match('/comment$/',$kv['sgqa'])) { continue; } if ($comments == 'N' && preg_match('/comment$/',$kv['sgqa'])) { continue; } } $sgq = $LEM->sid . 'X' . $kv['gid'] . 'X' . $kv['qid']; $ext = substr($kv['sgqa'],strlen($sgq)); if ($sqpatt != '') { if (!preg_match('/'.$sqpatt.'/',$ext)) { continue; } } if ($nosqpatt != '') { if (preg_match('/'.$nosqpatt.'/',$ext)) { continue; } } $vars[] = $kv['sgqa'] . $suffix; } if (count($vars) > 0) { return implode(',',$vars); } return $varname; // invalid } /** * Should be first function called on each page - sets/clears internally needed variables * @param $allOnOnePage - true if StartProcessingGroup will be called multiple times on this page - does some optimizatinos * @param $rooturl - if set, this tells LEM to enable hyperlinking of syntax highlighting to ease editing of questions * @param $initializeVars - if true, initializes the replacement variables to enable syntax highlighting on admin pages */ static function StartProcessingPage($allOnOnePage=false,$rooturl=NULL, $initializeVars=false) { // $now = microtime(true); $LEM =& LimeExpressionManager::singleton(); $LEM->pageRelevanceInfo=array(); $LEM->pageTailorInfo=array(); $LEM->allOnOnePage=$allOnOnePage; $LEM->processedRelevance=false; if (!is_null($rooturl)) { $LEM->surveyOptions['rooturl'] = $rooturl; $LEM->surveyOptions['hyperlinkSyntaxHighlighting']=true; // this will be temporary - should be reset in running survey } $LEM->qid2exclusiveAuto=array(); // TODO - should really pass this in as a variable global $surveyinfo; if (isset($surveyinfo['assessments']) && $surveyinfo['assessments']=='Y') { $LEM->surveyOptions['assessments']=true; } // $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->initialized=true; if ($initializeVars) { $LEM->em->StartProcessingGroup( isset($_SESSION['LEMsid']) ? $_SESSION['LEMsid'] : NULL, isset($LEM->surveyOptions['rooturl']) ? $LEM->surveyOptions['rooturl'] : '', true ); $LEM->setVariableAndTokenMappingsForExpressionManager($_SESSION['LEMsid']); } } /** * Initialize a survey so can use EM to manage navigation * @param $surveyid * @param $surveyMode * @param $anonymized * @param $forceRefresh */ static function StartSurvey($surveyid,$surveyMode='group',$options=NULL,$forceRefresh=false,$debugLevel=0) { $LEM =& LimeExpressionManager::singleton(); $LEM->sid=sanitize_int($surveyid); if (is_null($options)) { $options = array(); } $LEM->surveyOptions['active'] = (isset($options['active']) ? $options['active'] : false); $LEM->surveyOptions['allowsave'] = (isset($options['allowsave']) ? $options['allowsave'] : false); $LEM->surveyOptions['anonymized'] = (isset($options['anonymized']) ? $options['anonymized'] : false); $LEM->surveyOptions['assessments'] = (isset($options['assessments']) ? $options['assessments'] : false); $LEM->surveyOptions['datestamp'] = (isset($options['datestamp']) ? $options['datestamp'] : false); $LEM->surveyOptions['deletenonvalues'] = (isset($options['deletenonvalues']) ? ($options['deletenonvalues']=='1') : true); $LEM->surveyOptions['hyperlinkSyntaxHighlighting'] = (isset($options['hyperlinkSyntaxHighlighting']) ? $options['hyperlinkSyntaxHighlighting'] : false); $LEM->surveyOptions['ipaddr'] = (isset($options['ipaddr']) ? $options['ipaddr'] : false); $LEM->surveyOptions['radix'] = (isset($options['radix']) ? $options['radix'] : '.'); $LEM->surveyOptions['refurl'] = (isset($options['refurl']) ? $options['refurl'] : NULL); $LEM->surveyOptions['rooturl'] = (isset($options['rooturl']) ? $options['rooturl'] : ''); $LEM->surveyOptions['savetimings'] = (isset($options['savetimings']) ? $options['savetimings'] : ''); $LEM->sgqaNaming = (isset($options['sgqaNaming']) ? ($options['sgqaNaming']=="Y") : true); // TODO default should eventually be false $LEM->surveyOptions['startlanguage'] = (isset($options['startlanguage']) ? $options['startlanguage'] : 'en'); $LEM->surveyOptions['surveyls_dateformat'] = (isset($options['surveyls_dateformat']) ? $options['surveyls_dateformat'] : 1); $LEM->surveyOptions['tablename'] = (isset($options['tablename']) ? $options['tablename'] : db_table_name_nq('survey_' . $LEM->sid)); $LEM->surveyOptions['tablename_timings'] = ((isset($options['savetimings']) && $options['savetimings'] == 'Y') ? db_table_name('survey_' . $LEM->sid . '_timings') : ''); $LEM->surveyOptions['target'] = (isset($options['target']) ? $options['target'] : '/temp/files/'); $LEM->surveyOptions['timeadjust'] = (isset($options['timeadjust']) ? $options['timeadjust'] : 0); $LEM->surveyOptions['tempdir'] = (isset($options['tempdir']) ? $options['tempdir'] : '/temp/'); $LEM->surveyOptions['token'] = (isset($options['token']) ? $options['token'] : NULL); $LEM->debugLevel=$debugLevel; $_SESSION['LEMdebugLevel']=$debugLevel; // need acces to SESSSION to decide whether to cache serialized instance of $LEM switch ($surveyMode) { case 'survey': $LEM->allOnOnePage=true; $LEM->surveyMode = 'survey'; break; case 'question': $LEM->allOnOnePage=false; $LEM->surveyMode = 'question'; break; default: case 'group': $LEM->allOnOnePage=false; $LEM->surveyMode = 'group'; break; } $LEM->setVariableAndTokenMappingsForExpressionManager($surveyid,$forceRefresh,$LEM->surveyOptions['anonymized'],$LEM->allOnOnePage); $LEM->currentGroupSeq=-1; $LEM->currentQuestionSeq=-1; // for question-by-question mode $LEM->indexGseq=array(); $LEM->indexQseq=array(); $LEM->qrootVarName2arrayFilter=array(); if (isset($_SESSION['startingValues']) && is_array($_SESSION['startingValues']) && count($_SESSION['startingValues']) > 0) { $startingValues = array(); foreach ($_SESSION['startingValues'] as $k=>$value) { if (isset($LEM->knownVars[$k])) { $knownVar = $LEM->knownVars[$k]; } else if (isset($LEM->qcode2sgqa[$k])) { $knownVar = $LEM->knownVars[$LEM->qcode2sgqa[$k]]; } else if (isset($LEM->tempVars[$k])) { $knownVar = $LEM->tempVar[$k]; } else { continue; } if (!isset($knownVar['jsName'])) { continue; } switch ($knownVar['type']) { case 'D': //DATE if (trim($value)=="") { $value = NULL; } else { $dateformatdatat=getDateFormatData($LEM->surveyOptions['surveyls_dateformat']); $datetimeobj = new Date_Time_Converter($value, $dateformatdatat['phpdate']); $value=$datetimeobj->convert("Y-m-d"); } break; case 'N': //NUMERICAL QUESTION TYPE case 'K': //MULTIPLE NUMERICAL QUESTION if (trim($value)=="") { $value = NULL; } else { $value = sanitize_float($value); } break; case '|': //File Upload $value=NULL; // can't upload a file via GET break; } $_SESSION[$knownVar['sgqa']] = $value; $LEM->updatedValues[$knownVar['sgqa']]=array( 'type'=>$knownVar['type'], 'value'=>$value, ); } $LEM->_UpdateValuesInDatabase(NULL); } return array( 'hasNext'=>true, 'hasPrevious'=>false, ); } static function NavigateBackwards() { $now = microtime(true); $LEM =& LimeExpressionManager::singleton(); $LEM->ParseResultCache=array(); // to avoid running same test more than once for a given group $LEM->updatedValues = array(); switch ($LEM->surveyMode) { case 'survey': // should never be called? break; case 'group': // First validate the current group $LEM->StartProcessingPage(); $updatedValues=$LEM->ProcessCurrentResponses(); $message = ''; while (true) { $LEM->currentQset = array(); // reset active list of questions if (--$LEM->currentGroupSeq < 0) { $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'at_start'=>true, 'finished'=>false, 'message'=>$message, 'unansweredSQs'=>(isset($result['unansweredSQs']) ? $result['unansweredSQs'] : ''), 'invalidSQs'=>(isset($result['invalidSQs']) ? $result['invalidSQs'] : ''), ); return $LEM->lastMoveResult; } $result = $LEM->_ValidateGroup($LEM->currentGroupSeq); if (is_null($result)) { continue; // this is an invalid group - skip it } $message .= $result['message']; if (!$result['relevant'] || $result['hidden']) { // then skip this group - assume already saved? continue; } else { // display new group $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'at_start'=>false, 'finished'=>false, 'message'=>$message, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentGroupSeq, 'mandViolation'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['mandViolation'] : false), 'valid'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['valid'] : false), 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; } } break; case 'question': $LEM->StartProcessingPage(); $updatedValues=$LEM->ProcessCurrentResponses(); $message = ''; while (true) { $LEM->currentQset = array(); // reset active list of questions if (--$LEM->currentQuestionSeq < 0) { $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'at_start'=>true, 'finished'=>false, 'message'=>$message, 'unansweredSQs'=>(isset($result['unansweredSQs']) ? $result['unansweredSQs'] : ''), 'invalidSQs'=>(isset($result['invalidSQs']) ? $result['invalidSQs'] : ''), ); return $LEM->lastMoveResult; } // Set certain variables normally set by StartProcessingGroup() $LEM->groupRelevanceInfo=array(); $qInfo = $LEM->questionSeq2relevance[$LEM->currentQuestionSeq]; $LEM->currentQID=$qInfo['qid']; $LEM->currentGroupSeq=$qInfo['gseq']; if ($LEM->currentGroupSeq > $LEM->maxGroupSeq) { $LEM->maxGroupSeq = $LEM->currentGroupSeq; } $LEM->ProcessAllNeededRelevance($LEM->currentQuestionSeq); $LEM->_CreateSubQLevelRelevanceAndValidationEqns($LEM->currentQuestionSeq); $result = $LEM->_ValidateQuestion($LEM->currentQuestionSeq); $message .= $result['message']; $gRelInfo = $LEM->gRelInfo[$LEM->currentGroupSeq]; $grel = $gRelInfo['result']; if (!$grel || !$result['relevant'] || $result['hidden']) { // then skip this question - assume already saved? continue; } else { // display new question $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'at_start'=>false, 'finished'=>false, 'message'=>$message, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentQuestionSeq, 'qseq'=>$LEM->currentQuestionSeq, 'mandViolation'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['mandViolation'] : false), 'valid'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['valid'] : false), 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; } } break; } } /** * * @param $force - if true, continue to go forward even if there are violations to the mandatory and/or validity rules */ static function NavigateForwards($force=false) { $now = microtime(true); $LEM =& LimeExpressionManager::singleton(); $LEM->ParseResultCache=array(); // to avoid running same test more than once for a given group $LEM->updatedValues = array(); switch ($LEM->surveyMode) { case 'survey': $startingGroup = $LEM->currentGroupSeq; $LEM->StartProcessingPage(true); $updatedValues=$LEM->ProcessCurrentResponses(); $message = ''; $LEM->currentQset = array(); // reset active list of questions $result = $LEM->_ValidateSurvey(); $message .= $result['message']; $updatedValues = array_merge($updatedValues,$result['updatedValues']); if (!$force && !is_null($result) && ($result['mandViolation'] || !$result['valid'] || $startingGroup == -1)) { $finished=false; } else { $finished = true; } $message .= $LEM->_UpdateValuesInDatabase($updatedValues,$finished); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>$finished, 'message'=>$message, 'gseq'=>1, 'seq'=>1, 'mandViolation'=>$result['mandViolation'], 'valid'=>$result['valid'], 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; break; case 'group': // First validate the current group $LEM->StartProcessingPage(); $updatedValues=$LEM->ProcessCurrentResponses(); $message = ''; if (!$force && $LEM->currentGroupSeq != -1) { $result = $LEM->_ValidateGroup($LEM->currentGroupSeq); $message .= $result['message']; $updatedValues = array_merge($updatedValues,$result['updatedValues']); if (!is_null($result) && ($result['mandViolation'] || !$result['valid'])) { // redisplay the current group $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>false, 'message'=>$message, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentGroupSeq, 'mandViolation'=>$result['mandViolation'], 'valid'=>$result['valid'], 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; } } while (true) { $LEM->currentQset = array(); // reset active list of questions if (++$LEM->currentGroupSeq >= $LEM->numGroups) { $message .= $LEM->_UpdateValuesInDatabase($updatedValues,true); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>true, 'message'=>$message, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentGroupSeq, 'mandViolation'=>(isset($result['mandViolation']) ? $result['mandViolation'] : false), 'valid'=>(isset($result['valid']) ? $result['valid'] : false), 'unansweredSQs'=>(isset($result['unansweredSQs']) ? $result['unansweredSQs'] : ''), 'invalidSQs'=>(isset($result['invalidSQs']) ? $result['invalidSQs'] : ''), ); return $LEM->lastMoveResult; } $result = $LEM->_ValidateGroup($LEM->currentGroupSeq); if (is_null($result)) { continue; // this is an invalid group - skip it } $message .= $result['message']; $updatedValues = array_merge($updatedValues,$result['updatedValues']); if (!$result['relevant'] || $result['hidden']) { // then skip this group continue; } else { // display new group $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>false, 'message'=>$message, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentGroupSeq, 'mandViolation'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['mandViolation'] : false), 'valid'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['valid'] : false), 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; } } break; case 'question': $LEM->StartProcessingPage(); $updatedValues=$LEM->ProcessCurrentResponses(); $message = ''; if (!$force && $LEM->currentQuestionSeq != -1) { $result = $LEM->_ValidateQuestion($LEM->currentQuestionSeq); $message .= $result['message']; $updatedValues = array_merge($updatedValues,$result['updatedValues']); $gRelInfo = $LEM->gRelInfo[$LEM->currentGroupSeq]; $grel = $gRelInfo['result']; if ($grel && !is_null($result) && ($result['mandViolation'] || !$result['valid'])) { // redisplay the current question $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>false, 'message'=>$message, 'qseq'=>$LEM->currentQuestionSeq, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentQuestionSeq, 'mandViolation'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['mandViolation'] : false), 'valid'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['valid'] : false), 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; } } while (true) { $LEM->currentQset = array(); // reset active list of questions if (++$LEM->currentQuestionSeq >= $LEM->numQuestions) { $message .= $LEM->_UpdateValuesInDatabase($updatedValues,true); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>true, 'message'=>$message, 'qseq'=>$LEM->currentQuestionSeq, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentQuestionSeq, 'mandViolation'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['mandViolation'] : false), 'valid'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['valid'] : false), 'unansweredSQs'=>(isset($result['unansweredSQs']) ? $result['unansweredSQs'] : ''), 'invalidSQs'=>(isset($result['invalidSQs']) ? $result['invalidSQs'] : ''), ); return $LEM->lastMoveResult; } // Set certain variables normally set by StartProcessingGroup() $LEM->groupRelevanceInfo=array(); $qInfo = $LEM->questionSeq2relevance[$LEM->currentQuestionSeq]; $LEM->currentQID=$qInfo['qid']; $LEM->currentGroupSeq=$qInfo['gseq']; if ($LEM->currentGroupSeq > $LEM->maxGroupSeq) { $LEM->maxGroupSeq = $LEM->currentGroupSeq; } $LEM->ProcessAllNeededRelevance($LEM->currentQuestionSeq); $LEM->_CreateSubQLevelRelevanceAndValidationEqns($LEM->currentQuestionSeq); $result = $LEM->_ValidateQuestion($LEM->currentQuestionSeq); $message .= $result['message']; $updatedValues = array_merge($updatedValues,$result['updatedValues']); $gRelInfo = $LEM->gRelInfo[$LEM->currentGroupSeq]; $grel = $gRelInfo['result']; if (!$grel || !$result['relevant'] || $result['hidden']) { // then skip this question - assume already saved? continue; } else { // display new question $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>false, 'message'=>$message, 'qseq'=>$LEM->currentQuestionSeq, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentQuestionSeq, 'mandViolation'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['mandViolation'] : false), 'valid'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['valid'] : false), 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; } } break; } } /** * Write values to database. * @param $updatedValues * @param $finished - true if the survey needs to be finalized */ private function _UpdateValuesInDatabase($updatedValues, $finished=false,$setSubmitDate=false) { // Update these values in the database global $connect; // TODO - now that using $this->updatedValues, may be able to remove local copies of it (unless needed by other sub-systems) $updatedValues = $this->updatedValues; if (!$this->surveyOptions['deletenonvalues']) { $nonNullValues = array(); foreach($updatedValues as $key=>$value) { if (!is_null($value)) { if (isset($value['value']) && !is_null($value['value'])) { $nonNullValues[$key] = $value; } } } $updatedValues = $nonNullValues; } $message = ''; if($this->surveyOptions['datestamp'] == true && $this->surveyOptions['anonymized']== true) { // On anonymous datestamped surveys, set the datestamp to 1-1-1980 $datestamp=date("Y-m-d H:i:s",mktime(0,0,0,1,1,1980)); } else { // Otherwise, use the real date/time, it will only be saved when the table holds a // datestamp field $datestamp=date_shift(date("Y-m-d H:i:s"), "Y-m-d H:i:s", $this->surveyOptions['timeadjust']); } $_SESSION['datestamp']=$datestamp; if ($this->surveyOptions['active'] && !isset($_SESSION['srid'])) { // Create initial insert row for this record $sdata = array( "datestamp"=>$datestamp, "ipaddr"=>(($this->surveyOptions['ipaddr']) ? getIPAddress() : ''), "startlanguage"=>$this->surveyOptions['startlanguage'], "token"=>($this->surveyOptions['token']), "refurl"=>(($this->surveyOptions['refurl']) ? getenv("HTTP_REFERER") : NULL), "startdate"=>$datestamp, ); //One of the strengths of ADOdb's AutoExecute() is that only valid field names for $table are updated if ($connect->AutoExecute($this->surveyOptions['tablename'], $sdata,'INSERT')) // Checked { $srid = $connect->Insert_ID($this->surveyOptions['tablename'],"id"); $_SESSION['srid'] = $srid; } else { $message .= $this->gT("Unable to insert record into survey table: ") .$connect->ErrorMsg() . "
"; $_SESSION['flashmessage'] = $message; echo $message; } //Insert Row for Timings, if needed if ($this->surveyOptions['savetimings']) { $tdata = array( 'id'=>$srid, 'interviewtime'=>0 ); if ($connect->AutoExecute($this->surveyOptions['tablename_timings'], $tdata,'INSERT')) // Checked { $trid = $connect->Insert_ID($this->surveyOptions['tablename_timings'],"sid"); } else { $message .= $this->gT("Unable to insert record into timings table "). $connect->ErrorMsg() . "
"; $_SESSION['flashmessage'] = $message; echo $message; } } } if (count($updatedValues) > 0 || $finished) { $query = 'UPDATE '.$this->surveyOptions['tablename'] . " SET "; $setter = array(); switch ($this->surveyMode) { case 'question': $thisstep = $this->currentQuestionSeq; break; case 'group': $thisstep = $this->currentGroupSeq; break; case 'survey': $thisstep = 1; break; } $setter[] = db_quote_id('lastpage') . "=" . db_quoteall($thisstep); if ($this->surveyOptions['datestamp'] && isset($_SESSION['datestamp'])) { $setter[] = db_quote_id('datestamp') . "=" . db_quoteall($_SESSION['datestamp']); } if ($this->surveyOptions['ipaddr']) { $setter[] = db_quote_id('ipaddr') . "=" . db_quoteall(getIPAddress()); } foreach ($updatedValues as $key=>$value) { if (!empty($key)) //queXS Addition { $val = (is_null($value) ? NULL : $value['value']); $type = (is_null($value) ? NULL : $value['type']); // Clean up the values to cope with database storage requirements switch($type) { case 'D': //DATE if (trim($val)=='') { $val=NULL; // since some databases can't store blanks in date fields } // otherwise will already be in yyyy-mm-dd format after ProcessCurrentResponses() break; case '|': //File upload // This block can be removed once we require 5.3 or later if (function_exists('get_magic_quotes_gpc') && get_magic_quotes_gpc()) { $val=addslashes($val); } break; case 'N': //NUMERICAL QUESTION TYPE case 'K': //MULTIPLE NUMERICAL QUESTION if (trim($val)=='') { $val=NULL; // since some databases can't store blanks in numerical inputs } break; default: break; } if (is_null($val)) { $setter[] = db_quote_id($key) . "=NULL"; } else { $setter[] = db_quote_id($key) . "=" . db_quoteall($val,true); } } } $query .= implode(', ', $setter); $query .= " WHERE ID="; if (isset($_SESSION['srid']) && $this->surveyOptions['active']) { $query .= $_SESSION['srid']; if (!db_execute_assoc($query)) { echo submitfailed($connect->ErrorMsg()); if (($this->debugLevel & LEM_DEBUG_VALIDATION_SUMMARY) == LEM_DEBUG_VALIDATION_SUMMARY) { $message .= 'Error in SQL update: '. $connect->ErrorMsg() . '
'; } } // Save Timings if needed if ($this->surveyOptions['savetimings']) { set_answer_time(); } if ($finished) { // Delete the save control record if successfully finalize the submission $query = "DELETE FROM ".db_table_name("saved_control")." where srid=".$_SESSION['srid'].' and sid='.$this->sid; $connect->Execute($query); // Checked if (($this->debugLevel & LEM_DEBUG_VALIDATION_SUMMARY) == LEM_DEBUG_VALIDATION_SUMMARY) { $message .= ';
'.$query; } } elseif ($this->surveyOptions['allowsave'] && isset($_SESSION['scid'])) { $connect->Execute("UPDATE " . db_table_name("saved_control") . " SET saved_thisstep=" . db_quoteall($thisstep) . " where scid=" . $_SESSION['scid']); // Checked } // Check quotas whenever results are saved $bQuotaMatched = false; $aQuotas = check_quota('return', $this->sid); if ($aQuotas !== false) { if ($aQuotas != false) { foreach ($aQuotas as $aQuota) { if (isset($aQuota['status']) && $aQuota['status'] == 'matched') { $bQuotaMatched = true; } } } } if ($bQuotaMatched) { check_quota('enforce',$this->sid); // will create a page and quit. } else { if ($finished) { $sQuery = 'UPDATE '.$this->surveyOptions['tablename'] . " SET " .db_quote_id('submitdate') . "=" . db_quoteall($datestamp) ." WHERE ID=".$_SESSION['srid']; $connect->Execute($sQuery); // Checked } } } if (($this->debugLevel & LEM_DEBUG_VALIDATION_SUMMARY) == LEM_DEBUG_VALIDATION_SUMMARY) { $message .= $query; } } return $message; } /** * Get last move information, optionally clearing the substitution cache * @param type $clearSubstitutionInfo * @return type */ static function GetLastMoveResult($clearSubstitutionInfo=false) { $LEM =& LimeExpressionManager::singleton(); if ($clearSubstitutionInfo) { $LEM->em->ClearSubstitutionInfo(); // need to avoid double-generation of tailoring info } return (isset($LEM->lastMoveResult) ? $LEM->lastMoveResult : NULL); } /** * Jump to a specific question or group sequence. If jumping forward, it re-validates everything in between * @param $seq * @param $force - if true, then skip validation of current group (e.g. will jump even if there are errors) * @param $preview - if true, then treat this group/question as relevant, even if it is not, so that it can be displayed * @return */ static function JumpTo($seq,$preview=false,$processPOST=true,$force=false,$changeLang=false,$setSubmitDate=false) { $now = microtime(true); $LEM =& LimeExpressionManager::singleton(); if ($changeLang) { $LEM->setVariableAndTokenMappingsForExpressionManager($LEM->sid,true,$LEM->surveyOptions['anonymized'],$LEM->allOnOnePage); } $LEM->ParseResultCache=array(); // to avoid running same test more than once for a given group $LEM->updatedValues = array(); --$seq; // convert to 0-based numbering switch ($LEM->surveyMode) { case 'survey': // This only happens if saving data so far, so don't want to submit it, just validate and return $startingGroup = $LEM->currentGroupSeq; $LEM->StartProcessingPage(true); if ($processPOST) { $updatedValues=$LEM->ProcessCurrentResponses(); } else { $updatedValues = array(); } $message = ''; $LEM->currentQset = array(); // reset active list of questions $result = $LEM->_ValidateSurvey(); $message .= $result['message']; $updatedValues = array_merge($updatedValues,$result['updatedValues']); $finished=false; $message .= $LEM->_UpdateValuesInDatabase($updatedValues,$finished,$setSubmitDate); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>$finished, 'message'=>$message, 'gseq'=>1, 'seq'=>1, 'mandViolation'=>$result['mandViolation'], 'valid'=>$result['valid'], 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; break; case 'group': // First validate the current group $LEM->StartProcessingPage(); if ($processPOST) { $updatedValues=$LEM->ProcessCurrentResponses(); } else { $updatedValues = array(); } $message = ''; if (!$force && $LEM->currentGroupSeq != -1 && $seq > $LEM->currentGroupSeq) // only re-validate if jumping forward { $result = $LEM->_ValidateGroup($LEM->currentGroupSeq); $message .= $result['message']; $updatedValues = array_merge($updatedValues,$result['updatedValues']); if (!is_null($result) && ($result['mandViolation'] || !$result['valid'])) { // redisplay the current group $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false,$setSubmitDate); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>false, 'message'=>$message, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentGroupSeq, 'mandViolation'=>$result['mandViolation'], 'valid'=>$result['valid'], 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; } } if ($seq <= $LEM->currentGroupSeq || $preview) { $LEM->currentGroupSeq = $seq-1; // Try to jump to the requested group, but navigate to next if needed } while (true) { $LEM->currentQset = array(); // reset active list of questions if (++$LEM->currentGroupSeq >= $LEM->numGroups) { $message .= $LEM->_UpdateValuesInDatabase($updatedValues,true,$setSubmitDate); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>true, 'message'=>$message, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentGroupSeq, 'mandViolation'=>(isset($result['mandViolation']) ? $result['mandViolation'] : false), 'valid'=>(isset($result['valid']) ? $result['valid'] : false), 'unansweredSQs'=>(isset($result['unansweredSQs']) ? $result['unansweredSQs'] : ''), 'invalidSQs'=>(isset($result['invalidSQs']) ? $result['invalidSQs'] : ''), ); return $LEM->lastMoveResult; } $result = $LEM->_ValidateGroup($LEM->currentGroupSeq); if (is_null($result)) { return NULL; // invalid group - either bad number, or no questions within it } $message .= $result['message']; $updatedValues = array_merge($updatedValues,$result['updatedValues']); if (!$preview && (!$result['relevant'] || $result['hidden'])) { // then skip this group - assume already saved? continue; } else if (!($result['mandViolation'] || !$result['valid']) && $LEM->currentGroupSeq < $seq) { // if there is a violation while moving forward, need to stop and ask that set of questions // if there are no violations, can skip this group as long as changed values are saved. continue; } else { // display new group if(!$preview){ // Save only if not in preview mode $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false,$setSubmitDate); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); } $LEM->lastMoveResult = array( 'finished'=>false, 'message'=>$message, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentGroupSeq, 'mandViolation'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['mandViolation'] : false), 'valid'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['valid'] : false), 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; } } break; case 'question': $LEM->StartProcessingPage(); if ($processPOST) { $updatedValues=$LEM->ProcessCurrentResponses(); } else { $updatedValues = array(); } $message = ''; if (!$force && $LEM->currentQuestionSeq != -1 && $seq > $LEM->currentQuestionSeq) { $result = $LEM->_ValidateQuestion($LEM->currentQuestionSeq); $message .= $result['message']; $updatedValues = array_merge($updatedValues,$result['updatedValues']); $gRelInfo = $LEM->gRelInfo[$LEM->currentGroupSeq]; $grel = $gRelInfo['result']; if ($grel && ($result['mandViolation'] || !$result['valid'])) { // redisplay the current question $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false,$setSubmitDate); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>false, 'message'=>$message, 'qseq'=>$LEM->currentQuestionSeq, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentQuestionSeq, 'mandViolation'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['mandViolation'] : false), 'valid'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['valid'] : false), 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; } } if ($seq <= $LEM->currentQuestionSeq || $preview) { $LEM->currentQuestionSeq = $seq-1; // Try to jump to the requested group, but navigate to next if needed } while (true) { $LEM->currentQset = array(); // reset active list of questions if (++$LEM->currentQuestionSeq >= $LEM->numQuestions) { $message .= $LEM->_UpdateValuesInDatabase($updatedValues,true,$setSubmitDate); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>true, 'message'=>$message, 'qseq'=>$LEM->currentQuestionSeq, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentQuestionSeq, 'mandViolation'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['mandViolation'] : false), 'valid'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['valid'] : false), 'unansweredSQs'=>(isset($result['unansweredSQs']) ? $result['unansweredSQs'] : ''), 'invalidSQs'=>(isset($result['invalidSQs']) ? $result['invalidSQs'] : ''), ); return $LEM->lastMoveResult; } // Set certain variables normally set by StartProcessingGroup() $LEM->groupRelevanceInfo=array(); if (!isset($LEM->questionSeq2relevance[$LEM->currentQuestionSeq])) { return NULL; // means an invalid question - probably no sub-quetions } $qInfo = $LEM->questionSeq2relevance[$LEM->currentQuestionSeq]; $LEM->currentQID=$qInfo['qid']; $LEM->currentGroupSeq=$qInfo['gseq']; if ($LEM->currentGroupSeq > $LEM->maxGroupSeq) { $LEM->maxGroupSeq = $LEM->currentGroupSeq; } $LEM->ProcessAllNeededRelevance($LEM->currentQuestionSeq); $LEM->_CreateSubQLevelRelevanceAndValidationEqns($LEM->currentQuestionSeq); $result = $LEM->_ValidateQuestion($LEM->currentQuestionSeq); $message .= $result['message']; $updatedValues = array_merge($updatedValues,$result['updatedValues']); $gRelInfo = $LEM->gRelInfo[$LEM->currentGroupSeq]; $grel = $gRelInfo['result']; if (!$preview && (!$grel || !$result['relevant'] || $result['hidden'])) { // then skip this question continue; } else if (!$preview && !$grel) { continue; } else if (!$preview && !($result['mandViolation'] || !$result['valid']) && $LEM->currentQuestionSeq < $seq) { // if there is a violation while moving forward, need to stop and ask that set of questions // if there are no violations, can skip this group as long as changed values are saved. continue; } else { // display new question $message .= $LEM->_UpdateValuesInDatabase($updatedValues,false,$setSubmitDate); $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); $LEM->lastMoveResult = array( 'finished'=>false, 'message'=>$message, 'qseq'=>$LEM->currentQuestionSeq, 'gseq'=>$LEM->currentGroupSeq, 'seq'=>$LEM->currentQuestionSeq, 'mandViolation'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['mandViolation'] : false), 'valid'=> (($LEM->maxGroupSeq > $LEM->currentGroupSeq) ? $result['valid'] : false), 'unansweredSQs'=>$result['unansweredSQs'], 'invalidSQs'=>$result['invalidSQs'], ); return $LEM->lastMoveResult; } } break; } } /** * Check the entire survey * @return */ private function _ValidateSurvey() { $LEM =& $this; $message = ''; $srel=false; $shidden=true; $smandViolation=false; $svalid=true; $unansweredSQs = array(); $invalidSQs = array(); $updatedValues = array(); $sanyUnanswered = false; /////////////////////////////////////////////////////// // CHECK EACH GROUP, AND SET SURVEY-LEVEL PROPERTIES // /////////////////////////////////////////////////////// for ($i=0;$i<$LEM->numGroups;++$i) { $LEM->currentGroupSeq=$i; $gStatus = $LEM->_ValidateGroup($i); if (is_null($gStatus)) { continue; // invalid group, so skip it } $message .= $gStatus['message']; if ($gStatus['relevant']) { $srel = true; } if ($gStatus['relevant'] && !$gStatus['hidden']) { $shidden=false; } if ($gStatus['relevant'] && !$gStatus['hidden'] && $gStatus['mandViolation']) { $smandViolation = true; } if ($gStatus['relevant'] && !$gStatus['hidden'] && !$gStatus['valid']) { $svalid=false; } if ($gStatus['anyUnanswered']) { $sanyUnanswered = true; } if (strlen($gStatus['unansweredSQs']) > 0) { $unansweredSQs = array_merge($unansweredSQs, explode('|',$gStatus['unansweredSQs'])); } if (strlen($gStatus['invalidSQs']) > 0) { $invalidSQs = array_merge($invalidSQs, explode('|',$gStatus['invalidSQs'])); } $updatedValues = array_merge($updatedValues, $gStatus['updatedValues']); // array_merge destroys the key, so do it manually foreach ($gStatus['qset'] as $key=>$value) { $LEM->currentQset[$key] = $value; } $LEM->FinishProcessingGroup(); } return array( 'relevant' => $srel, 'hidden' => $shidden, 'mandViolation' => $smandViolation, 'valid' => $svalid, 'anyUnanswered' => $sanyUnanswered, 'message' => $message, 'unansweredSQs' => implode('|',$unansweredSQs), 'invalidSQs' => implode('|',$invalidSQs), 'updatedValues' => $updatedValues, 'seq'=>1, ); } /** * Check a group and all of the questions it contains * @param $groupSeq - the index-0 sequence number for this group * @return - detailed information about this group */ function _ValidateGroup($groupSeq) { $LEM =& $this; if ($groupSeq < 0 || $groupSeq >= $LEM->numGroups) { return NULL; // TODO - what is desired behavior? } $groupSeqInfo = (isset($LEM->groupSeqInfo[$groupSeq]) ? $LEM->groupSeqInfo[$groupSeq] : NULL); if (is_null($groupSeqInfo)) { // then there are no questions in this group return NULL; } $qInfo = $LEM->questionSeq2relevance[$groupSeqInfo['qstart']]; $gseq = $qInfo['gseq']; $gid = $qInfo['gid']; $LEM->StartProcessingGroup($gseq, $LEM->surveyOptions['anonymized'], $LEM->sid); // analyze the data we have about this group $grel=false; // assume irrelevant until find a relevant question $ghidden=true; // assume hidden until find a non-hidden question. If there are no relevant questions on this page, $ghidden will stay true $gmandViolation=false; // assume that the group contains no manditory questions that have not been fully answered $gvalid=true; // assume valid until discover otherwise $debug_message = ''; $messages = array(); $currentQset = array(); $unansweredSQs = array(); $invalidSQs = array(); $updatedValues = array(); $ganyUnanswered = false; $gRelInfo = $LEM->gRelInfo[$groupSeq]; ///////////////////////////////////////////////////////// // CHECK EACH QUESTION, AND SET GROUP-LEVEL PROPERTIES // ///////////////////////////////////////////////////////// for ($i=$groupSeqInfo['qstart'];$i<=$groupSeqInfo['qend']; ++$i) { $qStatus = $LEM->_ValidateQuestion($i); $updatedValues = array_merge($updatedValues,$qStatus['updatedValues']); if ($gRelInfo['result']==true && $qStatus['relevant']==true) { $grel = $gRelInfo['result']; // true; // at least one question relevant } if ($qStatus['hidden']==false && $qStatus['relevant'] == true) { $ghidden=false; // at least one question is visible } if ($qStatus['relevant']==true && $qStatus['hidden']==false && $qStatus['mandViolation']==true) { $gmandViolation=true; // at least one relevant question fails mandatory test } if ($qStatus['anyUnanswered']==true) { $ganyUnanswered=true; } if ($qStatus['relevant']==true && $qStatus['hidden']==false && $qStatus['valid']==false) { $gvalid=false; // at least one question fails validity constraints } $currentQset[$qStatus['info']['qid']] = $qStatus; $messages[] = $qStatus['message']; if (strlen($qStatus['unansweredSQs']) > 0) { $unansweredSQs[] = $qStatus['unansweredSQs']; } if (strlen($qStatus['invalidSQs']) > 0) { $invalidSQs[] = $qStatus['invalidSQs']; } } $unansweredSQList = implode('|',$unansweredSQs); $invalidSQList = implode('|',$invalidSQs); ///////////////////////////////////////////////////////// // OPTIONALLY DISPLAY (DETAILED) DEBUGGING INFORMATION // ///////////////////////////////////////////////////////// if (($LEM->debugLevel & LEM_DEBUG_VALIDATION_SUMMARY) == LEM_DEBUG_VALIDATION_SUMMARY) { $debug_message .= '
[G#' . $LEM->currentGroupSeq . ']' . '[' . $groupSeqInfo['qstart'] . '-' . $groupSeqInfo['qend'] . ']' . "[" . 'GID:' . $gid . "]: " . ($grel ? 'relevant ' : " irrelevant ") . (($gRelInfo['eqn'] != '') ? $gRelInfo['prettyPrint'] : '') . (($ghidden && $grel) ? " always-hidden " : ' ') . ($gmandViolation ? " (missing a relevant mandatory) " : ' ') . ($gvalid ? '' : " (fails at least one validation rule) ") . "
\n" . implode('', $messages); if ($grel == true) { if (!$gvalid) { if (($LEM->debugLevel & LEM_DEBUG_VALIDATION_DETAIL) == LEM_DEBUG_VALIDATION_DETAIL) { $debug_message .= "**At least one relevant question was invalid, so re-show this group
\n"; $debug_message .= "**Validity Violators: " . implode(', ', explode('|',$invalidSQList)) . "
\n"; } } if ($gmandViolation) { if (($LEM->debugLevel & LEM_DEBUG_VALIDATION_DETAIL) == LEM_DEBUG_VALIDATION_DETAIL) { $debug_message .= "**At least one relevant question was mandatory but unanswered, so re-show this group
\n"; $debug_message .= '**Mandatory Violators: ' . implode(', ', explode('|',$unansweredSQList)). "
\n"; } } if ($ghidden == true) { if (($LEM->debugLevel & LEM_DEBUG_VALIDATION_DETAIL) == LEM_DEBUG_VALIDATION_DETAIL) { $debug_message .= '** Page is relevant but hidden, so NULL irrelevant values and save relevant Equation results:
'; } } } else { if (($LEM->debugLevel & LEM_DEBUG_VALIDATION_DETAIL) == LEM_DEBUG_VALIDATION_DETAIL) { $debug_message .= '** Page is irrelevant, so NULL all questions in this group
'; } } } ////////////////////////////////////////////////////////////////////////// // STORE METADATA NEEDED FOR SUBSEQUENT PROCESSING AND DISPLAY PURPOSES // ////////////////////////////////////////////////////////////////////////// $currentGroupInfo = array( 'gseq' => $groupSeq, 'message' => $debug_message, 'relevant' => $grel, 'hidden' => $ghidden, 'mandViolation' => $gmandViolation, 'valid' => $gvalid, 'qset' => $currentQset, 'unansweredSQs' => $unansweredSQList, 'anyUnanswered' => $ganyUnanswered, 'invalidSQs' => $invalidSQList, 'updatedValues' => $updatedValues, ); //////////////////////////////////////////////////////// // STORE METADATA NEEDED TO GENERATE NAVIGATION INDEX // //////////////////////////////////////////////////////// $LEM->indexGseq[$groupSeq] = array( 'gtext' => $LEM->gseq2info[$groupSeq]['description'], 'gname' => $LEM->gseq2info[$groupSeq]['group_name'], 'gid' => $LEM->gseq2info[$groupSeq]['gid'], // TODO how used if random? 'anyUnanswered' => $ganyUnanswered, 'anyErrors' => (($gmandViolation || !$gvalid) ? true : false), 'valid' => $gvalid, 'mandViolation' => $gmandViolation, 'show' => (($grel && !$ghidden) ? true : false), ); $LEM->gseq2relevanceStatus[$gseq] = $grel; return $currentGroupInfo; } /** * For the current set of questions (whether in survey, gtoup, or question-by-question mode), assesses the following: * (a) mandatory - if so, then all relevant sub-questions must be answered (e.g. pay attention to array_filter and array_filter_exclude) * (b) always-hidden * (c) relevance status - including sub-question-level relevance * (d) answered - if $_SESSION[sgqa]=='' or NULL, then it is not answered * (e) validity - whether relevant questions pass their validity tests * @param $questionSeq - the 0-index sequence number for this question * @return of information about this question and its sub-questions */ function _ValidateQuestion($questionSeq) { $LEM =& $this; $qInfo = $LEM->questionSeq2relevance[$questionSeq]; // this array is by group and question sequence $qrel=true; // assume relevant unless discover otherwise $prettyPrintRelEqn=''; // assume no relevance eqn by default $qid=$qInfo['qid']; $gseq=$qInfo['gseq']; $gid=$qInfo['gid']; $qhidden = $qInfo['hidden']; $debug_qmessage=''; $gRelInfo = $LEM->gRelInfo[$qInfo['gseq']]; $grel = $gRelInfo['result']; /////////////////////////// // IS QUESTION RELEVANT? // /////////////////////////// if (!isset($qInfo['relevance']) || $qInfo['relevance'] == '') { $relevanceEqn = 1; } else { $relevanceEqn = $qInfo['relevance']; } // cache results $relevanceEqn = htmlspecialchars_decode($relevanceEqn,ENT_QUOTES); // TODO is this needed? if (isset($LEM->ParseResultCache[$relevanceEqn])) { $qrel = $LEM->ParseResultCache[$relevanceEqn]['result']; if (($LEM->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX) { $prettyPrintRelEqn = $LEM->ParseResultCache[$relevanceEqn]['prettyPrint']; } } else { $qrel = $LEM->em->ProcessBooleanExpression($relevanceEqn,$qInfo['gseq'], $qInfo['qseq']); // assumes safer to re-process relevance and not trust POST values $hasErrors = $LEM->em->HasErrors(); if (($LEM->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX) { $prettyPrintRelEqn = $LEM->em->GetPrettyPrintString(); } $LEM->ParseResultCache[$relevanceEqn] = array( 'result'=>$qrel, 'prettyPrint'=>$prettyPrintRelEqn, 'hasErrors'=>$hasErrors, ); } ////////////////////////////////////// // ARE ANY SUB-QUESTION IRRELEVANT? // ////////////////////////////////////// // identify the relevant subquestions (array_filter and array_filter_exclude may make some irrelevant) $relevantSQs=array(); $irrelevantSQs=array(); $prettyPrintSQRelEqns=array(); $prettyPrintSQRelEqn=''; $prettyPrintValidTip=''; $anyUnanswered = false; if (!$qrel) { // All sub-questions are irrelevant $irrelevantSQs = explode('|', $LEM->qid2code[$qid]); } else { // Check filter status to determine which subquestions are relevant if ($qInfo['type'] == 'X') { $sgqas = array(); // Boilerplate questions can be ignored } else { $sgqas = explode('|',$LEM->qid2code[$qid]); } foreach ($sgqas as $sgqa) { // for each subq, see if it is part of an array_filter or array_filter_exclude if (!isset($LEM->subQrelInfo[$qid])) { $relevantSQs[] = $sgqa; continue; } $foundSQrelevance=false; foreach ($LEM->subQrelInfo[$qid] as $sq) { switch ($sq['qtype']) { case '1': //Array (Flexible Labels) dual scale if ($sgqa == ($sq['rowdivid'] . '#0') || $sgqa == ($sq['rowdivid'] . '#1')) { $foundSQrelevance=true; if (isset($LEM->ParseResultCache[$sq['eqn']])) { $sqrel = $LEM->ParseResultCache[$sq['eqn']]['result']; if (($LEM->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX) { $prettyPrintSQRelEqns[$sq['rowdivid']] = $LEM->ParseResultCache[$sq['eqn']]['prettyPrint']; } } else { $stringToParse = htmlspecialchars_decode($sq['eqn'],ENT_QUOTES); // TODO is this needed? $sqrel = $LEM->em->ProcessBooleanExpression($stringToParse,$qInfo['gseq'], $qInfo['qseq']); $hasErrors = $LEM->em->HasErrors(); if (($LEM->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX) { $prettyPrintSQRelEqn = $LEM->em->GetPrettyPrintString(); $prettyPrintSQRelEqns[$sq['rowdivid']] = $prettyPrintSQRelEqn; } $LEM->ParseResultCache[$sq['eqn']] = array( 'result'=>$sqrel, 'prettyPrint'=>$prettyPrintSQRelEqn, 'hasErrors'=>$hasErrors, ); } if ($sqrel) { $relevantSQs[] = $sgqa; $_SESSION['relevanceStatus'][$sq['rowdivid']]=true; } else { $irrelevantSQs[] = $sgqa; $_SESSION['relevanceStatus'][$sq['rowdivid']]=false; } } break; case ':': //ARRAY (Multi Flexi) 1 to 10 case ';': //ARRAY (Multi Flexi) Text if (preg_match('/^' . $sq['rowdivid'] . '_/', $sgqa)) { $foundSQrelevance=true; if (isset($LEM->ParseResultCache[$sq['eqn']])) { $sqrel = $LEM->ParseResultCache[$sq['eqn']]['result']; if (($LEM->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX) { $prettyPrintSQRelEqns[$sq['rowdivid']] = $LEM->ParseResultCache[$sq['eqn']]['prettyPrint']; } } else { $stringToParse = htmlspecialchars_decode($sq['eqn'],ENT_QUOTES); // TODO is this needed? $sqrel = $LEM->em->ProcessBooleanExpression($stringToParse,$qInfo['gseq'], $qInfo['qseq']); $hasErrors = $LEM->em->HasErrors(); if (($LEM->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX) { $prettyPrintSQRelEqn = $LEM->em->GetPrettyPrintString(); $prettyPrintSQRelEqns[$sq['rowdivid']] = $prettyPrintSQRelEqn; } $LEM->ParseResultCache[$sq['eqn']] = array( 'result'=>$sqrel, 'prettyPrint'=>$prettyPrintSQRelEqn, 'hasErrors'=>$hasErrors, ); } if ($sqrel) { $relevantSQs[] = $sgqa; $_SESSION['relevanceStatus'][$sq['rowdivid']]=true; } else { $irrelevantSQs[] = $sgqa; $_SESSION['relevanceStatus'][$sq['rowdivid']]=false; } } case 'A': //ARRAY (5 POINT CHOICE) radio-buttons case 'B': //ARRAY (10 POINT CHOICE) radio-buttons case 'C': //ARRAY (YES/UNCERTAIN/NO) radio-buttons case 'E': //ARRAY (Increase/Same/Decrease) radio-buttons case 'F': //ARRAY (Flexible) - Row Format case 'M': //Multiple choice checkbox case 'P': //Multiple choice with comments checkbox + text // Note, for M and P, Mandatory should mean that at least one answer was picked - not that all were checked case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT if ($sgqa == $sq['rowdivid'] || $sgqa == ($sq['rowdivid'] . 'comment')) // to catch case 'P' { $foundSQrelevance=true; if (isset($LEM->ParseResultCache[$sq['eqn']])) { $sqrel = $LEM->ParseResultCache[$sq['eqn']]['result']; if (($LEM->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX) { $prettyPrintSQRelEqns[$sq['rowdivid']] = $LEM->ParseResultCache[$sq['eqn']]['prettyPrint']; } } else { $stringToParse = htmlspecialchars_decode($sq['eqn'],ENT_QUOTES); // TODO is this needed? $sqrel = $LEM->em->ProcessBooleanExpression($stringToParse,$qInfo['gseq'], $qInfo['qseq']); $hasErrors = $LEM->em->HasErrors(); if (($LEM->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX) { $prettyPrintSQRelEqn = $LEM->em->GetPrettyPrintString(); $prettyPrintSQRelEqns[$sq['rowdivid']] = $prettyPrintSQRelEqn; } $LEM->ParseResultCache[$sq['eqn']] = array( 'result'=>$sqrel, 'prettyPrint'=>$prettyPrintSQRelEqn, 'hasErrors'=>$hasErrors, ); } if ($sqrel) { $relevantSQs[] = $sgqa; $_SESSION['relevanceStatus'][$sq['rowdivid']]=true; } else { $irrelevantSQs[] = $sgqa; $_SESSION['relevanceStatus'][$sq['rowdivid']]=false; } } break; case 'L': //LIST drop-down/radio-button list if ($sgqa == ($sq['sgqa'] . 'other') && $sgqa == $sq['rowdivid']) // don't do sub-q level validition to main question, just to other option { $foundSQrelevance=true; if (isset($LEM->ParseResultCache[$sq['eqn']])) { $sqrel = $LEM->ParseResultCache[$sq['eqn']]['result']; if (($LEM->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX) { $prettyPrintSQRelEqns[$sq['rowdivid']] = $LEM->ParseResultCache[$sq['eqn']]['prettyPrint']; } } else { $stringToParse = htmlspecialchars_decode($sq['eqn'],ENT_QUOTES); // TODO is this needed? $sqrel = $LEM->em->ProcessBooleanExpression($stringToParse,$qInfo['gseq'], $qInfo['qseq']); $hasErrors = $LEM->em->HasErrors(); if (($LEM->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX) { $prettyPrintSQRelEqn = $LEM->em->GetPrettyPrintString(); $prettyPrintSQRelEqns[$sq['rowdivid']] = $prettyPrintSQRelEqn; } $LEM->ParseResultCache[$sq['eqn']] = array( 'result'=>$sqrel, 'prettyPrint'=>$prettyPrintSQRelEqn, 'hasErrors'=>$hasErrors, ); } if ($sqrel) { $relevantSQs[] = $sgqa; } else { $irrelevantSQs[] = $sgqa; } } break; default: break; } } // end foreach($LEM->subQrelInfo) [checking array-filters] if (!$foundSQrelevance) { // then this question is relevant $relevantSQs[] = $sgqa; } } } // end of processing relevant question for sub-questions // These array_unique only apply to array_filter of type L (list) $relevantSQs = array_unique($relevantSQs); $irrelevantSQs = array_unique($irrelevantSQs); //////////////////////////////////////////////////////////////////// // WHICH RELEVANT, VISIBLE (SUB)-QUESTIONS HAVEN'T BEEN ANSWERED? // //////////////////////////////////////////////////////////////////// // check that all mandatories have been fully answered (but don't require answers for sub-questions that are irrelevant $unansweredSQs = array(); // list of sub-questions that weren't answered foreach ($relevantSQs as $sgqa) { if (($qInfo['type'] != '*') && (!isset($_SESSION[$sgqa]) || ($_SESSION[$sgqa] === '' || is_null($_SESSION[$sgqa])))) { // then a relevant, visible, mandatory question hasn't been answered // Equations are ignored, since set automatically $unansweredSQs[] = $sgqa; } } ////////////////////////////////////////////// // DETECT ANY VIOLATIONS OF MANDATORY RULES // ////////////////////////////////////////////// $qmandViolation = false; // assume there is no mandatory violation until discover otherwise $mandatoryTip = ''; if ($qrel && !$qhidden && ($qInfo['mandatory'] == 'Y')) { $mandatoryTip = "
".$LEM->gT('This question is mandatory').'. '; switch ($qInfo['type']) { case 'M': case 'P': case '!': //List - dropdown case 'L': //LIST drop-down/radio-button list // If at least one checkbox is checked, we're OK if (count($relevantSQs) > 0 && (count($relevantSQs) == count($unansweredSQs))) { $qmandViolation = true; } if (!($qInfo['type'] == '!' || $qInfo['type'] == 'L')) { $mandatoryTip .= $LEM->gT('Please check at least one item.'); } if ($qInfo['other']=='Y') { $qattr = isset($LEM->qattr[$qid]) ? $LEM->qattr[$qid] : array(); if (isset($qattr['other_replace_text']) && trim($qattr['other_replace_text']) != '') { $othertext = trim($qattr['other_replace_text']); } else { $othertext = $LEM->gT('Other:'); } $mandatoryTip .= "
\n".sprintf($LEM->gT("If you choose '%s' you must provide a description."), $othertext); } break; case 'X': // Boilerplate can never be mandatory case '*': // Equation is auto-computed, so can't violate mandatory rules break; case 'A': case 'B': case 'C': case 'Q': case 'K': case 'E': case 'F': case 'J': case 'H': case ';': case '1': // In general, if any relevant questions aren't answered, then it violates the mandatory rule if (count($unansweredSQs) > 0) { $qmandViolation = true; // TODO - what about 'other'? } $mandatoryTip .= $LEM->gT('Please complete all parts').'.'; break; case ':': $qattr = isset($LEM->qattr[$qid]) ? $LEM->qattr[$qid] : array(); if (isset($qattr['multiflexible_checkbox']) && $qattr['multiflexible_checkbox'] == 1) { // Need to check whether there is at least one checked box per row foreach ($LEM->q2subqInfo[$qid]['subqs'] as $sq) { if (!isset($_SESSION['relevanceStatus'][$sq['rowdivid']]) || $_SESSION['relevanceStatus'][$sq['rowdivid']]) { $rowCount=0; $numUnanswered=0; foreach ($sgqas as $s) { if (strpos($s, $sq['rowdivid']) !== false) { ++$rowCount; if (array_search($s,$unansweredSQs) !== false) { ++$numUnanswered; } } } if ($rowCount > 0 && $rowCount == $numUnanswered) { $qmandViolation = true; } } } $mandatoryTip .= $LEM->gT('Please check at least one box per row').'.'; } else { if (count($unansweredSQs) > 0) { $qmandViolation = true; // TODO - what about 'other'? } $mandatoryTip .= $LEM->gT('Please complete all parts').'.'; } break; case 'R': if (count($unansweredSQs) > 0) { $qmandViolation = true; // TODO - what about 'other'? } $mandatoryTip .= $LEM->gT('Please rank all items').'.'; break; case 'O': //LIST WITH COMMENT drop-down/radio-button list + textarea $_count=0; for ($i=0;$i 0) { $qmandViolation = true; } break; default: if (count($unansweredSQs) > 0) { $qmandViolation = true; } break; } $mandatoryTip .= "\n"; } ///////////////////////////////////////////////////////////// // DETECT WHETHER QUESTION SHOULD BE FLAGGED AS UNANSWERED // ///////////////////////////////////////////////////////////// if ($qrel && !$qhidden) { switch ($qInfo['type']) { case 'M': case 'P': case '!': //List - dropdown case 'L': //LIST drop-down/radio-button list // If at least one checkbox is checked, we're OK if (count($relevantSQs) > 0 && (count($relevantSQs) == count($unansweredSQs))) { $anyUnanswered = true; } // what about optional vs. mandatory comment and 'other' fields? break; default: $anyUnanswered = (count($unansweredSQs) > 0); break; } } /////////////////////////////////////////////// // DETECT ANY VIOLATIONS OF VALIDATION RULES // /////////////////////////////////////////////// $qvalid=true; // assume valid unless discover otherwise $hasValidationEqn=false; $prettyPrintValidEqn=''; // assume no validation eqn by default $validationEqn=''; $validationJS=''; // assume can't generate JavaScript to validate equation $validTip=''; // default is none if (isset($LEM->qid2validationEqn[$qid])) { $hasValidationEqn=true; if (!$qhidden) // do this even is starts irrelevant, else will never show this information. { $validationEqns = $LEM->qid2validationEqn[$qid]['eqn']; $validationEqn = implode(' and ', $validationEqns); $qvalid = $LEM->em->ProcessBooleanExpression($validationEqn,$qInfo['gseq'], $qInfo['qseq']); $hasErrors = $LEM->em->HasErrors(); if (!$hasErrors) { $validationJS = $LEM->em->GetJavaScriptEquivalentOfExpression(); } $prettyPrintValidEqn = $validationEqn; if ((($this->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX)) { $prettyPrintValidEqn = $LEM->em->GetPrettyPrintString(); } $stringToParse = ''; foreach ($LEM->qid2validationEqn[$qid]['tips'] as $vclass=>$vtip) { $stringToParse .= "
" . $vtip . "
\n"; } $prettyPrintValidTip = $stringToParse; $validTip = $LEM->ProcessString($stringToParse, $qid,NULL,false,1,1,false,false); // TODO check for errors? if ((($this->debugLevel & LEM_PRETTY_PRINT_ALL_SYNTAX) == LEM_PRETTY_PRINT_ALL_SYNTAX)) { $prettyPrintValidTip = $LEM->GetLastPrettyPrintExpression(); } $sumEqn = $LEM->qid2validationEqn[$qid]['sumEqn']; $sumRemainingEqn = $LEM->qid2validationEqn[$qid]['sumRemainingEqn']; // $countEqn = $LEM->qid2validationEqn[$qid]['countEqn']; // $countRemainingEqn = $LEM->qid2validationEqn[$qid]['countRemainingEqn']; } else { if (($LEM->debugLevel & LEM_DEBUG_VALIDATION_DETAIL) == LEM_DEBUG_VALIDATION_DETAIL) { $prettyPrintValidEqn = 'Question is Irrelevant, so no need to further validate it'; } } } if (!$qvalid) { $invalidSQs = $LEM->qid2code[$qid]; // TODO - currently invalidates all - should only invalidate those that truly fail validation rules. } ///////////////////////////////////////////////////////// // OPTIONALLY DISPLAY (DETAILED) DEBUGGING INFORMATION // ///////////////////////////////////////////////////////// if (($LEM->debugLevel & LEM_DEBUG_VALIDATION_SUMMARY) == LEM_DEBUG_VALIDATION_SUMMARY) { $debug_qmessage .= '--[Q#' . $qInfo['qseq'] . ']' . "[" . 'QID:'. $qid . '][' . $qInfo['type'] . ']: ' . ($qrel ? 'relevant' : " irrelevant ") . ($qhidden ? " always-hidden " : ' ') . (($qInfo['mandatory'] == 'Y')? ' mandatory' : ' ') . (($hasValidationEqn) ? (!$qvalid ? " (fails validation rule) " : ' valid') : '') . ($qmandViolation ? " (missing a relevant mandatory) " : ' ') . $prettyPrintRelEqn . "
\n"; if (($LEM->debugLevel & LEM_DEBUG_VALIDATION_DETAIL) == LEM_DEBUG_VALIDATION_DETAIL) { if ($mandatoryTip != '') { $debug_qmessage .= '----Mandatory Tip: ' . FlattenText($mandatoryTip) . "
\n"; } if ($prettyPrintValidTip != '') { $debug_qmessage .= '----Pretty Validation Tip:
' . $prettyPrintValidTip . "
\n"; } if ($validTip != '') { $debug_qmessage .= '----Validation Tip:
' . $validTip . "
\n"; } if ($prettyPrintValidEqn != '') { $debug_qmessage .= '----Validation Eqn: ' . $prettyPrintValidEqn . "
\n"; } if ($validationJS != '') { $debug_qmessage .= '----Validation JavaScript: ' . $validationJS . "
\n"; } // what are the database question codes for this question? $subQList = '{' . implode('}, {', explode('|',$LEM->qid2code[$qid])) . '}'; // pretty-print them $LEM->ProcessString($subQList, $qid,NULL,false,1,1,false,false); $prettyPrintSubQList = $LEM->GetLastPrettyPrintExpression(); $debug_qmessage .= '----SubQs=> ' . $prettyPrintSubQList . "
\n"; if (count($prettyPrintSQRelEqns) > 0) { $debug_qmessage .= "----Array Filters Applied:
\n"; foreach ($prettyPrintSQRelEqns as $key => $value) { $debug_qmessage .= '------' . $key . ': ' . $value . "
\n"; } $debug_qmessage .= "
\n"; } if (count($relevantSQs) > 0) { $subQList = '{' . implode('}, {', $relevantSQs) . '}'; // pretty-print them $LEM->ProcessString($subQList, $qid,NULL,false,1,1,false,false); $prettyPrintSubQList = $LEM->GetLastPrettyPrintExpression(); $debug_qmessage .= '----Relevant SubQs: ' . $prettyPrintSubQList . "
\n"; } if (count($irrelevantSQs) > 0) { $subQList = '{' . implode('}, {', $irrelevantSQs) . '}'; // pretty-print them $LEM->ProcessString($subQList, $qid,NULL,false,1,1,false,false); $prettyPrintSubQList = $LEM->GetLastPrettyPrintExpression(); $debug_qmessage .= '----Irrelevant SubQs: ' . $prettyPrintSubQList . "
\n"; } // show which relevant subQs were not answered if (count($unansweredSQs) > 0) { $subQList = '{' . implode('}, {', $unansweredSQs) . '}'; // pretty-print them $LEM->ProcessString($subQList, $qid,NULL,false,1,1,false,false); $prettyPrintSubQList = $LEM->GetLastPrettyPrintExpression(); $debug_qmessage .= '----Unanswered Relevant SubQs: ' . $prettyPrintSubQList . "
\n"; } } } ///////////////////////////////////////////////////////////// // CREATE ARRAY OF VALUES THAT NEED TO BE SILENTLY UPDATED // ///////////////////////////////////////////////////////////// $updatedValues=array(); if (!$qrel || !$grel) { // If not relevant, then always NULL it in the database $sgqas = explode('|',$LEM->qid2code[$qid]); foreach ($sgqas as $sgqa) { $_SESSION[$sgqa] = NULL; $updatedValues[$sgqa] = NULL; $LEM->updatedValues[$sgqa] = NULL; } } else if ($qInfo['type'] == '*') { // Process relevant equations, even if hidden, and write the result to the database $result = FlattenText($LEM->ProcessString($qInfo['eqn'], $qInfo['qid'],NULL,false,1,1,false,false)); $sgqa = $LEM->qid2code[$qid]; // there will be only one, since Equation // Store the result of the Equation in the SESSION $_SESSION[$sgqa] = $result; $_update = array( 'type'=>'*', 'value'=>$result, ); $updatedValues[$sgqa] = $_update; $LEM->updatedValues[$sgqa] = $_update; if (($LEM->debugLevel & LEM_DEBUG_VALIDATION_DETAIL) == LEM_DEBUG_VALIDATION_DETAIL) { $prettyPrintEqn = $LEM->em->GetPrettyPrintString(); $debug_qmessage .= '** Process Hidden but Relevant Equation [' . $sgqa . '](' . $prettyPrintEqn . ') => ' . $result . "
\n"; } } foreach ($irrelevantSQs as $sq) { // NULL irrelevant sub-questions $_SESSION[$sq] = NULL; $updatedValues[$sq] = NULL; $LEM->updatedValues[$sq]= NULL; } // Regardless of whether relevant or hidden, if there is a default value and $_SESSION[$sgqa] is NULL, then use the default value in $_SESSION, but don't write to database // Also, set this AFTER testing relevance $sgqas = explode('|',$LEM->qid2code[$qid]); foreach ($sgqas as $sgqa) { if (!is_null($LEM->knownVars[$sgqa]['default']) && !isset($_SESSION[$sgqa])) { // add support for replacements $defaultVal = $LEM->ProcessString($LEM->knownVars[$sgqa]['default'], NULL, NULL, false, 1, 1, false, false, true); $_SESSION[$sgqa] = $defaultVal; } } ////////////////////////////////////////////////////////////////////////// // STORE METADATA NEEDED FOR SUBSEQUENT PROCESSING AND DISPLAY PURPOSES // ////////////////////////////////////////////////////////////////////////// $qStatus = array( 'info' => $qInfo, // collect all questions within the group - includes mandatory and always-hiddden status 'relevant' => $qrel, 'hidden' => $qInfo['hidden'], 'relEqn' => $prettyPrintRelEqn, 'sgqa' => $LEM->qid2code[$qid], 'unansweredSQs' => implode('|',$unansweredSQs), 'valid' => $qvalid, 'validEqn' => $validationEqn, 'prettyValidEqn' => $prettyPrintValidEqn, 'validTip' => $validTip, 'prettyValidTip' => $prettyPrintValidTip, 'validJS' => $validationJS, 'invalidSQs' => (isset($invalidSQs) ? $invalidSQs : ''), 'relevantSQs' => implode('|',$relevantSQs), 'irrelevantSQs' => implode('|',$irrelevantSQs), 'subQrelEqn' => implode('
',$prettyPrintSQRelEqns), 'mandViolation' => $qmandViolation, 'anyUnanswered' => $anyUnanswered, 'mandTip' => $mandatoryTip, 'message' => $debug_qmessage, 'updatedValues' => $updatedValues, 'sumEqn' => (isset($sumEqn) ? $sumEqn : ''), 'sumRemainingEqn' => (isset($sumRemainingEqn) ? $sumRemainingEqn : ''), // 'countEqn' => (isset($countEqn) ? $countEqn : ''), // 'countRemainingEqn' => (isset($countRemainingEqn) ? $countRemainingEqn : ''), ); $LEM->currentQset[$qid] = $qStatus; //////////////////////////////////////////////////////// // STORE METADATA NEEDED TO GENERATE NAVIGATION INDEX // //////////////////////////////////////////////////////// $groupSeq = $qInfo['gseq']; $LEM->indexQseq[$questionSeq] = array( 'qid' => $qInfo['qid'], 'qtext' => $qInfo['qtext'], 'qcode' => $qInfo['code'], 'qhelp' => $qInfo['help'], 'anyUnanswered' => $anyUnanswered, 'anyErrors' => (($qmandViolation || !$qvalid) ? true : false), 'show' => (($qrel && !$qInfo['hidden']) ? true : false), 'gseq' => $groupSeq, 'gtext' => $LEM->gseq2info[$groupSeq]['description'], 'gname' => $LEM->gseq2info[$groupSeq]['group_name'], 'gid' => $LEM->gseq2info[$groupSeq]['gid'], // TODO may not be right if using randomization? 'mandViolation' => $qmandViolation, 'valid' => $qvalid, ); $_SESSION['relevanceStatus'][$qid] = $qrel; return $qStatus; } static function GetQuestionStatus($qid) { $LEM =& LimeExpressionManager::singleton(); if (isset($LEM->currentQset[$qid])) { return $LEM->currentQset[$qid]; } return NULL; } /** * Get array of info needed to display the Group Index * @return */ static function GetGroupIndexInfo($gseq=NULL) { $LEM =& LimeExpressionManager::singleton(); if (is_null($gseq)) { return $LEM->indexGseq; } else { return $LEM->indexGseq[$gseq]; } } /** * Translate GID to 0-index Group Sequence number. Only used by Preview Group * @param $gid * @return */ static function GetGroupSeq($gid) { $LEM =& LimeExpressionManager::singleton(); return (isset($LEM->groupId2groupSeq[$gid]) ? $LEM->groupId2groupSeq[$gid] : -1); } /** * Get question sequence number from QID * @param $qid * @return */ static function GetQuestionSeq($qid) { $LEM =& LimeExpressionManager::singleton(); return (isset($LEM->questionId2questionSeq[$qid]) ? $LEM->questionId2questionSeq[$qid] : -1); } /** * Get array of info needed to display the Question Index * @return */ static function GetQuestionIndexInfo() { $LEM =& LimeExpressionManager::singleton(); return $LEM->indexQseq; } /** * Return entries needed to build the navigation index * @param $step - if specified, return a single value, otherwise return entire array * @return - will be either question or group-level, depending upon $surveyMode */ static function GetStepIndexInfo($step=NULL) { $LEM =& LimeExpressionManager::singleton(); switch ($LEM->surveyMode) { case 'survey': return $LEM->lastMoveResult; break; case 'group': if (is_null($step)) { return $LEM->indexGseq; } return $LEM->indexGseq[$step]; break; case 'question': if (is_null($step)) { return $LEM->indexQseq; } return $LEM->indexQseq[$step]; break; } } /** * This should be called each time a new group is started, whether on same or different pages. Sets/Clears needed internal parameters. * @param $gseq - the group sequence * @param $anonymized - whether anonymized * @param $surveyid - the surveyId * @param $forceRefresh - whether to force refresh of setting variable and token mappings (should be done rarely) */ static function StartProcessingGroup($gseq=NULL,$anonymized=false,$surveyid=NULL,$forceRefresh=false) { $LEM =& LimeExpressionManager::singleton(); $LEM->em->StartProcessingGroup( isset($surveyid) ? $surveyid : NULL, isset($LEM->surveyOptions['rooturl']) ? $LEM->surveyOptions['rooturl'] : '', isset($LEM->surveyOptions['hyperlinkSyntaxHighlighting']) ? $LEM->surveyOptions['hyperlinkSyntaxHighlighting'] : false ); $LEM->groupRelevanceInfo = array(); if (!is_null($gseq)) { $LEM->currentGroupSeq = $gseq; if (!is_null($surveyid)) { $LEM->setVariableAndTokenMappingsForExpressionManager($surveyid,$forceRefresh,$anonymized,$LEM->allOnOnePage); if ($gseq > $LEM->maxGroupSeq) { $LEM->maxGroupSeq = $gseq; } if (!$LEM->allOnOnePage || ($LEM->allOnOnePage && !$LEM->processedRelevance)) { $LEM->ProcessAllNeededRelevance(); // TODO - what if this is called using Survey or Data Entry format? $LEM->_CreateSubQLevelRelevanceAndValidationEqns(); $LEM->processedRelevance=true; } } } } /** * Should be called after each group finishes */ static function FinishProcessingGroup($skipReprocessing=false) { // $now = microtime(true); $LEM =& LimeExpressionManager::singleton(); if ($skipReprocessing && $LEM->surveyMode != 'survey') { $LEM->pageTailorInfo=array(); $LEM->pageRelevanceInfo=array(); } $LEM->pageTailorInfo[] = $LEM->em->GetCurrentSubstitutionInfo(); $LEM->pageRelevanceInfo[] = $LEM->groupRelevanceInfo; // $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); } /** * Returns an array of string parts, splitting out expressions * @param type $src * @return type */ static function SplitStringOnExpressions($src) { $LEM =& LimeExpressionManager::singleton(); return $LEM->em->asSplitStringOnExpressions($src); } /** * Return a formatted table showing how much time each part of EM consumed * @return */ static function GetDebugTimingMessage() { $LEM =& LimeExpressionManager::singleton(); return $LEM->debugTimingMsg; } /** * Should be called at end of each page */ static function FinishProcessingPage() { $LEM =& LimeExpressionManager::singleton(); $totalTime = 0.; if ((($LEM->debugLevel & LEM_DEBUG_TIMING) == LEM_DEBUG_TIMING) && count($LEM->runtimeTimings)>0) { $LEM->debugTimingMsg=''; foreach($LEM->runtimeTimings as $unit) { $totalTime += $unit[1]; } $LEM->debugTimingMsg .= "\n"; foreach ($LEM->runtimeTimings as $t) { $LEM->debugTimingMsg .= "\n"; } $LEM->debugTimingMsg .= "
Total time attributable to EM = " . $totalTime . "
" . $t[0] . "" . $t[1] . "
\n"; } // log_message('debug','Total time attributable to EM = ' . $totalTime); // log_message('debug',print_r($LEM->runtimeTimings,true)); $LEM->runtimeTimings = array(); // reset them $LEM->initialized=false; // so detect calls after done $LEM->ParseResultCache=array(); // don't need to persist it in session $_SESSION['LEMsingleton']=serialize($LEM); } /* * Generate JavaScript needed to do dynamic relevance and tailoring * Also create list of variables that need to be declared */ static function GetRelevanceAndTailoringJavaScript() { global $rooturl; $now = microtime(true); $LEM =& LimeExpressionManager::singleton(); $jsParts=array(); $allJsVarsUsed=array(); $rowdividList=array(); // list of subquestions needing relevance entries $jsParts[] = ''; $jsParts[] = "\n\n"; // Now figure out which variables have not been declared (those not on the current page) $undeclaredJsVars = array(); $undeclaredVal = array(); if (!$LEM->allOnOnePage) { foreach ($LEM->knownVars as $key=>$knownVar) { if (!is_numeric($key[0])) { continue; } if ($knownVar['jsName'] == '') { continue; } foreach ($allJsVarsUsed as $jsVar) { if ($jsVar == $knownVar['jsName']) { if ($LEM->surveyMode=='group' && $knownVar['gseq'] == $LEM->currentGroupSeq) { if ($knownVar['hidden'] && $knownVar['type'] != '*') { ; // need to declare a hidden variable for non-equation hidden variables so can do dynamic lookup. } else { continue; } } if ($LEM->surveyMode=='question' && $knownVar['qid'] == $LEM->currentQID) { continue; } $undeclaredJsVars[] = $jsVar; $sgqa = $knownVar['sgqa']; $codeValue = (isset($_SESSION[$sgqa])) ? $_SESSION[$sgqa] : ''; $undeclaredVal[$jsVar] = $codeValue; if (isset($LEM->jsVar2qid[$jsVar])) { $qidList[$LEM->jsVar2qid[$jsVar]] = $LEM->jsVar2qid[$jsVar]; } } } } $undeclaredJsVars = array_unique($undeclaredJsVars); foreach ($undeclaredJsVars as $jsVar) { // TODO - is different type needed for text? Or process value to striphtml? if ($jsVar == '') continue; $jsParts[] = "\n"; } } else { // For all-in-one mode, declare the always-hidden variables, since qanda will not be called for them. foreach ($LEM->knownVars as $key=>$knownVar) { if (!is_numeric($key[0])) { continue; } if ($knownVar['jsName'] == '') { continue; } if ($knownVar['hidden']) { $jsVar = $knownVar['jsName']; $undeclaredJsVars[] = $jsVar; $sgqa = $knownVar['sgqa']; $codeValue = (isset($_SESSION[$sgqa])) ? $_SESSION[$sgqa] : ''; $undeclaredVal[$jsVar] = $codeValue; } } $undeclaredJsVars = array_unique($undeclaredJsVars); foreach ($undeclaredJsVars as $jsVar) { if ($jsVar == '') continue; $jsParts[] = "\n"; } } foreach ($qidList as $qid) { if (isset($_SESSION['relevanceStatus'])) { $relStatus = (isset($_SESSION['relevanceStatus'][$qid]) ? $_SESSION['relevanceStatus'][$qid] : 1); } else { $relStatus = 1; } $jsParts[] = "\n"; } foreach ($gseqList as $gseq) { if (isset($_SESSION['relevanceStatus'])) { $relStatus = (isset($_SESSION['relevanceStatus']['G' . $gseq]) ? $_SESSION['relevanceStatus']['G' . $gseq] : 1); } else { $relStatus = 1; } $jsParts[] = "\n"; } foreach ($rowdividList as $key=>$val) { $jsParts[] = "\n"; } $LEM->runtimeTimings[] = array(__METHOD__,(microtime(true) - $now)); return implode('',$jsParts); } static function setTempVars($vars) { $LEM =& LimeExpressionManager::singleton(); $LEM->tempVars = $vars; } /** * Unit test strings containing expressions */ static function UnitTestProcessStringContainingExpressions() { $vars = array( 'name' => array('sgqa'=>'name', 'code'=>'Peter', 'jsName'=>'java61764X1X1', 'readWrite'=>'N', 'type'=>'X', 'question'=>'What is your first/given name?', 'qseq'=>10, 'gseq'=>1), 'surname' => array('sgqa'=>'surname', 'code'=>'Smith', 'jsName'=>'java61764X1X1', 'readWrite'=>'Y', 'type'=>'X', 'question'=>'What is your last/surname?', 'qseq'=>20, 'gseq'=>1), 'age' => array('sgqa'=>'age', 'code'=>45, 'jsName'=>'java61764X1X2', 'readWrite'=>'Y', 'type'=>'X', 'question'=>'How old are you?', 'qseq'=>30, 'gseq'=>2), 'numKids' => array('sgqa'=>'numKids', 'code'=>2, 'jsName'=>'java61764X1X3', 'readWrite'=>'Y', 'type'=>'X', 'question'=>'How many kids do you have?', 'relevance'=>'1', 'qid'=>'40','qseq'=>40, 'gseq'=>2), 'numPets' => array('sgqa'=>'numPets', 'code'=>1, 'jsName'=>'java61764X1X4', 'readWrite'=>'Y', 'type'=>'X','question'=>'How many pets do you have?', 'qseq'=>50, 'gseq'=>2), 'gender' => array('sgqa'=>'gender', 'code'=>'M', 'jsName'=>'java61764X1X5', 'readWrite'=>'Y', 'type'=>'X', 'shown'=>'Male','question'=>'What is your gender (male/female)?', 'qseq'=>110, 'gseq'=>2), 'notSetYet' => array('sgqa'=>'notSetYet', 'code'=>'?', 'jsName'=>'java61764X3X6', 'readWrite'=>'Y', 'type'=>'X', 'shown'=>'Unknown','question'=>'Who will win the next election?', 'qseq'=>200, 'gseq'=>3), // Constants '61764X1X1' => array('sgqa'=>'61764X1X1', 'code'=> '', 'jsName'=>'', 'readWrite'=>'N', 'type'=>'X', 'qseq'=>70, 'gseq'=>2), '61764X1X2' => array('sgqa'=>'61764X1X2', 'code'=> 45, 'jsName'=>'', 'readWrite'=>'N', 'type'=>'X', 'qseq'=>80, 'gseq'=>2), '61764X1X3' => array('sgqa'=>'61764X1X3', 'code'=> 2, 'jsName'=>'', 'readWrite'=>'N', 'type'=>'X', 'qseq'=>15, 'gseq'=>1), '61764X1X4' => array('sgqa'=>'61764X1X4', 'code'=> 1, 'jsName'=>'', 'readWrite'=>'N', 'type'=>'X', 'qseq'=>100, 'gseq'=>2), 'TOKEN:ATTRIBUTE_1' => array('code'=> 'worker', 'jsName'=>'', 'readWrite'=>'N', 'type'=>'X'), ); $tests = <<This example shows escaping of the curly braces
\{\{test\}\} {if(1==1,'{{test}}', '1 is not 1?')} should not throw any errors. Here is an example of OK syntax with tooltips
Hello {if(gender=='M','Mr.','Mrs.')} {surname}, it is now {date('g:i a',time())}. Do you know where your {sum(numPets,numKids)} chidren and pets are? Here are common errors so you can see the tooltips
Variables used before they are declared: {notSetYet}
Unknown Function: {iff(numPets>numKids,1,2)}
Unknown Variable: {sum(age,num_pets,numKids)}
Wrong # parameters: {sprintf()},{if(1,2)},{date()}
Assign read-only-vars:{TOKEN:ATTRIBUTE_1+=10},{name='Sally'}
Unbalanced parentheses: {pow(3,4},{(pow(3,4)},{pow(3,4))} Here is some of the unsupported syntax
No support for '++', '--', '%',';': {min(++age, --age,age % 2);}
Nor '|', '&', '^': {(sum(2 | 3,3 & 4,5 ^ 6)}}
Nor arrays: {name[2], name['mine']} Inline JavaScipt that forgot to add spaces after curly brace
[script type="text/javascript" language="Javascript"] var job='{TOKEN:ATTRIBUTE_1}'; if (job=='worker') {document.write('BOSSES');}[/script] Unknown/Misspelled Variables, Functions, and Operators
{if(sex=='M','Mr.','Mrs.')} {surname}, next year you will be {age++} years old. Warns if use = instead of == or perform value assignments
Hello, {if(gender='M','Mr.','Mrs.')} {surname}, next year you will be {age+=1} years old. Wrong number of arguments for functions:
{if(gender=='M','Mr.','Mrs.','Other')} {surname}, sum(age,numKids,numPets)={sum(age,numKids,numPets,)} Mismatched parentheses
pow(3,4)={pow(3,4)}
but these are wrong: {pow(3,4}, {(((pow(3,4)}, {pow(3,4))} Unsupported syntax
No support for '++', '--', '%',';': {min(++age, --age, age % 2);}
Nor '|', '&', '^': {(sum(2 | 3, 3 & 4, 5 ^ 6)}}
Nor arrays: {name[2], name['mine']} Invalid assignments
Assign values to equations or strings: {(3 + 4)=5}, {'hi'='there'}
Assign read-only vars: {TOKEN:ATTRIBUTE_1='boss'}, {name='Sally'} Values:
name={name}; surname={surname}
gender={gender}; age={age}; numPets={numPets}
numKids=INSERTANS:61764X1X3={numKids}={INSERTANS:61764X1X3}
TOKEN:ATTRIBUTE_1={TOKEN:ATTRIBUTE_1} Question Attributes:
numKids.question={numKids.question}; Question#={numKids.qid}; .relevance={numKids.relevance} Math:
5+7={5+7}; 2*pi={2*pi()}; sin(pi/2)={sin(pi()/2)}; max(age,numKids,numPets)={max(age,numKids,numPets)} Text Processing:
{str_replace('like','love','I like LimeSurvey')}
{ucwords('hi there')}, {name}
{implode('--',name,'this is','a convenient way','way to','concatenate strings')} Dates:
{name}, the current date/time is: {date('F j, Y, g:i a',time())} Conditional:
Hello, {if(gender=='M','Mr.','Mrs.')} {surname}, may I call you {name}? Tailored Paragraph:
{name}, you said that you are {age} years old, and that you have {numKids} {if((numKids==1),'child','children')} and {numPets} {if((numPets==1),'pet','pets')} running around the house. So, you have {numKids + numPets} wild {if((numKids + numPets ==1),'beast','beasts')} to chase around every day.

Since you have more {if((numKids > numPets),'children','pets')} than you do {if((numKids > numPets),'pets','children')}, do you feel that the {if((numKids > numPets),'pets','children')} are at a disadvantage?

EM processes within strings:
Here is your picture [img src='images/users_{name}_{surname}.jpg' alt='{if(gender=='M','Mr.','Mrs.')} {name} {surname}'/]; EM doesn't process curly braces like these:
{name}, { this is not an expression}
{nor is this }, { nor this }
\{nor this\},{this\},\{or this } {INSERTANS:61764X1X1}, you said that you are {INSERTANS:61764X1X2} years old, and that you have {INSERTANS:61764X1X3} {if((INSERTANS:61764X1X3==1),'child','children')} and {INSERTANS:61764X1X4} {if((INSERTANS:61764X1X4==1),'pet','pets')} running around the house. So, you have {INSERTANS:61764X1X3 + INSERTANS:61764X1X4} wild {if((INSERTANS:61764X1X3 + INSERTANS:61764X1X4 ==1),'beast','beasts')} to chase around every day. Since you have more {if((INSERTANS:61764X1X3 > INSERTANS:61764X1X4),'children','pets')} than you do {if((INSERTANS:61764X1X3 > INSERTANS:61764X1X4),'pets','children')}, do you feel that the {if((INSERTANS:61764X1X3 > INSERTANS:61764X1X4),'pets','children')} are at a disadvantage? {INSERTANS:61764X1X1}, you said that you are {INSERTANS:61764X1X2} years old, and that you have {INSERTANS:61764X1X3} {if((INSERTANS:61764X1X3==1),'child','children','kiddies')} and {INSERTANS:61764X1X4} {if((INSERTANS:61764X1X4==1),'pet','pets')} running around the house. So, you have {INSERTANS:61764X1X3 + INSERTANS:61764X1X4} wild {if((INSERTANS:61764X1X3 + INSERTANS:61764X1X4 ==1),'beast','beasts')} to chase around every day. This line should throw errors since the curly-brace enclosed functions do not have linefeeds after them (and before the closing curly brace): var job='{TOKEN:ATTRIBUTE_1}'; if (job=='worker') { document.write('BOSSES') } else { document.write('WORKERS') } This line has a script section, but if you look at the source, you will see that it has errors: . Substitions that begin or end with a space should be ignored: { name} {age } EOD; $alltests = explode("\n",$tests); $javascript1 = <<'; $alltests[] = 'This line has a hidden script: '; LimeExpressionManager::StartProcessingPage(); LimeExpressionManager::StartProcessingGroup(1); $LEM =& LimeExpressionManager::singleton(); $LEM->tempVars = $vars; $LEM->questionId2questionSeq = array(); $LEM->questionId2groupSeq = array(); $_SESSION['relevanceStatus'] = array(); foreach ($vars as $var) { if (isset($var['qseq'])) { $LEM->questionId2questionSeq[$var['qseq']] = $var['qseq']; $LEM->questionId2groupSeq[$var['qseq']] = $var['gseq']; $_SESSION['relevanceStatus'][$var['qseq']] = 1; } } print "

Note, if the Vars Used column is red, then at least one error was found in the Source. In such cases, the Vars Used list may be missing names of variables from sub-expressions containing errors

"; print ''; for ($i=0;$iem->GetAllVarsUsed(); if (count($varsUsed) > 0) { sort($varsUsed); $varList = implode(',
', $varsUsed); } else { $varList = ' '; } print "\n"; print "\n"; print "\n"; if ($LEM->em->HasErrors()) { print "\n"; print "\n"; } print '
SourcePretty PrintResultVars Used
" . htmlspecialchars($test,ENT_QUOTES) . "" . $prettyPrint . "" . $result . ""; } else { print ""; } print $varList . "
'; LimeExpressionManager::FinishProcessingGroup(); LimeExpressionManager::FinishProcessingPage(); } /** * Unit test Relevance using a simplified syntax to represent questions. */ static function UnitTestRelevance() { // Tests: varName~relevance~inputType~message $tests = <<80))} agestop~!is_empty(age) && ((age<16) || (age>80))~message~Sorry, {name}, you are too {if((age<16),'young',if((age>80),'old','middle-aged'))} for this test. kids~!((age<16) || (age>80))~yesno~Do you have children (Y/N)? kidsO~!is_empty(kids) && !(kids=='Y' or kids=='N')~message~Please answer the question about whether you have children with 'Y' or 'N'. wantsKids~kids=='N'~yesno~Do you hope to have kids some day (Y/N)? wantsKidsY~wantsKids=='Y'~message~{name}, I hope you are able to have children some day! wantsKidsN~wantsKids=='N'~message~{name}, I hope you have a wonderfully fulfilling life! wantsKidsO~!is_empty(wantsKids) && !(wantsKids=='Y' or wantsKids=='N')~message~Please answer the question about whether you want children with 'Y' or 'N'. parents~1~expr~{parents = (!badage && kids=='Y')} numKids~kids=='Y'~text~How many children do you have? numKidsValidation~parents and strlen(numKids) > 0 and numKids <= 0~message~{name}, please check your entries. You said you do have children, {numKids} of them, which makes no sense. kid1~numKids >= 1~text~How old is your first child? kid2~numKids >= 2~text~How old is your second child? kid3~numKids >= 3~text~How old is your third child? kid4~numKids >= 4~text~How old is your fourth child? kid5~numKids >= 5~text~How old is your fifth child? sumage~1~expr~{sumage=sum(kid1.NAOK,kid2.NAOK,kid3.NAOK,kid4.NAOK,kid5.NAOK)} report~numKids > 0~message~{name}, you said you are {age} and that you have {numKids} kids. The sum of ages of your first {min(numKids,5)} kids is {sumage}. EOT; $vars = array(); $varsNAOK = array(); $varSeq = array(); $testArgs = array(); $argInfo = array(); LimeExpressionManager::SetDirtyFlag(); $LEM =& LimeExpressionManager::singleton(); LimeExpressionManager::StartProcessingPage(true); LimeExpressionManager::StartProcessingGroup(1); // pretending this is group 1 // collect variables $i=0; foreach(explode("\n",$tests) as $test) { $args = explode("~",$test); $type = (($args[1]=='expr') ? '*' : ($args[1]=='message') ? 'X' : 'S'); $vars[$args[0]] = array('sgqa'=>$args[0], 'code'=>'', 'jsName'=>'java' . $args[0], 'jsName_on'=>'java' . $args[0], 'readWrite'=>'Y', 'type'=>$type, 'relevanceStatus'=>'1', 'gid'=>1, 'gseq'=>1, 'qseq'=>$i, 'qid'=>$i); $varSeq[] = $args[0]; $testArgs[] = $args; $LEM->questionId2questionSeq[$i] = $i; $LEM->questionId2groupSeq[$i] = 1; $LEM->questionSeq2relevance[$i] = array( 'relevance'=>htmlspecialchars(preg_replace('/[[:space:]]/',' ',$args[1]),ENT_QUOTES), 'qid'=>$i, 'qseq'=>$i, 'gseq'=>1, 'jsResultVar'=>'java' . $args[0], 'type'=>$type, 'hidden'=>false, 'gid'=>1, // ($i % 3), ); ++$i; } $LEM->knownVars = $vars; // this overwrites local values, so must set dirty flag when done with this function $LEM->gRelInfo[1] = array( 'gid' => 1, 'gseq' => 1, 'eqn' => '', 'result' => 1, 'numJsVars' => 0, 'relevancejs' => '', 'relevanceVars' => '', 'prettyPrint'=> '', ); $LEM->ProcessAllNeededRelevance(); // collect relevance $alias2varName = array(); $varNameAttr = array(); for ($i=0;$i $i, 'name' => $jsVarName, 'sgqa' => $testArg[0], 'type' => $testArg[2], 'question' => $question, 'relevance' => $testArg[1], 'relevanceStatus' => $rel ); $alias2varName[$var] = array('jsName'=>$jsVarName, 'jsPart' => "'" . $var . "':'" . $jsVarName . "'"); $alias2varName[$jsVarName] = array('jsName'=>$jsVarName, 'jsPart' => "'" . $jsVarName . "':'" . $jsVarName . "'"); $varNameAttr[$jsVarName] = "'" . $jsVarName . "':{" . "'jsName':'" . $jsVarName . "','jsName_on':'" . $jsVarName . "','sgqa':'" . substr($jsVarName,4) . "','qid':" . $i . ",'gid':". 1 // ($i % 3) // so have 3 possible group numbers . "}"; } $LEM->alias2varName = $alias2varName; $LEM->varNameAttr = $varNameAttr; LimeExpressionManager::FinishProcessingGroup(); LimeExpressionManager::FinishProcessingPage(); print <<< EOD EOD; print LimeExpressionManager::GetRelevanceAndTailoringJavaScript(); // Print Table of questions print "

This is a test of dynamic relevance.

"; print "Enter your name and age, and try all the permutations of answers to whether you have or want children.
\n"; print "Note how the text and sum of ages changes dynamically; that prior answers are remembered; and that irrelevant values are not included in the sum of ages.
"; print "
"; foreach ($argInfo as $arg) { $rel = LimeExpressionManager::QuestionIsRelevant($arg['num']); print "
"; LimeExpressionManager::SetDirtyFlag(); // so subsequent tests don't try to access these variables } /** * Set the 'this' variable as an alias for SGQA within the code. * @param $sgqa */ public static function SetThisAsAliasForSGQA($sgqa) { $LEM =& LimeExpressionManager::singleton(); if (isset($LEM->knownVars[$sgqa])) { $LEM->qcode2sgqa['this']=$sgqa; } } public static function ShowStackTrace(&$msg=NULL,&$args=NULL) { $LEM =& LimeExpressionManager::singleton(); $msg = array("**Stack Trace**" . (is_null($msg) ? '' : ' - ' . $msg)); $count = 0; foreach (debug_backtrace(false) as $log) { if ($count++ == 0){ continue; // skip this call } $LEM->debugStack = array(); $subargs=array(); if (!is_null($args) && $log['function'] == 'templatereplace') { foreach ($args as $arg) { if (isset($log['args'][2][$arg])) { $subargs[$arg] = $log['args'][2][$arg]; } } if (count($subargs) > 0) { $arglist = print_r($subargs,true); } else { $arglist = ''; } } else { $arglist = ''; } $msg[] = ' ' . (isset($log['file']) ? '[' . basename($log['file']) . ']': '') . (isset($log['class']) ? $log['class'] : '') . (isset($log['type']) ? $log['type'] : '') . (isset($log['function']) ? $log['function'] : '') . (isset($log['line']) ? '[' . $log['line'] . ']' : '') . $arglist; } } private function gT($string) { // eventually replace this with i8n global $clang; if (isset($clang)) { return htmlspecialchars($clang->gT($string),ENT_QUOTES); } else { return $string; } } /** * Returns true if the survey is using comma as the radix * @return type */ public static function usingCommaAsRadix() { $LEM =& LimeExpressionManager::singleton(); $usingCommaAsRadix = (($LEM->surveyOptions['radix']==',') ? true : false); return $usingCommaAsRadix; } private static function getConditionsForEM($surveyid=NULL, $qid=NULL) { global $databasetype; if (!is_null($qid)) { $where = " c.qid = ".$qid." and "; } else if (!is_null($surveyid)) { $where = " c.qid in (select qid from ".db_table_name('questions')." where sid = ".$surveyid.") and "; } else { $where = ""; } $query = "select distinct c.*" .", q.sid, q.type" ." from ".db_table_name('conditions')." as c" .", ".db_table_name('questions')." as q" ." where " . $where ." c.cqid=q.qid" ." union " ." select c.*, q.sid, '' as type" ." from ".db_table_name('conditions')." as c" .", ".db_table_name('questions')." as q" ." where ". $where ." c.cqid = 0 and c.qid = q.qid"; if ($databasetype == 'odbc_mssql' || $databasetype == 'odbtp' || $databasetype == 'mssql_n' || $databasetype =='mssqlnative') { $query .= " order by sid, c.qid, scenario, cqid, cfieldname, value"; } else { $query .= " order by sid, qid, scenario, cqid, cfieldname, value"; } $data = db_execute_assoc($query); return $data; } /** * Deprecate obsolete question attributes. * @param boolean $changedb - if true, updates parameters and deletes old ones * @param type $surveyid - if set, then only for that survey * @param type $onlythisqid - if set, then only for this question ID */ public static function UpgradeQuestionAttributes($changeDB=false,$surveyid=NULL,$onlythisqid=NULL) { $LEM =& LimeExpressionManager::singleton(); $qattrs = $LEM->getQuestionAttributesForEM($surveyid,$onlythisqid); $qupdates = array(); $attibutemap = array( 'max_num_value_sgqa' => 'max_num_value', 'min_num_value_sgqa' => 'min_num_value', 'num_value_equals_sgqa' => 'equals_num_value', ); $reverseAttributeMap = array_flip($attibutemap); foreach ($qattrs as $qid => $qattr) { $updates = array(); foreach ($attibutemap as $src=>$target) { if (isset($qattr[$src]) && trim($qattr[$src]) != '') { $updates[$target] = $qattr[$src]; } } if (count($updates) > 0) { $qupdates[$qid] = $updates; } } if ($changeDB) { $queries = array(); foreach ($qupdates as $qid=>$updates) { foreach ($updates as $key=>$value) { $query = "UPDATE ".db_table_name('question_attributes')." SET value=".db_quoteall($value)." WHERE qid=".$qid." and attribute=".db_quoteall($key); $queries[] = $query; $query = "DELETE FROM ".db_table_name('question_attributes')." WHERE qid=".$qid." and attribute=".db_quoteall($reverseAttributeMap[$key]); $queries[] = $query; } } foreach ($queries as $query) { db_execute_assoc($query); } return $queries; } else { return $qupdates; } } private function getQuestionAttributesForEM($surveyid=NULL,$qid=NULL, $lang=NULL) { if (!is_null($qid)) { $where = " a.qid = ".$qid." and a.qid=b.qid"; } else if (!is_null($surveyid)) { $where = " a.qid=b.qid and b.sid=".$surveyid; } else { $where = " a.qid=b.qid"; } if (!is_null($lang)) { $lang = " and a.language='".$lang."' and b.language='".$lang."'"; } global $databasetype; if ($databasetype == 'odbc_mssql' || $databasetype == 'odbtp' || $databasetype == 'mssql_n' || $databasetype =='mssqlnative') { $query = "select distinct a.qid, a.attribute, CAST(a.value as varchar(4000)) as value"; } else { $query = "select distinct a.qid, a.attribute, a.value"; } $query .= " from ".db_table_name('question_attributes')." as a, ".db_table_name('questions')." as b" ." where " . $where .$lang ." order by a.qid, a.attribute"; $data = db_execute_assoc($query); $qattr = array(); foreach($data->GetRows() as $row) { $qattr[$row['qid']][$row['attribute']] = $row['value']; } if (!is_null($lang)) { // Then get non-language specific first, and overwrite with language-specific $qattr2 = $qattr; $qattr = $this->getQuestionAttributesForEM($surveyid,$qid); foreach ($qattr2 as $q => $qattrs) { if (is_array($qattrs)) { foreach ($qattrs as $attr=>$value) { $qattr[$q][$attr] = $value; } } } } return $qattr; } /** * Return array of language-specific answer codes * @param $surveyid * @param $qid * @return */ function getAnswerSetsForEM($surveyid=NULL,$qid=NULL,$lang=NULL) { if (!is_null($qid)) { $where = "a.qid = ".$qid; } else if (!is_null($surveyid)) { $where = "a.qid = q.qid and q.sid = ".$surveyid; } else { $where = "1"; } if (!is_null($lang)) { $lang = " and a.language='".$lang."' and q.language='".$lang."'"; } $query = "SELECT a.qid, a.code, a.answer, a.scale_id, a.assessment_value" ." FROM ".db_table_name('answers')." AS a, ".db_table_name('questions')." as q" ." WHERE ".$where .$lang ." ORDER BY a.qid, a.scale_id, a.sortorder"; $data = db_execute_assoc($query); $qans = array(); $useAssessments = ((isset($this->surveyOptions['assessments'])) ? $this->surveyOptions['assessments'] : false); foreach($data->GetRows() as $row) { if (!isset($qans[$row['qid']])) { $qans[$row['qid']] = array(); } $qans[$row['qid']][$row['scale_id'].'~'.$row['code']] = ($useAssessments ? $row['assessment_value'] : $row['code']) . '|' . $row['answer']; } return $qans; } /** * Returns group info needed for indexes * @param $surveyid * @param string $lang * @return */ function getGroupInfoForEM($surveyid,$lang=NULL) { if (!is_null($lang)) { $lang = " and a.language='".$lang."'"; } $query = "SELECT a.group_name, a.description, a.gid, a.group_order, a.grelevance" ." FROM ".db_table_name('groups')." AS a" ." WHERE a.sid=".$surveyid .$lang ." ORDER BY group_order"; $data = db_execute_assoc($query); $qinfo = array(); $_order=0; foreach ($data as $d) { $qinfo[$_order] = array( 'group_order' => $_order, 'gid' => $d['gid'], 'group_name' => $d['group_name'], 'description' => $d['description'], 'grelevance' => $d['grelevance'], ); ++$_order; } return $qinfo; } /** * Cleanse the $_POSTed data and update $_SESSION variables accordingly */ static function ProcessCurrentResponses() { $LEM =& LimeExpressionManager::singleton(); if (!isset($LEM->currentQset)) { return array(); } $updatedValues=array(); $radixchange = (($LEM->surveyOptions['radix']==',') ? true : false); foreach ($LEM->currentQset as $qinfo) { $relevant=false; $qid = $qinfo['info']['qid']; $gseq = $qinfo['info']['gseq']; $relevant = (isset($_POST['relevance' . $qid]) ? ($_POST['relevance' . $qid] == 1) : false); $grelevant = (isset($_POST['relevanceG' . $gseq]) ? ($_POST['relevanceG' . $gseq] == 1) : false); $_SESSION['relevanceStatus'][$qid] = $relevant; $_SESSION['relevanceStatus']['G' . $gseq] = $grelevant; foreach (explode('|',$qinfo['sgqa']) as $sq) { $sqrelevant=true; if (isset($LEM->subQrelInfo[$qid][$sq]['rowdivid'])) { $rowdivid = $LEM->subQrelInfo[$qid][$sq]['rowdivid']; if ($rowdivid!='' && isset($_POST['relevance' . $rowdivid])) { $sqrelevant = ($_POST['relevance' . $rowdivid] == 1); $_SESSION['relevanceStatus'][$rowdivid] = $sqrelevant; } } $type = $qinfo['info']['type']; if ($relevant && $grelevant && $sqrelevant) { if ($qinfo['info']['hidden'] && !isset($_POST[$sq])) { $value = (isset($_SESSION[$sq]) ? $_SESSION[$sq] : ''); // if always hidden, use the default value, if any, unless value was changed via POST } else { $value = (isset($_POST[$sq]) ? $_POST[$sq] : ''); } if ($radixchange && isset($LEM->knownVars[$sq]['onlynum']) && $LEM->knownVars[$sq]['onlynum']=='1') { // convert from comma back to decimal $value = implode('.',explode(',',$value)); } switch($type) { case 'D': //DATE if (trim($value)=="") { $value = ""; } else { $dateformatdatat=getDateFormatData($LEM->surveyOptions['surveyls_dateformat']); $datetimeobj = new Date_Time_Converter($value, $dateformatdatat['phpdate']); $value=$datetimeobj->convert("Y-m-d"); } break; case 'N': //NUMERICAL QUESTION TYPE case 'K': //MULTIPLE NUMERICAL QUESTION if (trim($value)=="") { $value = ""; } else { $value = sanitize_float($value); } break; case '|': //File Upload if (!preg_match('/_filecount$/', $sq)) { $json = $value; $phparray = json_decode(stripslashes($json)); // if the files have not been saved already, // move the files from tmp to the files folder $tmp = $LEM->surveyOptions['tempdir'] . '/upload/'; if (!is_null($phparray) && count($phparray) > 0) { // Move the (unmoved, temp) files from temp to files directory. // Check all possible file uploads for ($i = 0; $i < count($phparray); $i++) { if (file_exists($tmp . $phparray[$i]->filename)) { $sDestinationFileName = 'fu_' . sRandomChars(15); if (!is_dir($LEM->surveyOptions['target'])) { mkdir($LEM->surveyOptions['target'], 0777, true); } if (!rename($tmp . $phparray[$i]->filename, $LEM->surveyOptions['target'] . $sDestinationFileName)) { echo "Error moving file to target destination"; } $phparray[$i]->filename = $sDestinationFileName; } } $value = ls_json_encode($phparray); // so that EM doesn't try to parse it. } } break; } $_SESSION[$sq] = $value; $_update = array ( 'type'=>$type, 'value'=>$value, ); $updatedValues[$sq] = $_update; $LEM->updatedValues[$sq] = $_update; } else { // irrelevant, so database will be NULLed separately // Must unset the value, rather than setting to '', so that EM can re-use the default value as needed. unset($_SESSION[$sq]); $_update = array ( 'type'=>$type, 'value'=>NULL, ); $updatedValues[$sq] = $_update; $LEM->updatedValues[$sq] = $_update; } } } if (isset($_POST['timerquestion'])) { $_SESSION[$_POST['timerquestion']]=sanitize_float($_POST[$_POST['timerquestion']]); } return $updatedValues; } static public function isValidVariable($varName) { $LEM =& LimeExpressionManager::singleton(); if (isset($LEM->knownVars[$varName])) { return true; } else if (isset($LEM->qcode2sgqa[$varName])) { return true; } else if (isset($LEM->tempVars[$varName])) { return true; } return false; } static public function GetVarAttribute($name,$attr,$default,$gseq,$qseq) { $LEM =& LimeExpressionManager::singleton(); return $LEM->_GetVarAttribute($name,$attr,$default,$gseq,$qseq); } private function _GetVarAttribute($name,$attr,$default,$gseq,$qseq) { $args = explode(".", $name); $varName = $args[0]; $varName = preg_replace("/^(?:INSERTANS:)?(.*?)$/", "$1", $varName); if (isset($this->knownVars[$varName])) { $var = $this->knownVars[$varName]; } else if (isset($this->qcode2sgqa[$varName])) { $var = $this->knownVars[$this->qcode2sgqa[$varName]]; } else if (isset($this->tempVars[$varName])) { $var = $this->tempVars[$varName]; } else { return '{' . $name . '}'; } $sgqa = isset($var['sgqa']) ? $var['sgqa'] : NULL; if (is_null($attr)) { // then use the requested attribute, if any $_attr = 'code'; if (preg_match("/INSERTANS:/",$args[0])) { $_attr = 'shown'; } $attr = (count($args)==2) ? $args[1] : $_attr; } // Like JavaScript, if an answer is irrelevant, always return '' if (preg_match('/^code|NAOK|shown|valueNAOK|value$/',$attr) && isset($var['qid']) && $var['qid']!='') { if (!$this->_GetVarAttribute($varName,'relevanceStatus',false,$gseq,$qseq)) { return ''; } } switch ($attr) { case 'varName': return $name; case 'code': case 'NAOK': if (isset($var['code'])) { return $var['code']; // for static values like TOKEN } else { if (isset($_SESSION[$sgqa])) { return $_SESSION[$sgqa]; } if (isset($var['default']) && !is_null($var['default'])) { return $var['default']; } return $default; } case 'value': case 'valueNAOK': { $type = $var['type']; $code = $this->_GetVarAttribute($name,'code',$default,$gseq,$qseq); switch($type) { case '!': //List - dropdown case 'L': //LIST drop-down/radio-button list case 'O': //LIST WITH COMMENT drop-down/radio-button list + textarea case '1': //Array (Flexible Labels) dual scale // need scale case 'H': //ARRAY (Flexible) - Column Format case 'F': //ARRAY (Flexible) - Row Format case 'R': //RANKING STYLE if ($type == 'O' && preg_match('/comment\.value/',$name)) { $value = $code; } else if (($type == 'L' || $type == '!') && preg_match('/_other\.value/',$name)) { $value = $code; } else { $scale_id = $this->_GetVarAttribute($name,'scale_id','0',$gseq,$qseq); $which_ans = $scale_id . '~' . $code; $ansArray = $var['ansArray']; if (is_null($ansArray)) { $value = $default; } else { if (isset($ansArray[$which_ans])) { $answerInfo = explode('|',$ansArray[$which_ans]); $answer = $answerInfo[0]; } else { $answer = $default; } $value = $answer; } } break; default: $value = $code; break; } return $value; } break; case 'jsName': if ($this->surveyMode=='survey' || ($this->surveyMode=='group' && $gseq != -1 && isset($var['gseq']) && $gseq == $var['gseq']) || ($this->surveyMode=='question' && $qseq != -1 && isset($var['qseq']) && $qseq == $var['qseq'])) { return (isset($var['jsName_on']) ? $var['jsName_on'] : (isset($var['jsName'])) ? $var['jsName'] : $default); } else { return (isset($var['jsName']) ? $var['jsName'] : $default); } break; case 'sgqa': case 'mandatory': case 'qid': case 'gid': case 'grelevance': case 'question': case 'readWrite': case 'relevance': case 'rowdivid': case 'type': case 'qcode': case 'gseq': case 'qseq': case 'ansList': case 'scale_id': return (isset($var[$attr])) ? $var[$attr] : $default; case 'shown': if (isset($var['shown'])) { return $var['shown']; // for static values like TOKEN } else { $type = $var['type']; $code = $this->_GetVarAttribute($name,'code',$default,$gseq,$qseq); switch($type) { case '!': //List - dropdown case 'L': //LIST drop-down/radio-button list case 'O': //LIST WITH COMMENT drop-down/radio-button list + textarea case '1': //Array (Flexible Labels) dual scale // need scale case 'H': //ARRAY (Flexible) - Column Format case 'F': //ARRAY (Flexible) - Row Format case 'R': //RANKING STYLE if ($type == 'O' && preg_match('/comment$/',$name)) { $shown = $code; } else if (($type == 'L' || $type == '!') && preg_match('/_other$/',$name)) { $shown = $code; } else { $scale_id = $this->_GetVarAttribute($name,'scale_id','0',$gseq,$qseq); $which_ans = $scale_id . '~' . $code; $ansArray = $var['ansArray']; if (is_null($ansArray)) { $shown=$code; } else { if (isset($ansArray[$which_ans])) { $answerInfo = explode('|',$ansArray[$which_ans]); array_shift($answerInfo); $answer = join('|',$answerInfo); } else { $answer = $code; } $shown = $answer; } } break; case 'A': //ARRAY (5 POINT CHOICE) radio-buttons case 'B': //ARRAY (10 POINT CHOICE) radio-buttons case ':': //ARRAY (Multi Flexi) 1 to 10 case '5': //5 POINT CHOICE radio-buttons $shown = $code; break; case 'N': //NUMERICAL QUESTION TYPE case 'K': //MULTIPLE NUMERICAL QUESTION case 'Q': //MULTIPLE SHORT TEXT case ';': //ARRAY (Multi Flexi) Text case 'S': //SHORT FREE TEXT case 'T': //LONG FREE TEXT case 'U': //HUGE FREE TEXT case 'D': //DATE case '*': //Equation case 'I': //Language Question case '|': //File Upload case 'X': //BOILERPLATE QUESTION $shown = $code; break; case 'M': //Multiple choice checkbox case 'P': //Multiple choice with comments checkbox + text if ($code == 'Y' && isset($var['question']) && !preg_match('/comment$/',$sgqa)) { $shown = $var['question']; } elseif (preg_match('/comment$/',$sgqa) && isset($_SESSION[$sgqa])) { $shown = $_SESSION[$sgqa]; } else { $shown = $default; } break; case 'G': //GENDER drop-down list case 'Y': //YES/NO radio-buttons case 'C': //ARRAY (YES/UNCERTAIN/NO) radio-buttons case 'E': //ARRAY (Increase/Same/Decrease) radio-buttons $ansArray = $var['ansArray']; if (is_null($ansArray)) { $shown=$default; } else { if (isset($ansArray[$code])) { $answer = $ansArray[$code]; } else { $answer = $default; } $shown = $answer; } break; } return $shown; } case 'relevanceStatus': $gseq = (isset($var['gseq'])) ? $var['gseq'] : -1; $qid = (isset($var['qid'])) ? $var['qid'] : -1; $rowdivid = (isset($var['rowdivid']) && $var['rowdivid']!='') ? $var['rowdivid'] : -1; if ($qid == -1 || $gseq == -1) { return 1; } if (isset($args[1]) && $args[1]=='NAOK') { return 1; } $grel = (isset($_SESSION['relevanceStatus']['G'.$gseq]) ? $_SESSION['relevanceStatus']['G'.$gseq] : 1); // true by default $qrel = (isset($_SESSION['relevanceStatus'][$qid]) ? $_SESSION['relevanceStatus'][$qid] : 0); $sqrel = (isset($_SESSION['relevanceStatus'][$rowdivid]) ? $_SESSION['relevanceStatus'][$rowdivid] : 1); // true by default - only want false if a subquestion is irrelevant return ($grel && $qrel && $sqrel); default: print 'UNDEFINED ATTRIBUTE: ' . $attr . "
\n"; return $default; } return $default; // and throw and error? } public static function SetVariableValue($op,$name,$value) { $LEM =& LimeExpressionManager::singleton(); if (isset($LEM->tempVars[$name])) { switch($op) { case '=': $LEM->tempVars[$name]['code'] = $value; break; case '*=': $LEM->tempVars[$name]['code'] *= $value; break; case '/=': $LEM->tempVars[$name]['code'] /= $value; break; case '+=': $LEM->tempVars[$name]['code'] += $value; break; case '-=': $LEM->tempVars[$name]['code'] -= $value; break; } $_result = $LEM->tempVars[$name]['code']; $_SESSION[$name] = $_result; $LEM->updatedValues[$name] = array( 'type'=>'*', 'value'=>$_result, ); return $_result; } else { if (!isset($LEM->knownVars[$name])) { if (isset($LEM->qcode2sgqa[$name])) { $name = $LEM->qcode2sgqa[$name]; } else { return ''; // shouldn't happen } } if (isset($_SESSION[$name])) { $_result = $_SESSION[$name]; } else { $_result = (isset($LEM->knownVars[$name]['default']) ? $LEM->knownVars[$name]['default'] : 0); } switch($op) { case '=': $_result = $value; break; case '*=': $_result *= $value; break; case '/=': $_result /= $value; break; case '+=': $_result += $value; break; case '-=': $_result -= $value; break; } $_SESSION[$name] = $_result; $_type = $LEM->knownVars[$name]['type']; $LEM->updatedValues[$name] = array( 'type'=>$_type, 'value'=>$_result, ); return $_result; } } /** * Create HTML view of the survey, showing everything that uses EM * @param $sid * @param $gid * @param $qid */ static public function ShowSurveyLogicFile($sid, $gid=NULL, $qid=NULL,$LEMdebugLevel=0,$assessments=false) { // Title // Welcome // G1, name, relevance, text // *Q1, name [type], relevance [validation], text, help, default, help_msg // SQ1, name [scale], relevance [validation], text // A1, code, assessment_value, text // End Message global $rooturl; $LEM =& LimeExpressionManager::singleton(); $allErrors = array(); $warnings=0; $surveyOptions = array( 'assessments'=>$assessments, 'hyperlinkSyntaxHighlighting'=>true, 'rooturl'=>$rooturl, ); $varNamesUsed = array(); // keeps track of whether variables have been declared if (!is_null($qid)) { $surveyMode='question'; LimeExpressionManager::StartSurvey($sid, 'question', $surveyOptions, false,$LEMdebugLevel); $qseq = LimeExpressionManager::GetQuestionSeq($qid); $moveResult = LimeExpressionManager::JumpTo($qseq+1,true,false,true); } else if (!is_null($gid)) { $surveyMode='group'; LimeExpressionManager::StartSurvey($sid, 'group', $surveyOptions, false,$LEMdebugLevel); $gseq = LimeExpressionManager::GetGroupSeq($gid); $moveResult = LimeExpressionManager::JumpTo($gseq+1,true,false,true); } else { $surveyMode='survey'; LimeExpressionManager::StartSurvey($sid, 'survey', $surveyOptions, false,$LEMdebugLevel); $moveResult = LimeExpressionManager::NavigateForwards(); } $qtypes=getqtypelist('','array'); if (is_null($moveResult) || is_null($LEM->currentQset) || count($LEM->currentQset) == 0) { return array( 'errors'=>1, 'html'=>$LEM->gT('Invalid question - probably missing sub-questions or language-specific settings for language ') . $_SESSION['LEMlang'], ); } $surveyname = templatereplace('{SURVEYNAME}'); $out = '

' . $LEM->gT('Logic File for Survey # ') . '[' . $LEM->sid . "]: $surveyname

\n"; $out .= ""; if (is_null($gid) && is_null($qid)) { $description = templatereplace('{SURVEYDESCRIPTION}'); $errClass = ($LEM->em->HasErrors() ? 'LEMerror' : ''); if ($description != '') { $out .= ""; } $welcome = templatereplace('{WELCOME}'); $errClass = ($LEM->em->HasErrors() ? 'LEMerror' : ''); if ($welcome != '') { $out .= ""; } $endmsg = templatereplace('{ENDTEXT}'); $errClass = ($LEM->em->HasErrors() ? 'LEMerror' : ''); if ($endmsg != '') { $out .= ""; } $_linkreplace = templatereplace('{URL}'); $errClass = ($LEM->em->HasErrors() ? 'LEMerror' : ''); if ($_linkreplace != '') { $out .= ""; } } $out .= "\n"; $_gseq=-1; foreach ($LEM->currentQset as $q) { $gseq = $q['info']['gseq']; $gid = $q['info']['gid']; $qid = $q['info']['qid']; $qseq = $q['info']['qseq']; $errorCount=0; ////// // SHOW GROUP-LEVEL INFO ////// if ($gseq != $_gseq) { $LEM->ParseResultCache=array(); // reset for each group so get proper color coding? $_gseq = $gseq; $ginfo = $LEM->gseq2info[$gseq]; $grelevance = '{' . (($ginfo['grelevance']=='') ? 1 : $ginfo['grelevance']) . '}'; $gtext = ((trim($ginfo['description']) == '') ? ' ' : $ginfo['description']); $groupRow = "" . "" . "" . "" . "" . "\n"; $LEM->ProcessString($groupRow, $qid,NULL,false,1,1,false,false); $out .= $LEM->GetLastPrettyPrintExpression(); if ($LEM->em->HasErrors()) { ++$errorCount; } } ////// // SHOW QUESTION-LEVEL INFO ////// $mandatory = (($q['info']['mandatory']=='Y') ? "*" : ''); $type = $q['info']['type']; $typedesc = $qtypes[$type]['description']; $sgqas = explode('|',$q['sgqa']); if (count($sgqas) == 1 && !is_null($q['info']['default'])) { $LEM->ProcessString($q['info']['default'], $qid,NULL,false,1,1,false,false); $_default = $LEM->GetLastPrettyPrintExpression(); if ($LEM->em->HasErrors()) { ++$errorCount; } $default = '
(' . $LEM->gT('DEFAULT:') . ' ' . $_default . ')'; } else { $default = ''; } $qtext = (($q['info']['qtext'] != '') ? $q['info']['qtext'] : ' '); $help = (($q['info']['help'] != '') ? '
[' . $LEM->gT("HELP:") . ' ' . $q['info']['help'] . ']': ''); $prettyValidTip = (($q['prettyValidTip'] == '') ? '' : '
(' . $LEM->gT("TIP:") . ' ' . $q['prettyValidTip'] . ')'); ////// // SHOW QUESTION ATTRIBUTES THAT ARE PROCESSED BY EM ////// $attrTable = ''; $attrs = (isset($LEM->qattr[$qid]) ? $LEM->qattr[$qid] : array()); if (isset($LEM->q2subqInfo[$qid]['preg'])) { $attrs['regex_validation'] = $LEM->q2subqInfo[$qid]['preg']; } if (isset($LEM->questionSeq2relevance[$qseq]['other'])) { $attrs['other'] = $LEM->questionSeq2relevance[$qseq]['other']; } if (count($attrs) > 0) { $attrTable = "
" . $LEM->gT("Description:") . "" . $description . "
" . $LEM->gT("Welcome:") . "" . $welcome . "
" . $LEM->gT("End message:") . "" . $endmsg . "
" . $LEM->gT("End URL") . ":" . $_linkreplace . "
#".$LEM->gT('Name [ID]')."".$LEM->gT('Relevance [Validation] (Default)')."".$LEM->gT('Text [Help] (Tip)')."
G-$gseq".$ginfo['group_name']."
[GID ".$gid."]		".$grelevance."".$gtext."
\n"; $count=0; foreach ($attrs as $key=>$value) { if (is_null($value) || trim($value) == '') { continue; } switch ($key) { default: case 'exclude_all_others': case 'exclude_all_others_auto': case 'hidden': if ($value == false || $value == '0') { $value = NULL; // so can skip this one - just using continue here doesn't work. } break; case 'relevance': $value = NULL; // means an outdate database structure break; case 'array_filter': case 'array_filter_exclude': case 'code_filter': case 'em_validation_q_tip': case 'em_validation_sq_tip': break; case 'equals_num_value': case 'em_validation_q': case 'em_validation_sq': case 'max_answers': case 'max_num_value': case 'max_num_value_n': case 'min_answers': case 'min_num_value': case 'min_num_value_n': case 'min_num_of_files': case 'max_num_of_files': case 'multiflexible_max': case 'multiflexible_min': $value = '{' . $value . '}'; break; case 'other_replace_text': case 'show_totals': case 'regex_validation': break; case 'other': if ($value == 'N') { $value = NULL; // so can skip this one } break; } if (is_null($value)) { continue; // since continuing from within a switch statement doesn't work } ++$count; $attrTable .= "\n"; } $attrTable .= "
" . $LEM->gT("Question Attribute") . "" . $LEM->gT("Value"). "
$key$value
\n"; if ($count == 0) { $attrTable = ''; } } $LEM->ProcessString($qtext . $help . $prettyValidTip . $attrTable, $qid,NULL,false,1,1,false,false); $qdetails = $LEM->GetLastPrettyPrintExpression(); if ($LEM->em->HasErrors()) { ++$errorCount; } ////// // SHOW RELEVANCE ////// // Must parse Relevance this way, otherwise if try to first split expressions, regex equations won't work $relevanceEqn = (($q['info']['relevance'] == '') ? 1 : $q['info']['relevance']); if (!isset($LEM->ParseResultCache[$relevanceEqn])) { $result = $LEM->em->ProcessBooleanExpression($relevanceEqn, $gseq, $qseq); $prettyPrint = $LEM->em->GetPrettyPrintString(); $hasErrors = $LEM->em->HasErrors(); $LEM->ParseResultCache[$relevanceEqn] = array( 'result' => $result, 'prettyPrint' => $prettyPrint, 'hasErrors' => $hasErrors, ); } $relevance = $LEM->ParseResultCache[$relevanceEqn]['prettyPrint']; if ($LEM->ParseResultCache[$relevanceEqn]['hasErrors']) { ++$errorCount; } ////// // SHOW VALIDATION EQUATION ////// // Must parse Validation this way so that regex (preg) works $prettyValidEqn = ''; if ($q['prettyValidEqn'] != '') { $validationEqn = $q['validEqn']; if (!isset($LEM->ParseResultCache[$validationEqn])) { $result = $LEM->em->ProcessBooleanExpression($validationEqn, $gseq, $qseq); $prettyPrint = $LEM->em->GetPrettyPrintString(); $hasErrors = $LEM->em->HasErrors(); $LEM->ParseResultCache[$validationEqn] = array( 'result' => $result, 'prettyPrint' => $prettyPrint, 'hasErrors' => $hasErrors, ); } $prettyValidEqn = '
(' . $LEM->gT("VALIDATION:") . ' ' . $LEM->ParseResultCache[$validationEqn]['prettyPrint'] . ')'; if ($LEM->ParseResultCache[$validationEqn]['hasErrors']) { ++$errorCount; } } ////// // TEST VALIDITY OF ROOT VARIABLE NAME AND WHETHER HAS BEEN USED ////// $rootVarName = $q['info']['rootVarName']; $varNameErrorMsg = ''; $varNameError = NULL; if (isset($varNamesUsed[$rootVarName])) { $varNameErrorMsg .= $LEM->gT('This variable name has already been used.'); } else { $varNamesUsed[$rootVarName] = array( 'gseq'=>$gseq, 'qid'=>$qid ); } if (!preg_match('/^[_a-zA-Z][_0-9a-zA-Z]*$/', $rootVarName)) { $varNameErrorMsg .= $LEM->gT('Starting in 1.92, variable names should only contain letters, numbers, and underscores; and may not start with a number. This variable name is deprecated.'); } if ($varNameErrorMsg != '') { $varNameError = array ( 'message' => $varNameErrorMsg, 'gseq' => $varNamesUsed[$rootVarName]['gseq'], 'qid' => $varNamesUsed[$rootVarName]['qid'], 'gid' => $gid, ); if (!$LEM->sgqaNaming) { ++$errorCount; } else { ++$warnings; } } ////// // SHOW ALL SUB-QUESTIONS ////// $sqRows=''; $i=0; $sawThis = array(); // array of rowdivids already seen so only show them once foreach ($sgqas as $sgqa) { if ($LEM->knownVars[$sgqa]['qcode'] == $rootVarName) { continue; // so don't show the main question as a sub-question too } $rowdivid=$sgqa; $varName=$LEM->knownVars[$sgqa]['qcode']; switch ($q['info']['type']) { case '1': if (preg_match('/#1$/',$sgqa)) { $rowdivid = NULL; // so that doesn't show same message for second scale } else { $rowdivid = substr($sgqa,0,-2); // strip suffix $varName = substr($LEM->knownVars[$sgqa]['qcode'],0,-2); } break; case 'P': if (preg_match('/comment$/',$sgqa)) { $rowdivid = NULL; } break; case ':': case ';': $_rowdivid = $LEM->knownVars[$sgqa]['rowdivid']; if (isset($sawThis[$qid . '~' . $_rowdivid])) { $rowdivid = NULL; // so don't show again } else { $sawThis[$qid . '~' . $_rowdivid] = true; $rowdivid = $_rowdivid; $sgqa_len = strlen($sid . 'X'. $gid . 'X' . $qid); $varName = $rootVarName . '_' . substr($_rowdivid,$sgqa_len); } break; } if (is_null($rowdivid)) { continue; } ++$i; $subQeqn = ' '; if (isset($LEM->subQrelInfo[$qid][$rowdivid])) { $sq = $LEM->subQrelInfo[$qid][$rowdivid]; $subQeqn = $sq['prettyPrintEqn']; // {' . $sq['eqn'] . '}'; // $sq['prettyPrintEqn']; if ($sq['hasErrors']) { ++$errorCount; } } $sgqaInfo = $LEM->knownVars[$sgqa]; $subqText = $sgqaInfo['subqtext']; if (isset($sgqaInfo['default']) && $sgqaInfo['default'] !== '') { $LEM->ProcessString($sgqaInfo['default'], $qid,NULL,false,1,1,false,false); $_default = $LEM->GetLastPrettyPrintExpression(); if ($LEM->em->HasErrors()) { ++$errorCount; } $subQeqn .= '
(' . $LEM->gT('DEFAULT:') . ' ' . $_default . ')'; } $sqRows .= "" . "SQ-$i" . "" . $varName . "" . "$subQeqn" . "" .$subqText . "" . ""; } $LEM->ProcessString($sqRows, $qid,NULL,false,1,1,false,false); $sqRows = $LEM->GetLastPrettyPrintExpression(); if ($LEM->em->HasErrors()) { ++$errorCount; } ////// // SHOW ANSWER OPTIONS FOR ENUMERATED LISTS, AND FOR MULTIFLEXI ////// $answerRows=''; if (isset($LEM->qans[$qid]) || isset($LEM->multiflexiAnswers[$qid])) { $_scale=-1; if (isset($LEM->multiflexiAnswers[$qid])) { $ansList = $LEM->multiflexiAnswers[$qid]; } else { $ansList = $LEM->qans[$qid]; } foreach ($ansList as $ans=>$value) { $ansInfo = explode('~',$ans); $valParts = explode('|',$value); $valInfo[0] = array_shift($valParts); $valInfo[1] = implode('|',$valParts); if ($_scale != $ansInfo[0]) { $i=1; $_scale = $ansInfo[0]; } $subQeqn = ''; $rowdivid = $sgqas[0] . $ansInfo[1]; if ($q['info']['type'] == 'R') { $rowdivid = $LEM->sid . 'X' . $gid . 'X' . $qid . $ansInfo[1]; } if (isset($LEM->subQrelInfo[$qid][$rowdivid])) { $sq = $LEM->subQrelInfo[$qid][$rowdivid]; $subQeqn = ' ' . $sq['prettyPrintEqn']; if ($sq['hasErrors']) { ++$errorCount; } } $answerRows .= "" . "A[" . $ansInfo[0] . "]-" . $i++ . "" . "" . $ansInfo[1]. "" . "[VALUE: " . $valInfo[0] . "]".$subQeqn."" . "" . $valInfo[1] . "" . "\n"; } $LEM->ProcessString($answerRows, $qid,NULL,false,1,1,false,false); $answerRows = $LEM->GetLastPrettyPrintExpression(); if ($LEM->em->HasErrors()) { ++$errorCount; } } ////// // FINALLY, SHOW THE QUESTION ROW(S), COLOR-CODING QUESTIONS THAT CONTAIN ERRORS ////// $errclass = ($errorCount > 0) ? "class='LEMerror' title='" . sprintf($LEM->gT("This question has at least %s error(s)"), $errorCount) . "'" : ''; $questionRow = "" . "Q-" . $q['info']['qseq'] . "" . "" . $mandatory; if ($varNameErrorMsg == '') { $questionRow .= $rootVarName; } else { $editlink = $LEM->surveyOptions['rooturl'] . '/admin/admin.php?sid=' . $LEM->sid . '&gid=' . $varNameError['gid'] . '&qid=' . $varNameError['qid']; $questionRow .= "" . $rootVarName . ""; } $questionRow .= "
[QID $qid]
$typedesc [$type]" . "" . $relevance . $prettyValidEqn . $default . "" . "" . $qdetails . "" . "\n"; $out .= $questionRow; $out .= $sqRows; $out .= $answerRows; if ($errorCount > 0) { $allErrors[$gid . '~' . $qid] = $errorCount; } } $out .= ""; LimeExpressionManager::FinishProcessingPage(); if (($LEMdebugLevel & LEM_DEBUG_TIMING) == LEM_DEBUG_TIMING) { $out .= LimeExpressionManager::GetDebugTimingMessage(); } if (count($allErrors) > 0) { $out = "

". sprintf($LEM->gT("%s question(s) contain errors that need to be corrected"), count($allErrors)) . "

\n" . $out; } else { switch ($surveyMode) { case 'survey': $message = $LEM->gT('No syntax errors detected in this survey'); break; case 'group': $message = $LEM->gT('This group, by itself, does not contain any syntax errors'); break; case 'question': $message = $LEM->gT('This question, by itself, does not contain any syntax errors'); break; } $out = "

$message

\n" . $out; } return array( 'errors'=>$allErrors, 'html'=>$out ); } } /** * Used by usort() to order $this->questionSeq2relevance in proper order * @param $a * @param $b * @return */ function cmpQuestionSeq($a, $b) { if (is_null($a['qseq'])) { if (is_null($b['qseq'])) { return 0; } return 1; } if (is_null($b['qseq'])) { return -1; } if ($a['qseq'] == $b['qseq']) { return 0; } return ($a['qseq'] < $b['qseq']) ? -1 : 1; } ?>