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: vvexport.php 7039 2009-06-07 13:56:16Z jcleeland $
|
||||
*/
|
||||
* 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: vvexport.php 10925 2011-09-02 14:12:02Z c_schmitz $
|
||||
*/
|
||||
|
||||
// Security Checked: POST, GET, SESSION, REQUEST, returnglobal, DB
|
||||
|
||||
@@ -19,150 +19,171 @@
|
||||
|
||||
include_once("login_check.php");
|
||||
|
||||
$sumquery5 = "SELECT b.* FROM {$dbprefix}surveys AS a INNER JOIN {$dbprefix}surveys_rights AS b ON a.sid = b.sid WHERE a.sid=$surveyid AND b.uid = ".$_SESSION['loginID']; //Getting rights for this survey and user
|
||||
$sumresult5 = db_execute_assoc($sumquery5); //Checked
|
||||
$sumrows5 = $sumresult5->FetchRow();
|
||||
|
||||
if ($sumrows5['export'] != "1")
|
||||
if (!bHasSurveyPermission($surveyid, 'responses','export'))
|
||||
{
|
||||
return;
|
||||
return;
|
||||
}
|
||||
|
||||
if (!$subaction == "export")
|
||||
{
|
||||
if(incompleteAnsFilterstate() == "inc")
|
||||
{
|
||||
$selecthide="";
|
||||
$selectshow="";
|
||||
$selectinc="selected='selected'";
|
||||
}
|
||||
elseif (incompleteAnsFilterstate() == "filter")
|
||||
{
|
||||
$selecthide="selected='selected'";
|
||||
$selectshow="";
|
||||
$selectinc="";
|
||||
}
|
||||
else
|
||||
{
|
||||
$selecthide="";
|
||||
$selectshow="selected='selected'";
|
||||
$selectinc="";
|
||||
}
|
||||
if(incompleteAnsFilterstate() == "inc")
|
||||
{
|
||||
$selecthide="";
|
||||
$selectshow="";
|
||||
$selectinc="selected='selected'";
|
||||
}
|
||||
elseif (incompleteAnsFilterstate() == "filter")
|
||||
{
|
||||
$selecthide="selected='selected'";
|
||||
$selectshow="";
|
||||
$selectinc="";
|
||||
}
|
||||
else
|
||||
{
|
||||
$selecthide="";
|
||||
$selectshow="selected='selected'";
|
||||
$selectinc="";
|
||||
}
|
||||
|
||||
$vvoutput = "<br /><form method='post' action='admin.php?action=vvexport&sid=$surveyid'>"
|
||||
."<table align='center' class='outlinetable'>"
|
||||
."<tr>"
|
||||
." <th colspan='2'>".$clang->gT("Export a VV survey file")."</th>"
|
||||
."</tr>"
|
||||
."<tr>"
|
||||
." <td align='right'>".$clang->gT("Export Survey").":</td>"
|
||||
." <td><input type='text' size='10' value='$surveyid' name='sid' readonly='readonly' /></td>"
|
||||
."</tr>"
|
||||
."<tr>"
|
||||
." <td align='right'>".$clang->gT("Export").":</td>"
|
||||
." <td><select name='filterinc'>\n"
|
||||
." <option value='filter' $selecthide>".$clang->gT("Completed Records Only")."</option>\n"
|
||||
." <option value='show' $selectshow>".$clang->gT("All Records")."</option>\n"
|
||||
." <option value='incomplete' $selectinc>".$clang->gT("Incomplete Records Only")."</option>\n"
|
||||
." </select></td>\n"
|
||||
."</tr>"
|
||||
."<tr>"
|
||||
." <td align='right'>".$clang->gT("File Extension").": </td>\n"
|
||||
." <td><input type='text' name='extension' size='3' value='csv'><span style='font-size: 7pt'>*</span></td>\n"
|
||||
."</tr>\n"
|
||||
."<tr>"
|
||||
." <td colspan='2' align='center'>"
|
||||
." <input type='submit' value='".$clang->gT("Export Responses")."' /> "
|
||||
." <input type='hidden' name='subaction' value='export' />"
|
||||
." </td>"
|
||||
."</tr>"
|
||||
."<tr><td colspan='2' align='center' style='padding: 10px 0 10px 5px'><span style='font-size: 7pt'>* ".$clang->gT("For easy opening in MS Excel, change the extension to 'tab' or 'txt'")."</span></td></tr>\n"
|
||||
."<tr><td colspan='2' align='center'>[<a href='$scriptname?action=browse&sid=$surveyid'>".$clang->gT("Return to Survey Administration")."</a>]</td></tr>"
|
||||
."</table>";
|
||||
$vvoutput = browsemenubar($clang->gT("Export VV file")).
|
||||
"<form id='vvexport' method='post' action='admin.php?action=vvexport&sid=$surveyid'>"
|
||||
."<div class='header ui-widget-header'>".$clang->gT("Export a VV survey file")."</div>"
|
||||
."<ul>"
|
||||
."<li>"
|
||||
."<label for='sid'>".$clang->gT("Export Survey").":</label>"
|
||||
."<input type='text' size='10' value='$surveyid' id='sid' name='sid' readonly='readonly' />"
|
||||
."</li>\n"
|
||||
."<li>\n"
|
||||
." <label for='filterinc'>".$clang->gT("Export").":</label>"
|
||||
." <select name='filterinc' id='filterinc'>\n"
|
||||
." <option value='filter' $selecthide>".$clang->gT("Completed responses only")."</option>\n"
|
||||
." <option value='show' $selectshow>".$clang->gT("All responses")."</option>\n"
|
||||
." <option value='incomplete' $selectinc>".$clang->gT("Incomplete responses only")."</option>\n"
|
||||
." </select>\n"
|
||||
."</li>\n";
|
||||
|
||||
$quexsfilterstate = questionnaireSampleFilterstate();
|
||||
|
||||
//queXS Addition
|
||||
include_once("../quexs.php");
|
||||
$vvoutput .= "<li><label for='quexsfilterinc'>".$clang->gT("Questionnaire and Sample selection:")."</label><select id='quexsfilterinc' name='quexsfilterinc'>\n"
|
||||
."\t<option value='all' >".$clang->gT("All queXS questionnaires and samples associated with this instrument")."</option>\n"
|
||||
. get_questionnaire_sample_list($surveyid,$quexsfilterstate)
|
||||
."</select></li>\n";
|
||||
|
||||
$vvoutput .=
|
||||
"<li>\n"
|
||||
." <label for='extension'>".$clang->gT("File Extension").": </label>\n"
|
||||
." <input type='text' id='extension' name='extension' size='3' value='csv' /><span style='font-size: 7pt'>*</span>\n"
|
||||
."</li>\n"
|
||||
."</ul>\n"
|
||||
."<p><input type='submit' value='".$clang->gT("Export results")."' /> "
|
||||
."<input type='hidden' name='subaction' value='export' />"
|
||||
."</form>"
|
||||
|
||||
."<p><span style='font-size: 7pt'>* ".$clang->gT("For easy opening in MS Excel, change the extension to 'tab' or 'txt'")."</span><br />\n";
|
||||
}
|
||||
elseif (isset($surveyid) && $surveyid)
|
||||
{
|
||||
//Export is happening
|
||||
$extension=sanitize_paranoid_string(returnglobal('extension'));
|
||||
header("Content-Disposition: attachment; filename=vvexport_$surveyid.".$extension);
|
||||
header("Content-type: text/comma-separated-values; charset=UTF-8");
|
||||
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
|
||||
header("Pragma: cache");
|
||||
$s="\t";
|
||||
//Export is happening
|
||||
$extension=sanitize_paranoid_string(returnglobal('extension'));
|
||||
header("Content-Disposition: attachment; filename=vvexport_$surveyid.".$extension);
|
||||
header("Content-type: text/comma-separated-values; charset=UTF-8");
|
||||
header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
|
||||
header("Pragma: cache");
|
||||
$s="\t";
|
||||
|
||||
$fieldmap=createFieldMap($surveyid, "full");
|
||||
$surveytable = "{$dbprefix}survey_$surveyid";
|
||||
$fieldmap=createFieldMap($surveyid, "full");
|
||||
$surveytable = "{$dbprefix}survey_$surveyid";
|
||||
|
||||
GetBaseLanguageFromSurveyID($surveyid);
|
||||
GetBaseLanguageFromSurveyID($surveyid);
|
||||
|
||||
$fieldnames = array_values($connect->MetaColumnNames($surveytable, true));
|
||||
$fieldnames = array_values($connect->MetaColumnNames($surveytable, true));
|
||||
|
||||
//Create the human friendly first line
|
||||
$firstline="";
|
||||
$secondline="";
|
||||
foreach ($fieldnames as $field)
|
||||
{
|
||||
$fielddata=arraySearchByKey($field, $fieldmap, "fieldname", 1);
|
||||
//$vvoutput .= "<pre>";print_r($fielddata);$vvoutput .= "</pre>";
|
||||
if (count($fielddata) < 1) {$firstline.=$field;}
|
||||
else
|
||||
//{$firstline.=str_replace("\n", " ", str_replace("\t", " ", strip_tags($fielddata['question'])));}
|
||||
{$firstline.=preg_replace('/\s+/',' ',strip_tags($fielddata['question']));}
|
||||
$firstline .= $s;
|
||||
$secondline .= $field.$s;
|
||||
}
|
||||
$vvoutput = $firstline."\n";
|
||||
$vvoutput .= $secondline."\n";
|
||||
$query = "SELECT * FROM $surveytable";
|
||||
if (incompleteAnsFilterstate() == "inc")
|
||||
{
|
||||
$query .= " WHERE submitdate IS NULL ";
|
||||
}
|
||||
//Create the human friendly first line
|
||||
$firstline="";
|
||||
$secondline="";
|
||||
foreach ($fieldnames as $field)
|
||||
{
|
||||
$fielddata=arraySearchByKey($field, $fieldmap, "fieldname", 1);
|
||||
//$vvoutput .= "<pre>";print_r($fielddata);$vvoutput .= "</pre>";
|
||||
if (count($fielddata) < 1) {$firstline.=$field;}
|
||||
else
|
||||
//{$firstline.=str_replace("\n", " ", str_replace("\t", " ", strip_tags($fielddata['question'])));}
|
||||
{$firstline.=preg_replace('/\s+/',' ',strip_tags($fielddata['question']));}
|
||||
$firstline .= $s;
|
||||
$secondline .= $field.$s;
|
||||
}
|
||||
$vvoutput = $firstline."\n";
|
||||
$vvoutput .= $secondline."\n";
|
||||
$query = "SELECT * FROM $surveytable";
|
||||
|
||||
$qfs = questionnaireSampleFilterstate();
|
||||
if ($qfs != false)
|
||||
{
|
||||
//Limit responses by questionnaire and/or sample
|
||||
$query .= " JOIN `case` AS c ON ({$dbprefix}survey_$surveyid.token = c.case_id AND c.questionnaire_id = '{$qfs[0]}') ";
|
||||
if ($qfs[1] != 0) //if a sample is selected
|
||||
$query .= " JOIN `sample` AS s ON (s.sample_id = c.sample_id AND s.import_id = '{$qfs[1]}') ";
|
||||
}
|
||||
|
||||
if (incompleteAnsFilterstate() == "inc")
|
||||
{
|
||||
$query .= " WHERE submitdate IS NULL ";
|
||||
}
|
||||
elseif (incompleteAnsFilterstate() == "filter")
|
||||
{
|
||||
$query .= " WHERE submitdate >= ".$connect->DBDate('1980-01-01'). " ";
|
||||
}
|
||||
$result = db_execute_assoc($query) or safe_die("Error:<br />$query<br />".$connect->ErrorMsg()); //Checked
|
||||
{
|
||||
$query .= " WHERE submitdate >= ".$connect->DBDate('1980-01-01'). " ";
|
||||
}
|
||||
$result = db_execute_assoc($query) or safe_die("Error:<br />$query<br />".$connect->ErrorMsg()); //Checked
|
||||
|
||||
while ($row=$result->FetchRow())
|
||||
{
|
||||
foreach ($fieldnames as $field)
|
||||
{
|
||||
$value=trim($row[$field]);
|
||||
// sunscreen for the value. necessary for the beach.
|
||||
// careful about the order of these arrays:
|
||||
// lbrace has to be substituted *first*
|
||||
$value=str_replace(array("{",
|
||||
"\n",
|
||||
"\r",
|
||||
"\t"),
|
||||
array("{lbrace}",
|
||||
"{newline}",
|
||||
"{cr}",
|
||||
"{tab}"),
|
||||
$value);
|
||||
// one last tweak: excel likes to quote values when it
|
||||
// exports as tab-delimited (esp if value contains a comma,
|
||||
// oddly enough). So we're going to encode a leading quote,
|
||||
// if it occurs, so that we can tell the difference between
|
||||
// strings that "really are" quoted, and those that excel quotes
|
||||
// for us.
|
||||
$value=preg_replace('/^"/','{quote}',$value);
|
||||
// yay! that nasty soab won't hurt us now!
|
||||
if($field == "submitdate" && !$value) {$value = "NULL";}
|
||||
$sun[]=$value;
|
||||
}
|
||||
$beach=implode($s, $sun);
|
||||
$vvoutput .= $beach;
|
||||
unset($sun);
|
||||
$vvoutput .= "\n";
|
||||
}
|
||||
echo $vvoutput;
|
||||
exit;
|
||||
while ($row=$result->FetchRow())
|
||||
{
|
||||
foreach ($fieldnames as $field)
|
||||
{
|
||||
if (is_null($row[$field]))
|
||||
{
|
||||
$value='{question_not_shown}';
|
||||
}
|
||||
else
|
||||
{
|
||||
$value=trim($row[$field]);
|
||||
// sunscreen for the value. necessary for the beach.
|
||||
// careful about the order of these arrays:
|
||||
// lbrace has to be substituted *first*
|
||||
$value=str_replace(array("{",
|
||||
"\n",
|
||||
"\r",
|
||||
"\t"),
|
||||
array("{lbrace}",
|
||||
"{newline}",
|
||||
"{cr}",
|
||||
"{tab}"),
|
||||
$value);
|
||||
}
|
||||
// one last tweak: excel likes to quote values when it
|
||||
// exports as tab-delimited (esp if value contains a comma,
|
||||
// oddly enough). So we're going to encode a leading quote,
|
||||
// if it occurs, so that we can tell the difference between
|
||||
// strings that "really are" quoted, and those that excel quotes
|
||||
// for us.
|
||||
$value=preg_replace('/^"/','{quote}',$value);
|
||||
// yay! that nasty soab won't hurt us now!
|
||||
if($field == "submitdate" && !$value) {$value = "NULL";}
|
||||
$sun[]=$value;
|
||||
}
|
||||
$beach=implode($s, $sun);
|
||||
$vvoutput .= $beach;
|
||||
unset($sun);
|
||||
$vvoutput .= "\n";
|
||||
}
|
||||
echo $vvoutput;
|
||||
exit;
|
||||
|
||||
//$vvoutput .= "<pre>$firstline</pre>";
|
||||
//$vvoutput .= "<pre>$secondline</pre>";
|
||||
//$vvoutput .= "<pre>"; print_r($fieldnames); $vvoutput .= "</pre>";
|
||||
//$vvoutput .= "<pre>"; print_r($fieldmap); $vvoutput .= "</pre>";
|
||||
//$vvoutput .= "<pre>$firstline</pre>";
|
||||
//$vvoutput .= "<pre>$secondline</pre>";
|
||||
//$vvoutput .= "<pre>"; print_r($fieldnames); $vvoutput .= "</pre>";
|
||||
//$vvoutput .= "<pre>"; print_r($fieldmap); $vvoutput .= "</pre>";
|
||||
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user