weekly release 3.9dev+
[moodle.git] / user / editlib.php
CommitLineData
8bdc9cac 1<?php
a2ed6e69
SH
2// This file is part of Moodle - http://moodle.org/
3//
4// Moodle is free software: you can redistribute it and/or modify
5// it under the terms of the GNU General Public License as published by
6// the Free Software Foundation, either version 3 of the License, or
7// (at your option) any later version.
8//
9// Moodle is distributed in the hope that it will be useful,
10// but WITHOUT ANY WARRANTY; without even the implied warranty of
11// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12// GNU General Public License for more details.
13//
14// You should have received a copy of the GNU General Public License
15// along with Moodle. If not, see <http://www.gnu.org/licenses/>.
ad6226fb 16
a2ed6e69
SH
17/**
18 * This file contains function used when editing a users profile and preferences.
19 *
20 * @copyright 1999 Martin Dougiamas http://dougiamas.com
21 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
22 * @package core_user
23 */
24
2159983a
DW
25require_once($CFG->dirroot . '/user/lib.php');
26
a2ed6e69
SH
27/**
28 * Cancels the requirement for a user to update their email address.
29 *
30 * @param int $userid
31 */
05c38e2b 32function cancel_email_update($userid) {
33 unset_user_preference('newemail', $userid);
34 unset_user_preference('newemailkey', $userid);
35 unset_user_preference('newemailattemptsleft', $userid);
36}
37
479fa47d
DW
38/**
39 * Performs the common access checks and page setup for all
40 * user preference pages.
41 *
42 * @param int $userid The user id to edit taken from the page params.
43 * @param int $courseid The optional course id if we came from a course context.
44 * @return array containing the user and course records.
45 */
46function useredit_setup_preference_page($userid, $courseid) {
47 global $PAGE, $SESSION, $DB, $CFG, $OUTPUT, $USER;
48
49 // Guest can not edit.
50 if (isguestuser()) {
51 print_error('guestnoeditprofile');
52 }
53
54 if (!$course = $DB->get_record('course', array('id' => $courseid))) {
55 print_error('invalidcourseid');
56 }
57
58 if ($course->id != SITEID) {
59 require_login($course);
60 } else if (!isloggedin()) {
61 if (empty($SESSION->wantsurl)) {
672f4836 62 $SESSION->wantsurl = $CFG->wwwroot.'/user/preferences.php';
479fa47d
DW
63 }
64 redirect(get_login_url());
65 } else {
66 $PAGE->set_context(context_system::instance());
67 }
68
69 // The user profile we are editing.
70 if (!$user = $DB->get_record('user', array('id' => $userid))) {
71 print_error('invaliduserid');
72 }
73
74 // Guest can not be edited.
75 if (isguestuser($user)) {
76 print_error('guestnoeditprofile');
77 }
78
79 // Remote users cannot be edited.
80 if (is_mnet_remote_user($user)) {
8df850ad 81 if (user_not_fully_set_up($user, false)) {
479fa47d
DW
82 $hostwwwroot = $DB->get_field('mnet_host', 'wwwroot', array('id' => $user->mnethostid));
83 print_error('usernotfullysetup', 'mnet', '', $hostwwwroot);
84 }
85 redirect($CFG->wwwroot . "/user/view.php?course={$course->id}");
86 }
87
88 $systemcontext = context_system::instance();
89 $personalcontext = context_user::instance($user->id);
90
91 // Check access control.
92 if ($user->id == $USER->id) {
93 // Editing own profile - require_login() MUST NOT be used here, it would result in infinite loop!
94 if (!has_capability('moodle/user:editownprofile', $systemcontext)) {
95 print_error('cannotedityourprofile');
96 }
97
98 } else {
99 // Teachers, parents, etc.
100 require_capability('moodle/user:editprofile', $personalcontext);
45367bdf 101
479fa47d
DW
102 // No editing of primary admin!
103 if (is_siteadmin($user) and !is_siteadmin($USER)) { // Only admins may edit other admins.
104 print_error('useradmineditadmin');
105 }
106 }
107
108 if ($user->deleted) {
109 echo $OUTPUT->header();
110 echo $OUTPUT->heading(get_string('userdeleted'));
111 echo $OUTPUT->footer();
112 die;
113 }
114
115 $PAGE->set_pagelayout('admin');
116 $PAGE->set_context($personalcontext);
117 if ($USER->id != $user->id) {
118 $PAGE->navigation->extend_for_user($user);
119 } else {
120 if ($node = $PAGE->navigation->find('myprofile', navigation_node::TYPE_ROOTNODE)) {
121 $node->force_open();
122 }
123 }
124
125 return array($user, $course);
126}
127
a2ed6e69
SH
128/**
129 * Loads the given users preferences into the given user object.
130 *
131 * @param stdClass $user The user object, modified by reference.
132 * @param bool $reload
133 */
05c38e2b 134function useredit_load_preferences(&$user, $reload=true) {
135 global $USER;
14a6b7e1 136
05c38e2b 137 if (!empty($user->id)) {
138 if ($reload and $USER->id == $user->id) {
a2ed6e69 139 // Reload preferences in case it was changed in other session.
05c38e2b 140 unset($USER->preference);
141 }
aa6c1ced 142
05c38e2b 143 if ($preferences = get_user_preferences(null, null, $user->id)) {
a2ed6e69 144 foreach ($preferences as $name => $value) {
05c38e2b 145 $user->{'preference_'.$name} = $value;
146 }
14a6b7e1 147 }
148 }
149}
150
a2ed6e69 151/**
6e65554e 152 * Updates the user preferences for the given user
a2ed6e69 153 *
6e65554e
MG
154 * Only preference that can be updated directly will be updated here. This method is called from various WS
155 * updating users and should be used when updating user details. Plugins may whitelist preferences that can
156 * be updated by defining 'user_preferences' callback, {@see core_user::fill_preferences_cache()}
157 *
158 * Some parts of code may use user preference table to store internal data, in these cases it is acceptable
159 * to call set_user_preference()
160 *
161 * @param stdClass|array $usernew object or array that has user preferences as attributes with keys starting with preference_
a2ed6e69 162 */
14a6b7e1 163function useredit_update_user_preference($usernew) {
6e65554e 164 global $USER;
14a6b7e1 165 $ua = (array)$usernew;
6e65554e
MG
166 if (is_object($usernew) && isset($usernew->id) && isset($usernew->deleted) && isset($usernew->confirmed)) {
167 // This is already a full user object, maybe not completely full but these fields are enough.
168 $user = $usernew;
169 } else if (empty($ua['id']) || $ua['id'] == $USER->id) {
170 // We are updating current user.
171 $user = $USER;
172 } else {
173 // Retrieve user object.
174 $user = core_user::get_user($ua['id'], '*', MUST_EXIST);
175 }
176
a2ed6e69 177 foreach ($ua as $key => $value) {
14a6b7e1 178 if (strpos($key, 'preference_') === 0) {
179 $name = substr($key, strlen('preference_'));
6e65554e
MG
180 if (core_user::can_edit_preference($name, $user)) {
181 $value = core_user::clean_preference($value, $name);
182 set_user_preference($name, $value, $user->id);
183 }
14a6b7e1 184 }
185 }
186}
187
4125bdc1 188/**
f6094cd9 189 * @deprecated since Moodle 3.2
5407c5b0 190 * @see core_user::update_picture()
4125bdc1 191 */
f6094cd9
MG
192function useredit_update_picture() {
193 throw new coding_exception('useredit_update_picture() can not be used anymore. Please use ' .
194 'core_user::update_picture() instead.');
14a6b7e1 195}
196
a2ed6e69
SH
197/**
198 * Updates the user email bounce + send counts when the user is edited.
199 *
200 * @param stdClass $user The current user object.
201 * @param stdClass $usernew The updated user object.
202 */
14a6b7e1 203function useredit_update_bounces($user, $usernew) {
204 if (!isset($usernew->email)) {
a2ed6e69 205 // Locked field.
14a6b7e1 206 return;
d8734783 207 }
a9457b54 208 if (!isset($user->email) || $user->email !== $usernew->email) {
a2ed6e69
SH
209 set_bounce_count($usernew, true);
210 set_send_count($usernew, true);
14a6b7e1 211 }
212}
213
a2ed6e69
SH
214/**
215 * Updates the forums a user is tracking when the user is edited.
216 *
217 * @param stdClass $user The original user object.
218 * @param stdClass $usernew The updated user object.
219 */
14a6b7e1 220function useredit_update_trackforums($user, $usernew) {
221 global $CFG;
222 if (!isset($usernew->trackforums)) {
a2ed6e69 223 // Locked field.
14a6b7e1 224 return;
225 }
a9457b54 226 if ((!isset($user->trackforums) || ($usernew->trackforums != $user->trackforums)) and !$usernew->trackforums) {
14a6b7e1 227 require_once($CFG->dirroot.'/mod/forum/lib.php');
228 forum_tp_delete_read_records($usernew->id);
229 }
230}
231
a2ed6e69
SH
232/**
233 * Updates a users interests.
234 *
235 * @param stdClass $user
236 * @param array $interests
237 */
c060fc6a 238function useredit_update_interests($user, $interests) {
c4e868d5
MG
239 core_tag_tag::set_item_tags('core', 'user', $user->id,
240 context_user::instance($user->id), $interests);
1e1c51a3 241}
242
a2ed6e69
SH
243/**
244 * Powerful function that is used by edit and editadvanced to add common form elements/rules/etc.
245 *
246 * @param moodleform $mform
d6e7a63d
PS
247 * @param array $editoroptions
248 * @param array $filemanageroptions
249 * @param stdClass $user
a2ed6e69 250 */
d6e7a63d 251function useredit_shared_definition(&$mform, $editoroptions, $filemanageroptions, $user) {
d6ace123 252 global $CFG, $USER, $DB;
253
d6e7a63d
PS
254 if ($user->id > 0) {
255 useredit_load_preferences($user, false);
256 }
14a6b7e1 257
258 $strrequired = get_string('required');
e9c27d1e 259 $stringman = get_string_manager();
d8734783 260
1cc3a9ae
AG
261 // Add the necessary names.
262 foreach (useredit_get_required_name_fields() as $fullname) {
2159983a
DW
263 $purpose = user_edit_map_field_purpose($user->id, $fullname);
264 $mform->addElement('text', $fullname, get_string($fullname), 'maxlength="100" size="30"' . $purpose);
e9c27d1e
DM
265 if ($stringman->string_exists('missing'.$fullname, 'core')) {
266 $strmissingfield = get_string('missing'.$fullname, 'core');
267 } else {
268 $strmissingfield = $strrequired;
269 }
270 $mform->addRule($fullname, $strmissingfield, 'required', null, 'client');
a327f25e
AG
271 $mform->setType($fullname, PARAM_NOTAGS);
272 }
d8734783 273
1cc3a9ae
AG
274 $enabledusernamefields = useredit_get_enabled_name_fields();
275 // Add the enabled additional name fields.
276 foreach ($enabledusernamefields as $addname) {
2159983a
DW
277 $purpose = user_edit_map_field_purpose($user->id, $addname);
278 $mform->addElement('text', $addname, get_string($addname), 'maxlength="100" size="30"' . $purpose);
a327f25e
AG
279 $mform->setType($addname, PARAM_NOTAGS);
280 }
d8734783 281
a2ed6e69 282 // Do not show email field if change confirmation is pending.
d6e7a63d 283 if ($user->id > 0 and !empty($CFG->emailchangeconfirmation) and !empty($user->preference_newemail)) {
c6a074f8 284 $notice = get_string('emailchangepending', 'auth', $user);
d6ace123 285 $notice .= '<br /><a href="edit.php?cancelemailchange=1&amp;id='.$user->id.'">'
c6a074f8 286 . get_string('emailchangecancel', 'auth') . '</a>';
d6ace123 287 $mform->addElement('static', 'emailpending', get_string('email'), $notice);
288 } else {
2159983a
DW
289 $purpose = user_edit_map_field_purpose($user->id, 'email');
290 $mform->addElement('text', 'email', get_string('email'), 'maxlength="100" size="30"' . $purpose);
d6ace123 291 $mform->addRule('email', $strrequired, 'required', null, 'client');
947ab40b 292 $mform->setType('email', PARAM_RAW_TRIMMED);
d6ace123 293 }
d8734783 294
479fa47d
DW
295 $choices = array();
296 $choices['0'] = get_string('emaildisplayno');
297 $choices['1'] = get_string('emaildisplayyes');
298 $choices['2'] = get_string('emaildisplaycourse');
299 $mform->addElement('select', 'maildisplay', get_string('emaildisplay'), $choices);
ac9768fc 300 $mform->setDefault('maildisplay', core_user::get_property_default('maildisplay'));
d2bba97d 301 $mform->addHelpButton('maildisplay', 'emaildisplay');
479fa47d 302
c5c0d2ff 303 $mform->addElement('text', 'city', get_string('city'), 'maxlength="120" size="21"');
071e68f9 304 $mform->setType('city', PARAM_TEXT);
fa7f750c
PS
305 if (!empty($CFG->defaultcity)) {
306 $mform->setDefault('city', $CFG->defaultcity);
307 }
d8734783 308
2159983a 309 $purpose = user_edit_map_field_purpose($user->id, 'country');
0aa759b0 310 $choices = get_string_manager()->get_list_of_countries();
a2ed6e69 311 $choices = array('' => get_string('selectacountry') . '...') + $choices;
2159983a 312 $mform->addElement('select', 'country', get_string('selectacountry'), $choices, $purpose);
d8734783 313 if (!empty($CFG->country)) {
ac9768fc 314 $mform->setDefault('country', core_user::get_property_default('country'));
d8734783 315 }
316
d6e7a63d
PS
317 if (isset($CFG->forcetimezone) and $CFG->forcetimezone != 99) {
318 $choices = core_date::get_list_of_timezones($CFG->forcetimezone);
d8734783 319 $mform->addElement('static', 'forcedtimezone', get_string('timezone'), $choices[$CFG->forcetimezone]);
d6e7a63d 320 $mform->addElement('hidden', 'timezone');
ac9768fc 321 $mform->setType('timezone', core_user::get_property_type('timezone'));
d8734783 322 } else {
d6e7a63d 323 $choices = core_date::get_list_of_timezones($user->timezone, true);
d8734783 324 $mform->addElement('select', 'timezone', get_string('timezone'), $choices);
d8734783 325 }
326
b6e594b1 327 if ($user->id < 0) {
2159983a
DW
328 $purpose = user_edit_map_field_purpose($user->id, 'lang');
329 $translations = get_string_manager()->get_list_of_translations();
330 $mform->addElement('select', 'lang', get_string('preferredlanguage'), $translations, $purpose);
b6e594b1
SA
331 $lang = empty($user->lang) ? $CFG->lang : $user->lang;
332 $mform->setDefault('lang', $lang);
333 }
334
d8734783 335 if (!empty($CFG->allowuserthemes)) {
ad6226fb 336 $choices = array();
d8734783 337 $choices[''] = get_string('default');
36798745 338 $themes = get_list_of_themes();
a2ed6e69 339 foreach ($themes as $key => $theme) {
36798745 340 if (empty($theme->hidefromselector)) {
d609d962 341 $choices[$key] = get_string('pluginname', 'theme_'.$theme->name);
36798745
SH
342 }
343 }
c3ed4a5a 344 $mform->addElement('select', 'theme', get_string('preferredtheme'), $choices);
d8734783 345 }
ad6226fb 346
8bdc9cac 347 $mform->addElement('editor', 'description_editor', get_string('userdescription'), null, $editoroptions);
067d0efe 348 $mform->setType('description_editor', PARAM_RAW);
27d1a27c 349 $mform->addHelpButton('description_editor', 'userdescription');
ad6226fb 350
689096bc 351 if (empty($USER->newadminuser)) {
757e89d2 352 $mform->addElement('header', 'moodle_picture', get_string('pictureofuser'));
80ef91ef 353 $mform->setExpanded('moodle_picture', true);
ad6226fb 354
4125bdc1 355 if (!empty($CFG->enablegravatar)) {
ed9e0cb6 356 $mform->addElement('html', html_writer::tag('p', get_string('gravatarenabled')));
4125bdc1
SH
357 }
358
d8734783 359 $mform->addElement('static', 'currentpicture', get_string('currentpicture'));
ad6226fb 360
febd7a62 361 $mform->addElement('checkbox', 'deletepicture', get_string('deletepicture'));
edfd6a5e 362 $mform->setDefault('deletepicture', 0);
ad6226fb 363
4e782b32 364 $mform->addElement('filemanager', 'imagefile', get_string('newpicture'), '', $filemanageroptions);
27d1a27c 365 $mform->addHelpButton('imagefile', 'newpicture');
ad6226fb 366
d8734783 367 $mform->addElement('text', 'imagealt', get_string('imagealt'), 'maxlength="100" size="30"');
071e68f9 368 $mform->setType('imagealt', PARAM_TEXT);
ad6226fb 369
d8734783 370 }
ad6226fb 371
1cc3a9ae
AG
372 // Display user name fields that are not currenlty enabled here if there are any.
373 $disabledusernamefields = useredit_get_disabled_name_fields($enabledusernamefields);
b63f542d 374 if (count($disabledusernamefields) > 0) {
a327f25e 375 $mform->addElement('header', 'moodle_additional_names', get_string('additionalnames'));
1cc3a9ae 376 foreach ($disabledusernamefields as $allname) {
2159983a
DW
377 $purpose = user_edit_map_field_purpose($user->id, $allname);
378 $mform->addElement('text', $allname, get_string($allname), 'maxlength="100" size="30"' . $purpose);
1cc3a9ae 379 $mform->setType($allname, PARAM_NOTAGS);
a327f25e 380 }
a327f25e
AG
381 }
382
c4e868d5 383 if (core_tag_tag::is_enabled('core', 'user') and empty($USER->newadminuser)) {
1e1c51a3 384 $mform->addElement('header', 'moodle_interests', get_string('interests'));
c4e868d5 385 $mform->addElement('tags', 'interests', get_string('interestslist'),
4be9c7ad 386 array('itemtype' => 'user', 'component' => 'core'));
27d1a27c 387 $mform->addHelpButton('interests', 'interestslist');
1e1c51a3 388 }
d6ace123 389
a2ed6e69 390 // Moodle optional fields.
c3ed4a5a 391 $mform->addElement('header', 'moodle_optional', get_string('optional', 'form'));
ad6226fb 392
d8734783 393 $mform->addElement('text', 'url', get_string('webpage'), 'maxlength="255" size="50"');
ac9768fc 394 $mform->setType('url', core_user::get_property_type('url'));
ad6226fb 395
d8734783 396 $mform->addElement('text', 'icq', get_string('icqnumber'), 'maxlength="15" size="25"');
ac9768fc 397 $mform->setType('icq', core_user::get_property_type('icq'));
525ef9c8 398 $mform->setForceLtr('icq');
ad6226fb 399
d8734783 400 $mform->addElement('text', 'skype', get_string('skypeid'), 'maxlength="50" size="25"');
ac9768fc 401 $mform->setType('skype', core_user::get_property_type('skype'));
525ef9c8 402 $mform->setForceLtr('skype');
ad6226fb 403
d8734783 404 $mform->addElement('text', 'aim', get_string('aimid'), 'maxlength="50" size="25"');
ac9768fc 405 $mform->setType('aim', core_user::get_property_type('aim'));
525ef9c8 406 $mform->setForceLtr('aim');
ad6226fb 407
d8734783 408 $mform->addElement('text', 'yahoo', get_string('yahooid'), 'maxlength="50" size="25"');
ac9768fc 409 $mform->setType('yahoo', core_user::get_property_type('yahoo'));
525ef9c8 410 $mform->setForceLtr('yahoo');
ad6226fb 411
d8734783 412 $mform->addElement('text', 'msn', get_string('msnid'), 'maxlength="50" size="25"');
ac9768fc 413 $mform->setType('msn', core_user::get_property_type('msn'));
525ef9c8 414 $mform->setForceLtr('msn');
ad6226fb 415
8b9cfac4 416 $mform->addElement('text', 'idnumber', get_string('idnumber'), 'maxlength="255" size="25"');
ac9768fc 417 $mform->setType('idnumber', core_user::get_property_type('idnumber'));
ad6226fb 418
a8fd33b0 419 $mform->addElement('text', 'institution', get_string('institution'), 'maxlength="255" size="25"');
ac9768fc 420 $mform->setType('institution', core_user::get_property_type('institution'));
ad6226fb 421
a8fd33b0 422 $mform->addElement('text', 'department', get_string('department'), 'maxlength="255" size="25"');
ac9768fc 423 $mform->setType('department', core_user::get_property_type('department'));
ad6226fb 424
70fb46c8 425 $mform->addElement('text', 'phone1', get_string('phone1'), 'maxlength="20" size="25"');
ac9768fc 426 $mform->setType('phone1', core_user::get_property_type('phone1'));
525ef9c8 427 $mform->setForceLtr('phone1');
ad6226fb 428
55ac3d6f 429 $mform->addElement('text', 'phone2', get_string('phone2'), 'maxlength="20" size="25"');
ac9768fc 430 $mform->setType('phone2', core_user::get_property_type('phone2'));
525ef9c8 431 $mform->setForceLtr('phone2');
ad6226fb 432
a8fd33b0 433 $mform->addElement('text', 'address', get_string('address'), 'maxlength="255" size="25"');
ac9768fc 434 $mform->setType('address', core_user::get_property_type('address'));
14a6b7e1 435}
ad6226fb 436
1cc3a9ae
AG
437/**
438 * Return required user name fields for forms.
439 *
440 * @return array required user name fields in order according to settings.
441 */
442function useredit_get_required_name_fields() {
443 global $CFG;
444
445 // Get the name display format.
446 $nameformat = $CFG->fullnamedisplay;
447
448 // Names that are required fields on user forms.
449 $necessarynames = array('firstname', 'lastname');
450 $languageformat = get_string('fullnamedisplay');
451
452 // Check that the language string and the $nameformat contain the necessary names.
453 foreach ($necessarynames as $necessaryname) {
454 $pattern = "/$necessaryname\b/";
455 if (!preg_match($pattern, $languageformat)) {
456 // If the language string has been altered then fall back on the below order.
457 $languageformat = 'firstname lastname';
458 }
459 if (!preg_match($pattern, $nameformat)) {
460 // If the nameformat doesn't contain the necessary name fields then use the languageformat.
461 $nameformat = $languageformat;
462 }
463 }
464
465 // Order all of the name fields in the postion they are written in the fullnamedisplay setting.
466 $necessarynames = order_in_string($necessarynames, $nameformat);
467 return $necessarynames;
468}
469
470/**
471 * Gets enabled (from fullnameformate setting) user name fields in appropriate order.
472 *
473 * @return array Enabled user name fields.
474 */
475function useredit_get_enabled_name_fields() {
476 global $CFG;
477
478 // Get all of the other name fields which are not ranked as necessary.
479 $additionalusernamefields = array_diff(get_all_user_name_fields(), array('firstname', 'lastname'));
480 // Find out which additional name fields are actually being used from the fullnamedisplay setting.
481 $enabledadditionalusernames = array();
482 foreach ($additionalusernamefields as $enabledname) {
483 if (strpos($CFG->fullnamedisplay, $enabledname) !== false) {
484 $enabledadditionalusernames[] = $enabledname;
485 }
486 }
487
488 // Order all of the name fields in the postion they are written in the fullnamedisplay setting.
489 $enabledadditionalusernames = order_in_string($enabledadditionalusernames, $CFG->fullnamedisplay);
490 return $enabledadditionalusernames;
491}
492
493/**
494 * Gets user name fields not enabled from the setting fullnamedisplay.
495 *
496 * @param array $enabledadditionalusernames Current enabled additional user name fields.
497 * @return array Disabled user name fields.
498 */
499function useredit_get_disabled_name_fields($enabledadditionalusernames = null) {
500 // If we don't have enabled additional user name information then go and fetch it (try to avoid).
501 if (!isset($enabledadditionalusernames)) {
502 $enabledadditionalusernames = useredit_get_enabled_name_fields();
503 }
504
505 // These are the additional fields that are not currently enabled.
506 $nonusednamefields = array_diff(get_all_user_name_fields(),
507 array_merge(array('firstname', 'lastname'), $enabledadditionalusernames));
508 return $nonusednamefields;
509}