foreach ($expexttypes as $exttype) {
$value = $inttype . ',' . $exttype['exptype_id'];
$show = $lang[$inttype] . ' ("' . $exttype[lang('lang')] . '")';
echo '<OPTION value="' . $value . '"';
if ($value == $edit['experiment_show_type']) {
echo ' SELECTED';
}
echo '>' . $show . '</OPTION>';
}
}
echo ' </SELECT></TD>
</TR>';
echo ' <TR>
<TD>' . lang('class') . ':</TD>
<TD valign="top">';
echo experiment__experiment_class_select_field('experiment_class', db_string_to_id_array($edit['experiment_class']));
echo ' </TD>
</TR>';
echo ' <TR>
<TD valign="top">' . lang('experimenter') . ':</TD>
<TD>';
if (!isset($_REQUEST['experiment_id']) || !$_REQUEST['experiment_id']) {
$edit['experimenter'] = '|' . $expadmindata['admin_id'] . '|';
}
echo experiment__experimenters_select_field("experimenter", db_string_to_id_array($edit['experimenter']), true, array('tag_color' => '#f1c06f', 'picker_icon' => 'user', 'picker_color' => '#c58720', 'picker_maxnumcols' => 2));
echo ' </TD>
</TR>';
if ($settings['allow_experiment_restriction'] == 'y') {
echo ' <TR>
<TD valign="top">
' . lang('experiment_access_restricted') . ':
function query__get_query_form_prototypes($hide_modules = array(), $experiment_id = "", $status_query = "")
{
global $lang, $settings, $all_orsee_query_modules;
$formfields = participantform__load();
$orsee_query_modules = $all_orsee_query_modules;
$protoypes = array();
foreach ($orsee_query_modules as $module) {
if (!in_array($module, $hide_modules)) {
switch ($module) {
case "brackets":
$prototype = array('type' => 'brackets', 'displayname' => lang('query_brackets'), 'field_name_placeholder' => '#brackets#');
$content = "";
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "experimentclasses":
$prototype = array('type' => 'experimentclasses_multiselect', 'displayname' => lang('query_experiment_class'), 'field_name_placeholder' => '#experiment_class#');
$content = "";
$content .= '<SELECT name="not">
<OPTION value="NOT" SELECTED>' . lang('without') . '</OPTION>
<OPTION value="">' . lang('only') . '</OPTION>
</SELECT> ';
$content .= lang('participants_participated_expclass') . '<BR>';
$content .= experiment__experiment_class_select_field('#experiment_class#_ms_classes', array(), true, array('cols' => 40, 'picker_maxnumcols' => 3));
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "experimenters":
$prototype = array('type' => 'experimenters_multiselect', 'displayname' => lang('query_experimenters'), 'field_name_placeholder' => '#experimenters#');
$content = "";
$content .= '<SELECT name="not">
<OPTION value="NOT" SELECTED>' . lang('without') . '</OPTION>
<OPTION value="">' . lang('only') . '</OPTION>
</SELECT> ';
$content .= lang('participants_participated_experimenters') . '<BR>';
$content .= experiment__experimenters_select_field("#experimenters#_ms_experimenters", array(), true, array('cols' => 40, 'tag_color' => '#f1c06f', 'picker_color' => '#c58720', 'picker_maxnumcols' => 3));
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "experimentsassigned":
$prototype = array('type' => 'experimentsassigned_multiselect', 'displayname' => lang('query_experiments_assigned'), 'field_name_placeholder' => '#experiments_assigned#');
$content = "";
$content .= '<SELECT name="not">
<OPTION value="NOT" SELECTED>' . lang('without') . '</OPTION>
<OPTION value="">' . lang('only') . '</OPTION>
</SELECT> ';
$content .= lang('participants_were_assigned_to') . '<BR>';
$content .= experiment__other_experiments_select_field("#experiments_assigned#_ms_experiments", "assigned", $experiment_id, array(), true, array('cols' => 80, 'tag_color' => '#b3ffb3', 'picker_color' => '#00a300', 'picker_maxnumcols' => $settings['query_experiment_list_nr_columns']));
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "experimentsparticipated":
$prototype = array('type' => 'experimentsparticipated_multiselect', 'displayname' => lang('query_experiments_participated'), 'field_name_placeholder' => '#experiments_participated#');
$content = "";
$content .= '<SELECT name="not">
<OPTION value="NOT" SELECTED>' . lang('without') . '</OPTION>
<OPTION value="">' . lang('only') . '</OPTION>
</SELECT> ';
$content .= lang('participants_have_participated_on') . '<BR>';
$content .= experiment__other_experiments_select_field("#experiments_participated#_ms_experiments", "participated", $experiment_id, array(), true, array('cols' => 80, 'tag_color' => '#a8a8ff', 'picker_color' => '#0000ff', 'picker_maxnumcols' => $settings['query_experiment_list_nr_columns']));
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "statusids":
$prototype = array('type' => 'statusids_multiselect', 'displayname' => lang('query_participant_status'), 'field_name_placeholder' => '#statusids#');
$content = "";
$content .= '<SELECT name="not">
<OPTION value="NOT" SELECTED>' . lang('without') . '</OPTION>
<OPTION value="">' . lang('only') . '</OPTION>
</SELECT> ';
$content .= lang('participants_of_status') . ' ';
$content .= participant_status__multi_select_field("#statusids#_ms_status", array(), array('cols' => 80, 'tag_color' => '#a8a8ff', 'picker_color' => '#0000ff', 'picker_maxnumcols' => 2));
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "pformtextfields":
$prototype = array('type' => 'pformtextfields_freetextsearch', 'displayname' => lang('query_participant_form_textfields'), 'field_name_placeholder' => '#participant_form_textfields#');
$form_query_fields = array();
foreach ($formfields as $f) {
if (preg_match("/(textline|textarea)/i", $f['type']) && (!$experiment_id && $f['search_include_in_participant_query'] == 'y' || $experiment_id && $f['search_include_in_experiment_assign_query'] == 'y')) {
$tfield = array();
$tfield['value'] = $f['mysql_column_name'];
$tfield['name'] = lang($f['name_lang']);
$form_query_fields[] = $tfield;
}
}
$content = "";
$content .= lang('where');
$content .= ' <INPUT type="text" size="20" maxlength="100" name="search_string" value="">';
$content .= '<SELECT name="not">
<OPTION value="NOT">' . lang('not') . '</OPTION>
<OPTION value="" SELECTED></OPTION>
</SELECT> ';
$content .= ' ' . lang('in') . ' ';
$content .= '<SELECT name="search_field">
<OPTION value="all" SELECTED>' . lang('any_field') . '</OPTION>';
foreach ($form_query_fields as $tf) {
$content .= '<OPTION value="' . $tf['value'] . '">' . $tf['name'] . '</OPTION>';
}
$content .= '</SELECT>';
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "pformselects":
$pform_selects = array();
foreach ($formfields as $f) {
if (!preg_match("/(textline|textarea)/i", $f['type']) && (!$experiment_id && $f['search_include_in_participant_query'] == 'y' || $experiment_id && $f['search_include_in_experiment_assign_query'] == 'y')) {
$pform_selects[] = $f['mysql_column_name'];
}
}
// $existing=true;
//if ($experiment_id) $show_count=false; else $show_count=true;
// needs too much time for queries. So better:
$existing = false;
$show_count = false;
foreach ($pform_selects as $fieldname) {
$f = array();
foreach ($formfields as $p) {
if ($p['mysql_column_name'] == $fieldname) {
$f = $p;
}
}
$f = form__replace_funcs_in_field($f);
if (isset($f['mysql_column_name'])) {
$fieldname_lang = lang($f['name_lang']);
$fname_ph = '#pform_select_' . $fieldname . '#';
$prototype = array('type' => 'pform_select_' . $fieldname, 'displayname' => lang('query_participant_form_selectfield') . $fieldname_lang, 'field_name_placeholder' => $fname_ph);
$content = "";
$content .= lang('where') . ' ' . $fieldname_lang . ' ';
if ($f['type'] == 'select_numbers') {
$content .= '<select name="sign">
<OPTION value="<="><=</OPTION>
<OPTION value="=" SELECTED>=</OPTION>
<OPTION value=">">></OPTION>
</select>';
} else {
$content .= '<select name="not">
<OPTION value="" SELECTED>=</OPTION>
<OPTION value="NOT">' . lang('not') . ' =</OPTION>
</select> ';
}
if (preg_match("/(select_lang|radioline_lang)/", $f['type'])) {
$content .= language__multiselectfield_item($fieldname, $fieldname, $fname_ph . '_ms_' . $fieldname, array(), "", $existing, $status_query, $show_count, true, array('cols' => 80, 'tag_color' => '#bbbbbb', 'picker_color' => '#444444', 'picker_maxnumcols' => 3));
$prototype['type'] = 'pform_multiselect_' . $fieldname;
} elseif ($f['type'] == 'select_numbers') {
if ($f['values_reverse'] == 'y') {
$reverse = true;
} else {
$reverse = false;
}
$content .= participant__select_numbers($fieldname, 'fieldvalue', '', $f['value_begin'], $f['value_end'], 0, $f['value_step'], $reverse, false, $existing, $status_query, $show_count);
$prototype['type'] = 'pform_numberselect_' . $fieldname;
} elseif (preg_match("/(select_list|radioline)/i", $f['type']) && !$existing) {
$f['value'] = '';
$content .= form__render_select_list($f, 'fieldvalue');
$prototype['type'] = 'pform_simpleselect_' . $fieldname;
} else {
$content .= participant__select_existing($fieldname, 'fieldvalue', '', $status_query, $show_count);
$prototype['type'] = 'pform_simpleselect_' . $fieldname;
}
$prototype['content'] = $content;
$prototypes[] = $prototype;
}
}
break;
case "noshows":
$prototype = array('type' => 'noshows_numbercompare', 'displayname' => lang('query_noshows'), 'field_name_placeholder' => '#noshows#');
$query = "SELECT max(number_noshowup) as maxnoshow FROM " . table('participants');
if ($status_query) {
$query .= " WHERE " . $status_query;
}
$line = orsee_query($query);
$content = "";
$content .= lang('where_nr_noshowups_is') . ' ';
$content .= '<select name="sign">
<OPTION value="<=" SELECTED><=</OPTION>
<OPTION value=">">></OPTION>
</select> ';
$content .= helpers__select_number("count", '0', 0, $line['maxnoshow'], 0);
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "participations":
$prototype = array('type' => 'participations_numbercompare', 'displayname' => lang('query_participations'), 'field_name_placeholder' => '#participations#');
$query = "SELECT max(number_reg) as maxnumreg FROM " . table('participants');
if ($status_query) {
$query .= " WHERE " . $status_query;
}
$line = orsee_query($query);
$content = "";
$content .= lang('where_nr_participations_is') . ' ';
$content .= '<select name="sign">
<OPTION value="<=" SELECTED><=</OPTION>
<OPTION value=">">></OPTION>
</select> ';
$content .= helpers__select_number("count", '0', 0, $line['maxnumreg'], 0);
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "updaterequest":
$prototype = array('type' => 'updaterequest_simpleselect', 'displayname' => lang('query_profile_update_request'), 'field_name_placeholder' => '#updaterequest#');
$content = "";
$content .= lang('where_profile_update_request_is') . ' ';
$content .= '<select name="update_request_status">
<OPTION value="y">' . lang('active') . '</OPTION>
<OPTION value="n">' . lang('inactive') . '</OPTION>
</select> ';
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "activity":
$prototype = array('type' => 'activity_numbercompare', 'displayname' => lang('query_activity'), 'field_name_placeholder' => '#activity#');
$content = lang('where');
$content .= '<SELECT name="activity_type">
<OPTION value="last_activity" SELECTED>' . lang('last_activity') . '</OPTION>
<OPTION value="last_enrolment">' . lang('last_enrolment') . '</OPTION>
<OPTION value="last_profile_update">' . lang('last_profile_update') . '</OPTION>
<OPTION value="creation_time">' . lang('creation_time') . '</OPTION>';
//$content.=' <OPTION value="deletion_time">'.lang('deletion_time').'</OPTION>';
$content .= '</SELECT> ';
$content .= '<SELECT name="not">
<OPTION value="" SELECTED></OPTION>
<OPTION value="NOT">' . lang('not') . '</OPTION>
</SELECT> ';
$content .= lang('before_date') . ' ';
$content .= formhelpers__pick_date('#activity#_dt_activity');
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "randsubset":
$prototype = array('type' => 'randsubset_limitnumber', 'displayname' => lang('query_rand_subset'), 'field_name_placeholder' => '#rand_subset#');
$query_limit = !isset($_REQUEST['query_limit']) || !$_REQUEST['query_limit'] ? $settings['query_random_subset_default_size'] : $_REQUEST['query_limit'];
$content = "";
$content .= lang('limit_to_randomly_drawn') . ' ';
$content .= '<INPUT type="text" data-elem-name="limit" value="' . $settings['query_random_subset_default_size'] . '" size="5" maxlength="10">';
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
case "subsubjectpool":
$prototype = array('type' => 'subsubjectpool_multiselect', 'displayname' => lang('query_subsubjectpool'), 'field_name_placeholder' => '#subsubjectpool#', 'defaults' => array('#subsubjectpool#_not' => '', '#subsubjectpool#_ms_subpool' => ''));
$content = "";
$content .= '<SELECT name="not">
<OPTION value="NOT" SELECTED>' . lang('without') . '</OPTION>
<OPTION value="">' . lang('only') . '</OPTION>
</SELECT> ';
$content .= lang('who_are_in_subjectpool') . ' ';
$content .= subpools__multi_select_field("#subsubjectpool#_ms_subpool", array(), array('cols' => 80, 'tag_color' => '#a8a8ff', 'picker_color' => '#0000ff', 'picker_maxnumcols' => 1));
$prototype['content'] = $content;
$prototypes[] = $prototype;
break;
}
}
}
return $prototypes;
}
function experiment__current_experiment_summary($experimenter = "", $finished = "n", $show_filter = false, $addbutton = true)
{
global $lang, $expadmindata, $color;
$experimentclasses = experiment__load_experimentclassnames();
$experimenters = experiment__load_experimenters();
$pars = array();
$experimenter_arr = array();
if (isset($_REQUEST['experimenter_search']) && $_REQUEST['experimenter_search']) {
$experimenter_arr = multipicker_json_to_array($_REQUEST['experimenter_search']);
}
if ($experimenter && count($experimenter_arr) == 0) {
$experimenter_arr = array($experimenter);
}
$exp_clause = query__get_experimenter_or_clause($experimenter_arr);
if ($exp_clause['clause']) {
$expq = ' AND ' . $exp_clause['clause'];
foreach ($exp_clause['pars'] as $k => $v) {
$pars[$k] = $v;
}
} else {
$expq = "";
}
$class_arr = array();
if (isset($_REQUEST['class_search']) && $_REQUEST['class_search']) {
$class_arr = multipicker_json_to_array($_REQUEST['class_search']);
}
$class_clause = query__get_class_or_clause($class_arr);
if ($class_clause['clause']) {
$classq = ' AND ' . $class_clause['clause'];
foreach ($class_clause['pars'] as $k => $v) {
$pars[$k] = $v;
}
} else {
$classq = "";
}
$finq = " " . table('experiments') . ".experiment_finished= :finished";
$pars[':finished'] = $finished;
$aquery = $finq . $expq . $classq;
$query = "SELECT " . table('experiments') . ".*,\n\t\t\t\tcount(*) as num_sessions,\n\t\t\t\tif(session_start IS NULL, 1,0) as no_sessions,\n\t\t\t\tmin(if(session_start > date_format(now(),'%Y%m%d%H%i'), \n\t\t\t\tsession_start,NULL)) as time,\n \t\t\tmin(session_start) as first_session_date,\n \t\t\tmax(session_start) as last_session_date\n \t\t\tFROM " . table('experiments') . "\n \t\t\tLEFT JOIN " . table('sessions') . " ON " . table('experiments') . ".experiment_id=" . table('sessions') . ".experiment_id \n \t\t\tWHERE " . table('experiments') . ".experiment_id IS NOT NULL \n \t\t\tAND " . $aquery . " \n \t\t\tGROUP BY experiment_id \n \t\t\tORDER BY no_sessions, time, last_session_date DESC, experiment_id";
$result = or_query($query, $pars);
$experiments = array();
$eids = array();
while ($line = pdo_fetch_assoc($result)) {
$line['sessions'] = array();
$experiments[$line['experiment_id']] = $line;
$eids[] = $line['experiment_id'];
}
if (count($eids) > 0) {
$query = "SELECT * \n\t \t\t\tFROM " . table('sessions') . " \n\t\t\t\t\tWHERE (session_status='planned' OR session_status='live') \n\t\t\t\t\tAND experiment_id IN (" . implode(',', $eids) . ") \n\t\t\t\t\tORDER BY session_start, session_id";
$result = or_query($query);
$sids = array();
while ($line = pdo_fetch_assoc($result)) {
$experiments[$line['experiment_id']]['sessions'][$line['session_id']] = $line;
$sids[] = $line['session_id'];
}
// get counts at experiment level
// performance is better if doing this separately
$query = "SELECT experiment_id, \n\t\t\t\t\tcount(*) as num_assigned \n\t\t\t\t\tFROM " . table('participate_at') . " \n\t\t\t\t\tWHERE experiment_id IN (" . implode(',', $eids) . ")\n\t\t\t\t\tGROUP BY experiment_id";
$result = or_query($query);
while ($line = pdo_fetch_assoc($result)) {
$experiments[$line['experiment_id']]['num_assigned'] = $line['num_assigned'];
}
$query = "SELECT experiment_id, \n\t\t\t\t\tcount(*) as num_registered \n\t\t\t\t\tFROM " . table('participate_at') . " \n\t\t\t\t\tWHERE session_id!=0 \n\t\t\t\t\tAND experiment_id IN (" . implode(',', $eids) . ")\n\t\t\t\t\tGROUP BY experiment_id";
$result = or_query($query);
while ($line = pdo_fetch_assoc($result)) {
$experiments[$line['experiment_id']]['num_registered'] = $line['num_registered'];
}
$participated_clause = expregister__get_pstatus_query_snippet("participated");
$query = "SELECT experiment_id, \n\t\t\t\t\tcount(*) as num_participated \n\t\t\t\t\tFROM " . table('participate_at') . " \n\t\t\t\t\tWHERE " . $participated_clause . " \n\t\t\t\t\tAND experiment_id IN (" . implode(',', $eids) . ")\n\t\t\t\t\tGROUP BY experiment_id";
$result = or_query($query);
while ($line = pdo_fetch_assoc($result)) {
$experiments[$line['experiment_id']]['num_participated'] = $line['num_participated'];
}
//
if ($finished == 'y') {
$noshow_clause = expregister__get_pstatus_query_snippet("noshow");
// get showup counts at session level
// couldn't get much better performance if separating counts
$query = "SELECT " . table('participate_at') . ".experiment_id, \n\t\t\t\t\t\tcount(*) as comp_num_registered,\n\t\t\t\t\t\tsum(if(" . $noshow_clause . ",1,0)) as comp_num_noshow \n\t\t\t\t\t\tFROM " . table('participate_at') . ", " . table('sessions') . " \n\t\t\t\t\t\tWHERE " . table('participate_at') . ".session_id=" . table('sessions') . ".session_id \n\t\t\t\t\t\tAND (" . table('sessions') . ".session_status='completed' OR " . table('sessions') . ".session_status='balanced') \n\t\t\t\t\t\tAND " . table('participate_at') . ".experiment_id IN (" . implode(',', $eids) . ")\n\t\t\t\t\t\tGROUP BY " . table('participate_at') . ".experiment_id";
$result = or_query($query);
while ($line = pdo_fetch_assoc($result)) {
$experiments[$line['experiment_id']]['comp_num_registered'] = $line['comp_num_registered'];
$experiments[$line['experiment_id']]['comp_num_noshow'] = $line['comp_num_noshow'];
}
}
if (count($sids) > 0) {
$query = "SELECT experiment_id, session_id, \n\t\t\t\t\t\tcount(*) as num_registered \n\t\t\t\t\t\tFROM " . table('participate_at') . " \n\t\t\t\t\t\tWHERE session_id IN (" . implode(',', $sids) . ")\n\t\t\t\t\t\tGROUP BY experiment_id, session_id";
$result = or_query($query);
while ($line = pdo_fetch_assoc($result)) {
$experiments[$line['experiment_id']]['sessions'][$line['session_id']]['num_registered'] = $line['num_registered'];
}
}
}
echo '
<center>
<BR>
<table class="or_panel">';
if ($show_filter) {
echo '<TR><TD colspan=2>
<FORM action="' . thisdoc() . '"><TABLE border=0><TR><TD>' . lang('restrict_list_to_experiments_of_class') . '</TD><TD>';
echo experiment__experiment_class_select_field('class_search', $class_arr, true, array('cols' => 30, 'picker_maxnumcols' => 3));
echo ' </TD><TD rowspan=2 valign=middle>
<INPUT class="button" style="font-size: 8pt; margin: 0;" type=submit name="show" value="' . lang('show') . '">
</TD></TR><TR><TD>' . lang('restrict_list_to_experimenters') . '</TD><TD>';
echo experiment__experimenters_select_field("experimenter_search", $experimenter_arr, true, array('cols' => 30, 'tag_color' => '#f1c06f', 'picker_color' => '#c58720', 'picker_maxnumcols' => 3));
echo ' </TD></TR></TABLE></FORM>
</TD></TR>';
}
echo '
<TR>
<TD colspan=2>
<TABLE width="100%" border=0 class="or_panel_title"><TR><TD style="background: ' . $color['panel_title_background'] . '; color: ' . $color['panel_title_textcolor'] . '">';
if ($finished == "y") {
echo lang('finished_experiments');
} elseif ($experimenter) {
echo lang('my_experiments');
} else {
echo lang('experiments');
}
echo '</TD><TD style="background: ' . $color['panel_title_background'] . '; color: ' . $color['panel_title_textcolor'] . '">';
if ($addbutton && check_allow('experiment_edit')) {
echo button_link("experiment_edit.php?addit=true", lang('register_new_experiment'), 'plus-circle');
}
if (!$experimenter) {
if ($finished == "n") {
echo button_link("experiment_old.php", lang('finished_experiments'), 'fast-backward');
} else {
echo button_link("experiment_main.php", lang('current_experiments'), 'fast-forward');
}
}
echo '</TD></TR>
</TABLE>
</TD></TR>
<TR><TD colspan=2>';
echo count($experiments) . ' ';
if ($finished == "n") {
echo lang('xxx_current_experiments');
} else {
echo lang('xxx_finished_experiments');
}
echo '
</TD></TR>
<TR><TD width="5%"> </TD>
<TD width="95%" colspan=2>
<TABLE border=0 width="100%" cellspacing="0">';
foreach ($experiments as $id => $exp) {
if ($finished == "n") {
experiment__experiments_format_alist($exp);
} else {
experiment__old_experiments_format_alist($exp);
}
}
echo '</TABLE>
</TD></TR>
</TABLE>
</center>
<BR><BR>
';
}
