mirror of
https://github.com/ACSPRI/queXS
synced 2024-04-02 12:12:16 +00:00
229 lines
9.0 KiB
PHP
229 lines
9.0 KiB
PHP
<?php
|
|
/**
|
|
* Create a queXS questionnaire and link it to a LimeSurvey questionnaire
|
|
*
|
|
*
|
|
* This file is part of queXS
|
|
*
|
|
* queXS is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* queXS is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with queXS; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
|
*
|
|
*
|
|
* @author Adam Zammit <adam.zammit@deakin.edu.au>
|
|
* @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
|
|
*
|
|
*/
|
|
|
|
/**
|
|
* Configuration file
|
|
*/
|
|
include ("../config.inc.php");
|
|
|
|
/**
|
|
* Database file
|
|
*/
|
|
include ("../db.inc.php");
|
|
|
|
/**
|
|
* XHTML functions
|
|
*/
|
|
include ("../functions/functions.xhtml.php");
|
|
|
|
/**
|
|
* Input functions
|
|
*/
|
|
include("../functions/functions.input.php");
|
|
|
|
/**
|
|
* CKEditor
|
|
*/
|
|
include("../include/ckeditor/ckeditor.php");
|
|
|
|
global $db;
|
|
|
|
xhtml_head(T_("New: Create new questionnaire"),true,false,array("../js/new.js"));
|
|
|
|
if (isset($_POST['import_file']))
|
|
{
|
|
//file has been submitted
|
|
global $db;
|
|
|
|
$ras =0;
|
|
$rws = 0;
|
|
$testing = 0;
|
|
$rs = 0;
|
|
$lime_sid = 0;
|
|
$respsc = 0;
|
|
$lime_rs_sid = "NULL";
|
|
if (isset($_POST['ras'])) $ras = 1;
|
|
if (isset($_POST['rws'])) $rws = 1;
|
|
if (isset($_POST['testing'])) $testing = 1;
|
|
if (isset($_POST['respsc'])) $respsc = 1;
|
|
if ($_POST['selectrs'] != "none") $rs = 1;
|
|
|
|
$name = $db->qstr($_POST['description'],get_magic_quotes_gpc());
|
|
$rs_intro = $db->qstr(html_entity_decode($_POST['rs_intro'],get_magic_quotes_gpc()));
|
|
$rs_project_intro = $db->qstr(html_entity_decode($_POST['rs_project_intro'],get_magic_quotes_gpc()));
|
|
$rs_project_end = $db->qstr(html_entity_decode($_POST['rs_project_end'],get_magic_quotes_gpc()));
|
|
$rs_callback = $db->qstr(html_entity_decode($_POST['rs_callback'],get_magic_quotes_gpc()));
|
|
$rs_answeringmachine = $db->qstr(html_entity_decode($_POST['rs_answeringmachine'],get_magic_quotes_gpc()));
|
|
$info = $db->qstr(html_entity_decode($_POST['info'],get_magic_quotes_gpc()));
|
|
|
|
//use existing lime instrument
|
|
$lime_sid = bigintval($_POST['select']);
|
|
|
|
|
|
if (is_numeric($_POST['selectrs']))
|
|
{
|
|
$lime_rs_sid = bigintval($_POST['selectrs']);
|
|
}
|
|
|
|
$sql = "INSERT INTO questionnaire (questionnaire_id,description,lime_sid,restrict_appointments_shifts,restrict_work_shifts,respondent_selection,rs_intro,rs_project_intro,rs_project_end,rs_callback,rs_answeringmachine,testing,lime_rs_sid,info,self_complete)
|
|
VALUES (NULL,$name,'$lime_sid','$ras','$rws','$rs',$rs_intro,$rs_project_intro,$rs_project_end,$rs_callback,$rs_answeringmachine,'$testing',$lime_rs_sid,$info,$respsc)";
|
|
|
|
$rs = $db->Execute($sql);
|
|
|
|
if ($rs)
|
|
{
|
|
$qid = $db->Insert_ID();
|
|
if ($respsc == 1)
|
|
{
|
|
$lime_mode = $db->qstr($_POST['lime_mode'],get_magic_quotes_gpc());
|
|
$lime_template = $db->qstr($_POST['lime_template'],get_magic_quotes_gpc());
|
|
$lime_endurl = $db->qstr($_POST['lime_endurl'],get_magic_quotes_gpc());
|
|
|
|
$sql = "UPDATE questionnaire
|
|
SET lime_mode = $lime_mode, lime_template = $lime_template, lime_endurl = $lime_endurl
|
|
WHERE questionnaire_id = $qid";
|
|
|
|
$db->Execute($sql);
|
|
}
|
|
print "<p>" . T_("Successfully inserted") . " $name " . T_("as questionnaire") . " $qid, " . T_("linked to") . " $lime_sid</p>";
|
|
}else
|
|
{
|
|
print "<p>" . T_("Error: Failed to insert questionnaire") . "</p>";
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
//create new questionnaire
|
|
?>
|
|
<form enctype="multipart/form-data" action="" method="post">
|
|
<p><input type="hidden" name="MAX_FILE_SIZE" value="1000000000" /></p>
|
|
<p><?php echo T_("Name for questionnaire:"); ?> <input type="text" name="description"/></p>
|
|
<p><?php echo T_("Select limesurvey instrument:");
|
|
$sql = "SELECT s.sid as sid, sl.surveyls_title AS title
|
|
FROM " . LIME_PREFIX . "surveys AS s
|
|
LEFT JOIN " . LIME_PREFIX . "surveys_languagesettings AS sl ON ( s.sid = sl.surveyls_survey_id)
|
|
WHERE s.active = 'Y'
|
|
GROUP BY s.sid";
|
|
|
|
$surveys = $db->GetAll($sql);
|
|
|
|
if (!empty($surveys))
|
|
{
|
|
print "<select name='select'>";
|
|
foreach($surveys as $s)
|
|
{
|
|
print "<option value=\"{$s['sid']}\">" . T_("Existing instrument:") . " {$s['title']}</option>";
|
|
}
|
|
print "</select>";
|
|
}
|
|
else
|
|
{
|
|
print "<a href='" . LIME_URL ."admin/admin.php?action=newsurvey'>" . T_("Create an instrument in Limesurvey") ."</a>";
|
|
}
|
|
?></p>
|
|
<p><?php echo T_("Respondent selection type:"); ?>
|
|
<select name="selectrs" onchange="if(this.value=='old') show(this,'rstext'); else hide(this,'rstext');"><option value="none"><?php echo T_("No respondent selection (go straight to questionnaire)"); ?></option><option value="old"><?php echo T_("Use basic respondent selection text (below)"); ?></option>
|
|
<?php
|
|
$sql = "SELECT s.sid as sid, sl.surveyls_title AS title
|
|
FROM " . LIME_PREFIX . "surveys AS s
|
|
LEFT JOIN " . LIME_PREFIX . "surveys_languagesettings AS sl ON ( s.sid = sl.surveyls_survey_id
|
|
AND sl.surveyls_language = 'en' )
|
|
WHERE s.active = 'Y'";
|
|
|
|
$surveys = $db->GetAll($sql);
|
|
|
|
if (!empty($surveys))
|
|
{
|
|
foreach($surveys as $s)
|
|
{
|
|
print "<option value=\"{$s['sid']}\">" . T_("Existing instrument:") . " {$s['title']}</option>";
|
|
}
|
|
}
|
|
|
|
$CKEditor = new CKEditor();
|
|
|
|
$ckeditorConfig = array("toolbar" => array(array("tokens","-","Source"),
|
|
array("Cut","Copy","Paste","PasteText","PasteFromWord","-","Print","SpellChecker"),
|
|
array("Undo","Redo","-","Find","Replace","-","SelectAll","RemoveFormat"),
|
|
"/",
|
|
array("Bold","Italic","Underline","Strike","-","Subscript","Superscript"),
|
|
array("NumberedList","BulletedList","-","Outdent","Indent","Blockquote"),
|
|
array('JustifyLeft','JustifyCenter','JustifyRight','JustifyBlock'),
|
|
array('BidiLtr', 'BidiRtl'),
|
|
array('Link','Unlink','Anchor'),
|
|
array('Image','Flash','Table','HorizontalRule','Smiley','SpecialChar','PageBreak'),
|
|
"/",
|
|
array('Styles','Format','Font','FontSize'),
|
|
array('TextColor','BGColor'),
|
|
array('About')),
|
|
"extraPlugins" => "tokens");
|
|
|
|
|
|
?></select></p>
|
|
<p><?php echo T_("Restrict appointments to shifts?"); ?> <input name="ras" type="checkbox" checked="checked"/></p>
|
|
<p><?php echo T_("Restrict work to shifts?"); ?> <input name="rws" type="checkbox" checked="checked"/></p>
|
|
<p><?php echo T_("Questionnaire for testing only?"); ?> <input name="testing" type="checkbox"/></p>
|
|
<p><?php echo T_("Allow for respondent self completion via email invitation?"); ?> <input name="respsc" type="checkbox" onchange="if(this.checked==true) show(this,'limesc'); else hide(this,'limesc');" /></p>
|
|
<div id='limesc' style='display:none;'>
|
|
<p><?php echo T_("Questionnaire display mode for respondent");?>: <select name="lime_mode"><option value="survey"><?php echo T_("All in one"); ?></option><option value="question"><?php echo T_("Question by question"); ?></option><option value="group"><?php echo T_("Group at a time"); ?></option></select></p>
|
|
<p><?php echo T_("Limesurvey template for respondent");?>: <select name="lime_template">
|
|
<?php
|
|
if ($handle = opendir(dirname(__FILE__)."/../include/limesurvey/templates")) {
|
|
while (false !== ($entry = readdir($handle))) {
|
|
if ($entry != "." && $entry != ".." && is_dir(dirname(__FILE__)."/../include/limesurvey/templates/" . $entry)){
|
|
echo "<option value=\"$entry\">$entry</option>";
|
|
}
|
|
}
|
|
closedir($handle);
|
|
}
|
|
?>
|
|
</select></p>
|
|
<p><?php echo T_("URL to forward respondents on self completion");?>: <input name="lime_endurl" type="text" value="http://www.acspri.org.au/"/></p>
|
|
</div>
|
|
<div id='rstext' style='display:none;'>
|
|
<p><?php echo T_("Respondent selection introduction:"); echo $CKEditor->editor("rs_intro","",$ckeditorConfig);?></p>
|
|
<p><?php echo T_("Respondent selection project introduction:"); echo $CKEditor->editor("rs_project_intro","",$ckeditorConfig);?></p>
|
|
<p><?php echo T_("Respondent selection callback (already started questionnaire):"); echo $CKEditor->editor("rs_callback","",$ckeditorConfig);?> </p>
|
|
<p><?php echo T_("Message to leave on an answering machine:"); echo $CKEditor->editor("rs_answeringmachine","",$ckeditorConfig);?> </p>
|
|
</div>
|
|
<p><?php echo T_("Project end text (thank you screen):");echo $CKEditor->editor("rs_project_end","",$ckeditorConfig); ?></p>
|
|
<p><?php echo T_("Project information for interviewers/operators:");echo $CKEditor->editor("info","",$ckeditorConfig);?></p>
|
|
<p><input type="submit" name="import_file" value="<?php echo T_("Create Questionnaire"); ?>"/></p>
|
|
</form>
|
|
<?php
|
|
xhtml_foot();
|
|
|
|
|
|
|
|
?>
|