* @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");
/**
* Display functions
*/
include("../functions/functions.display.php");
/**
* Limesurvey functions
*/
include("../functions/functions.limesurvey.php");
/**
* Operator functions
*/
include("../functions/functions.operator.php");
/**
* Input functions
*/
include("../functions/functions.input.php");
global $db;
$operator_id = get_operator_id();
$case_id = false;
if (isset($_GET['case_id'])) $case_id = bigintval($_GET['case_id']);
if (isset($_GET['deidentify']))
{
//remove all sample vars
$db->StartTrans();
$sql = "SELECT sample_id
FROM `case`
WHERE case_id = $case_id";
$sample_id = $db->GetOne($sql);
$sql = "DELETE FROM sample_var
WHERE sample_id = $sample_id";
$db->Execute($sql);
//clear number from sample table
$sql = "UPDATE `sample`
SET phone = ''
WHERE sample_id = $sample_id";
$db->Execute($sql);
//clear respondent table (firstName,lastName)
$sql = "UPDATE `respondent`
SET firstName = '', lastName = ''
WHERE case_id = $case_id";
$db->Execute($sql);
//clear contact phone (phone,description)
$sql = "UPDATE `contact_phone`
SET phone = '', description = ''
WHERE case_id = $case_id";
$db->Execute($sql);
$db->CompleteTrans();
}
if (isset($_GET['case_note_id']))
{
$case_note_id = bigintval($_GET['case_note_id']);
$sql = "DELETE FROM case_note
WHERE case_id = '$case_id'
AND case_note_id = '$case_note_id'";
$db->Execute($sql);
}
xhtml_head(T_("Supervisor functions"),true,array("../css/table.css"),array("../js/window.js"));
print "
" . T_("Enter a case id or select a case from the list below:") . "
";
$sql = "SELECT c.case_id as value, c.case_id as description, CASE WHEN c.case_id = '$case_id' THEN 'selected=\'selected\'' ELSE '' END AS selected
FROM `case` as c, `outcome` as o
WHERE c.current_outcome_id = o.outcome_id
AND o.outcome_type_id = 2";
$rs = $db->GetAll($sql);
if (!empty($rs))
{
print "
";
?>
qstr($_GET['note']);
$sql = "INSERT INTO `case_note` (case_note_id,case_id,operator_id,note,datetime)
VALUES (NULL,'$case_id','$operator_id',$note,CONVERT_TZ(NOW(),'System','UTC'))";
$db->Execute($sql);
}
if (isset($_GET['outcome_id']))
{
$outcome_id = bigintval($_GET['outcome_id']);
if ($outcome_id > 0)
{
$sql = "UPDATE `case`
SET current_outcome_id = $outcome_id
WHERE case_id = '$case_id'";
$db->Execute($sql);
}
}
if (isset($_GET['operator_id']))
{
$case_operator_id = bigintval($_GET['operator_id']);
if ($case_operator_id == 0)
{
//clear the next case if set to no operator
$sql = "UPDATE `operator`
SET next_case_id = NULL
WHERE next_case_id = '$case_id'";
}
else
{
$sql = "UPDATE `operator`
SET next_case_id = '$case_id'
WHERE operator_id = '$case_operator_id'";
}
$db->Execute($sql);
}
if (isset($_GET['submitag']))
{
$db->StartTrans();
$sql = "DELETE FROM case_availability
WHERE case_id = '$case_id'";
$db->Execute($sql);
foreach($_GET as $key => $val)
{
if (substr($key,0,2) == "ag")
{
$sql = "INSERT INTO case_availability (case_id,availability_group_id)
VALUES ($case_id,'$val')";
$db->Execute($sql);
}
}
$db->CompleteTrans();
}
$sql = "SELECT o.description,o.outcome_id, q.description as qd, si.description as sd
FROM `case` as c, `outcome` as o, questionnaire as q, sample as s, sample_import as si
WHERE c.case_id = '$case_id'
AND q.questionnaire_id = c.questionnaire_id
AND s.sample_id = c.sample_id
AND si.sample_import_id = s.import_id
AND c.current_outcome_id = o.outcome_id";
$rs = $db->GetRow($sql);
if (!empty($rs))
{
print "
";
//View appointments
$sql = "SELECT q.description, CONVERT_TZ(a.start,'UTC',o.Time_zone_name) as start, CONVERT_TZ(a.end,'UTC',o.Time_zone_name) as end, r.firstName, r.lastName, IFNULL(ou.description,'" . T_("Not yet called") . "') as outcome, oo.firstName as makerName, ooo.firstName as callerName, CONCAT('', c.case_id, '') as case_id, CONCAT('". TQ_("Delete") . "') as link, CONCAT('". TQ_("Edit") . "') as edit
FROM appointment as a
JOIN (`case` as c, respondent as r, questionnaire as q, operator as o, operator as oo, call_attempt as cc) on (a.case_id = c.case_id and a.respondent_id = r.respondent_id and q.questionnaire_id = c.questionnaire_id and a.call_attempt_id = cc.call_attempt_id and cc.operator_id = oo.operator_id)
LEFT JOIN (`call` as ca, outcome as ou, operator as ooo) ON (ca.call_id = a.completed_call_id and ou.outcome_id = ca.outcome_id and ca.operator_id = ooo.operator_id)
WHERE c.case_id = '$case_id'
GROUP BY a.appointment_id
ORDER BY a.start ASC";
$rs = $db->GetAll($sql);
if (!empty($rs))
{
translate_array($rs,array("outcome"));
xhtml_table($rs,array("description","start","end","makerName","firstName","lastName","outcome","callerName","link","edit"),array(T_("Questionnaire"),T_("Start"),T_("End"),T_("Operator Name"),T_("Respondent Name"),T_("Surname"),T_("Current outcome"),T_("Operator who called"),T_("Delete"),T_("Edit")));
}
else
print "
";
//view calls and outcomes
$sql = "SELECT DATE_FORMAT(CONVERT_TZ(c.start,'UTC',r.Time_zone_name),'".DATE_TIME_FORMAT."') as start,CONVERT_TZ(c.end,'UTC',r.Time_zone_name) as end, op.firstName, op.lastName, o.description as des, CONCAT('". TQ_("Edit") . "') as link, cp.phone as phone
FROM `call` as c
JOIN (operator as op, outcome as o, respondent as r, contact_phone as cp) on (c.operator_id = op.operator_id and c.outcome_id = o.outcome_id and r.respondent_id = c.respondent_id and cp.contact_phone_id = c.contact_phone_id)
WHERE c.case_id = '$case_id'
ORDER BY c.start DESC";
$rs = $db->GetAll($sql);
print "
" . T_("Call list")."
";
if (empty($rs))
print "
" . T_("No calls made") . "
";
else
{
translate_array($rs,array("des"));
xhtml_table($rs,array("start","des","phone","link","firstName"),array(T_("Date/Time"),T_("Outcome"),T_("Phone number"),T_("Change outcome"),T_("Operator")));
}
$sql = "SELECT count(*)
FROM questionnaire_timeslot as q, `case` as c
WHERE c.case_id = $case_id
AND c.questionnaire_id = q.questionnaire_id";
if ($db->GetOne($sql) >= 1)
{
print "
" . T_("Calls by timeslot") . "
";
print "
" . T_("(excludes Not attempted or worked)") . "
";
$sql = "SELECT ag.description, (SELECT COUNT(*) FROM availability as a, `call` as ca WHERE ca.outcome_id != 1 AND ca.case_id = c.case_id AND a.availability_group_id = ag.availability_group_id
AND (a.day_of_week = DAYOFWEEK(CONVERT_TZ(ca.start,'UTC','Australia/Victoria'))
AND TIME(CONVERT_TZ(ca.start, 'UTC' , 'Australia/Victoria')) >= a.start
AND TIME(CONVERT_TZ(ca.start, 'UTC' ,'Australia/Victoria')) <= a.end)) as cou
FROM availability_group as ag, `case` as c, `questionnaire_timeslot` as qt
WHERE c.case_id = 24
AND qt.questionnaire_id = c.questionnaire_id AND ag.availability_group_id = qt.availability_group_id";
xhtml_table($db->GetAll($sql),array('description','cou'),array(T_("Time slot"),T_("Calls")));
}
//view notes
$sql = "SELECT DATE_FORMAT(CONVERT_TZ(c.datetime,'UTC',op.Time_zone_name),'".DATE_TIME_FORMAT."') as time, op.firstName, op.lastName, c.note as note, CONCAT('". TQ_("Delete") . "') as link
FROM `case_note` as c
JOIN (operator as op) on (c.operator_id = op.operator_id)
WHERE c.case_id = '$case_id'
ORDER BY c.datetime DESC";
$rs = $db->GetAll($sql);
print "
" . T_("Case notes")."
";
if (empty($rs))
print "
" . T_("No notes") . "
";
else
xhtml_table($rs,array("time","firstName","note","link"),array(T_("Date/Time"),T_("Operator"),T_("Note"),T_("Delete")));
//add a note
?>
" . T_("Modify responses for this case") . "";
else
print "
" . T_("Case not yet started in Limesurvey") . "
";
//set an outcome
print "
" . T_("Set a case outcome") . "
";
?>
= 1 availability group is in use for this case
$sql = "SELECT qa.availability_group_id,ag.description,ca.availability_group_id as selected_group_id
FROM `case` as c
JOIN questionnaire_availability AS qa ON (qa.questionnaire_id = c.questionnaire_id)
JOIN availability_group AS ag ON (ag.availability_group_id = qa.availability_group_id)
LEFT JOIN case_availability AS ca ON (ca.availability_group_id = qa.availability_group_id and ca.case_id = c.case_id)
WHERE c.case_id = '$case_id'";
$rs = $db->GetAll($sql);
//Display all availability groups as checkboxes
print "
" . T_("Select groups to limit availability (Selecting none means always available)") . "
";
print "
" . T_("Availability groups not defined for this questionnaire") . "";
}
//assign this to an operator for their next case
print "
" . T_("Assign this case to operator (will appear as next case for them)") . "
";
?>
" . T_("Deidentify") . "";
print "
" . T_("Remove all sample details and contact numbers from this case") . "
";
?>
" . T_("Case does not exist") . "";
}
}
xhtml_foot();
?>