mirror of
https://github.com/ACSPRI/queXS
synced 2024-04-02 12:12:16 +00:00
Merging the Limesurvey 1.91+ branch of queXS in to the trunk
This commit is contained in:
azammitdcarf
@@ -1,17 +1,17 @@
|
||||
<?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: dumpgroup.php 6853 2009-05-15 12:51:09Z c_schmitz $
|
||||
*/
|
||||
* 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: dumpgroup.php 10925 2011-09-02 14:12:02Z c_schmitz $
|
||||
*/
|
||||
|
||||
|
||||
|
||||
@@ -20,136 +20,137 @@
|
||||
// 1. questions
|
||||
// 2. answers
|
||||
|
||||
//Ensure script is not run directly, avoid path disclosure
|
||||
if (!isset($dbprefix) || isset($_REQUEST['dbprefix'])) {die("Cannot run this script directly");}
|
||||
include_once("login_check.php");
|
||||
require_once("export_data_functions.php");
|
||||
if(!bHasSurveyPermission($surveyid,'surveycontent','export')) safe_die("You are not allowed to export question groups.");
|
||||
|
||||
$gid = returnglobal('gid');
|
||||
$surveyid = returnglobal('sid');
|
||||
|
||||
//Ensure script is not run directly, avoid path disclosure
|
||||
if (!isset($dbprefix) || isset($_REQUEST['dbprefix'])) {die("Cannot run this script directly");}
|
||||
|
||||
|
||||
//echo $htmlheader;
|
||||
if (!$gid)
|
||||
{
|
||||
echo $htmlheader;
|
||||
echo "<br />\n";
|
||||
echo "<table width='350' align='center' style='border: 1px solid #555555' cellpadding='1' cellspacing='0'>\n";
|
||||
echo "\t<tr bgcolor='#555555'><td colspan='2' height='4'><font size='1' face='verdana' color='white'><strong>".$clang->gT("Export Question")."</strong></td></tr>\n";
|
||||
echo "\t<tr bgcolor='#CCCCCC'><td align='center'>$setfont\n";
|
||||
echo "$setfont<br /><strong><font color='red'>".$clang->gT("Error")."</font></strong><br />\n"._EQ_NOGID."<br />\n";
|
||||
echo "<br /><input type='submit' value='".$clang->gT("Main Admin Screen")."' onclick=\"window.open('$scriptname', '_self')\">\n";
|
||||
echo "\t</td></tr>\n";
|
||||
echo "</table>\n";
|
||||
echo "</body></html>\n";
|
||||
exit;
|
||||
echo $htmlheader;
|
||||
echo "<br />\n";
|
||||
echo "<table width='350' align='center' style='border: 1px solid #555555' cellpadding='1' cellspacing='0'>\n";
|
||||
echo "\t<tr bgcolor='#555555'><td colspan='2' height='4'><font size='1' face='verdana' color='white'><strong>".$clang->gT("Export Question")."</strong></td></tr>\n";
|
||||
echo "\t<tr bgcolor='#CCCCCC'><td align='center'>$setfont\n";
|
||||
echo "$setfont<br /><strong><font color='red'>".$clang->gT("Error")."</font></strong><br />\n"._EQ_NOGID."<br />\n";
|
||||
echo "<br /><input type='submit' value='".$clang->gT("Main Admin Screen")."' onclick=\"window.open('$scriptname', '_self')\">\n";
|
||||
echo "\t</td></tr>\n";
|
||||
echo "</table>\n";
|
||||
echo "</body></html>\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
$fn = "limesurvey_group_$gid.csv";
|
||||
|
||||
$dumphead = "# LimeSurvey Group Dump\n"
|
||||
. "# DBVersion $dbversionnumber\n"
|
||||
. "# This is a dumped group from the LimeSurvey Script\n"
|
||||
. "# http://www.limesurvey.org/\n"
|
||||
. "# Do not change this header!\n";
|
||||
$fn = "limesurvey_group_$gid.lsg";
|
||||
$xml = getXMLWriter();
|
||||
|
||||
|
||||
header("Content-Type: application/download");
|
||||
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"); // always modified
|
||||
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
|
||||
header("Pragma: cache");
|
||||
|
||||
//0: Groups Table
|
||||
$gquery = "SELECT *
|
||||
if($action=='exportstructureLsrcCsvGroup')
|
||||
{
|
||||
include_once($homedir.'/remotecontrol/lsrc.config.php');
|
||||
//Select group_name as Filename and save
|
||||
$groupTitleSql = "SELECT group_name
|
||||
FROM {$dbprefix}groups
|
||||
WHERE sid=$surveyid AND gid=$gid ";
|
||||
$groupTitle = $connect->GetOne($groupTitleSql);
|
||||
$xml->openURI('remotecontrol/'.$queDir.substr($groupTitle,0,20).".lsq");
|
||||
}
|
||||
else
|
||||
{
|
||||
header("Content-Type: text/html/force-download");
|
||||
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: cache"); // HTTP/1.0
|
||||
|
||||
$xml->openURI('php://output');
|
||||
}
|
||||
|
||||
$xml->setIndent(true);
|
||||
$xml->startDocument('1.0', 'UTF-8');
|
||||
$xml->startElement('document');
|
||||
$xml->writeElement('LimeSurveyDocType','Group');
|
||||
$xml->writeElement('DBVersion',$dbversionnumber);
|
||||
$xml->startElement('languages');
|
||||
$lquery = "SELECT language
|
||||
FROM {$dbprefix}groups
|
||||
WHERE gid=$gid";
|
||||
$gdump = BuildCSVFromQuery($gquery);
|
||||
|
||||
//1: Questions Table
|
||||
$qquery = "SELECT *
|
||||
FROM {$dbprefix}questions
|
||||
WHERE gid=$gid";
|
||||
$qdump = BuildCSVFromQuery($qquery);
|
||||
|
||||
//2: Answers table
|
||||
$aquery = "SELECT DISTINCT {$dbprefix}answers.*
|
||||
FROM {$dbprefix}answers, {$dbprefix}questions
|
||||
WHERE ({$dbprefix}answers.qid={$dbprefix}questions.qid)
|
||||
AND ({$dbprefix}questions.gid=$gid)";
|
||||
$adump = BuildCSVFromQuery($aquery);
|
||||
|
||||
//3: Conditions table - THIS CAN ONLY EXPORT CONDITIONS THAT RELATE TO THE SAME GROUP
|
||||
$cquery = "SELECT DISTINCT {$dbprefix}conditions.*
|
||||
FROM {$dbprefix}conditions, {$dbprefix}questions, {$dbprefix}questions b
|
||||
WHERE ({$dbprefix}conditions.cqid={$dbprefix}questions.qid)
|
||||
AND ({$dbprefix}conditions.qid=b.qid)
|
||||
AND ({$dbprefix}questions.gid=$gid)
|
||||
AND (b.gid=$gid)";
|
||||
$cdump = BuildCSVFromQuery($cquery);
|
||||
|
||||
//4: Labelsets Table
|
||||
$lsquery = "SELECT DISTINCT {$dbprefix}labelsets.*
|
||||
FROM {$dbprefix}labelsets, {$dbprefix}questions
|
||||
WHERE ({$dbprefix}labelsets.lid={$dbprefix}questions.lid)
|
||||
AND (type in ('F', 'W', 'H', 'Z', '1', ':', ';'))
|
||||
AND (gid=$gid)";
|
||||
$lsdump = BuildCSVFromQuery($lsquery);
|
||||
|
||||
//5: Labelsets1 Table
|
||||
//This exists specifically to deal with dual-scale questions (or any future question that may have 2 labelsets)
|
||||
$lsquery = "SELECT DISTINCT {$dbprefix}labelsets.* FROM {$dbprefix}labelsets, {$dbprefix}questions WHERE ({$dbprefix}labelsets.lid={$dbprefix}questions.lid1) AND (type in ('1')) AND (gid=$gid)";
|
||||
$ls1dump = BuildCSVFromQuery($lsquery);
|
||||
$ls1=explode("\n", trim($ls1dump));
|
||||
|
||||
if(count($ls1)>3) {
|
||||
//If there is actually some data here, then add just the data (not the headers) into
|
||||
// $ls1dump - which will be outputted directly after $lsdump
|
||||
$ls1dump=$ls1[4];
|
||||
$ls1dump .= "\n";
|
||||
} else {
|
||||
//If there is no data then make it an empty string.
|
||||
$ls1dump = "";
|
||||
WHERE gid=$gid group by language";
|
||||
$lresult=db_execute_assoc($lquery);
|
||||
while ($row=$lresult->FetchRow())
|
||||
{
|
||||
$xml->writeElement('language',$row['language']);
|
||||
}
|
||||
|
||||
//4a: Labels Table
|
||||
$lquery = "SELECT {$dbprefix}labels.* FROM {$dbprefix}labels, {$dbprefix}questions WHERE ({$dbprefix}labels.lid={$dbprefix}questions.lid) AND (type in ('F', 'H', 'Z', 'W', '1', ':', ';')) AND (gid=$gid)";
|
||||
$ldump = BuildCSVFromQuery($lquery);
|
||||
|
||||
//5a: Labels1 Table
|
||||
// See explanation for Labelsets1 Table!! These are the actual labels
|
||||
$lquery = "SELECT {$dbprefix}labels.* FROM {$dbprefix}labels, {$dbprefix}questions WHERE ({$dbprefix}labels.lid={$dbprefix}questions.lid1) AND (type in ('1')) AND (gid=$gid)";
|
||||
$l1dump = BuildCSVFromQuery($lquery);
|
||||
$ld1=explode("\n", trim($l1dump));
|
||||
|
||||
if(count($ld1)>3) {
|
||||
//If there is actually some data here, then add just the data (not the headers) into
|
||||
// $l1dump - which will be outputted directly after $ldump
|
||||
$l1dump=array();
|
||||
foreach($ld1 as $key=>$ld) {
|
||||
//Put every line, other than the first three into this string
|
||||
if($key > 3) {
|
||||
$l1dump[]=$ld;
|
||||
}
|
||||
}
|
||||
$l1dump = implode("\n", $l1dump);
|
||||
$l1dump .= "\n";
|
||||
} else {
|
||||
//If there is no data then make it an empty string.
|
||||
$l1dump = "";
|
||||
}
|
||||
|
||||
|
||||
|
||||
//8: Question Attributes
|
||||
$query = "SELECT DISTINCT {$dbprefix}question_attributes.*
|
||||
FROM {$dbprefix}question_attributes, {$dbprefix}questions
|
||||
WHERE ({$dbprefix}question_attributes.qid={$dbprefix}questions.qid)
|
||||
AND ({$dbprefix}questions.gid=$gid)";
|
||||
$qadump = BuildCSVFromQuery($query);
|
||||
|
||||
// HTTP/1.0
|
||||
echo $dumphead, $gdump, $qdump, $adump, $cdump, $lsdump, $ls1dump, $ldump, $l1dump, $qadump;
|
||||
$xml->endElement();
|
||||
getXMLStructure($xml,$gid);
|
||||
$xml->endElement(); // close columns
|
||||
$xml->endDocument();
|
||||
exit;
|
||||
?>
|
||||
|
||||
|
||||
function getXMLStructure($xml,$gid)
|
||||
{
|
||||
global $dbprefix, $connect;
|
||||
// Groups
|
||||
$gquery = "SELECT *
|
||||
FROM {$dbprefix}groups
|
||||
WHERE gid=$gid";
|
||||
BuildXMLFromQuery($xml,$gquery);
|
||||
|
||||
// Questions table
|
||||
$qquery = "SELECT *
|
||||
FROM {$dbprefix}questions
|
||||
WHERE gid=$gid and parent_qid=0 order by question_order, language, scale_id";
|
||||
BuildXMLFromQuery($xml,$qquery);
|
||||
|
||||
// Questions table - Subquestions
|
||||
$qquery = "SELECT *
|
||||
FROM {$dbprefix}questions
|
||||
WHERE gid=$gid and parent_qid>0 order by question_order, language, scale_id";
|
||||
BuildXMLFromQuery($xml,$qquery,'subquestions');
|
||||
|
||||
//Answers
|
||||
$aquery = "SELECT DISTINCT {$dbprefix}answers.*
|
||||
FROM {$dbprefix}answers, {$dbprefix}questions
|
||||
WHERE ({$dbprefix}answers.qid={$dbprefix}questions.qid)
|
||||
AND ({$dbprefix}questions.gid=$gid)";
|
||||
BuildXMLFromQuery($xml,$aquery);
|
||||
|
||||
//Conditions - THIS CAN ONLY EXPORT CONDITIONS THAT RELATE TO THE SAME GROUP
|
||||
$cquery = "SELECT DISTINCT c.*
|
||||
FROM {$dbprefix}conditions c, {$dbprefix}questions q, {$dbprefix}questions b
|
||||
WHERE (c.cqid=q.qid)
|
||||
AND (c.qid=b.qid)
|
||||
AND (q.gid={$gid})
|
||||
AND (b.gid={$gid})";
|
||||
BuildXMLFromQuery($xml,$cquery,'conditions');
|
||||
|
||||
//Question attributes
|
||||
$surveyid=$connect->GetOne("select sid from {$dbprefix}groups where gid={$gid}");
|
||||
$sBaseLanguage=GetBaseLanguageFromSurveyID($surveyid);
|
||||
if ($connect->databaseType == 'odbc_mssql' || $connect->databaseType == 'odbtp' || $connect->databaseType == 'mssql_n' || $connect->databaseType =='mssqlnative')
|
||||
{
|
||||
$query="SELECT qa.qid, qa.attribute, cast(qa.value as varchar(4000)) as value
|
||||
FROM {$dbprefix}question_attributes qa JOIN {$dbprefix}questions q ON q.qid = qa.qid AND q.sid={$surveyid} and q.gid={$gid}
|
||||
where q.language='{$sBaseLanguage}' group by qa.qid, qa.attribute, cast(qa.value as varchar(4000))";
|
||||
}
|
||||
else {
|
||||
$query="SELECT qa.qid, qa.attribute, qa.value
|
||||
FROM {$dbprefix}question_attributes qa JOIN {$dbprefix}questions q ON q.qid = qa.qid AND q.sid={$surveyid} and q.gid={$gid}
|
||||
where q.language='{$sBaseLanguage}' group by qa.qid, qa.attribute, qa.value";
|
||||
}
|
||||
BuildXMLFromQuery($xml,$query,'question_attributes');
|
||||
|
||||
// Default values
|
||||
$query = "SELECT dv.*
|
||||
FROM {$dbprefix}defaultvalues dv
|
||||
JOIN {$dbprefix}questions ON {$dbprefix}questions.qid = dv.qid
|
||||
AND {$dbprefix}questions.language=dv.language
|
||||
AND {$dbprefix}questions.gid=$gid
|
||||
order by dv.language, dv.scale_id";
|
||||
BuildXMLFromQuery($xml,$query,'defaultvalues');
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user