* @copyright Deakin University 2007,2008
* @package queXS
* @subpackage admin
* @link http://www.deakin.edu.au/dcarf/ queXS was writen for DCARF - Deakin Computer Assisted Research Facility
* @license http://opensource.org/licenses/gpl-2.0.php The GNU General Public License (GPL) Version 2
*
*/
/**
* Input functions
*/
include("../functions/functions.input.php");
if (isset($_GET['data']))
{
/**
* Limesurvey functions
*/
include("../functions/functions.limesurvey.php");
$questionnaire_id = false;
$sample_import_id = false;
if (isset($_GET['sample_import_id'])) $sample_import_id = bigintval($_GET['sample_import_id']);
if (isset($_GET['questionnaire_id'])) $questionnaire_id = bigintval($_GET['questionnaire_id']);
limesurvey_export_fixed_width($questionnaire_id,$sample_import_id);
exit();
}
/**
* Configuration file
*/
include_once(dirname(__FILE__).'/../config.inc.php');
/**
* Database file
*/
include ("../db.inc.php");
/**
* XHTML functions
*/
include ("../functions/functions.xhtml.php");
/**
* Display functions
*/
include("../functions/functions.display.php");
if (isset($_GET['key']))
{
$questionnaire_id = bigintval($_GET['questionnaire_id']);
$sample_import_id = bigintval($_GET['sample_import_id']);
$sql = "SELECT sv.var as value
FROM `sample_var` as sv
WHERE sv.sample_id = (SELECT sample_id FROM sample WHERE import_id = '$sample_import_id' LIMIT 1)";
$svars = $db->GetAll($sql);
$fn = "key_all_$questionnaire_id" . "_" . $sample_import_id .".csv";
header("Content-Type: text/csv");
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: no-cache"); // HTTP/1.0
echo("caseid");
foreach($svars as $s)
{
echo("," . $s['value']);
}
echo("\n");
$sql = "SELECT c.case_id ";
$i = 0;
foreach ($svars as $s)
{
$sql .= ", sv$i.val as v$i";
$i++;
}
$sql .= " FROM sample
JOIN `case` as c ON (c.questionnaire_id = '$questionnaire_id') ";
$i = 0;
foreach ($svars as $s)
{
$sql .= " LEFT JOIN sample_var AS sv$i ON (sv$i.sample_id = sample.sample_id AND sv$i.var = '{$s['value']}') ";
$i++;
}
$sql .= " WHERE sample.import_id = '$sample_import_id'
AND c.sample_id = sample.sample_id";
$list = $db->GetAll($sql);
if (!empty($list))
{
foreach($list as $l)
{
echo $l['case_id'];
$i = 0;
foreach ($svars as $s)
{
echo "," . str_replace(","," ",$l["v$i"]);
$i++;
}
echo "\n";
}
}
exit;
}
if (isset($_GET['sample_var']))
{
$questionnaire_id = bigintval($_GET['questionnaire_id']);
$sample_import_id = bigintval($_GET['sample_import_id']);
$sample_var = $db->quote($_GET['sample_var']);
$sql = "SELECT c.case_id, sv.val
FROM sample, `case` as c, sample_var as sv
WHERE c.questionnaire_id = '$questionnaire_id'
AND sample.import_id = '$sample_import_id'
AND c.sample_id = sample.sample_id
AND sv.sample_id = sample.sample_id
AND sv.var = $sample_var";
$list = $db->GetAll($sql);
$fn = "key_$questionnaire_id" . "_" . $sample_import_id .".csv";
header("Content-Type: text/csv");
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: no-cache"); // HTTP/1.0
echo("caseid,$sample_var\n");
if (!empty($list))
{
foreach($list as $l)
{
echo $l['case_id'] . "," . $l['val'] . "\n";
}
}
exit;
}
xhtml_head(T_("Data output"),true,false,array("../js/window.js"));
print "" . T_("Please select a questionnaire") . "
";
$questionnaire_id = false;
if (isset($_GET['questionnaire_id'])) $questionnaire_id = bigintval($_GET['questionnaire_id']);
display_questionnaire_chooser($questionnaire_id);
if ($questionnaire_id)
{
print "". T_("Download all data for this questionnaire") . "
";
$sample_import_id = false;
if (isset($_GET['sample_import_id'])) $sample_import_id = bigintval($_GET['sample_import_id']);
display_sample_chooser($questionnaire_id,$sample_import_id);
if ($sample_import_id)
{
print "" . T_("Download data for this sample") . "
";
//get sample vars
$sql = "SELECT sv.var as value, sv.var as description
FROM `sample_var` as sv
WHERE sv.sample_id = (SELECT sample_id FROM sample WHERE import_id = '$sample_import_id' LIMIT 1)";
//download a key file linking the caseid to the sample
print "" . T_("Download key file: select sample var") . "
";
display_chooser($db->GetAll($sql),"sample_var","sample_var",true,"questionnaire_id=$questionnaire_id&sample_import_id=$sample_import_id");
//download complete key file
print "" . T_("Download complete key file") . "
";
}
}
xhtml_foot();
?>