mirror of
https://github.com/ACSPRI/queXS
synced 2024-04-02 12:12:16 +00:00
417 lines
14 KiB
PHP
417 lines
14 KiB
PHP
<?php
|
|
/**
|
|
* Manage questionnaires by editing them or disabling/enabling them
|
|
*
|
|
*
|
|
* 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@acspri.org.au>
|
|
* @copyright Australian Consortium for Social and Political Research Incorporated (ACSPRI) 2011
|
|
* @package queXS
|
|
* @subpackage admin
|
|
* @link http://www.acspri.org.au/ queXS was writen for ACSPRI
|
|
* @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;
|
|
|
|
|
|
if (isset($_POST['questionnaire_id']) && isset($_POST['submit']))
|
|
{
|
|
//Delete the questionnaire
|
|
|
|
$questionnaire_id = intval($_POST['questionnaire_id']);
|
|
|
|
$db->StartTrans();
|
|
|
|
$sql = "DELETE FROM `appointment`
|
|
WHERE case_id IN
|
|
(SELECT case_id
|
|
FROM `case`
|
|
WHERE questionnaire_id = $questionnaire_id)";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `call`
|
|
WHERE case_id IN
|
|
(SELECT case_id
|
|
FROM `case`
|
|
WHERE questionnaire_id = $questionnaire_id)";
|
|
|
|
$db->Execute($sql);
|
|
|
|
|
|
$sql = "DELETE FROM `call_attempt`
|
|
WHERE case_id IN
|
|
(SELECT case_id
|
|
FROM `case`
|
|
WHERE questionnaire_id = $questionnaire_id)";
|
|
|
|
$db->Execute($sql);
|
|
|
|
|
|
$sql = "DELETE FROM `case_availability`
|
|
WHERE case_id IN
|
|
(SELECT case_id
|
|
FROM `case`
|
|
WHERE questionnaire_id = $questionnaire_id)";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `case_note`
|
|
WHERE case_id IN
|
|
(SELECT case_id
|
|
FROM `case`
|
|
WHERE questionnaire_id = $questionnaire_id)";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `contact_phone`
|
|
WHERE case_id IN
|
|
(SELECT case_id
|
|
FROM `case`
|
|
WHERE questionnaire_id = $questionnaire_id)";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `respondent`
|
|
WHERE case_id IN
|
|
(SELECT case_id
|
|
FROM `case`
|
|
WHERE questionnaire_id = $questionnaire_id)";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `client_questionnaire`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `operator_questionnaire`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `questionnaire_availability`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `questionnaire_prefill`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `questionnaire_sample`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `questionnaire_sample_exclude_priority`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `questionnaire_sample_quota`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `questionnaire_sample_quota_row`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `questionnaire_sample_quota_row_exclude`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `shift_report`
|
|
WHERE shift_id IN
|
|
(SELECT shift_id
|
|
FROM `shift`
|
|
WHERE questionnaire_id = $questionnaire_id)";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `shift`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `case`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$sql = "DELETE FROM `questionnaire`
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
|
|
$db->CompleteTrans();
|
|
|
|
}
|
|
|
|
if (isset($_GET['disable']))
|
|
{
|
|
$questionnaire_id = intval($_GET['disable']);
|
|
|
|
$sql = "UPDATE questionnaire
|
|
SET enabled = 0
|
|
WHERE questionnaire_id = '$questionnaire_id'";
|
|
|
|
$db->Execute($sql);
|
|
}
|
|
|
|
if (isset($_GET['enable']))
|
|
{
|
|
$questionnaire_id = intval($_GET['enable']);
|
|
|
|
$sql = "UPDATE questionnaire
|
|
SET enabled = 1
|
|
WHERE questionnaire_id = '$questionnaire_id'";
|
|
|
|
$db->Execute($sql);
|
|
}
|
|
|
|
if (isset($_POST['update']) && isset($_GET['modify']))
|
|
{
|
|
$questionnaire_id = intval($_GET['modify']);
|
|
|
|
$ras =0;
|
|
$rws = 0;
|
|
$rs = 0;
|
|
$respsc = 0;
|
|
if (isset($_POST['ras'])) $ras = 1;
|
|
if (isset($_POST['rws'])) $rws = 1;
|
|
if (isset($_POST['respsc'])) $respsc = 1;
|
|
|
|
$name = $db->qstr(html_entity_decode($_POST['description'],ENT_QUOTES,'UTF-8'));
|
|
if (isset($_POST['rs_intro']))
|
|
{
|
|
$rs = 1;
|
|
$rs_intro = $db->qstr(html_entity_decode($_POST['rs_intro'],ENT_QUOTES,'UTF-8'));
|
|
$rs_project_intro = $db->qstr(html_entity_decode($_POST['rs_project_intro'],ENT_QUOTES,'UTF-8'));
|
|
$rs_callback = $db->qstr(html_entity_decode($_POST['rs_callback'],ENT_QUOTES,'UTF-8'));
|
|
$rs_answeringmachine = $db->qstr(html_entity_decode($_POST['rs_answeringmachine'],ENT_QUOTES,'UTF-8'));
|
|
}
|
|
$info = $db->qstr(html_entity_decode($_POST['info'],ENT_QUOTES,'UTF-8'));
|
|
$rs_project_end = $db->qstr(html_entity_decode($_POST['rs_project_end'],ENT_QUOTES,'UTF-8'));
|
|
|
|
|
|
$sql = "UPDATE questionnaire
|
|
SET description = $name, info = $info, rs_project_end = $rs_project_end, restrict_appointments_shifts = '$ras', restrict_work_shifts = '$rws', self_complete = $respsc
|
|
WHERE questionnaire_id = '$questionnaire_id'";
|
|
|
|
$db->Execute($sql);
|
|
|
|
if ($rs)
|
|
{
|
|
$sql = "UPDATE questionnaire
|
|
SET rs_intro = $rs_intro, rs_project_intro = $rs_project_intro, rs_callback = $rs_callback, rs_answeringmachine = $rs_answeringmachine
|
|
WHERE questionnaire_id = '$questionnaire_id'";
|
|
|
|
$db->Execute($sql);
|
|
}
|
|
|
|
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 = $questionnaire_id";
|
|
|
|
$db->Execute($sql);
|
|
}
|
|
|
|
}
|
|
|
|
xhtml_head(T_("Questionnaire list"),true,array("../css/table.css"),array("../js/new.js"));
|
|
|
|
|
|
if (isset($_GET['modify']))
|
|
{
|
|
$questionnaire_id = intval($_GET['modify']);
|
|
|
|
$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");
|
|
|
|
$sql = "SELECT *
|
|
FROM questionnaire
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$rs = $db->GetRow($sql);
|
|
|
|
$testing = $rws = $ras = $rsc = "checked=\"checked\"";
|
|
$rscd = "";
|
|
|
|
$aio = $qbq = $gat = "";
|
|
if ($rs['lime_mode'] == "survey") $aio = "selected=\"selected\"";
|
|
if ($rs['lime_mode'] == "question") $qbq = "selected=\"selected\"";
|
|
if ($rs['lime_mode'] == "group") $gat = "selected=\"selected\"";
|
|
|
|
|
|
if ($rs['restrict_appointments_shifts'] != 1) $ras = "";
|
|
if ($rs['restrict_work_shifts'] != 1) $rws = "";
|
|
if ($rs['testing'] != 1) $testing = "";
|
|
if ($rs['self_complete'] == 0)
|
|
{
|
|
$rsc = "";
|
|
$rscd = "style='display:none;'";
|
|
}
|
|
|
|
echo "<h1>" . $rs['description'] . "</h1>";
|
|
echo "<p><a href='?'>" . T_("Go back") . "</a></p>";
|
|
echo "<p><a href='" . LIME_URL . "admin/admin.php?sid={$rs['lime_sid']}'>" . T_("Edit instrument in Limesurvey") . "</a></p>";
|
|
?>
|
|
<form action="?modify=<?php echo $questionnaire_id; ?>" method="post">
|
|
<p><?php echo T_("Name for questionnaire:"); ?> <input type="text" name="description" value="<?php echo $rs['description']; ?>"/></p>
|
|
<p><?php echo T_("Restrict appointments to shifts?"); ?> <input name="ras" type="checkbox" <?php echo $ras; ?>/></p>
|
|
<p><?php echo T_("Restrict work to shifts?"); ?> <input name="rws" type="checkbox" <?php echo $rws; ?>/></p>
|
|
<p><?php echo T_("Questionnaire for testing only?"); ?> <input name="testing" type="checkbox" disabled="true" <?php echo $testing; ?>/></p>
|
|
<p><?php echo T_("Allow for respondent self completion via email invitation?"); ?> <input name="respsc" type="checkbox" <?php echo $rsc ?> onchange="if(this.checked==true) show(this,'limesc'); else hide(this,'limesc');" /></p>
|
|
<div id='limesc' <?php echo $rscd; ?>>
|
|
<p><?php echo T_("Questionnaire display mode for respondent");?>: <select name="lime_mode"><option <?php echo $aio;?> value="survey"><?php echo T_("All in one"); ?></option><option <?php echo $qbq; ?> value="question"><?php echo T_("Question by question"); ?></option><option <?php echo $gat; ?> 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\" ";
|
|
if ($rs['lime_template'] == $entry) echo " selected=\"selected\" ";
|
|
echo ">$entry</option>";
|
|
|
|
}
|
|
}
|
|
closedir($handle);
|
|
}
|
|
?>
|
|
</select></p>
|
|
<p><?php echo T_("URL to forward respondents on self completion (required)");?>: <input name="lime_endurl" type="text" value="<?php echo $rs['lime_endurl']; ?>"/></p>
|
|
</div>
|
|
<?php if ($rs['respondent_selection'] == 1 && empty($rs['lime_rs_sid'])) { ?>
|
|
<p><?php echo T_("Respondent selection introduction:"); echo $CKEditor->editor("rs_intro",$rs['rs_intro'],$ckeditorConfig);?></p>
|
|
<p><?php echo T_("Respondent selection project introduction:"); echo $CKEditor->editor("rs_project_intro",$rs['rs_project_intro'],$ckeditorConfig);?></p>
|
|
<p><?php echo T_("Respondent selection callback (already started questionnaire):"); echo $CKEditor->editor("rs_callback",$rs['rs_callback'],$ckeditorConfig);?> </p>
|
|
<p><?php echo T_("Message to leave on an answering machine:"); echo $CKEditor->editor("rs_answeringmachine",$rs['rs_answeringmachine'],$ckeditorConfig);?> </p>
|
|
<?php } else if (!empty($rs['lime_rs_sid'])) { echo "<p><a href='" . LIME_URL . "admin/admin.php?sid={$rs['lime_rs_sid']}'>" . T_("Edit respondent selection instrument in Limesurvey") . "</a></p>"; } ?>
|
|
<p><?php echo T_("Project end text (thank you screen):");echo $CKEditor->editor("rs_project_end",$rs['rs_project_end'],$ckeditorConfig); ?></p>
|
|
<p><?php echo T_("Project information for interviewers/operators:");echo $CKEditor->editor("info",$rs['info'],$ckeditorConfig); ?></p>
|
|
<p><input type="submit" name="update" value="<?php echo T_("Update Questionnaire"); ?>"/></p>
|
|
</form>
|
|
<?php
|
|
|
|
}
|
|
else if (isset($_GET['delete']))
|
|
{
|
|
$questionnaire_id = intval($_GET['delete']);
|
|
|
|
$sql = "SELECT *
|
|
FROM questionnaire
|
|
WHERE questionnaire_id = $questionnaire_id";
|
|
|
|
$rs = $db->GetRow($sql);
|
|
|
|
echo "<h1>" . $rs['description'] . "</h1>";
|
|
|
|
echo "<p><a href='?'>" . T_("Go back") . "</a></p>";
|
|
|
|
print "<p>" . T_("Any collected data and the limesurvey instrument will NOT be deleted") . "</p>";
|
|
print "<p>" . T_("The questionnaire will be deleted from queXS including call history, cases, case notes, respondent details, appointments and the links between operators, clients and the questionnaire") . "</p>";
|
|
print "<p>" . T_("Please confirm you wish to delete the questionnaire") . "</p>";
|
|
|
|
print "<form method='post' action='?'>";
|
|
print "<p><input type='submit' name='submit' value='" . TQ_("Delete this questionnaire") . "'/>";
|
|
print "<input type='hidden' name='questionnaire_id' value='$questionnaire_id'/></p>";
|
|
print "</form>";
|
|
}
|
|
else
|
|
{
|
|
$columns = array("description","enabledisable","modify","deletee");
|
|
$titles = array(T_("Questionnaire"),T_("Enable/Disable"),T_("Modify"),T_("Delete"));
|
|
|
|
$sql = "SELECT
|
|
description,
|
|
CASE WHEN enabled = 0 THEN
|
|
CONCAT('<a href=\'?enable=',questionnaire_id,'\'>" . TQ_("Enable") . "</a>')
|
|
ELSE
|
|
CONCAT('<a href=\'?disable=',questionnaire_id,'\'>" . TQ_("Disable") . "</a>')
|
|
END
|
|
as enabledisable,
|
|
CONCAT('<a href=\'?modify=',questionnaire_id,'\'>" . TQ_("Modify"). "</a>') as modify,
|
|
CONCAT('<a href=\'?delete=',questionnaire_id,'\'>" . TQ_("Delete"). "</a>') as deletee
|
|
FROM questionnaire";
|
|
|
|
$rs = $db->GetAll($sql);
|
|
|
|
|
|
xhtml_table($rs,$columns,$titles);
|
|
}
|
|
|
|
|
|
xhtml_foot();
|
|
|
|
|
|
?>
|