From 98f246dd03276731e65c2257902eaecb6bdbb066 Mon Sep 17 00:00:00 2001
From: root <root@surveys.acspri.org.au>
Date: Wed, 11 Sep 2013 15:02:59 +1000
Subject: [PATCH] Added referral function (requires addition to database)

---
 CHANGELOG                   |   6 +
 admin/new.php               |   7 +-
 admin/questionnairelist.php |   8 +-
 index.php                   |   7 +-
 index_interface2.php        |   7 +-
 referral.php                | 253 ++++++++++++++++++++++++++++++++++++
 6 files changed, 280 insertions(+), 8 deletions(-)
 create mode 100644 referral.php

diff --git a/CHANGELOG b/CHANGELOG
index 2efea6b0..08c85f58 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,9 @@
+New Feature: Accept case referrals
+
+Database updates:
+
+ALTER TABLE `questionnaire` ADD `referral` TINYINT( 1 ) NOT NULL DEFAULT '0' AFTER `self_complete` 
+
 queXS 1.9.0 - Changes since 1.8.0
 
 New Feature: Supervisor chat via XMPP/Jabber (allow interviewers to chat with a supervisor from the interviewer screen)
diff --git a/admin/new.php b/admin/new.php
index c6575d36..06185066 100644
--- a/admin/new.php
+++ b/admin/new.php
@@ -66,6 +66,7 @@ if (isset($_POST['import_file']))
 	$ras =0;
 	$rws = 0;
 	$testing = 0;
+	$referral = 0;
 	$rs = 0;
 	$lime_sid = 0;
 	$respsc = 0;
@@ -74,6 +75,7 @@ if (isset($_POST['import_file']))
 	if (isset($_POST['rws'])) $rws = 1;
 	if (isset($_POST['testing'])) $testing = 1;
 	if (isset($_POST['respsc'])) $respsc = 1;
+	if (isset($_POST['referral'])) $respsc = 1;
 	if ($_POST['selectrs'] != "none") $rs = 1;
 	
 	$name = $db->qstr($_POST['description'],get_magic_quotes_gpc());
@@ -93,8 +95,8 @@ if (isset($_POST['import_file']))
 		$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)";
+	$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,referral)
+		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,$referral)";
 
 	$rs = $db->Execute($sql);
 
@@ -193,6 +195,7 @@ $ckeditorConfig = array("toolbar" => array(array("tokens","-","Source"),
 <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 operators to generate referrals?"); ?> <input name="referral" 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>
diff --git a/admin/questionnairelist.php b/admin/questionnairelist.php
index 749bcbcb..5647b211 100644
--- a/admin/questionnairelist.php
+++ b/admin/questionnairelist.php
@@ -225,9 +225,11 @@ if (isset($_POST['update']) && isset($_GET['modify']))
 	$rws = 0;
 	$rs = 0;
 	$respsc = 0;
+	$referral = 0;
 	if (isset($_POST['ras'])) $ras = 1;
 	if (isset($_POST['rws'])) $rws = 1;
 	if (isset($_POST['respsc'])) $respsc = 1;
+	if (isset($_POST['referral'])) $referral = 1;
 	
 	$name = $db->qstr(html_entity_decode($_POST['description']));
 	if (isset($_POST['rs_intro']))
@@ -242,7 +244,7 @@ if (isset($_POST['update']) && isset($_GET['modify']))
 	$rs_project_end = $db->qstr(html_entity_decode($_POST['rs_project_end'],true));
 
 	$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
+		SET description = $name, info = $info, rs_project_end = $rs_project_end, restrict_appointments_shifts = '$ras', restrict_work_shifts = '$rws', self_complete = $respsc, referral = $referral
 		WHERE questionnaire_id = '$questionnaire_id'";
 
 	$db->Execute($sql);
@@ -302,7 +304,7 @@ if (isset($_GET['modify']))
 
 	$rs = $db->GetRow($sql);
 
-	$testing = $rws = $ras = $rsc = "checked=\"checked\"";
+	$referral = $testing = $rws = $ras = $rsc = "checked=\"checked\"";
 	$rscd = "";	
 
 	$aio = $qbq = $gat = "";
@@ -314,6 +316,7 @@ if (isset($_GET['modify']))
 	if ($rs['restrict_appointments_shifts'] != 1) $ras = "";
 	if ($rs['restrict_work_shifts'] != 1) $rws = "";
 	if ($rs['testing'] != 1) $testing = "";
+	if ($rs['referral'] != 1) $referral = "";
 	if ($rs['self_complete'] == 0)
 	{
 		$rsc = "";
@@ -329,6 +332,7 @@ if (isset($_GET['modify']))
 		<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 operators to generate referrals?"); ?> <input name="referral" type="checkbox" <?php  echo $referral; ?>/></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>
diff --git a/index.php b/index.php
index 1e214744..fb584b9b 100644
--- a/index.php
+++ b/index.php
@@ -132,12 +132,14 @@ print $script;
 
 $case_id = get_case_id($operator_id,true);
 
-$sql = "SELECT q.self_complete
+$sql = "SELECT q.self_complete as sc,q.referral as r
         FROM questionnaire as q, `case` as c
         WHERE c.case_id = $case_id 
         AND c.questionnaire_id = q.questionnaire_id";
 
-$sc = $db->GetOne($sql);
+$scr = $db->GetRow($sql);
+$sc = $scr['sc'];
+$ref = $scr['r'];
 
 ?>
 
@@ -147,6 +149,7 @@ $sc = $db->GetOne($sql);
 	<div class='box important'><a href="javascript:poptastic('call.php');"><?php  echo T_("Call/Hangup"); ?></a></div>
 	<div class='box'><a href="javascript:poptastic('supervisor.php');"><?php  echo T_("Supervisor"); ?></a></div>
 	<?php if ($sc == 1) { ?><div class='box'><a href="javascript:poptastic('email.php');"><?php  echo T_("Email"); ?></a></div><?php } ?>
+	<?php if ($ref == 1) { ?><div class='box'><a href="javascript:poptastic('referral.php');"><?php  echo T_("Referral"); ?></a></div><?php } ?>
 	<div class='box' id='recbox'><a id='reclink' class='offline' href="javascript:poptastic('record.php?start=start');"><?php  echo T_("Start REC"); ?></a></div>
 	<?php  if (HEADER_EXPANDER_MANUAL){ ?> <div class='headerexpand'><img id='headerexpandimage' src='./images/arrow-up-2.png' alt='<?php  echo T_('Arrow for expanding or contracting'); ?>'/></div> <?php  } ?>
 	<div class='box'><a href='index.php?'><?php  echo T_("Restart"); ?></a></div>
diff --git a/index_interface2.php b/index_interface2.php
index b40ca4fa..ff582265 100644
--- a/index_interface2.php
+++ b/index_interface2.php
@@ -197,12 +197,14 @@ print $script;
 
 $case_id = get_case_id($operator_id,true);
 
-$sql = "SELECT q.self_complete
+$sql = "SELECT q.self_complete, q.referral
         FROM questionnaire as q, `case` as c
         WHERE c.case_id = $case_id 
         AND c.questionnaire_id = q.questionnaire_id";
 
-$sc = $db->GetOne($sql);
+$scr = $db->GetRow($sql);
+$sc = $scr['self_complete'];
+$ref = $scr['referral'];
 
 ?>
 
@@ -210,6 +212,7 @@ $sc = $db->GetOne($sql);
        <li id="item_1"><a href="javascript:poptastic('call_interface2.php');"><?php  echo T_("Outcome"); ?> <img src="css/images/play.jpg" /></a></li>
     <li id="item_2_e" class="item_2_full_height"><a href="javascript:poptastic('appointment.php');"><?php  echo T_("Appointment"); ?> <img src="css/images/plius.jpg" /></a></li>
 	<?php if ($sc == 1) { ?><li id='item_4_e' class="item_2_full_height"><a href="javascript:poptastic('email.php?interface2=true');"><?php  echo T_("Email"); ?> <img src="css/images/plius.jpg" /></a></li><?php } ?>
+	<?php if ($ref == 1) { ?><li id='item_5_e' class="item_2_full_height"><a href="javascript:poptastic('referral.php?interface2=true');"><?php  echo T_("Referral"); ?> <img src="css/images/plius.jpg" /></a></li><?php } ?>
     <li id="item_3_e" class="item_3_full_height"><a href="?endwork=endwork"><?php  echo T_("End work"); ?> <img src="css/images/end.jpg" /></a></li>
 </ul>
 
diff --git a/referral.php b/referral.php
new file mode 100644
index 00000000..4cb99cf2
--- /dev/null
+++ b/referral.php
@@ -0,0 +1,253 @@
+<?php 
+/**
+ * Popup screen to manage referrals
+ *
+ *
+ *	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) 2013
+ * @package queXS
+ * @subpackage user
+ * @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");
+
+/**
+ * Operator functions
+ */
+include("functions/functions.operator.php");
+
+/**
+ * Input functions
+ */
+include("functions/functions.input.php");
+
+/**
+ * Import functions
+ */
+include("functions/functions.import.php");
+
+global $db;
+
+$operator_id = get_operator_id();
+
+$msg = "";
+
+if (isset($_POST['submit']))
+{
+	$case_id = get_case_id($operator_id);
+
+	$sql = "SELECT s.var
+		FROM sample_var as s, `case` as c
+		WHERE c.case_id = '$case_id'
+		AND s.sample_id = c.sample_id
+		AND s.type = 3";
+
+	$pphone = $db->GetOne($sql);
+
+	//validate primary phone number supplied
+	if (isset($_POST["v_$pphone"]) && only_numbers($_POST["v_$pphone"]) != "")
+	{		
+		$phone = $db->qstr(only_numbers($_POST["v_$pphone"]));
+
+		//Create a new sample record and add CASEREFERREDFROM to be this current case id
+		$db->StartTrans();
+
+		//create a new sample entry
+		$sql = "SELECT s.import_id
+			FROM `sample` as s, `case` as c
+			WHERE c.case_id = '$case_id'
+			AND s.sample_id = c.sample_id";
+
+		$import_id = $db->GetOne($sql);
+
+		//get all sample records
+		$sql = "SELECT s.var,s.val, s.type
+			FROM sample_var as s, `case` as c
+			WHERE c.case_id = '$case_id'
+			AND s.sample_id = c.sample_id";
+
+		$rs = $db->GetAll($sql);
+
+		$tzone = DEFAULT_TIME_ZONE; //set this to default
+
+		//Get the timezone
+		foreach($rs as $r)
+		{                
+			$tz = get_time_zone($_POST["v_" . $r['var']],$r['type']);
+			if ($tz !== false)
+			{
+				$tzone = $tz;
+				break;
+			}
+		}
+
+		$sql = "INSERT INTO `sample` (import_id,Time_zone_name,phone)
+			VALUES ($import_id,'$tzone',$phone)";
+
+		$db->Execute($sql);
+
+		$sample_id = $db->Insert_ID();
+
+		//insert sample var records
+		foreach($rs as $r)
+		{
+			$sql = "INSERT INTO `sample_var` (`sample_id`,`var`,`val`,`type`)
+				VALUES ('$sample_id','{$r['var']}'," . $db->qstr($_POST['v_' . $r['var']]) . ",'{$r['type']}')";
+			$db->Execute($sql);
+		}
+
+		//Add CASEREFERREDFROM record
+		$sql = "INSERT INTO `sample_var` (`sample_id`,`var`,`val`,`type`)
+			VALUES ('$sample_id','CASEREFERREDFROM','$case_id','1')";
+
+		$db->Execute($sql);
+
+		//Create a new case
+		$sql = "SELECT questionnaire_id
+			FROM `case`
+			WHERE case_id = '$case_id'";
+
+		$questionnaire_id = $db->GetOne($sql);	
+
+		$ncase_id = add_case($sample_id,$questionnaire_id);
+
+		//If selected to call now - assign to this operator
+		if (isset($_POST['makecase']))
+		{
+			$sql = "SELECT MAX(sortorder)
+				FROM case_queue
+				WHERE operator_id = '$operator_id'";
+		
+			$sortorder = $db->GetOne($sql);
+			
+			$sortorder++;
+
+			$sql = "INSERT INTO case_queue (case_id,operator_id,sortorder)
+				VALUES ('$ncase_id', '$operator_id', '$sortorder')";
+
+			$db->Execute($sql);
+	
+		}
+
+		//Add a note that we have referred another case
+		$sql = "INSERT INTO `case_note` (case_id,operator_id,note,datetime)
+			VALUES ($case_id,$operator_id,'" . T_("Generated referral to case id") . ": $ncase_id',CONVERT_TZ(NOW(),'System','UTC'))";
+
+		$db->Execute($sql);
+
+		//Add a note that it is referred from another case
+		$sql = "INSERT INTO `case_note` (case_id,operator_id,note,datetime)
+			VALUES ($ncase_id,$operator_id,'" . T_("Generated as referral from case id") . ": $case_id',CONVERT_TZ(NOW(),'System','UTC'))";
+
+		$db->Execute($sql);
+
+		if ($db->CompleteTrans())
+		{
+			$msg = T_("Created referral case - you may now close this window");
+		}
+		else
+		{
+			$msg = T_("Failed to create referral case - please check your input and try again");
+		}
+
+	}
+	else
+	{
+		$msg = T_("You must supply a primary phone number");
+	}
+}
+
+$case_id = get_case_id($operator_id);
+
+$js = "js/window.js";
+if (browser_ie()) $js = "js/window_ie6.js";
+
+xhtml_head(T_("Referral"),true,array("css/call.css"),array($js));
+
+$sql = "SELECT q.referral
+	FROM questionnaire as q, `case` as c
+	WHERE c.case_id = $case_id 
+	AND c.questionnaire_id = q.questionnaire_id";
+
+$sc = $db->GetOne($sql);
+
+if ($sc == 1)
+{
+	print "<div class='status'>" . T_("Create referral") . "</div>";
+	if (!empty($msg)) print "<p>$msg</p>";
+	print "<form action='?' method='post'>";
+
+	//Create a list of sample records matching this current case 
+
+	$sql = "SELECT sv.var,t.description,sv.type
+		FROM sample_var as sv, `case` as c, sample_var_type as t
+		WHERE sv.sample_id = c.sample_id
+		AND c.case_id = '$case_id'
+		AND sv.type = t.type";
+
+	$rs = $db->GetAll($sql);
+
+	foreach ($rs as $r)
+	{
+		$var = $r['var'];
+		print "<div><label for='v_$var'>";
+
+		if ($r['type'] != 1)
+				print T_($r['description']);		
+		else
+				print $var;
+
+		print "</label><input type='text' name='v_$var' id='v_$var' ";
+
+		if (isset($_POST['v_' . $var]))
+			print "value='" . $_POST['v_' .$var] . "' ";
+		
+		print " /></div>";
+	}
+
+	print "<div><label for='makecase'>" . T_("Call this new referral immediately after this case?") .  "</label><input type='checkbox' name='makecase' id='makecase' checked='checked'/></div>";
+
+	print "<div><input type='submit' value='" . T_("Create referral") . "' name='submit' id='submit'/></div>";
+	print "</form>";
+}
+else
+{
+	print "<p>" . T_("Referrals not available for this questionnaire") . "</p>";
+}
+
+xhtml_foot();
+
+?>