Talenttic_survey/CATI_Tool
2
0
Fork 0
mirror of https://github.com/ACSPRI/queXS synced 2024-04-02 12:12:16 +00:00
Code Issues Releases Activity
Files
23a66c310a546e203c338ac51af62653fc7c5a9e
CATI_Tool/include/limesurvey/admin/export_structure_quexml.php

666 lines
21 KiB
PHP
Raw Blame History

<?php
/*
* LimeSurvey
* Copyright (C) 2007 The LimeSurvey Project Team / Carsten Schmitz
* All rights reserved.
* License: GNU/GPL License v2 or later, see LICENSE.php
* LimeSurvey is free software. This version may have been modified pursuant
* to the GNU General Public License, and as distributed it includes or
* is derivative of works licensed under the GNU General Public License or
* other free or open source software licenses.
* See COPYRIGHT.php for copyright notices and details.
*
* $Id: export_structure_quexml.php 11697 2011-12-20 04:17:59Z azammitdcarf $
*/
//Ensure script is not run directly, avoid path disclosure
include_once("login_check.php");
if (!isset($surveyid)) {$surveyid=returnglobal('sid');}
if (isset($surveyprintlang) && !empty($surveyprintlang))
$quexmllang = $surveyprintlang;
else
$quexmllang=GetBaseLanguageFromSurveyID($surveyid);
$qlang = new limesurvey_lang($quexmllang);
if (!$surveyid)
{
echo $htmlheader
."<br />\n"
."<table width='350' align='center' style='border: 1px solid #555555' cellpadding='1' cellspacing='0'>\n"
."\t<tr bgcolor='#555555'><td colspan='2' height='4'><font size='1' face='verdana' color='white'><strong>"
._EXPORTSURVEY."</strong></td></tr>\n"
."\t<tr><td align='center'>\n"
."$setfont<br /><strong><font color='red'>"
._ERROR."</font></strong><br />\n"
._ES_NOSID."<br />\n"
."<br /><input type='submit' $btstyle value='"
._GO_ADMIN."' onClick=\"window.open('$scriptname', '_self')\">\n"
."\t</td></tr>\n"
."</table>\n"
."</body></html>\n";
exit;
}
function cleanup($string)
{
return html_entity_decode(trim(strip_tags(str_ireplace("<br />","\n",$string),'<p><b><u><i><em>')),ENT_QUOTES,'UTF-8');
}
function create_free($f,$len,$lab="")
{
global $dom;
$free = $dom->createElement("free");
$format = $dom->createElement("format",cleanup($f));
$length = $dom->createElement("length",cleanup($len));
$label = $dom->createElement("label",cleanup($lab));
$free->appendChild($format);
$free->appendChild($length);
$free->appendChild($label);
return $free;
}
function fixed_array($array)
{
global $dom;
$fixed = $dom->createElement("fixed");
foreach ($array as $key => $v)
{
$category = $dom->createElement("category");
$label = $dom->createElement("label",cleanup($key));
$value= $dom->createElement("value",cleanup($v));
$category->appendChild($label);
$category->appendChild($value);
$fixed->appendChild($category);
}
return $fixed;
}
/**
* Calculate if this item should have a skipTo element attached to it
*
* @param mixed $qid
* @param mixed $value
*
* @return bool|string Text of item to skip to otherwise false if nothing to skip to
* @author Adam Zammit <adam.zammit@acspri.org.au>
* @since 2010-10-28
* @TODO Correctly handle conditions in a database agnostic way
*/
function skipto($qid,$value,$cfieldname = "")
{
return false;
}
function create_fixed($qid,$rotate=false,$labels=true,$scale=0,$other=false,$varname="")
{
global $dom;
global $connect ;
global $dbprefix ;
global $quexmllang;
global $qlang;
$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
if ($labels)
$Query = "SELECT * FROM {$dbprefix}labels WHERE lid = $labels AND language='$quexmllang' ORDER BY sortorder ASC";
else
$Query = "SELECT code,answer as title,sortorder FROM {$dbprefix}answers WHERE qid = $qid AND scale_id = $scale AND language='$quexmllang' ORDER BY sortorder ASC";
$QueryResult = db_execute_assoc($Query);
$fixed = $dom->createElement("fixed");
$nextcode = "";
while ($Row = $QueryResult->FetchRow())
{
$category = $dom->createElement("category");
$label = $dom->createElement("label",cleanup($Row['title']));
$value= $dom->createElement("value",cleanup($Row['code']));
$category->appendChild($label);
$category->appendChild($value);
$st = skipto($qid,$Row['code']);
if ($st !== false)
{
$skipto = $dom->createElement("skipTo",$st);
$category->appendChild($skipto);
}
$fixed->appendChild($category);
$nextcode = $Row['code'];
}
if ($other)
{
$category = $dom->createElement("category");
$label = $dom->createElement("label",get_length($qid,"other_replace_text",$qlang->gT("Other")));
$value= $dom->createElement("value",'-oth');
$category->appendChild($label);
$category->appendChild($value);
$contingentQuestion = $dom->createElement("contingentQuestion");
$length = $dom->createElement("length",24);
$text = $dom->createElement("text",get_length($qid,"other_replace_text",$qlang->gT("Other")));
$contingentQuestion->appendChild($text);
$contingentQuestion->appendChild($length);
$contingentQuestion->setAttribute("varName",$varname . 'other');
$category->appendChild($contingentQuestion);
$fixed->appendChild($category);
}
if ($rotate) $fixed->setAttribute("rotate","true");
return $fixed;
}
function get_length($qid,$attribute,$default)
{
global $dom;
global $dbprefix;
global $connect ;
$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
$Query = "SELECT value FROM {$dbprefix}question_attributes WHERE qid = $qid AND attribute = '$attribute'";
//$QueryResult = mysql_query($Query) or die ("ERROR: $QueryResult<br />".mysql_error());
$QueryResult = db_execute_assoc($Query);
$Row = $QueryResult->FetchRow();
if ($Row && !empty($Row['value']))
return $Row['value'];
else
return $default;
}
function create_multi(&$question,$qid,$varname,$scale_id = false,$free = false,$other = false)
{
global $dom;
global $dbprefix;
global $connect ;
global $quexmllang ;
global $surveyid;
global $qlang;
$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
$Query = "SELECT * FROM {$dbprefix}questions WHERE parent_qid = $qid AND language='$quexmllang' ";
if ($scale_id != false) $Query .= " AND scale_id = $scale_id ";
$Query .= " ORDER BY question_order ASC";
//$QueryResult = mysql_query($Query) or die ("ERROR: $QueryResult<br />".mysql_error());
$QueryResult = db_execute_assoc($Query);
$nextcode = "";
while ($Row = $QueryResult->FetchRow())
{
$response = $dom->createElement("response");
if ($free == false)
{
$fixed = $dom->createElement("fixed");
$category = $dom->createElement("category");
$label = $dom->createElement("label",cleanup($Row['question']));
$value= $dom->createElement("value",1);
$nextcode = $Row['title'];
$category->appendChild($label);
$category->appendChild($value);
$st = skipto($qid,'Y'," AND c.cfieldname LIKE '+$surveyid" . "X" . $Row['gid'] . "X" . $qid . $Row['title'] . "' ");
if ($st !== false)
{
$skipto = $dom->createElement("skipTo",$st);
$category->appendChild($skipto);
}
$fixed->appendChild($category);
$response->appendChild($fixed);
}
else
$response->appendChild(create_free($free['f'],$free['len'],$Row['question']));
$response->setAttribute("varName",$varname . cleanup($Row['title']));
$question->appendChild($response);
}
if ($other && $free==false)
{
$response = $dom->createElement("response");
$fixed = $dom->createElement("fixed");
$category = $dom->createElement("category");
$label = $dom->createElement("label",get_length($qid,"other_replace_text",$qlang->gT("Other")));
$value= $dom->createElement("value",1);
//Get next code
if (is_numeric($nextcode))
$nextcode++;
else if (is_string($nextcode))
$nextcode = chr(ord($nextcode) + 1);
$category->appendChild($label);
$category->appendChild($value);
$contingentQuestion = $dom->createElement("contingentQuestion");
$length = $dom->createElement("length",24);
$text = $dom->createElement("text",get_length($qid,"other_replace_text",$qlang->gT("Other")));
$contingentQuestion->appendChild($text);
$contingentQuestion->appendChild($length);
$contingentQuestion->setAttribute("varName",$varname . 'other');
$category->appendChild($contingentQuestion);
$fixed->appendChild($category);
$response->appendChild($fixed);
$response->setAttribute("varName",$varname . cleanup($nextcode));
$question->appendChild($response);
}
return;
}
function create_subQuestions(&$question,$qid,$varname,$use_answers = false)
{
global $dom;
global $dbprefix;
global $connect ;
global $quexmllang ;
$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
if ($use_answers)
$Query = "SELECT answer as question, code as title FROM {$dbprefix}answers WHERE qid = $qid AND language='$quexmllang' ORDER BY sortorder ASC";
else
$Query = "SELECT * FROM {$dbprefix}questions WHERE parent_qid = $qid and scale_id = 0 AND language='$quexmllang' ORDER BY question_order ASC";
$QueryResult = db_execute_assoc($Query);
while ($Row = $QueryResult->FetchRow())
{
$subQuestion = $dom->createElement("subQuestion");
$text = $dom->createElement("text",cleanup($Row['question']));
$subQuestion->appendChild($text);
$subQuestion->setAttribute("varName",$varname . cleanup($Row['title']));
$question->appendChild($subQuestion);
}
return;
}
global $dbprefix;
global $connect ;
$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
$dom = new DOMDocument('1.0','UTF-8');
//Title and survey id
$questionnaire = $dom->createElement("questionnaire");
$Query = "SELECT * FROM {$dbprefix}surveys,{$dbprefix}surveys_languagesettings WHERE sid=$surveyid and surveyls_survey_id=sid and surveyls_language='".$quexmllang."'";
$QueryResult = db_execute_assoc($Query);
$Row = $QueryResult->FetchRow();
$questionnaire->setAttribute("id", $Row['sid']);
$title = $dom->createElement("title",cleanup($Row['surveyls_title']));
$questionnaire->appendChild($title);
//investigator and datacollector
$investigator = $dom->createElement("investigator");
$name = $dom->createElement("name");
$name = $dom->createElement("firstName");
$name = $dom->createElement("lastName");
$dataCollector = $dom->createElement("dataCollector");
$questionnaire->appendChild($investigator);
$questionnaire->appendChild($dataCollector);
//questionnaireInfo == welcome
if (!empty($Row['surveyls_welcometext']))
{
$questionnaireInfo = $dom->createElement("questionnaireInfo");
$position = $dom->createElement("position","before");
$text = $dom->createElement("text",cleanup($Row['surveyls_welcometext']));
$administration = $dom->createElement("administration","self");
$questionnaireInfo->appendChild($position);
$questionnaireInfo->appendChild($text);
$questionnaireInfo->appendChild($administration);
$questionnaire->appendChild($questionnaireInfo);
}
if (!empty($Row['surveyls_endtext']))
{
$questionnaireInfo = $dom->createElement("questionnaireInfo");
$position = $dom->createElement("position","after");
$text = $dom->createElement("text",cleanup($Row['surveyls_endtext']));
$administration = $dom->createElement("administration","self");
$questionnaireInfo->appendChild($position);
$questionnaireInfo->appendChild($text);
$questionnaireInfo->appendChild($administration);
$questionnaire->appendChild($questionnaireInfo);
}
//section == group
$Query = "SELECT * FROM {$dbprefix}groups WHERE sid=$surveyid AND language='$quexmllang' order by group_order ASC";
$QueryResult = db_execute_assoc($Query);
//for each section
while ($Row = $QueryResult->FetchRow())
{
$gid = $Row['gid'];
$section = $dom->createElement("section");
if (!empty($Row['group_name']))
{
$sectionInfo = $dom->createElement("sectionInfo");
$position = $dom->createElement("position","title");
$text = $dom->createElement("text",cleanup($Row['group_name']));
$administration = $dom->createElement("administration","self");
$sectionInfo->appendChild($position);
$sectionInfo->appendChild($text);
$sectionInfo->appendChild($administration);
$section->appendChild($sectionInfo);
}
if (!empty($Row['description']))
{
$sectionInfo = $dom->createElement("sectionInfo");
$position = $dom->createElement("position","before");
$text = $dom->createElement("text",cleanup($Row['description']));
$administration = $dom->createElement("administration","self");
$sectionInfo->appendChild($position);
$sectionInfo->appendChild($text);
$sectionInfo->appendChild($administration);
$section->appendChild($sectionInfo);
}
$section->setAttribute("id", $gid);
//boilerplate questions convert to sectionInfo elements
$Query = "SELECT * FROM {$dbprefix}questions WHERE sid=$surveyid AND gid = $gid AND type LIKE 'X' AND language='$quexmllang' ORDER BY question_order ASC";
$QR = db_execute_assoc($Query);
while ($RowQ = $QR->FetchRow())
{
$sectionInfo = $dom->createElement("sectionInfo");
$position = $dom->createElement("position","before");
$text = $dom->createElement("text",cleanup($RowQ['question']));
$administration = $dom->createElement("administration","self");
$sectionInfo->appendChild($position);
$sectionInfo->appendChild($text);
$sectionInfo->appendChild($administration);
$section->appendChild($sectionInfo);
}
//foreach question
$Query = "SELECT * FROM {$dbprefix}questions WHERE sid=$surveyid AND gid = $gid AND parent_qid=0 AND language='$quexmllang' AND type NOT LIKE 'X' ORDER BY question_order ASC";
$QR = db_execute_assoc($Query);
while ($RowQ = $QR->FetchRow())
{
$question = $dom->createElement("question");
$type = $RowQ['type'];
$qid = $RowQ['qid'];
$other = false;
if ($RowQ['other'] == 'Y') $other = true;
//create a new text element for each new line
$questiontext = explode('<br />',$RowQ['question']);
foreach ($questiontext as $qt)
{
$txt = cleanup($qt);
if (!empty($txt))
{
$text = $dom->createElement("text",$txt);
$question->appendChild($text);
}
}
//directive
if (!empty($RowQ['help']))
{
$directive = $dom->createElement("directive");
$position = $dom->createElement("position","during");
$text = $dom->createElement("text",cleanup($RowQ['help']));
$administration = $dom->createElement("administration","self");
$directive->appendChild($position);
$directive->appendChild($text);
$directive->appendChild($administration);
$question->appendChild($directive);
}
$response = $dom->createElement("response");
$sgq = $surveyid . "X" . $gid . "X" . $qid;
$response->setAttribute("varName",$sgq);
switch ($type)
{
case "X": //BOILERPLATE QUESTION - none should appear
break;
case "5": //5 POINT CHOICE radio-buttons
$response->appendChild(fixed_array(array("1" => 1,"2" => 2,"3" => 3,"4" => 4,"5" => 5)));
$question->appendChild($response);
break;
case "D": //DATE
$response->appendChild(create_free("date","8",""));
$question->appendChild($response);
break;
case "L": //LIST drop-down/radio-button list
$response->appendChild(create_fixed($qid,false,false,0,$other,$sgq));
$question->appendChild($response);
break;
case "!": //List - dropdown
$response->appendChild(create_fixed($qid,false,false,0,$other,$sgq));
$question->appendChild($response);
break;
case "O": //LIST WITH COMMENT drop-down/radio-button list + textarea
$response->appendChild(create_fixed($qid,false,false,0,$other,$sgq));
$question->appendChild($response);
//no comment - this should be a separate question
break;
case "R": //RANKING STYLE
create_subQuestions($question,$qid,$sgq,true);
$Query = "SELECT COUNT(*) as sc FROM {$dbprefix}answers WHERE qid = $qid AND language='$quexmllang' ";
$QRE = db_execute_assoc($Query);
//$QRE = mysql_query($Query) or die ("ERROR: $QRE<br />".mysql_error());
//$QROW = mysql_fetch_assoc($QRE);
$QROW = $QRE->FetchRow();
$response->appendChild(create_free("integer",strlen($QROW['sc']),""));
$question->appendChild($response);
break;
case "M": //Multiple choice checkbox
create_multi($question,$qid,$sgq,false,false,$other);
break;
case "P": //Multiple choice with comments checkbox + text
//Not yet implemented
create_multi($question,$qid,$sgq,false,false,$other);
//no comments added
break;
case "Q": //MULTIPLE SHORT TEXT
create_subQuestions($question,$qid,$sgq);
$response->appendChild(create_free("text",get_length($qid,"maximum_chars","10"),""));
$question->appendChild($response);
break;
case "K": //MULTIPLE NUMERICAL
create_subQuestions($question,$qid,$sgq);
$response->appendChild(create_free("integer",get_length($qid,"maximum_chars","10"),""));
$question->appendChild($response);
break;
case "N": //NUMERICAL QUESTION TYPE
$response->appendChild(create_free("integer",get_length($qid,"maximum_chars","10"),get_length($qid,"prefix","")));
$question->appendChild($response);
break;
case "S": //SHORT FREE TEXT
$response->appendChild(create_free("text",get_length($qid,"maximum_chars","240"),get_length($qid,"prefix","")));
$question->appendChild($response);
break;
case "T": //LONG FREE TEXT
$response->appendChild(create_free("longtext",get_length($qid,"display_rows","40"),get_length($qid,"prefix","")));
$question->appendChild($response);
break;
case "U": //HUGE FREE TEXT
$response->appendChild(create_free("longtext",get_length($qid,"display_rows","80"),get_length($qid,"prefix","")));
$question->appendChild($response);
break;
case "Y": //YES/NO radio-buttons
$response->appendChild(fixed_array(array($qlang->gT("Yes") => 'Y',$qlang->gT("No") => 'N')));
$question->appendChild($response);
break;
case "G": //GENDER drop-down list
$response->appendChild(fixed_array(array($qlang->gT("Female") => 'F',$qlang->gT("Male") => 'M')));
$question->appendChild($response);
break;
case "A": //ARRAY (5 POINT CHOICE) radio-buttons
create_subQuestions($question,$qid,$sgq);
$response->appendChild(fixed_array(array("1" => 1,"2" => 2,"3" => 3,"4" => 4,"5" => 5)));
$question->appendChild($response);
break;
case "B": //ARRAY (10 POINT CHOICE) radio-buttons
create_subQuestions($question,$qid,$sgq);
$response->appendChild(fixed_array(array("1" => 1,"2" => 2,"3" => 3,"4" => 4,"5" => 5,"6" => 6,"7" => 7,"8" => 8,"9" => 9,"10" => 10)));
$question->appendChild($response);
break;
case "C": //ARRAY (YES/UNCERTAIN/NO) radio-buttons
create_subQuestions($question,$qid,$sgq);
$response->appendChild(fixed_array(array($qlang->gT("Yes") => 'Y',$qlang->gT("Uncertain") => 'U',$qlang->gT("No") => 'N')));
$question->appendChild($response);
break;
case "E": //ARRAY (Increase/Same/Decrease) radio-buttons
create_subQuestions($question,$qid,$sgq);
$response->appendChild(fixed_array(array($qlang->gT("Increase") => 'I',$qlang->gT("Same") => 'S',$qlang->gT("Decrease") => 'D')));
$question->appendChild($response);
break;
case "F": //ARRAY (Flexible) - Row Format
//select subQuestions from answers table where QID
create_subQuestions($question,$qid,$sgq);
$response->appendChild(create_fixed($qid,false,false,0,$other,$sgq));
$question->appendChild($response);
//select fixed responses from
break;
case "H": //ARRAY (Flexible) - Column Format
create_subQuestions($question,$RowQ['qid'],$sgq);
$response->appendChild(create_fixed($qid,true,false,0,$other,$sgq));
$question->appendChild($response);
break;
case "1": //Dualscale multi-flexi array
//select subQuestions from answers table where QID
create_subQuestions($question,$qid,$sgq);
$response = $dom->createElement("response");
$response->appendChild(create_fixed($qid,false,false,0,$other,$sgq));
$response2 = $dom->createElement("response");
$response2->setAttribute("varName",cleanup($sgq) . "_2");
$response2->appendChild(create_fixed($qid,false,false,1,$other,$sgq));
$question->appendChild($response);
$question->appendChild($response2);
break;
case ":": //multi-flexi array numbers
create_subQuestions($question,$qid,$sgq);
//get multiflexible_checkbox - if set then each box is a checkbox (single fixed response)
$mcb = get_length($qid,'multiflexible_checkbox',-1);
if ($mcb != -1)
create_multi($question,$qid,$sgq,1);
else
{
//get multiflexible_max - if set then make boxes of max this width
$mcm = strlen(get_length($qid,'multiflexible_max',1));
create_multi($question,$qid,$sgq,1,array('f' => 'integer', 'len' => $mcm, 'lab' => ''));
}
break;
case ";": //multi-flexi array text
create_subQuestions($question,$qid,$sgq);
//foreach question where scale_id = 1 this is a textbox
create_multi($question,$qid,$sgq,1,array('f' => 'text', 'len' => 10, 'lab' => ''));
break;
case "^": //SLIDER CONTROL - not supported
$response->appendChild(fixed_array(array("NOT SUPPORTED:$type" => 1)));
$question->appendChild($response);
break;
} //End Switch
$section->appendChild($question);
}
$questionnaire->appendChild($section);
}
$dom->appendChild($questionnaire);
$dom->formatOutput = true;
$quexml = $dom->saveXML();
if (!(isset($noheader) && $noheader == true))
{
$fn = "survey_{$surveyid}_{$quexmllang}.xml";
header("Content-Type: text/xml");
header("Content-Disposition: attachment; filename=$fn");
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); // Date in the past
header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
header("Pragma: public"); // HTTP/1.0
echo $quexml;
exit();
}
?>
Reference in New Issue View Git Blame Copy Permalink