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

Allow for single row quotas to be updated on editing

Browse Source
This commit is contained in:
Adam Zammit
2014-02-19 15:58:34 +11:00
parent ed6b89f1d9
commit 942464768e
3 changed files with 218 additions and 198 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
admin/quotareport.php
View File

@@ -178,13 +178,12 @@ if ($questionnaire_id)
$report[] = array("strata" => T_("Total sample"), "quota" => $drawn + $remain, "sample" => $drawn + $remain, "sampleused" => $drawn, "sampleremain" => $remain, "completions" => $completions, "perc" => ROUND(($completions / ($drawn + $remain)) * 100,2));
//a. (Standard quota) Monitor outcomes of questions in completed questionnaires, and exclude selected sample records when completion limit is reached
//b. (Replicate quota) Exclude selected sample records (where lime_sgqa == -1)
$sql = "SELECT qsq.questionnaire_sample_quota_row_id,qsqr_question.lime_sgqa,completions,quota_reached,lime_sid,qsq.description,current_completions, priority, autoprioritise
FROM questionnaire_sample_quota_row as qsq, questionnaire as q, qsqr_question
WHERE qsq.questionnaire_id = '$questionnaire_id'
//b. (Replicate quota) Exclude selected sample records (where no qsqr_question rows)
$sql = "SELECT qsq.questionnaire_sample_quota_row_id,completions,quota_reached,lime_sid,qsq.description,current_completions, priority, autoprioritise
FROM questionnaire_sample_quota_row as qsq, questionnaire as q
WHERE qsq.questionnaire_id = '$questionnaire_id'
AND qsq.sample_import_id = '$sample_import_id'
AND q.questionnaire_id = '$questionnaire_id'
AND qsqr_question.questionnaire_sample_quota_row_id = qsq.questionnaire_sample_quota_row_id";
AND q.questionnaire_id = '$questionnaire_id'";
$r = $db->GetAll($sql);
@@ -198,15 +197,8 @@ if ($questionnaire_id)
$qsqr = $v['questionnaire_sample_quota_row_id'];
if ($v['lime_sgqa'] == -1)
{
$v['completions'] = "";
$perc = "";
}
else
{
$perc = ($v['completions'] <= 0 ? 0 : ROUND(($completions / ($v['completions'])) * 100,2));
}
$perc = ($v['completions'] <= 0 ? 0 : ROUND(($completions / ($v['completions'])) * 100,2));
//We need to calc Sample size, Sample drawn, Sample remain
$sql = "SELECT (c.sample_id is not null) as type, count(*) as count
@@ -242,7 +234,7 @@ if ($questionnaire_id)
if ($r['type'] == 0) $remain = $r['count'];
}
if ($completions < $v['completions'] || $v['lime_sgqa'] == -1) //if completions less than the quota, allow for closing/opening
if ($completions < $v['completions']) //if completions less than the quota, allow for closing/opening
{
if ($v['quota_reached'] == 1)
$status = "<a href='?questionnaire_id=$questionnaire_id&amp;sample_import_id=$sample_import_id&amp;rowquota=$qsqr&amp;open=open'>" . T_("closed") . "</a>";

23
admin/quotarow.php
View File

@@ -72,12 +72,17 @@ global $db;
if (isset($_GET['delete']))
{
$qsqri = bigintval($_GET['qsqri']);
if (isset($_GET['qsqrqi']))
{
$qsqrqi = bigintval($_GET['qsqrqi']);
$sql = "DELETE FROM qsqr_question
WHERE qsqr_question_id = $qsqrqi";
$db->Execute($sql);
//Make sure to calculate on the spot
update_single_row_quota($qsqri);
}
if (isset($_GET['qsqrsi']))
{
@@ -85,6 +90,9 @@ if (isset($_GET['delete']))
$sql = "DELETE FROM qsqr_sample
WHERE qsqr_sample_id = $qsqrsi";
$db->Execute($sql);
//Make sure to calculate on the spot
update_single_row_quota($qsqri);
}
}
@@ -103,10 +111,12 @@ if (isset($_POST['add_quota']))
$sql = "INSERT INTO questionnaire_sample_quota_row(questionnaire_id, sample_import_id, completions, description, priority, autoprioritise)
VALUES ($questionnaire_id, $sample_import_id, $completions, $description, $priority, $autoprioritise)";
$db->Execute($sql);
$db->Execute($sql);
$qq = $db->Insert_ID();
//Make sure to calculate on the spot
//update_quotas($questionnaire_id);
update_single_row_quota($qq);
}
if (isset($_POST['edit_quota']))
@@ -129,8 +139,9 @@ if (isset($_POST['edit_quota']))
$_GET['qsqri'] = $qsqri;
$_GET['edit'] = "edit";
//Make sure to calculate on the spot
//update_quotas($questionnaire_id);
update_single_row_quota($qsqri);
}
@@ -165,6 +176,9 @@ if (isset($_GET['qsqri']) & isset($_GET['edit']))
VALUES ($qsqri,$exvar,$exval,$comparison)";
$db->Execute($sql);
//Make sure to calculate on the spot
update_single_row_quota($qsqri);
}
if (isset($_POST['addq']))
@@ -177,6 +191,9 @@ if (isset($_GET['qsqri']) & isset($_GET['edit']))
VALUES ($qsqri,$sgqa,$value,$comparison)";
$db->Execute($sql);
//Make sure to calculate on the spot
update_single_row_quota($qsqri);
}
}

369
functions/functions.operator.php
View File

@@ -1668,6 +1668,184 @@ function copy_row_quota_with_adjusting($questionnaire_id,$sample_import_id,$copy
*/
}
/**
* Update a single row quota
*
* @param int $qsqri The quota row id
* @param int|bool $case_id The case id if known to limit the scope of the search
* @return bool If priorities need to be updated or not
*/
function update_single_row_quota($qsqri,$case_id = false)
{
global $db;
$sql = "SELECT q.lime_sid, qs.questionnaire_id, qs.sample_import_id, qs.completions, qs.autoprioritise
FROM questionnaire as q, questionnaire_sample_quota_row as qs
WHERE q.questionnaire_id = qs.questionnaire_id
AND qs.questionnaire_sample_quota_row_id = $qsqri";
$rs = $db->GetRow($sql);
$lime_sid = $rs['lime_sid'];
$questionnaire_id = $rs['questionnaire_id'];
$sample_import_id = $rs['sample_import_id'];
$target_completions = $rs['completions'];
$autoprioritise = $rs['autoprioritise'];
//all variables to exclude for this row quota
$sql2 = "SELECT exclude_val,exclude_var,comparison
FROM qsqr_sample
WHERE questionnaire_sample_quota_row_id = $qsqri";
$rev = $db->GetAll($sql2);
//all variables to check in limesurvey for this row quota
$sql2 = "SELECT lime_sgqa,value,comparison
FROM qsqr_question
WHERE questionnaire_sample_quota_row_id = $qsqri";
$qev = $db->GetAll($sql2);
//whether a completion was changed for this quota
$updatequota = false;
//whether priorites need to be updated
$update = false;
//default completions at 0
$completions = 0;
//if a case_Id is specified, we can just check if this case matches
//the quota criteria, and if so, increment the quota completions counter
if ($case_id != false)
{
if (empty($qev))
{
//just determine if this case is linked to a matching sample record
$sql2 = "SELECT count(*) as c
FROM " . LIME_PREFIX . "survey_$lime_sid as s
JOIN `case` as c ON (c.case_id = '$case_id')
JOIN `sample` as sam ON (c.sample_id = sam.sample_id) ";
$x = 1;
foreach($rev as $ev)
{
$sql2 .= " JOIN sample_var as sv$x ON (sv$x.sample_id = sam.sample_id AND sv$x.var LIKE '{$ev['exclude_var']}' AND sv$x.val {$ev['comparison']} '{$ev['exclude_val']}') ";
$x++;
}
$sql2 .= " WHERE s.token = c.token";
$match = $db->GetOne($sql2);
}
else
{
//determine if the case is linked to a matching limesurvey record
$sql2 = "SELECT count(*) as c
FROM " . LIME_PREFIX . "survey_$lime_sid as s
JOIN `case` as c ON (c.case_id = '$case_id')
JOIN `sample` as sam ON (c.sample_id = sam.sample_id)
WHERE s.token = c.token
";
foreach($qev as $ev)
$sql2 .= " AND s.`{$ev['lime_sgqa']}` {$ev['comparison']} '{$ev['value']}' ";
$match = $db->GetOne($sql2);
}
if ($match == 1)
{
//increment completions
$sql = "SELECT (current_completions + 1) as c
FROM questionnaire_sample_quota_row
WHERE questionnaire_sample_quota_row_id = '$qsqri'";
$cc = $db->GetRow($sql);
$completions = $cc['c'];
$updatequota = true;
}
}
else
{
if (empty($qev))
{
//find all completions from cases with matching sample records
$sql2 = "SELECT count(*) as c
FROM " . LIME_PREFIX . "survey_$lime_sid as s
JOIN `case` as c ON (c.questionnaire_id = '$questionnaire_id')
JOIN `sample` as sam ON (c.sample_id = sam.sample_id AND sam.import_id = '$sample_import_id')";
$x = 1;
foreach($rev as $ev)
{
$sql2 .= " JOIN sample_var as sv$x ON (sv$x.sample_id = sam.sample_id AND sv$x.var LIKE '{$ev['exclude_var']}' AND sv$x.val {$ev['comparison']} '{$ev['exclude_val']}') ";
$x++;
}
$sql2 .= " WHERE s.submitdate IS NOT NULL
AND s.token = c.token";
$completions = $db->GetOne($sql2);
}
else
{
//find all completions from cases with matching limesurvey records
$sql2 = "SELECT count(*) as c
FROM " . LIME_PREFIX . "survey_$lime_sid as s
JOIN `case` as c ON (c.questionnaire_id = '$questionnaire_id')
JOIN `sample` as sam ON (c.sample_id = sam.sample_id AND sam.import_id = '$sample_import_id')
WHERE s.submitdate IS NOT NULL
AND s.token = c.token ";
foreach($qev as $ev)
$sql2 .= " AND s.`{$ev['lime_sgqa']}` {$ev['comparison']} '{$ev['value']}' ";
$completions = $db->GetOne($sql2);
}
$updatequota = true;
}
if ($updatequota)
{
if ($completions >= $target_completions)
{
//set row quota to reached
$sql = "UPDATE questionnaire_sample_quota_row
SET quota_reached = '1', current_completions = '$completions'
WHERE questionnaire_sample_quota_row_id = '$qsqri'";
$db->Execute($sql);
close_row_quota($qsqri,false); //don't update priorires just yet
$update = true;
}
else
{
$sql = "UPDATE questionnaire_sample_quota_row
SET current_completions = '$completions' ";
//If autopriority is set update it here
if ($autoprioritise == 1)
{
//priority is 100 - the percentage of completions
$pr = 100 - round(100 * ($completions / $target_completions));
$sql .= ", priority = '$pr' ";
//need to update quotas now
$update = true;
}
$sql .= " WHERE questionnaire_sample_quota_row_id = '$qsqri'";
$db->Execute($sql);
}
}
return $update;
}
/**
* Update the row quota table
@@ -1683,197 +1861,30 @@ function update_row_quota($questionnaire_id,$case_id = false)
$db->StartTrans();
$sql = "SELECT qsq.questionnaire_sample_quota_row_id,q.questionnaire_id,sample_import_id,completions,quota_reached,q.lime_sid,qsq.current_completions,qsq.priority,qsq.autoprioritise,qq.lime_sgqa
FROM questionnaire_sample_quota_row as qsq, questionnaire as q, qsqr_question as qq
$sql = "SELECT qsq.questionnaire_sample_quota_row_id
FROM questionnaire_sample_quota_row as qsq
WHERE qsq.questionnaire_id = '$questionnaire_id'
AND q.questionnaire_id = '$questionnaire_id'
AND qsq.quota_reached != '1'
AND qq.questionnaire_sample_quota_row_id = qsq.questionnaire_sample_quota_row_id
AND qq.lime_sgqa != -1
GROUP BY qsq.questionnaire_sample_quota_row_id";
$rs = $db->GetAll($sql);
if (isset($rs) && !empty($rs))
{
//include limesurvey functions
include_once(dirname(__FILE__).'/functions.limesurvey.php');
//update all row quotas for this questionnaire
foreach($rs as $r)
if (isset($rs) && !empty($rs))
{
foreach ($rs as $r)
{
$lime_sid = $r['lime_sid'];
$sample_import_id = $r['sample_import_id'];
$qsqri = $r['questionnaire_sample_quota_row_id'];
$tmp = update_single_row_quota($r['questionnaire_sample_quota_row_id'],$case_id);
if ($tmp)
$update = true;
}
}
//all variables to exclude for this row quota
$sql2 = "SELECT exclude_val,exclude_var,comparison
FROM qsqr_sample
WHERE questionnaire_sample_quota_row_id = $qsqri";
$rev = $db->GetAll($sql2);
//all variables to check in limesurvey for this row quota
$sql2 = "SELECT lime_sgqa,value,comparison
FROM qsqr_question
WHERE questionnaire_sample_quota_row_id = $qsqri";
$qev = $db->GetAll($sql2);
//whether a completion was changed for this quota
$updatequota = false;
//if a case_Id is specified, we can just check if this case matches
//the quota criteria, and if so, increment the quota completions counter
if ($case_id != false)
{
if ($r['lime_sgqa'] == -2)
{
//just determine if this case is linked to a matching sample record
$sql2 = "SELECT count(*) as c
FROM " . LIME_PREFIX . "survey_$lime_sid as s
JOIN `case` as c ON (c.case_id = '$case_id')
JOIN `sample` as sam ON (c.sample_id = sam.sample_id) ";
$x = 1;
foreach($rev as $ev)
{
$sql2 .= " JOIN sample_var as sv$x ON (sv$x.sample_id = sam.sample_id AND sv$x.var LIKE '{$ev['exclude_var']}' AND sv$x.val {$ev['comparison']} '{$ev['exclude_val']}') ";
$x++;
}
$sql2 .= " WHERE s.token = c.token";
$match = $db->GetOne($sql2);
//$match = limesurvey_quota_replicate_match($r['lime_sid'],$case_id,$r['exclude_val'],$r['exclude_var']);
}
else
{
//determine if the case is linked to a matching limesurvey record
$sql2 = "SELECT count(*) as c
FROM " . LIME_PREFIX . "survey_$lime_sid as s
JOIN `case` as c ON (c.case_id = '$case_id')
JOIN `sample` as sam ON (c.sample_id = sam.sample_id)
WHERE s.token = c.token
";
foreach($qev as $ev)
$sql2 .= " AND s.`{$ev['lime_sgqa']}` {$ev['comparison']} '{$ev['value']}' ";
$match = $db->GetOne($sql2);
//$match = limesurvey_quota_match($r['lime_sgqa'],$r['lime_sid'],$case_id,$r['value'],$r['comparison']);
}
if ($match == 1)
{
//increment completions
$sql = "SELECT (current_completions + 1) as c
FROM questionnaire_sample_quota_row
WHERE questionnaire_sample_quota_row_id = {$r['questionnaire_sample_quota_row_id']}";
$cc = $db->GetRow($sql);
$completions = $cc['c'];
$updatequota = true;
}
}
else
{
if ($r['lime_sgqa'] == -2)
{
//find all completions from cases with matching sample records
$sql2 = "SELECT count(*) as c
FROM " . LIME_PREFIX . "survey_$lime_sid as s
JOIN `case` as c ON (c.questionnaire_id = '$questionnaire_id')
JOIN `sample` as sam ON (c.sample_id = sam.sample_id AND sam.import_id = '$sample_import_id')";
$x = 1;
foreach($rev as $ev)
{
$sql2 .= " JOIN sample_var as sv$x ON (sv$x.sample_id = sam.sample_id AND sv$x.var LIKE '{$ev['exclude_var']}' AND sv$x.val {$ev['comparison']} '{$ev['exclude_val']}') ";
$x++;
}
$sql2 .= " WHERE s.submitdate IS NOT NULL
AND s.token = c.token";
$completions = $db->GetOne($sql2);
//$completions = limesurvey_quota_replicate_completions($r['lime_sid'],$r['questionnaire_id'],$r['sample_import_id'],$r['exclude_val'],$r['exclude_var']);
}
else
{
//find all completions from cases with matching limesurvey records
$sql2 = "SELECT count(*) as c
FROM " . LIME_PREFIX . "survey_$lime_sid as s
JOIN `case` as c ON (c.questionnaire_id = '$questionnaire_id')
JOIN `sample` as sam ON (c.sample_id = sam.sample_id AND sam.import_id = '$sample_import_id')
WHERE s.submitdate IS NOT NULL
AND s.token = c.token ";
foreach($qev as $ev)
$sql2 .= " AND s.`{$ev['lime_sgqa']}` {$ev['comparison']} '{$ev['value']}' ";
$completions = $db->GetOne($sql2);
// $completions = limesurvey_quota_completions($r['lime_sgqa'],$r['lime_sid'],$r['questionnaire_id'],$r['sample_import_id'],$r['value'],$r['comparison']);
}
$updatequota = true;
}
if ($updatequota)
{
if ($completions >= $r['completions'])
{
//set row quota to reached
$sql = "UPDATE questionnaire_sample_quota_row
SET quota_reached = '1', current_completions = '$completions'
WHERE questionnaire_sample_quota_row_id = {$r['questionnaire_sample_quota_row_id']}";
$db->Execute($sql);
close_row_quota($r['questionnaire_sample_quota_row_id'],false); //don't update priorires just yet
$update = true;
}
else
{
$sql = "UPDATE questionnaire_sample_quota_row
SET current_completions = '$completions' ";
//If autopriority is set update it here
if ($r['autoprioritise'] == 1)
{
//priority is 100 - the percentage of completions
$pr = 100 - round(100 * ($completions / $r['completions']));
$sql .= ", priority = '$pr' ";
//need to update quotas now
$update = true;
}
$sql .= " WHERE questionnaire_sample_quota_row_id = {$r['questionnaire_sample_quota_row_id']}";
$db->Execute($sql);
}
}
}
if ($update) update_quota_priorities($questionnaire_id);
}
if ($update)
update_quota_priorities($questionnaire_id);
$db->CompleteTrans();
return false;
}
/**