$prev_statuses = array('n_n' => array('not deleted, not excluded', 1), 'y_n' => array('deleted, not excluded', 2), 'y_y' => array('deleted and excluded', 3));
foreach ($prev_statuses as $ps => $arr) {
echo '<TR><TD>' . $arr[0] . '</TD>
<TD><SELECT name="status_' . $ps . '">';
foreach ($statuses as $status) {
echo '<OPTION value="' . $status['status_id'] . '"';
if ($status['status_id'] == $arr[1]) {
echo ' SELECTED';
}
echo '>' . $status['name'] . '</OPTION>';
}
echo '</SELECT></TD></TR>';
}
echo '</TABLE></TD></TR>';
echo ' <TR><TD colspan=2><hr></TD></TR>';
$pstatuses = expregister__get_participation_statuses();
echo '<TR><TD colspan=2>There are ' . count($pstatuses) . ' experiment participation statuses defined in this system.<BR>
Please select how previous participation states should be assigned to these states.
</TD></TR>
<TD colspan=2 align="center"><TABLE>';
$prev_pstatuses = array('n_n' => array('not shownup, not participated', 3), 'y_n' => array('shownup, not participated', 2), 'y_y' => array('shownup and participated', 1));
foreach ($prev_pstatuses as $ps => $arr) {
echo '<TR><TD>' . $arr[0] . '</TD>
<TD><SELECT name="pstatus_' . $ps . '">';
foreach ($pstatuses as $status) {
echo '<OPTION value="' . $status['pstatus_id'] . '"';
if ($status['pstatus_id'] == $arr[1]) {
echo ' SELECTED';
}
echo '>' . $status['internal_name'] . '</OPTION>';
}
function stats__get_data($condition = array(), $type = 'stats', $restrict = array(), $options = array())
{
global $settings;
$conditions = array();
$pars = array();
if (is_array($condition) && count($condition) > 0) {
$conditions[] = $condition['clause'];
if (isset($condition['pars']) && is_array($condition['pars'])) {
foreach ($condition['pars'] as $k => $v) {
$pars[$k] = $v;
}
}
}
$formfields = participantform__load();
$pform_fields = array();
$pform_types = array();
foreach ($formfields as $f) {
if (!preg_match("/(textline|textarea)/i", $f['type']) && isset($f['include_in_statistics']) && ($f['include_in_statistics'] == 'pie' || $f['include_in_statistics'] == 'bars')) {
$pform_fields[] = $f['mysql_column_name'];
$pform_types[$f['mysql_column_name']] = $f;
}
}
$statfields = array('subpool_id', 'subscriptions', 'status_id');
foreach ($pform_fields as $field) {
if (!in_array($field, $statfields)) {
$statfields[] = $field;
}
}
if ($type == 'stats' && $settings['enable_rules_signed_tracking'] == 'y') {
if (!in_array('rules_signed', $statfields)) {
$statfields[] = 'rules_signed';
}
} else {
$exists = array_search('rules_signed', $statfields);
if ($exists) {
unset($statfields[$exists]);
}
}
if ($type == 'stats') {
foreach (array('number_reg', 'number_noshowup', 'last_enrolment', 'last_profile_update', 'last_activity') as $field) {
if (!in_array($field, $statfields)) {
$statfields[] = $field;
}
}
}
$query = "SELECT * from " . table('participants');
$query_conditions = "";
if (count($conditions) > 0) {
$query_conditions .= " WHERE";
$cond_strings = array();
foreach ($conditions as $cond) {
$cond_strings[] = "(" . $cond . ")";
}
$query_conditions .= " " . implode(" AND ", $cond_strings);
}
$query .= $query_conditions;
$result = or_query($query, $pars);
$counts = array();
$pids = array();
while ($line = pdo_fetch_assoc($result)) {
// check whether we should count this participant and (for monthly stats) use this value
$p_restrict = false;
foreach ($statfields as $c) {
$value = $line[$c];
if (in_array($c, array('last_enrolment', 'last_profile_update', 'last_activity'))) {
if (!$value) {
$value = 0;
}
if ($value == 0) {
$value = '-';
} else {
$value = date('Ym', $value);
}
}
$value = db_string_to_id_array($value);
if (count($value) > 0) {
$this_restrict = true;
foreach ($value as $v) {
if (!isset($restrict[$c][$v])) {
$this_restrict = false;
}
}
if ($this_restrict) {
$p_restrict = true;
}
} else {
$value = '-';
if (isset($restrict[$c][$value])) {
$p_restrict = true;
}
}
}
if (!$p_restrict) {
$pids[] = $line['participant_id'];
foreach ($statfields as $c) {
$value = $line[$c];
$continue = true;
if (in_array($c, array('last_enrolment', 'last_profile_update', 'last_activity'))) {
if (!$value) {
$value = 0;
}
if (date('Ym', $value) < date('Ym', strtotime("-" . $settings['stats_months_backward'] . " month", time()))) {
$continue = false;
}
if ($value == 0) {
$value = '-';
} else {
$value = date('Ym', $value);
}
}
if ($continue) {
$value = db_string_to_id_array($value);
if (count($value) > 0) {
foreach ($value as $v) {
if (!isset($counts[$c][$v])) {
$counts[$c][$v] = 0;
}
$counts[$c][$v]++;
}
} else {
$value = '-';
if (!isset($counts[$c][$value])) {
$counts[$c][$value] = 0;
}
$counts[$c][$value]++;
}
}
}
}
}
$count_pids = count($pids);
$pid_condition = "";
if (count($restrict) > 0) {
$pid_condition = " AND participant_id IN (" . implode(", ", $pids) . ") ";
} elseif (count($conditions) == 1 && isset($options['condition_only_on_pid']) && $options['condition_only_on_pid']) {
$pid_condition = " AND " . $condition['clause'] . " ";
} elseif ($query_conditions) {
$pid_condition = " AND participant_id IN (SELECT participant_id FROM " . table('participants') . " " . $query_conditions . ") ";
}
// avg. experience (participation in experiments of class x, y, z at time of experiment)
$statfields[] = 'experience_avg_experimentclass';
if ($count_pids > 0) {
$participated_clause = expregister__get_pstatus_query_snippet("participated");
$query = "SELECT count(*) as num, experiment_class\n FROM " . table('participate_at') . " as p, " . table('experiments') . " as e\n WHERE p.session_id>0 " . $pid_condition . "\n AND e.experiment_id=p.experiment_id\n AND e.experiment_class !=''\n AND " . $participated_clause . " ";
if (is_array($options) && isset($options['upper_experience_limit'])) {
$query .= " AND session_id IN (SELECT session_id FROM " . table('sessions') . "\n WHERE session_start < " . ortime__unixtime_to_sesstime($options['upper_experience_limit']) . "\n AND session_status IN ('completed','balanced') ) ";
}
$query .= "GROUP BY experiment_class";
$result = or_query($query, $pars);
while ($line = pdo_fetch_assoc($result)) {
$line['experiment_class'] = db_string_to_id_array($line['experiment_class']);
foreach ($line['experiment_class'] as $v) {
if ($v > 0) {
if (!isset($counts['experience_avg_experimentclass'][$v])) {
$counts['experience_avg_experimentclass'][$v] = 0;
}
$counts['experience_avg_experimentclass'][$v] += round($line['num'] / $count_pids, 2);
}
}
}
}
if ($type == 'report') {
// avg. count pstatus at time of experiment)
$statfields[] = 'experience_avg_pstatus';
}
if ($count_pids > 0 && $type == 'report') {
$query = "SELECT count(*) as num, pstatus_id\n FROM " . table('participate_at') . "\n WHERE session_id>0 " . $pid_condition;
if (is_array($options) && isset($options['upper_experience_limit'])) {
$query .= " AND session_id IN (SELECT session_id FROM " . table('sessions') . "\n WHERE session_start < " . ortime__unixtime_to_sesstime($options['upper_experience_limit']) . "\n AND session_status IN ('completed','balanced') ) ";
}
$query .= "GROUP BY pstatus_id";
$result = or_query($query, $pars);
while ($line = pdo_fetch_assoc($result)) {
$counts['experience_avg_pstatus'][$line['pstatus_id']] = round($line['num'] / $count_pids, 2);
}
}
if ($type == 'stats') {
// by pstatus: pstatus count // really needed? we have no_noshows, num_reg ...
// by month: pstatus
$statfields[] = 'bymonth_pstatus';
$statfields[] = 'bymonth_noshowrate';
}
if ($count_pids > 0 && $type == 'stats') {
$first_month = date('Ym000000', strtotime("-" . $settings['stats_months_backward'] . " month", time()));
$noshow_statuses = expregister__get_specific_pstatuses("noshow");
$query = "SELECT date_format(s.session_start*100,'%Y%m') as sessionmonth,\n pstatus_id, count(p.participate_id) as num\n FROM " . table('participate_at') . " as p, " . table('sessions') . " as s\n WHERE p.session_id>0\n AND p.session_id=s.session_id\n AND s.session_status IN ('completed','balanced')\n AND s.session_start>" . $first_month . " " . $pid_condition . "\n GROUP BY sessionmonth, pstatus_id\n ORDER BY sessionmonth, pstatus_id ";
$result = or_query($query, $pars);
$noshowperc_data = array();
while ($line = pdo_fetch_assoc($result)) {
$counts['bymonth_pstatus_' . $line['pstatus_id']][$line['sessionmonth']] = $line['num'];
if (!isset($noshowperc_data[$line['sessionmonth']]['n'])) {
$noshowperc_data[$line['sessionmonth']]['n'] = 0;
}
if (!isset($noshowperc_data[$line['sessionmonth']]['y'])) {
$noshowperc_data[$line['sessionmonth']]['y'] = 0;
}
if (in_array($line['pstatus_id'], $noshow_statuses)) {
$noshowperc_data[$line['sessionmonth']]['n'] += $line['num'];
} else {
$noshowperc_data[$line['sessionmonth']]['y'] += $line['num'];
}
}
// get the noshow percentages as well
foreach ($noshowperc_data as $month => $shownup) {
$counts['bymonth_noshowrate'][$month] = round($shownup['n'] / ($shownup['n'] + $shownup['y']) * 100, 1);
}
}
$xnames = array('number_reg' => lang('experience'), 'number_noshowup' => lang('noshowup'), 'pstatus' => lang('month'), 'experience_avg_experimentclass' => lang('experiment_classes'), 'experience_avg_pstatus' => lang('participation_status'));
$titles = array('number_reg' => lang('experience'), 'number_noshowup' => lang('noshows_by_count'), 'last_enrolment' => lang('last_enrolment'), 'last_profile_update' => lang('last_profile_update'), 'last_activity' => lang('last_activity'), 'bymonth_noshowrate' => lang('noshows_by_month'), 'experience_avg_experimentclass' => lang('experience_in_experiment_classes'), 'experience_avg_pstatus' => lang('average_participation_experience'));
// prepare all-containing arrray to return
$data_temparray = array();
foreach ($counts as $c => $nums) {
$d = array();
$d['N'] = $count_pids;
if (isset($pform_types[$c])) {
$d['browsable'] = true;
$d['charttype'] = $pform_types[$c]['include_in_statistics'];
$d['type_of_data'] = 'count';
$d['yname'] = lang('count');
$d['xname'] = lang($pform_types[$c]['name_lang']);
$d['title'] = lang($pform_types[$c]['name_lang']);
if (preg_match("/(select_lang|radioline_lang)/", $pform_types[$c]['type'])) {
$d['value_names'] = lang__load_lang_cat($c, lang('lang'));
} elseif (preg_match("/(radioline|select_list)/", $pform_types[$c]['type'])) {
$optionvalues = explode(",", $pform_types[$c]['option_values']);
$optionnames = explode(",", $pform_types[$c]['option_values_lang']);
$d['value_names'] = array();
foreach ($optionvalues as $k => $v) {
if (isset($optionnames[$k])) {
$d['value_names'][$v] = lang($optionnames[$k]);
}
}
} else {
$d['value_names'] = array();
}
// select numbers?
if ($pform_types[$c]['type'] == 'select_numbers') {
krsort($nums);
} else {
arsort($nums);
}
$d['data'] = $nums;
$data_temparray[$c] = $d;
} elseif (in_array($c, array('number_reg', 'number_noshowup'))) {
$d['browsable'] = true;
$d['charttype'] = 'bars';
if ($c == 'number_reg') {
$d['wide'] = true;
}
$d['limit_not_apply'] = true;
$d['type_of_data'] = 'count';
$d['yname'] = lang('count');
$d['xname'] = $xnames[$c];
$d['title'] = $titles[$c];
$d['value_names'] = array();
krsort($nums);
$d['data'] = $nums;
$data_temparray[$c] = $d;
} elseif (in_array($c, array('experience_avg_experimentclass', 'experience_avg_pstatus'))) {
$d['charttype'] = 'pie';
$d['type_of_data'] = 'calc';
$d['yname'] = lang('average_count');
$d['xname'] = $xnames[$c];
$d['title'] = $titles[$c];
$d['value_names'] = array();
if ($c == 'experience_avg_experimentclass') {
$d['value_names'] = experiment__load_experimentclassnames();
} else {
$pstatuses = expregister__get_participation_statuses();
foreach ($pstatuses as $k => $s) {
$d['value_names'][$k] = $s['internal_name'];
}
}
arsort($nums);
$d['data'] = $nums;
$data_temparray[$c] = $d;
} elseif ($c == 'rules_signed') {
$d['browsable'] = true;
$d['charttype'] = 'pie';
$d['type_of_data'] = 'count';
$d['yname'] = lang('count');
$d['xname'] = lang('rules_signed');
$d['title'] = lang('rules_signed');
$d['value_names'] = array('n' => lang('n'), 'y' => lang('y'));
arsort($nums);
$d['data'] = $nums;
$data_temparray[$c] = $d;
} elseif ($c == 'subpool_id') {
$d['browsable'] = true;
$d['charttype'] = 'pie';
$d['type_of_data'] = 'count';
$d['yname'] = lang('count');
$d['xname'] = lang('subpool');
$d['title'] = lang('subpool');
$subpools = subpools__get_subpools();
$d['value_names'] = array();
foreach ($subpools as $k => $p) {
$d['value_names'][$k] = $p['subpool_name'];
}
arsort($nums);
$d['data'] = $nums;
$data_temparray[$c] = $d;
} elseif ($c == 'status_id') {
$d['browsable'] = true;
$d['charttype'] = 'pie';
$d['type_of_data'] = 'count';
$d['yname'] = lang('count');
$d['xname'] = lang('participant_status');
$d['title'] = lang('participant_statuses');
$statuses = participant_status__get_statuses();
$d['value_names'] = array();
foreach ($statuses as $k => $p) {
$d['value_names'][$k] = $p['name'];
}
krsort($nums);
$d['data'] = $nums;
$data_temparray[$c] = $d;
} elseif ($c == 'subscriptions') {
$d['browsable'] = true;
$d['charttype'] = 'none';
$d['type_of_data'] = 'count';
$d['yname'] = lang('count');
$d['xname'] = lang('subscriptions');
$d['title'] = lang('subscriptions');
$exptypes = load_external_experiment_types("", false);
$d['value_names'] = array();
foreach ($exptypes as $k => $p) {
$d['value_names'][$k] = $p[lang('lang')];
}
krsort($nums);
$d['data'] = $nums;
$data_temparray[$c] = $d;
} elseif (in_array($c, array('last_enrolment', 'last_profile_update', 'last_activity', 'bymonth_noshowrate'))) {
$d['charttype'] = 'bars';
$d['wide'] = true;
if ($c == 'bymonth_noshowrate') {
$d['yname'] = lang('share_in_percent');
$d['type_of_data'] = 'calc';
} else {
$d['yname'] = lang('count');
$d['type_of_data'] = 'count';
}
$d['xname'] = lang('month');
$d['title'] = $titles[$c];
foreach ($nums as $k => $number) {
if ($k == '-') {
$d['value_names'][$k] = $k;
} else {
$d['value_names'][$k] = substr($k, 4, 2) . '/' . substr($k, 2, 2);
}
}
krsort($nums);
$d['data'] = $nums;
$data_temparray[$c] = $d;
} elseif (preg_match('/^bymonth_pstatus/', $c)) {
$tarr = explode("_", $c);
$status = $tarr[2];
if (!isset($data_temparray['bymonth_pstatus'])) {
$pstatuses = expregister__get_participation_statuses();
$d['charttype'] = 'multibars';
$d['wide'] = true;
$d['type_of_data'] = 'count';
$d['yname'] = lang('count');
$d['xname'] = lang('month');
$d['title'] = lang('participation_status_count_by_month');
$d['value_names'] = array();
$d['column_names'] = array();
foreach ($pstatuses as $k => $s) {
$d['column_names'][$k] = $s['internal_name'];
}
$data_temparray['bymonth_pstatus'] = $d;
}
krsort($nums);
$data_temparray['bymonth_pstatus']['data'][$status] = $nums;
$d['value_names'] = array();
foreach ($data_temparray['bymonth_pstatus']['data'] as $status => $months) {
foreach ($months as $month => $count) {
$d['value_names'][$month] = $month;
}
}
krsort($d['value_names']);
foreach ($d['value_names'] as $k => $v) {
$d['value_names'][$k] = substr($v, 4, 2) . '/' . substr($v, 2, 2);
}
$data_temparray['bymonth_pstatus']['value_names'] = $d['value_names'];
}
}
// prepare all-containing array to return
$data_array = array();
foreach ($statfields as $c) {
if (isset($data_temparray[$c]['data'])) {
$data_temparray[$c]['name'] = $c;
$data_array[$c] = $data_temparray[$c];
} else {
$data_array[$c] = array('name' => $c, 'N' => 0, 'data' => array());
}
}
return $data_array;
}
function pdfoutput__make_part_list($experiment_id, $session_id = "", $pstatus = "", $focus = "", $sort = "", $file = false, $tlang = "")
{
global $settings;
if ($tlang == "") {
global $lang;
} else {
$lang = load_language($tlang);
}
$experiment = orsee_db_load_array("experiments", $experiment_id, "experiment_id");
$pstatuses = expregister__get_participation_statuses();
if ($session_id) {
$clause = "session_id = '" . $session_id . "'";
$title = lang('registered_subjects');
} elseif (isset($pstatuses[$pstatus])) {
$clause = "pstatus_id = '" . $pstatus . "'";
if ($pstatus == 0) {
$clause .= " AND session_id != 0";
}
$title = lang('subjects_in_participation_status') . ' "' . $pstatuses[$pstatus]['internal_name'] . '"';
} elseif ($focus == 'enroled') {
$clause = "session_id != 0";
$title = lang('registered_subjects');
}
$cols = participant__get_result_table_columns('session_participants_list_pdf');
if ($session_id) {
unset($cols['session_id']);
}
// load sessions of this experiment
$pars = array(':experiment_id' => $experiment_id);
$query = "SELECT *\n\t\t\tFROM " . table('sessions') . "\n\t\t\tWHERE experiment_id= :experiment_id\n\t\t\tORDER BY session_start";
$result = or_query($query, $pars);
global $thislist_sessions;
$thislist_sessions = array();
while ($line = pdo_fetch_assoc($result)) {
$thislist_sessions[$line['session_id']] = $line;
}
// load participant data for this session/experiment
$pars = array(':experiment_id' => $experiment_id);
$select_query = "SELECT * FROM " . table('participate_at') . ", " . table('participants') . " \n\t\t\t\t\tWHERE " . table('participate_at') . ".experiment_id= :experiment_id\n\t\t\t\t\tAND " . table('participate_at') . ".participant_id=" . table('participants') . ".participant_id\n\t\t\t\t\tAND (" . $clause . ")";
$order = query__get_sort('session_participants_list_pdf', $sort);
if (!$order) {
$order = table('participants') . ".participant_id";
}
$select_query .= " ORDER BY " . $order;
// get result
$result = or_query($select_query, $pars);
$participants = array();
while ($line = pdo_fetch_assoc($result)) {
$participants[] = $line;
}
$result_count = count($participants);
// load sessions of this experiment
$pars = array(':texperiment_id' => $experiment_id);
$squery = "SELECT *\n FROM " . table('sessions') . "\n\t\t\tWHERE experiment_id= :texperiment_id \n ORDER BY session_start";
$result = or_query($squery, $pars);
$thislist_sessions = array();
while ($line = pdo_fetch_assoc($result)) {
$thislist_sessions[$line['session_id']] = $line;
}
// reorder by session date if ordered by session id
if ($sort == "session_id") {
$temp_participants = $participants;
$participants = array();
foreach ($thislist_sessions as $sid => $s) {
foreach ($temp_participants as $p) {
if ($p['session_id'] == $sid) {
$participants[] = $p;
}
}
}
}
unset($temp_participants);
// determine table title
$table_title = $experiment['experiment_public_name'];
if ($session_id) {
$table_title .= ', ' . lang('session') . ' ' . str_replace(" ", " ", session__build_name($thislist_sessions[$session_id]));
}
$table_title .= ' - ' . $title;
// determine table headings
$table_headings = participant__get_result_table_headcells_pdf($cols);
$table_data = array();
$pnr = 0;
foreach ($participants as $p) {
$pnr++;
$p['order_number'] = $pnr;
$row = participant__get_result_table_row_pdf($cols, $p);
$table_data[] = $row;
}
// prepare pdf
include_once '../tagsets/class.ezpdf.php';
$pdf = new Cezpdf('a4', 'landscape');
$pdf->selectFont('../tagsets/fonts/Times-Roman.afm');
$fontsize = $settings['participant_list_pdf_table_fontsize'] ? $settings['participant_list_pdf_table_fontsize'] : 10;
$titlefontsize = $settings['participant_list_pdf_title_fontsize'] ? $settings['participant_list_pdf_title_fontsize'] : 12;
$y = $pdf->ezTable($table_data, $table_headings, $table_title, array('gridlines' => 31, 'showHeadings' => 1, 'shaded' => 2, 'shadeCol' => array(1, 1, 1), 'shadeCol2' => array(0.9, 0.9, 0.9), 'fontSize' => $fontsize, 'titleFontSize' => $titlefontsize, 'rowGap' => 1, 'colGap' => 3, 'innerLineThickness' => 0.5, 'outerLineThickness' => 1, 'maxWidth' => 800, 'width' => 800, 'protectRows' => 2));
if ($file) {
$pdffilecode = $pdf->output();
return $pdffilecode;
} else {
$pdf->ezStream(array('Content-Disposition' => 'participant_list.pdf', 'Accept-Ranges' => 0, 'compress' => 1));
}
}
function expregister__get_specific_pstatuses($what = "participated", $reverse = false)
{
// what can be participated, noshow, participateagain
$pstatuses = expregister__get_participation_statuses();
$psarr = array();
foreach ($pstatuses as $psid => $pstatus) {
if ($pstatus[$what]) {
$psarr[] = $psid;
}
}
return $psarr;
}
function participant__get_result_table_row_pdf($columns, $p)
{
global $settings, $color;
global $thislist_sessions;
$pform_columns = participant__load_all_pform_fields();
$row = array();
foreach ($columns as $k => $arr) {
switch ($k) {
case 'number_noshowup':
$row[] = $p['number_noshowup'] . '/' . $p['number_reg'];
break;
case 'rules_signed':
if ($settings['enable_rules_signed_tracking'] == 'y') {
$row[] = $p['rules_signed'] != 'y' ? "X" : '';
}
break;
case 'subscriptions':
$exptypes = load_external_experiment_types();
$inv_arr = db_string_to_id_array($p[$k]);
$inv_names = array();
foreach ($inv_arr as $inv) {
if (isset($exptypes[$inv]['exptype_name'])) {
$inv_names[] = $exptypes[$inv]['exptype_name'];
} else {
$inv_names[] = 'undefined';
}
}
$row[] = implode(", ", $inv_names);
break;
case 'subpool_id':
$subpools = subpools__get_subpools();
$subpool_name = isset($subpools[$p[$k]]['subpool_name']) ? $subpools[$p[$k]]['subpool_name'] : $p[$k];
$row[] = $subpool_name;
break;
case 'status_id':
$participant_statuses = participant_status__get_statuses();
$pstatus_name = isset($participant_statuses[$p[$k]]['name']) ? $participant_statuses[$p[$k]]['name'] : $p[$k];
$row[] = $pstatus_name;
break;
case 'creation_time':
case 'deletion_time':
case 'last_enrolment':
case 'last_profile_update':
case 'last_activity':
case 'last_login_attempt':
if ($p[$k]) {
$row[] = ortime__format($p[$k], 'hide_second:false');
} else {
$row[] = '-';
}
break;
case 'session_id':
$row[] = session__build_name($thislist_sessions[$p['session_id']]);
break;
case 'payment_budget':
if ($settings['enable_payment_module'] == 'y' && check_allow('payments_view')) {
$payment_budgets = payments__load_budgets();
if (isset($payment_budgets[$p['payment_budget']])) {
$row[] = $payment_budgets[$p['payment_budget']]['budget_name'];
} else {
$row[] = '-';
}
}
break;
case 'payment_type':
if ($settings['enable_payment_module'] == 'y' && check_allow('payments_view')) {
$payment_types = payments__load_paytypes();
if (isset($payment_types[$p['payment_type']])) {
$row[] = $payment_types[$p['payment_type']];
} else {
$row[] = '-';
}
}
break;
case 'payment_amount':
if ($settings['enable_payment_module'] == 'y' && check_allow('payments_view')) {
if ($p['payment_amt'] != '') {
$row[] = $p['payment_amt'];
} else {
$row[] = '-';
}
}
break;
case 'pstatus_id':
$pstatuses = expregister__get_participation_statuses();
$row[] = $pstatuses[$p['pstatus_id']]['internal_name'];
break;
default:
if (isset($pform_columns[$k])) {
if (preg_match("/(radioline|select_list|select_lang|radioline_lang)/", $pform_columns[$k]['type'])) {
if (isset($pform_columns[$k]['lang'][$p[$k]])) {
$row[] = lang($pform_columns[$k]['lang'][$p[$k]]);
} else {
$row[] = $p[$k];
}
} else {
$row[] = $p[$k];
}
} else {
if (isset($p[$k])) {
$row[] = $p[$k];
} else {
$row[] = '???';
}
}
}
}
foreach ($row as $k => $v) {
$row[$k] = str_replace(" ", " ", $v);
}
return $row;
}
function experiment__count_pstatus($experiment_id, $session_id = "")
{
$pstatuses = expregister__get_participation_statuses();
$pars = array();
$query = "SELECT COUNT(*) as regcount, pstatus_id";
if (!$session_id) {
$query .= ", session_id";
}
$query .= " FROM " . table('participate_at') . " WHERE";
if ($session_id) {
$query = $query . " session_id=:session_id";
$pars[':session_id'] = $session_id;
} else {
$query = $query . " experiment_id=:experiment_id";
$pars[':experiment_id'] = $experiment_id;
}
$query .= ' GROUP BY pstatus_id';
if (!$session_id) {
$query .= ", session_id";
}
$result = or_query($query, $pars);
$pstatus_counts = array();
$assigned = 0;
$enroled = 0;
$participated = 0;
$noshow = 0;
while ($line = pdo_fetch_assoc($result)) {
if (!isset($pstatus_counts[$line['pstatus_id']])) {
$pstatus_counts[$line['pstatus_id']] = 0;
}
if ($line['pstatus_id'] > 0) {
$pstatus_counts[$line['pstatus_id']] = $pstatus_counts[$line['pstatus_id']] + $line['regcount'];
} elseif ($line['session_id'] > 0) {
$pstatus_counts[0] = $pstatus_counts[0] + $line['regcount'];
}
$assigned = $assigned + $line['regcount'];
if (!$session_id && $line['session_id'] > 0) {
$enroled = $enroled + $line['regcount'];
} elseif ($session_id) {
$enroled = $enroled + $line['regcount'];
}
if ($pstatuses[$line['pstatus_id']]['participated']) {
$participated = $participated + $line['regcount'];
}
if ($pstatuses[$line['pstatus_id']]['noshow']) {
$noshow = $noshow + $line['regcount'];
}
}
$counts = array();
$counts['assigned'] = $assigned;
$counts['enroled'] = $enroled;
$counts['participated'] = $participated;
$counts['noshow'] = $noshow;
$counts['pstatus'] = array();
foreach ($pstatus_counts as $ps => $psc) {
$counts['pstatus'][$ps]['count'] = $psc;
$counts['pstatus'][$ps]['internal_name'] = $pstatuses[$ps]['internal_name'];
}
return $counts;
}
