redirect("public/participant_show_mob.php" . $token_string);
}
}
if ($proceed) {
$cancellation_deadline = sessions__get_cancellation_deadline($session);
$now = time();
if ($cancellation_deadline < $now) {
$continue = false;
message(lang('error_enrolment_cancellation_deadline_expired'));
redirect("public/participant_show_mob.php" . $token_string);
}
}
// if all checks are done, cancel ...
if ($continue) {
$done = expregister__cancel($participant, $session);
$done = participant__update_last_enrolment_time($participant_id);
$done = log__participant("cancel_session_enrolment", $participant['participant_id'], "experiment_id:" . $session['experiment_id'] . "\nsession_id:" . $session_id);
message(lang('successfully_canceled_enrolment_xxx') . " " . experiment__get_public_name($session['experiment_id']) . ", " . session__build_name($session_id) . ". " . lang('this_will_be_confirmed_by_an_email'));
redirect("public/participant_show_mob.php" . $token_string);
}
}
}
if ($proceed) {
$labs = laboratories__get_laboratories();
// load the data
// invitations
$invdata = expregister__get_invitations($participant_id);
$invited = $invdata['invited'];
$inv_experiments = $invdata['inv_experiments'];
// registrations
$registered = expregister__get_registrations($participant_id);
if ($v != $_REQUEST['orig_session'][$k]) {
$new_session[$v][] = $k;
}
}
$pars = array();
$allmids = array();
foreach ($new_session as $msession => $mparts) {
foreach ($mparts as $participant_id) {
$pars[] = array(':session_id' => $msession, ':participant_id' => $participant_id, ':experiment_id' => $experiment_id);
$allmids[] = $participant_id;
}
}
$query = "UPDATE " . table('participate_at') . "\n\t\t\t\t\t\t\tSET session_id = :session_id, pstatus_id=0,\n\t\t\t\t\t\t\tpayment_type=0, payment_amt=0 \n\t\t\t\t\t\t\tWHERE participant_id = :participant_id \n\t\t\t\t\t\t\tAND experiment_id= :experiment_id";
$done = or_query($query, $pars);
if (count($allmids) > 0) {
participant__update_last_enrolment_time($allmids);
}
// clean up participation statuses for 'no session's
$query = "UPDATE " . table('participate_at') . "\n\t\t\t\t\t\t\tSET pstatus_id = '0' \n\t\t\t\t\t\t\tWHERE session_id='0'";
$done = or_query($query);
message(lang('changes_saved'));
$m_message = '<UL>';
foreach ($new_session as $msession => $mparts) {
$m_message .= '<LI>' . count($mparts) . ' ';
if ($msession == 0) {
$m_message .= lang('xxx_subjects_removed_from_registration');
} else {
$tsession = orsee_db_load_array("sessions", $msession, "session_id");
$m_message .= lang('xxx_subjects_moved_to_session_xxx') . '
<A HREF="' . thisdoc() . '?experiment_id=' . $experiment_id . '&session_id=' . $msession . '">' . session__build_name($tsession) . '</A>';
$tpartnr = experiment__count_participate_at($experiment_id, $msession);
