if (!role_unassign(0, $user->id, 0, $context->id)) {
// Should email the Admin if this happens
error("An error occurred while trying to unenrol that person.");
exit;
}
//admin_moodlefailed_email($user,'unenrollUser');
} else {
echo "<br> enrollQSUser was successful";
if (!enrollUserInCourse($user->username, $user->username, $course->fullname, true)) {
echo "<br> enrollUserInCourse was NOT successful";
if (!role_unassign(0, $user->id, 0, $context->id)) {
error("An error occurred while trying to unenrol that person.");
exit;
}
echo "<br> role_unassign was successful";
// Should email the Admin if this happens
unenrollQSUser($user, $course);
admin_webservicefailed_email($user, 'enrollUser', $course);
}
echo "<br> enrollUserInCourse was successful";
}
$payload = file_get_contents($destination);
send_enrollment_notification($course, $user);
} else {
echo "<br> User {$user->username} was already enrolled in course {$course->fullname}";
}
} else {
echo "<br> get_record('role','name','Student') was NOT successful";
error("get_record('role','name','Student') was NOT successful");
exit;
}
$temp_user->email = $usernew->preference_newemail;
$temp_user->emailstop = NULL;
$a = new stdClass();
$a->url = $CFG->wwwroot . '/user/emailupdate.php?key=' . $usernew->preference_newemailkey . '&id=' . $user->id;
$a->site = $SITE->fullname;
$a->fullname = fullname($user, true);
$emailupdatemessage = get_string('auth_emailupdatemessage', 'auth', $a);
$emailupdatetitle = get_string('auth_emailupdatetitle', 'auth', $a);
if (!($mail_results = email_to_user($temp_user, get_admin(), $emailupdatetitle, $emailupdatemessage))) {
die("could not send email!");
}
}
} else {
// End If - calendar.php
modifyQSUser($olduserinfo);
admin_webservicefailed_email($olduserinfo, 'modifyUser');
error('Error updating user record (VL)');
}
} else {
error('Error updating user record (QS)');
}
// reload from db
$usernew = get_record('user', 'id', $user->id);
events_trigger('user_updated', $usernew);
setWSUserDefaultTimeZone($USER->username, $usernew);
//Added: 01.03.2011 - calendar.php
if ($USER->id == $user->id) {
// Override old $USER session variable if needed
foreach ((array) $usernew as $variable => $value) {
$USER->{$variable} = $value;
}
} else {
/// Added: Check value submitted and call calendar ws to unenrol user
if (unenrollQSUser($USER, $course)) {
if (enrollUserInCourse($USER->username, $USER->username, $course->fullname, false)) {
if (!role_unassign(0, $USER->id, 0, $context->id)) {
admin_moodlefailed_email($USER, 'unenrollUser', $course);
error("An error occurred while trying to unenroll you.");
}
send_unenrollment_notification($course, $USER);
// Added: 05/08/2012
// force a refresh of mycourses
unset($USER->mycourses);
add_to_log($course->id, 'course', 'unenrol', "view.php?id={$course->id}", $course->id);
} else {
enrollQSUser($USER, $course);
admin_webservicefailed_email($USER, 'unenrollUser', $course);
}
} else {
error("An error occurred while trying to unenroll you.");
}
redirect($CFG->wwwroot);
}
}
$strunenrol = get_string('unenrol');
$navlinks = array();
$navlinks[] = array('name' => $strunenrol, 'link' => null, 'type' => 'misc');
$navigation = build_navigation($navlinks);
print_header("{$course->shortname}: {$strunenrol}", $course->fullname, $navigation);
if ($userid) {
if (!($user = get_record('user', 'id', $userid))) {
error('That user does not exist!');
if (createUserProfile($username, $usernew)) {
if (!($usernew->id = insert_record('user', $usernew))) {
admin_moodlefailed_email($usernew, 'addUser', $course);
error('Error creating user record');
}
// Insert the user_custom_profile_field for timezone
$rec = new object();
$rec->userid = $usernew->id;
$rec->fieldid = 4;
$rec->data = $timezone;
insert_record('user_info_data', $rec);
// Insert the user_custom_profile_field for companyname
$rec = new object();
$rec->userid = $usernew->id;
$rec->fieldid = 2;
$rec->data = $companyname;
insert_record('user_info_data', $rec);
// reload from db
$usernew = get_record('user', 'id', $usernew->id);
// setUserTimeZone($usernew->id, $zone);
setWSUserDefaultTimeZone('admin', $usernew);
editUserProfilePassword("admin", $usernew->username, $password);
if (!addQSUser($usernew)) {
admin_signuperror_email($usernew);
//error('An error has occured, please try again shortly.');
}
} else {
$usercreated = false;
//deleteQSUser($usernew);
admin_webservicefailed_email($usernew, 'addUser', $course);
}
} else {
// Redirect to roles assignment
redirect($CFG->wwwroot . "/{$CFG->admin}/roles/assign.php?contextid={$context->id}");
}
} else {
if (!update_course($data)) {
print_error('coursenotupdated');
}
$updatedcourse = get_record('course', 'id', $course->id);
// Added: JAM 12.30.2010 - sends ws call to modify a course in quota system
if (!modifyQSCourse($updatedcourse)) {
admin_webservicefailed_email($USER, 'modifyCourse', $updatedcourse);
}
// Added: JAM 02.23.2012 - sends ws call to modify a course in virtualLabs
if (!modifyVLCourse($updatedcourse)) {
admin_webservicefailed_email($USER, 'modifyCourse', $updatedcourse);
}
redirect($CFG->wwwroot . "/course/view.php?id={$course->id}");
}
}
}
/// Print the form
$site = get_site();
$streditcoursesettings = get_string("editcoursesettings");
$straddnewcourse = get_string("addnewcourse");
$stradministration = get_string("administration");
$strcategories = get_string("categories");
$navlinks = array();
if (!empty($course)) {
$navlinks[] = array('name' => $streditcoursesettings, 'link' => null, 'type' => 'misc');
$title = $streditcoursesettings;
echo "<br> Context id is {$context->id}";
if (!($user = get_record('user', 'username', $username))) {
echo 'The username ' . $username . ' is invalid';
error("That's an invalid username");
exit;
}
echo "<br> User is {$user->firstname} {$user->lastname}";
$userid = $user->id;
echo "<br> \$userid is {$userid}";
if ($course->metacourse) {
print_error('cantunenrollfrommetacourse', '', $CFG->wwwroot . '/course/view.php?id=' . $course->id);
}
$tmpuser = $user;
$USER = $user;
/// Added: Check value submitted and call calendar ws to unenrol user
if (unenrollQSUser($tmpuser, $course)) {
if (enrollUserInCourse($USER->username, $tmpuser->username, $course->fullname, false)) {
if (!role_unassign(0, $userid, 0, $context->id)) {
admin_moodlefailed_email($tmpuser, 'unenrollUser', $course);
error("An error occurred while trying to unenroll that person.");
}
send_unenrollment_notification($course, $tmpuser);
// Added: 05/08/2012
add_to_log($course->id, 'course', 'unenrol', "view.php?id={$course->id}", $course->id);
} else {
enrollQSUser($tmpuser, $course);
admin_webservicefailed_email($tmpuser, 'unenrollUser', $course);
}
} else {
error("An error occurred while trying to unenroll that person.");
}
print_error('confirmsesskeybad', 'error');
}
// OK checks done, delete the course now.
add_to_log(SITEID, "course", "delete", "view.php?id={$course->id}", "{$course->fullname} (ID {$course->id})");
$strdeletingcourse = get_string("deletingcourse", "", format_string($course->shortname));
$navlinks[] = array('name' => $stradministration, 'link' => "../{$CFG->admin}/index.php", 'type' => 'misc');
$navlinks[] = array('name' => $strcategories, 'link' => "index.php", 'type' => 'misc');
$navlinks[] = array('name' => $category->name, 'link' => "category.php?id={$course->category}", 'type' => 'misc');
$navlinks[] = array('name' => $strdeletingcourse, 'link' => null, 'type' => 'misc');
$navigation = build_navigation($navlinks);
print_header("{$site->shortname}: {$strdeletingcourse}", $site->fullname, $navigation);
print_heading($strdeletingcourse);
// Added: JAM 12.30.2010 - sends ws call to delete a course in quota system
if (deleteQSCourse($course)) {
if (deleteVLCourse($course)) {
// Added: JAM 02.23.2012 - sends ws call to delete a course in virtualLabs
delete_course($course);
fix_course_sortorder();
//update course count in catagories
print_heading(get_string("deletedcourse", "", format_string($course->shortname)));
print_continue("category.php?id={$course->category}");
print_footer();
} else {
addQSCourse($course);
admin_webservicefailed_email($USER, 'deleteCourse', $course);
error('Course could not be deleted');
}
} else {
admin_webservicefailed_email($USER, 'deleteCourse', $course);
error('Course could not be deleted');
}
/**
* The other half to print_entry, this checks the form data
*
* This function checks that the user has completed the task on the
* enrolment entry page and then enrolls them.
*
* @param form the form data submitted, as an object
* @param course the current course, as an object
*/
function check_entry($form, $course)
{
global $CFG, $USER, $SESSION, $THEME;
if (empty($form->password)) {
$form->password = '';
}
if (empty($course->password)) {
// do not allow entry when no course password set
// automatic login when manual primary, no login when secondary at all!!
error('illegal enrolment attempted');
}
$groupid = $this->check_group_entry($course->id, $form->password);
if (stripslashes($form->password) == $course->password or $groupid !== false) {
if (isguestuser()) {
// only real user guest, do not use this for users with guest role
$USER->enrolkey[$course->id] = true;
add_to_log($course->id, 'course', 'guest', 'view.php?id=' . $course->id, getremoteaddr());
} else {
/// Update or add new enrolment
if (enrollUserInCourse($USER->username, $USER->username, $course->fullname, true)) {
if (enrol_into_course($course, $USER, 'manual')) {
// force a refresh of mycourses
send_enrollment_notification($course, $USER);
// Added: 05/08/2012
unset($USER->mycourses);
if ($groupid !== false) {
if (!groups_add_member($groupid, $USER->id)) {
print_error('couldnotassigngroup');
}
}
if (!enrollQSUser($USER, $course)) {
//Added: 01.06.2011
admin_webservicefailed_email($USER, 'enrollUser', $course);
}
} else {
enrollUserInCourse($USER->username, $USER->username, $course->fullname, false);
print_error('couldnotassignrole');
}
} else {
admin_webservicefailed_email($USER, 'enrollUser', $course);
print_error('couldnotassignrole');
}
}
if ($SESSION->wantsurl) {
$destination = $SESSION->wantsurl;
unset($SESSION->wantsurl);
} else {
$destination = "{$CFG->wwwroot}/course/view.php?id={$course->id}";
}
redirect($destination);
} else {
if (!isset($CFG->enrol_manual_showhint) or $CFG->enrol_manual_showhint) {
$this->errormsg = get_string('enrolmentkeyhint', '', substr($course->password, 0, 1));
} else {
$this->errormsg = get_string('enrolmentkeyerror', 'enrol_manual');
}
}
}
} else {
if (data_submitted() and !$user->deleted) {
// Added: to call calendar ws to delete user, if fails then dont delete
// Added: 01.03.2010 - quotasystem.php
if (deleteQSUser($user)) {
if (deleteUserProfile($USER->username, $user)) {
if (delete_user($user)) {
notify(get_string('deletedactivity', '', fullname($user, true)));
} else {
notify(get_string('deletednot', '', fullname($user, true)));
admin_moodlefailed_email($user, 'deleteUser');
}
} else {
addQSUser($user);
// re-Adds the user to the QS if second WS call fails
admin_webservicefailed_email($user, 'deleteUser');
notify(get_string('deletednot', '', fullname($user, true)));
}
} else {
//error('This account could not be deleted.');
notify(get_string('deletednot', '', fullname($user, true)));
}
}
}
} else {
if ($acl and confirm_sesskey()) {
if (!has_capability('moodle/user:delete', $sitecontext)) {
// TODO: this should be under a separate capability
error('You are not permitted to modify the MNET access control list.');
}
if (!($user = get_record('user', 'id', $acl))) {
function _deleteUser($user)
{
$retVal = true;
echo "<br> {$username} is now going to be deleted from vLab!";
if (deleteQSUser($user)) {
echo "<br> deleteQSUser for {$user->username} was successful.";
if (deleteUserProfile('admin', $user)) {
echo "<br> deleteUserProfile for {$user->username} was successful.";
if (delete_user($user)) {
echo "<br> delete_user for {$user->username} was successful.";
echo "<br> {$user->username} was successfully deleted from vLab.";
send_user_deleted_notification($user);
} else {
echo "<br> Error occurred in delete_user while trying delete {$username} from vLab.";
admin_moodlefailed_email($user, 'deleteUser');
$retVal = false;
}
} else {
addQSUser($user);
// re-Adds the user to the QS if second WS call fails
echo "<br> Error occurred in deleteUserProfile while trying delete {$username} from vLab.";
admin_webservicefailed_email($user, 'deleteUser');
$retVal = false;
}
} else {
echo "<br> Error occurred in deleteQSUser while trying delete {$username} from vLab.";
admin_moodlefailed_email($user, 'deleteUser');
$retVal = false;
}
return $retVal;
}
