Talenttic_survey/CATI_Tool
2
0
Fork 0
mirror of https://github.com/ACSPRI/queXS synced 2024-04-02 12:12:16 +00:00
Code Issues Releases Activity

Opt out of web when opting out of CATI

Browse Source
This commit is contained in:
Adam Zammit
2017-05-11 12:20:48 +10:00
parent 4b5044d59a
commit bfc6af3d7c
2 changed files with 47 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
functions/functions.limesurvey.php
View File

@@ -185,6 +185,37 @@ function lime_send_email($case_id,$email,$firstname,$lastname)
return $ret;
}
function lime_set_token_properties($case_id,$params = array('emailstatus' => 'OptOut'))
{
global $db;
global $limeRPC;
global $limeKey;
$sql = "SELECT c.token,c.questionnaire_id
FROM `case` as c
WHERE c.case_id = '$case_id'";
$rs = $db->GetRow($sql);
$token = $rs['token'];
$qid = $rs['questionnaire_id'];
$lime_id = limerpc_init_qid($qid);
$ret = false;
if ($lime_id !== false) {
$q = $limeRPC->set_participant_properties($limeKey,$lime_id,array('token' => $token),$params);
if (!isset($q['status'])) {
$ret = true;
}
}
limerpc_close();
return $ret;
}
/** Get completed responses as an array based on the case_id
*/