just tweaking comment for easy greppage
[moodle.git] / lib / adminlib.php
CommitLineData
a4e10845 1<?php
88a7228a 2
3/**
4 * adminlib.php - Contains functions that only administrators will ever need to use
5 *
a4e10845 6 * @author Martin Dougiamas and many others
88a7228a 7 * @version $Id$
8 * @license http://www.gnu.org/copyleft/gpl.html GNU Public License
9 * @package moodlecore
10 */
11
8ddcdd86 12function upgrade_main_savepoint($result, $version) {
13 global $CFG;
14
15 if ($result) {
16 if ($CFG->version >= $version) {
17 // something really wrong is going on in main upgrade script
220a90c5 18 error("Upgrade savepoint: Can not upgrade main version from $CFG->version to $version.");
8ddcdd86 19 }
20 set_config('version', $version);
21 } else {
22 notify ("Upgrade savepoint: Error during main upgrade to version $version");
23 }
24}
25
26function upgrade_mod_savepoint($result, $version, $type) {
27 //TODO
28}
29
30function upgrade_plugin_savepoint($result, $version, $type, $dir) {
31 //TODO
32}
33
34function upgrade_backup_savepoint($result, $version) {
35 //TODO
36}
37
38function upgrade_blocks_savepoint($result, $version, $type) {
39 //TODO
40}
41
88a7228a 42/**
ead29342 43 * Upgrade plugins
88a7228a 44 *
45 * @uses $db
46 * @uses $CFG
ead29342 47 * @param string $type The type of plugins that should be updated (e.g. 'enrol', 'qtype')
48 * @param string $dir The directory where the plugins are located (e.g. 'question/questiontypes')
49 * @param string $return The url to prompt the user to continue to
eef868d1 50 */
ead29342 51function upgrade_plugins($type, $dir, $return) {
e69ef14b 52 global $CFG, $db;
173cc1c3 53
15999a93 54/// Let's know if the header has been printed, so the funcion is being called embedded in an outer page
55 $embedded = defined('HEADER_PRINTED');
56
bb7053f3 57 $plugs = get_list_of_plugins($dir);
583fad99 58 $updated_plugins = false;
59 $strpluginsetup = get_string('pluginsetup');
60
ead29342 61 foreach ($plugs as $plug) {
173cc1c3 62
ead29342 63 $fullplug = $CFG->dirroot .'/'.$dir.'/'. $plug;
173cc1c3 64
ead29342 65 unset($plugin);
173cc1c3 66
bbbf2d40 67 if (is_readable($fullplug .'/version.php')) {
ead29342 68 include_once($fullplug .'/version.php'); // defines $plugin with version etc
173cc1c3 69 } else {
70 continue; // Nothing to do.
71 }
72
e79a09a2 73 $oldupgrade = false;
74 $newupgrade = false;
7c006e34 75 if (is_readable($fullplug . '/db/'. $CFG->dbtype . '.php')) {
76 include_once($fullplug . '/db/'. $CFG->dbtype . '.php'); // defines old upgrading function
e79a09a2 77 $oldupgrade = true;
78 }
db8bd7a6 79 if (is_readable($fullplug . '/db/upgrade.php')) {
7c006e34 80 include_once($fullplug . '/db/upgrade.php'); // defines new upgrading function
e79a09a2 81 $newupgrade = true;
82 }
83
ead29342 84 if (!isset($plugin)) {
173cc1c3 85 continue;
86 }
87
ead29342 88 if (!empty($plugin->requires)) {
89 if ($plugin->requires > $CFG->version) {
acdd790f 90 $info = new object();
ead29342 91 $info->pluginname = $plug;
92 $info->pluginversion = $plugin->version;
173cc1c3 93 $info->currentmoodle = $CFG->version;
ead29342 94 $info->requiremoodle = $plugin->requires;
15999a93 95 if (!$updated_plugins && !$embedded) {
0be6f678 96 print_header($strpluginsetup, $strpluginsetup,
97 build_navigation(array(array('name' => $strpluginsetup, 'link' => null, 'type' => 'misc'))), '',
371a32e3 98 upgrade_get_javascript(), false, '&nbsp;', '&nbsp;');
583fad99 99 }
100 upgrade_log_start();
ead29342 101 notify(get_string('pluginrequirementsnotmet', 'error', $info));
583fad99 102 $updated_plugins = true;
173cc1c3 103 continue;
104 }
105 }
106
ead29342 107 $plugin->name = $plug; // The name MUST match the directory
173cc1c3 108
ead29342 109 $pluginversion = $type.'_'.$plug.'_version';
173cc1c3 110
ead29342 111 if (!isset($CFG->$pluginversion)) {
112 set_config($pluginversion, 0);
173cc1c3 113 }
eef868d1 114
ead29342 115 if ($CFG->$pluginversion == $plugin->version) {
173cc1c3 116 // do nothing
ead29342 117 } else if ($CFG->$pluginversion < $plugin->version) {
15999a93 118 if (!$updated_plugins && !$embedded) {
0be6f678 119 print_header($strpluginsetup, $strpluginsetup,
120 build_navigation(array(array('name' => $strpluginsetup, 'link' => null, 'type' => 'misc'))), '',
371a32e3 121 upgrade_get_javascript(), false, '&nbsp;', '&nbsp;');
173cc1c3 122 }
e79a09a2 123 $updated_plugins = true;
583fad99 124 upgrade_log_start();
05b42119 125 print_heading($dir.'/'. $plugin->name .' plugin needs upgrading');
e79a09a2 126 $db->debug = true;
127 @set_time_limit(0); // To allow slow databases to complete the long SQL
128
d87a9d73 129 if ($CFG->$pluginversion == 0) { // It's a new install of this plugin
e79a09a2 130 /// Both old .sql files and new install.xml are supported
131 /// but we priorize install.xml (XMLDB) if present
132 $status = false;
db8bd7a6 133 if (file_exists($fullplug . '/db/install.xml')) {
450cf307 134 $status = install_from_xmldb_file($fullplug . '/db/install.xml'); //New method
e79a09a2 135 } else if (file_exists($fullplug .'/db/'. $CFG->dbtype .'.sql')) {
136 $status = modify_database($fullplug .'/db/'. $CFG->dbtype .'.sql'); //Old method
eef868d1 137 } else {
7c006e34 138 $status = true;
d87a9d73 139 }
e79a09a2 140
141 $db->debug = false;
eef868d1 142 /// Continue with the instalation, roles and other stuff
e79a09a2 143 if ($status) {
3f59a54e 144 /// OK so far, now update the plugins record
e79a09a2 145 set_config($pluginversion, $plugin->version);
3f59a54e 146
147 /// Install capabilities
ae628043 148 if (!update_capabilities($type.'/'.$plug)) {
3f59a54e 149 error('Could not set up the capabilities for '.$plugin->name.'!');
e79a09a2 150 }
3f59a54e 151 /// Install events
0856223c 152 events_update_definition($type.'/'.$plug);
3f59a54e 153
154 /// Run local install function if there is one
155 if (is_readable($fullplug .'/lib.php')) {
9ba38673 156 include_once($fullplug .'/lib.php');
3f59a54e 157 $installfunction = $plugin->name.'_install';
158 if (function_exists($installfunction)) {
159 if (! $installfunction() ) {
160 notify('Encountered a problem running install function for '.$module->name.'!');
161 }
162 }
163 }
9ba38673 164
e79a09a2 165 notify(get_string('modulesuccess', '', $plugin->name), 'notifysuccess');
166 } else {
167 notify('Installing '. $plugin->name .' FAILED!');
168 }
d87a9d73 169 } else { // Upgrade existing install
e79a09a2 170 /// Run de old and new upgrade functions for the module
171 $oldupgrade_function = $type.'_'.$plugin->name .'_upgrade';
172 $newupgrade_function = 'xmldb_' . $type.'_'.$plugin->name .'_upgrade';
173
174 /// First, the old function if exists
175 $oldupgrade_status = true;
176 if ($oldupgrade && function_exists($oldupgrade_function)) {
177 $db->debug = true;
178 $oldupgrade_status = $oldupgrade_function($CFG->$pluginversion);
179 } else if ($oldupgrade) {
180 notify ('Upgrade function ' . $oldupgrade_function . ' was not available in ' .
181 $fullplug . '/db/' . $CFG->dbtype . '.php');
182 }
183
184 /// Then, the new function if exists and the old one was ok
185 $newupgrade_status = true;
186 if ($newupgrade && function_exists($newupgrade_function) && $oldupgrade_status) {
187 $db->debug = true;
188 $newupgrade_status = $newupgrade_function($CFG->$pluginversion);
189 } else if ($newupgrade) {
190 notify ('Upgrade function ' . $newupgrade_function . ' was not available in ' .
191 $fullplug . '/db/upgrade.php');
192 }
193
194 $db->debug=false;
195 /// Now analyze upgrade results
196 if ($oldupgrade_status && $newupgrade_status) { // No upgrading failed
197 // OK so far, now update the plugins record
198 set_config($pluginversion, $plugin->version);
ae628043 199 if (!update_capabilities($type.'/'.$plug)) {
e79a09a2 200 error('Could not update '.$plugin->name.' capabilities!');
d87a9d73 201 }
0856223c 202 events_update_definition($type.'/'.$plug);
e79a09a2 203 notify(get_string('modulesuccess', '', $plugin->name), 'notifysuccess');
204 } else {
205 notify('Upgrading '. $plugin->name .' from '. $CFG->$pluginversion .' to '. $plugin->version .' FAILED!');
173cc1c3 206 }
207 }
d87a9d73 208 echo '<hr />';
173cc1c3 209 } else {
583fad99 210 upgrade_log_start();
ead29342 211 error('Version mismatch: '. $plugin->name .' can\'t downgrade '. $CFG->$pluginversion .' -> '. $plugin->version .' !');
173cc1c3 212 }
213 }
214
583fad99 215 upgrade_log_finish();
216
15999a93 217 if ($updated_plugins && !$embedded) {
173cc1c3 218 print_continue($return);
acdd790f 219 print_footer('none');
173cc1c3 220 die;
221 }
222}
223
88a7228a 224/**
225 * Find and check all modules and load them up or upgrade them if necessary
226 *
227 * @uses $db
228 * @uses $CFG
229 * @param string $return The url to prompt the user to continue to
230 * @todo Finish documenting this function
eef868d1 231 */
173cc1c3 232function upgrade_activity_modules($return) {
173cc1c3 233
e69ef14b 234 global $CFG, $db;
173cc1c3 235
88a7228a 236 if (!$mods = get_list_of_plugins('mod') ) {
237 error('No modules installed!');
173cc1c3 238 }
239
583fad99 240 $updated_modules = false;
241 $strmodulesetup = get_string('modulesetup');
242
173cc1c3 243 foreach ($mods as $mod) {
244
88a7228a 245 if ($mod == 'NEWMODULE') { // Someone has unzipped the template, ignore it
173cc1c3 246 continue;
247 }
248
88a7228a 249 $fullmod = $CFG->dirroot .'/mod/'. $mod;
173cc1c3 250
251 unset($module);
252
88a7228a 253 if ( is_readable($fullmod .'/version.php')) {
254 include_once($fullmod .'/version.php'); // defines $module with version etc
173cc1c3 255 } else {
88a7228a 256 notify('Module '. $mod .': '. $fullmod .'/version.php was not readable');
173cc1c3 257 continue;
258 }
259
d6eb06b6 260 $oldupgrade = false;
261 $newupgrade = false;
7c006e34 262 if ( is_readable($fullmod .'/db/' . $CFG->dbtype . '.php')) {
263 include_once($fullmod .'/db/' . $CFG->dbtype . '.php'); // defines old upgrading function
d6eb06b6 264 $oldupgrade = true;
265 }
db8bd7a6 266 if ( is_readable($fullmod . '/db/upgrade.php')) {
7c006e34 267 include_once($fullmod . '/db/upgrade.php'); // defines new upgrading function
d6eb06b6 268 $newupgrade = true;
173cc1c3 269 }
270
271 if (!isset($module)) {
272 continue;
273 }
274
275 if (!empty($module->requires)) {
276 if ($module->requires > $CFG->version) {
acdd790f 277 $info = new object();
173cc1c3 278 $info->modulename = $mod;
279 $info->moduleversion = $module->version;
280 $info->currentmoodle = $CFG->version;
281 $info->requiremoodle = $module->requires;
583fad99 282 if (!$updated_modules) {
0be6f678 283 print_header($strmodulesetup, $strmodulesetup,
284 build_navigation(array(array('name' => $strmodulesetup, 'link' => null, 'type' => 'misc'))), '',
371a32e3 285 upgrade_get_javascript(), false, '&nbsp;', '&nbsp;');
583fad99 286 }
287 upgrade_log_start();
173cc1c3 288 notify(get_string('modulerequirementsnotmet', 'error', $info));
583fad99 289 $updated_modules = true;
173cc1c3 290 continue;
291 }
292 }
293
294 $module->name = $mod; // The name MUST match the directory
eef868d1 295
11e4a24b 296 include_once($fullmod.'/lib.php'); // defines upgrading and/or installing functions
297
88a7228a 298 if ($currmodule = get_record('modules', 'name', $module->name)) {
173cc1c3 299 if ($currmodule->version == $module->version) {
300 // do nothing
301 } else if ($currmodule->version < $module->version) {
d6eb06b6 302 /// If versions say that we need to upgrade but no upgrade files are available, notify and continue
303 if (!$oldupgrade && !$newupgrade) {
304 notify('Upgrade files ' . $mod . ': ' . $fullmod . '/db/' . $CFG->dbtype . '.php or ' .
305 $fullmod . '/db/upgrade.php were not readable');
306 continue;
307 }
583fad99 308 if (!$updated_modules) {
0be6f678 309 print_header($strmodulesetup, $strmodulesetup,
310 build_navigation(array(array('name' => $strmodulesetup, 'link' => null, 'type' => 'misc'))), '',
371a32e3 311 upgrade_get_javascript(), false, '&nbsp;', '&nbsp;');
173cc1c3 312 }
583fad99 313 upgrade_log_start();
88a7228a 314 print_heading($module->name .' module needs upgrading');
d6eb06b6 315
316 /// Run de old and new upgrade functions for the module
317 $oldupgrade_function = $module->name . '_upgrade';
318 $newupgrade_function = 'xmldb_' . $module->name . '_upgrade';
319
320 /// First, the old function if exists
321 $oldupgrade_status = true;
322 if ($oldupgrade && function_exists($oldupgrade_function)) {
323 $db->debug = true;
324 $oldupgrade_status = $oldupgrade_function($currmodule->version, $module);
8bc9ebc4 325 if (!$oldupgrade_status) {
326 notify ('Upgrade function ' . $oldupgrade_function .
220a90c5 327 ' did not complete successfully.');
8bc9ebc4 328 }
ba05965e 329 } else if ($oldupgrade) {
d6eb06b6 330 notify ('Upgrade function ' . $oldupgrade_function . ' was not available in ' .
331 $mod . ': ' . $fullmod . '/db/' . $CFG->dbtype . '.php');
d6eb06b6 332 }
333
334 /// Then, the new function if exists and the old one was ok
335 $newupgrade_status = true;
ba05965e 336 if ($newupgrade && function_exists($newupgrade_function) && $oldupgrade_status) {
d6eb06b6 337 $db->debug = true;
338 $newupgrade_status = $newupgrade_function($currmodule->version, $module);
8bc9ebc4 339 } else if ($newupgrade && $oldupgrade_status) {
d6eb06b6 340 notify ('Upgrade function ' . $newupgrade_function . ' was not available in ' .
341 $mod . ': ' . $fullmod . '/db/upgrade.php');
d6eb06b6 342 }
343
e79a09a2 344 $db->debug=false;
d6eb06b6 345 /// Now analyze upgrade results
668896e5 346 if ($oldupgrade_status && $newupgrade_status) { // No upgrading failed
d6eb06b6 347 // OK so far, now update the modules record
348 $module->id = $currmodule->id;
349 if (! update_record('modules', $module)) {
350 error('Could not update '. $module->name .' record in modules table!');
173cc1c3 351 }
d6eb06b6 352 remove_dir($CFG->dataroot . '/cache', true); // flush cache
353 notify(get_string('modulesuccess', '', $module->name), 'notifysuccess');
354 echo '<hr />';
355 } else {
d6eb06b6 356 notify('Upgrading '. $module->name .' from '. $currmodule->version .' to '. $module->version .' FAILED!');
173cc1c3 357 }
bbbf2d40 358
d6eb06b6 359 /// Update the capabilities table?
bbbf2d40 360 if (!update_capabilities('mod/'.$module->name)) {
361 error('Could not update '.$module->name.' capabilities!');
362 }
0856223c 363 events_update_definition('mod/'.$module->name);
bbbf2d40 364
173cc1c3 365 $updated_modules = true;
eef868d1 366
173cc1c3 367 } else {
583fad99 368 upgrade_log_start();
88a7228a 369 error('Version mismatch: '. $module->name .' can\'t downgrade '. $currmodule->version .' -> '. $module->version .' !');
173cc1c3 370 }
eef868d1 371
173cc1c3 372 } else { // module not installed yet, so install it
583fad99 373 if (!$updated_modules) {
0be6f678 374 print_header($strmodulesetup, $strmodulesetup,
375 build_navigation(array(array('name' => $strmodulesetup, 'link' => null, 'type' => 'misc'))), '',
371a32e3 376 upgrade_get_javascript(), false, '&nbsp;', '&nbsp;');
173cc1c3 377 }
583fad99 378 upgrade_log_start();
173cc1c3 379 print_heading($module->name);
380 $updated_modules = true;
381 $db->debug = true;
382 @set_time_limit(0); // To allow slow databases to complete the long SQL
d6eb06b6 383
384 /// Both old .sql files and new install.xml are supported
385 /// but we priorize install.xml (XMLDB) if present
db8bd7a6 386 if (file_exists($fullmod . '/db/install.xml')) {
d6eb06b6 387 $status = install_from_xmldb_file($fullmod . '/db/install.xml'); //New method
388 } else {
389 $status = modify_database($fullmod .'/db/'. $CFG->dbtype .'.sql'); //Old method
390 }
391
e79a09a2 392 $db->debug = false;
11e4a24b 393
394 /// Continue with the installation, roles and other stuff
d6eb06b6 395 if ($status) {
88a7228a 396 if ($module->id = insert_record('modules', $module)) {
11e4a24b 397
9ba38673 398 /// Capabilities
bbbf2d40 399 if (!update_capabilities('mod/'.$module->name)) {
400 error('Could not set up the capabilities for '.$module->name.'!');
401 }
9ba38673 402
11e4a24b 403 /// Events
0856223c 404 events_update_definition('mod/'.$module->name);
11e4a24b 405
406 /// Run local install function if there is one
407 $installfunction = $module->name.'_install';
408 if (function_exists($installfunction)) {
409 if (! $installfunction() ) {
410 notify('Encountered a problem running install function for '.$module->name.'!');
411 }
412 }
413
a8f68426 414 notify(get_string('modulesuccess', '', $module->name), 'notifysuccess');
88a7228a 415 echo '<hr />';
173cc1c3 416 } else {
88a7228a 417 error($module->name .' module could not be added to the module list!');
173cc1c3 418 }
eef868d1 419 } else {
88a7228a 420 error($module->name .' tables could NOT be set up successfully!');
173cc1c3 421 }
422 }
e5bd4e58 423
424 /// Check submodules of this module if necessary
425
e5bd4e58 426 $submoduleupgrade = $module->name.'_upgrade_submodules';
427 if (function_exists($submoduleupgrade)) {
428 $submoduleupgrade();
429 }
430
431
432 /// Run any defaults or final code that is necessary for this module
433
a5c0990e 434 if ( is_readable($fullmod .'/defaults.php')) {
435 // Insert default values for any important configuration variables
9e6e7502 436 unset($defaults);
220a90c5 437 include($fullmod .'/defaults.php'); // include here means execute, not library include
f9a2e515 438 if (!empty($defaults)) {
439 foreach ($defaults as $name => $value) {
440 if (!isset($CFG->$name)) {
441 set_config($name, $value);
442 }
a5c0990e 443 }
444 }
445 }
173cc1c3 446 }
447
583fad99 448 upgrade_log_finish(); // finish logging if started
449
450 if ($updated_modules) {
173cc1c3 451 print_continue($return);
acdd790f 452 print_footer('none');
173cc1c3 453 die;
454 }
455}
456
eef868d1 457/**
f3221af9 458 * This function will return FALSE if the lock fails to be set (ie, if it's already locked)
80be7ee3 459 *
460 * @param string $name ?
461 * @param bool $value ?
462 * @param int $staleafter ?
463 * @param bool $clobberstale ?
464 * @todo Finish documenting this function
f3221af9 465 */
466function set_cron_lock($name,$value=true,$staleafter=7200,$clobberstale=false) {
467
468 if (empty($name)) {
469 mtrace("Tried to get a cron lock for a null fieldname");
470 return false;
471 }
472
473 if (empty($value)) {
474 set_config($name,0);
475 return true;
476 }
477
478 if ($config = get_record('config','name',$name)) {
479 if (empty($config->value)) {
480 set_config($name,time());
481 } else {
482 // check for stale.
483 if ((time() - $staleafter) > $config->value) {
484 mtrace("STALE LOCKFILE FOR $name - was $config->value");
485 if (!empty($clobberstale)) {
486 set_config($name,time());
487 return true;
488 }
489 } else {
490 return false; // was not stale - ie, we're ok to still be running.
491 }
492 }
493 }
494 else {
495 set_config($name,time());
496 }
497 return true;
498}
a597f8a8 499
fb06b255 500function print_progress($done, $total, $updatetime=5, $sleeptime=1, $donetext='') {
a597f8a8 501 static $starttime;
502 static $lasttime;
503
26ea4888 504 if ($total < 2) { // No need to show anything
505 return;
506 }
507
a597f8a8 508 if (empty($starttime)) {
509 $starttime = $lasttime = time();
510 $lasttime = $starttime - $updatetime;
511 echo '<table width="500" cellpadding="0" cellspacing="0" align="center"><tr><td width="500">';
72da5046 512 echo '<div id="bar'.$total.'" style="border-style:solid;border-width:1px;width:500px;height:50px;">';
513 echo '<div id="slider'.$total.'" style="border-style:solid;border-width:1px;height:48px;width:10px;background-color:green;"></div>';
a597f8a8 514 echo '</div>';
72da5046 515 echo '<div id="text'.$total.'" align="center" style="width:500px;"></div>';
a597f8a8 516 echo '</td></tr></table>';
517 echo '</div>';
518 }
519
a597f8a8 520 $now = time();
521
522 if ($done && (($now - $lasttime) >= $updatetime)) {
523 $elapsedtime = $now - $starttime;
524 $projectedtime = (int)(((float)$total / (float)$done) * $elapsedtime) - $elapsedtime;
76317c73 525 $percentage = round((float)$done / (float)$total, 2);
a597f8a8 526 $width = (int)(500 * $percentage);
527
fb06b255 528 if ($projectedtime > 10) {
529 $projectedtext = ' Ending: '.format_time($projectedtime);
530 } else {
531 $projectedtext = '';
532 }
533
a597f8a8 534 echo '<script>';
aae37b63 535 echo 'document.getElementById("text'.$total.'").innerHTML = "'.addslashes($donetext).' ('.$done.'/'.$total.') '.$projectedtext.'";'."\n";
536 echo 'document.getElementById("slider'.$total.'").style.width = \''.$width.'px\';'."\n";
a597f8a8 537 echo '</script>';
538
539 $lasttime = $now;
540 sleep($sleeptime);
541 }
542}
583fad99 543
371a32e3 544function upgrade_get_javascript() {
545 global $CFG;
546
547 if (!empty($_SESSION['installautopilot'])) {
548 $linktoscrolltoerrors = '<script type="text/javascript">var installautopilot = true;</script>'."\n";
549 } else {
550 $linktoscrolltoerrors = '<script type="text/javascript">var installautopilot = false;</script>'."\n";
551 }
552 $linktoscrolltoerrors .= '<script type="text/javascript" src="' . $CFG->wwwroot . '/lib/scroll_to_errors.js"></script>';
553
554 return $linktoscrolltoerrors;
555}
ad6226fb 556
557function create_admin_user() {
558 global $CFG, $USER;
559
560 if (empty($CFG->rolesactive)) { // No admin user yet.
561
562 $user = new object();
563 $user->auth = 'manual';
564 $user->firstname = get_string('admin');
565 $user->lastname = get_string('user');
566 $user->username = 'admin';
567 $user->password = hash_internal_user_password('admin');
568 $user->email = 'root@localhost';
569 $user->confirmed = 1;
570 $user->mnethostid = $CFG->mnet_localhost_id;
571 $user->lang = $CFG->lang;
572 $user->maildisplay = 1;
573 $user->timemodified = time();
574
575 if (!$user->id = insert_record('user', $user)) {
576 error('SERIOUS ERROR: Could not create admin user record !!!');
577 }
578
579 if (!$user = get_record('user', 'id', $user->id)) { // Double check.
580 error('User ID was incorrect (can\'t find it)');
581 }
582
583 // Assign the default admin roles to the new user.
584 if (!$adminroles = get_roles_with_capability('moodle/legacy:admin', CAP_ALLOW)) {
585 error('No admin role could be found');
586 }
84c8ede0 587 $sitecontext = get_context_instance(CONTEXT_SYSTEM);
ad6226fb 588 foreach ($adminroles as $adminrole) {
589 role_assign($adminrole->id, $user->id, 0, $sitecontext->id);
590 }
591
592 set_config('rolesactive', 1);
593
594 // Log the user in.
595 $USER = get_complete_user_data('username', 'admin');
596 $USER->newadminuser = 1;
597 load_all_capabilities();
598
599 redirect("$CFG->wwwroot/user/editadvanced.php?id=$user->id"); // Edit thyself
600 } else {
601 error('Can not create admin!');
602 }
603}
604
583fad99 605////////////////////////////////////////////////
606/// upgrade logging functions
607////////////////////////////////////////////////
608
609$upgradeloghandle = false;
26c91c73 610$upgradelogbuffer = '';
611// I did not find out how to use static variable in callback function,
612// the problem was that I could not flush the static buffer :-(
613global $upgradeloghandle, $upgradelogbuffer;
583fad99 614
615/**
616 * Check if upgrade is already running.
617 *
618 * If anything goes wrong due to missing call to upgrade_log_finish()
619 * just restart the browser.
620 *
621 * @param string warning message indicating upgrade is already running
622 * @param int page reload timeout
623 */
624function upgrade_check_running($message, $timeout) {
625 if (!empty($_SESSION['upgraderunning'])) {
626 print_header();
627 redirect(me(), $message, $timeout);
628 }
629}
630
631/**
632 * Start logging of output into file (if not disabled) and
633 * prevent aborting and concurrent execution of upgrade script.
634 *
635 * Please note that you can not write into session variables after calling this function!
636 *
637 * This function may be called repeatedly.
638 */
639function upgrade_log_start() {
426a369b 640 global $CFG, $upgradeloghandle;
583fad99 641
642 if (!empty($_SESSION['upgraderunning'])) {
643 return; // logging already started
644 }
645
646 @ignore_user_abort(true); // ignore if user stops or otherwise aborts page loading
647 $_SESSION['upgraderunning'] = 1; // set upgrade indicator
426a369b 648 if (empty($CFG->dbsessions)) { // workaround for bug in adodb, db session can not be restarted
649 session_write_close(); // from now on user can reload page - will be displayed warning
650 }
583fad99 651 make_upload_directory('upgradelogs');
652 ob_start('upgrade_log_callback', 2); // function for logging to disk; flush each line of text ASAP
dedb2304 653 register_shutdown_function('upgrade_log_finish'); // in case somebody forgets to stop logging
583fad99 654}
655
656/**
657 * Terminate logging of output, flush all data, allow script aborting
658 * and reopen session for writing. Function error() does terminate the logging too.
659 *
660 * Please make sure that each upgrade_log_start() is properly terminated by
661 * this function or error().
662 *
663 * This function may be called repeatedly.
664 */
665function upgrade_log_finish() {
426a369b 666 global $CFG, $upgradeloghandle, $upgradelogbuffer;
583fad99 667
668 if (empty($_SESSION['upgraderunning'])) {
669 return; // logging already terminated
670 }
671
672 @ob_end_flush();
26c91c73 673 if ($upgradelogbuffer !== '') {
674 @fwrite($upgradeloghandle, $upgradelogbuffer);
40896537 675 $upgradelogbuffer = '';
26c91c73 676 }
677 if ($upgradeloghandle and ($upgradeloghandle !== 'error')) {
678 @fclose($upgradeloghandle);
40896537 679 $upgradeloghandle = false;
26c91c73 680 }
426a369b 681 if (empty($CFG->dbsessions)) {
682 @session_start(); // ignore header errors, we only need to reopen session
683 }
583fad99 684 $_SESSION['upgraderunning'] = 0; // clear upgrade indicator
685 if (connection_aborted()) {
686 die;
687 }
688 @ignore_user_abort(false);
689}
690
691/**
692 * Callback function for logging into files. Not more than one file is created per minute,
693 * upgrade session (terminated by upgrade_log_finish()) is always stored in one file.
694 *
695 * This function must not output any characters or throw warnigns and errors!
696 */
697function upgrade_log_callback($string) {
26c91c73 698 global $CFG, $upgradeloghandle, $upgradelogbuffer;
583fad99 699
700 if (empty($CFG->disableupgradelogging) and ($string != '') and ($upgradeloghandle !== 'error')) {
701 if ($upgradeloghandle or ($upgradeloghandle = @fopen($CFG->dataroot.'/upgradelogs/upg_'.date('Ymd-Hi').'.html', 'a'))) {
26c91c73 702 $upgradelogbuffer .= $string;
703 if (strlen($upgradelogbuffer) > 2048) { // 2kB write buffer
704 @fwrite($upgradeloghandle, $upgradelogbuffer);
705 $upgradelogbuffer = '';
706 }
583fad99 707 } else {
708 $upgradeloghandle = 'error';
709 }
710 }
711 return $string;
712}
713
57e35f32 714/**
715 * Try to verify that dataroot is not accessible from web.
716 * It is not 100% correct but might help to reduce number of vulnerable sites.
717 *
718 * Protection from httpd.conf and .htaccess is not detected properly.
719 */
720function is_dataroot_insecure() {
721 global $CFG;
722
723 $siteroot = str_replace('\\', '/', strrev($CFG->dirroot.'/')); // win32 backslash workaround
724
725 $rp = preg_replace('|https?://[^/]+|i', '', $CFG->wwwroot, 1);
726 $rp = strrev(trim($rp, '/'));
727 $rp = explode('/', $rp);
728 foreach($rp as $r) {
729 if (strpos($siteroot, '/'.$r.'/') === 0) {
730 $siteroot = substr($siteroot, strlen($r)+1); // moodle web in subdirectory
731 } else {
732 break; // probably alias root
733 }
734 }
735
736 $siteroot = strrev($siteroot);
737 $dataroot = str_replace('\\', '/', $CFG->dataroot.'/');
738
739 if (strpos($dataroot, $siteroot) === 0) {
740 return true;
741 }
742 return false;
743}
6e4dc10f 744
745/// =============================================================================================================
746/// administration tree classes and functions
747
748
749// n.b. documentation is still in progress for this code
750
751/// INTRODUCTION
752
753/// This file performs the following tasks:
754/// -it defines the necessary objects and interfaces to build the Moodle
755/// admin hierarchy
eef868d1 756/// -it defines the admin_externalpage_setup(), admin_externalpage_print_header(),
6e4dc10f 757/// and admin_externalpage_print_footer() functions used on admin pages
758
759/// ADMIN_SETTING OBJECTS
760
eef868d1 761/// Moodle settings are represented by objects that inherit from the admin_setting
6e4dc10f 762/// class. These objects encapsulate how to read a setting, how to write a new value
763/// to a setting, and how to appropriately display the HTML to modify the setting.
764
765/// ADMIN_SETTINGPAGE OBJECTS
766
767/// The admin_setting objects are then grouped into admin_settingpages. The latter
768/// appear in the Moodle admin tree block. All interaction with admin_settingpage
769/// objects is handled by the admin/settings.php file.
770
771/// ADMIN_EXTERNALPAGE OBJECTS
772
773/// There are some settings in Moodle that are too complex to (efficiently) handle
774/// with admin_settingpages. (Consider, for example, user management and displaying
775/// lists of users.) In this case, we use the admin_externalpage object. This object
776/// places a link to an external PHP file in the admin tree block.
777
778/// If you're using an admin_externalpage object for some settings, you can take
779/// advantage of the admin_externalpage_* functions. For example, suppose you wanted
780/// to add a foo.php file into admin. First off, you add the following line to
781/// admin/settings/first.php (at the end of the file) or to some other file in
782/// admin/settings:
783
eef868d1 784/// $ADMIN->add('userinterface', new admin_externalpage('foo', get_string('foo'),
6e4dc10f 785/// $CFG->wwwdir . '/' . '$CFG->admin . '/foo.php', 'some_role_permission'));
786
787/// Next, in foo.php, your file structure would resemble the following:
788
789/// require_once('.../config.php');
790/// require_once($CFG->libdir.'/adminlib.php');
1ae083e4 791/// admin_externalpage_setup('foo');
6e4dc10f 792/// // functionality like processing form submissions goes here
1ae083e4 793/// admin_externalpage_print_header();
6e4dc10f 794/// // your HTML goes here
1ae083e4 795/// admin_externalpage_print_footer();
6e4dc10f 796
797/// The admin_externalpage_setup() function call ensures the user is logged in,
798/// and makes sure that they have the proper role permission to access the page.
799
800/// The admin_externalpage_print_header() function prints the header (it figures
801/// out what category and subcategories the page is classified under) and ensures
802/// that you're using the admin pagelib (which provides the admin tree block and
803/// the admin bookmarks block).
804
805/// The admin_externalpage_print_footer() function properly closes the tables
806/// opened up by the admin_externalpage_print_header() function and prints the
807/// standard Moodle footer.
808
809/// ADMIN_CATEGORY OBJECTS
810
811/// Above and beyond all this, we have admin_category objects. These objects
812/// appear as folders in the admin tree block. They contain admin_settingpage's,
813/// admin_externalpage's, and other admin_category's.
814
815/// OTHER NOTES
816
817/// admin_settingpage's, admin_externalpage's, and admin_category's all inherit
818/// from part_of_admin_tree (a pseudointerface). This interface insists that
819/// a class has a check_access method for access permissions, a locate method
220a90c5 820/// used to find a specific node in the admin tree and find parent path.
6e4dc10f 821
822/// admin_category's inherit from parentable_part_of_admin_tree. This pseudo-
823/// interface ensures that the class implements a recursive add function which
824/// accepts a part_of_admin_tree object and searches for the proper place to
825/// put it. parentable_part_of_admin_tree implies part_of_admin_tree.
826
827/// Please note that the $this->name field of any part_of_admin_tree must be
828/// UNIQUE throughout the ENTIRE admin tree.
829
830/// The $this->name field of an admin_setting object (which is *not* part_of_
831/// admin_tree) must be unique on the respective admin_settingpage where it is
832/// used.
833
834
6e4dc10f 835/// CLASS DEFINITIONS /////////////////////////////////////////////////////////
836
837/**
838 * Pseudointerface for anything appearing in the admin tree
839 *
840 * The pseudointerface that is implemented by anything that appears in the admin tree
841 * block. It forces inheriting classes to define a method for checking user permissions
842 * and methods for finding something in the admin tree.
843 *
844 * @author Vincenzo K. Marcovecchio
845 * @package admin
846 */
847class part_of_admin_tree {
848
849 /**
850 * Finds a named part_of_admin_tree.
851 *
852 * Used to find a part_of_admin_tree. If a class only inherits part_of_admin_tree
853 * and not parentable_part_of_admin_tree, then this function should only check if
854 * $this->name matches $name. If it does, it should return a reference to $this,
855 * otherwise, it should return a reference to NULL.
856 *
857 * If a class inherits parentable_part_of_admin_tree, this method should be called
858 * recursively on all child objects (assuming, of course, the parent object's name
859 * doesn't match the search criterion).
860 *
861 * @param string $name The internal name of the part_of_admin_tree we're searching for.
862 * @return mixed An object reference or a NULL reference.
863 */
eef868d1 864 function &locate($name) {
865 trigger_error('Admin class does not implement method <strong>locate()</strong>', E_USER_WARNING);
866 return;
6e4dc10f 867 }
4672d955 868
869 /**
870 * Removes named part_of_admin_tree.
871 *
872 * @param string $name The internal name of the part_of_admin_tree we want to remove.
a8a66c96 873 * @return bool success.
4672d955 874 */
875 function prune($name) {
eef868d1 876 trigger_error('Admin class does not implement method <strong>prune()</strong>', E_USER_WARNING);
4672d955 877 return;
eef868d1 878 }
4672d955 879
220a90c5 880 /**
881 * Search using query
882 * @param strin query
883 * @return mixed array-object structure of found settings and pages
884 */
885 function search($query) {
886 trigger_error('Admin class does not implement method <strong>search()</strong>', E_USER_WARNING);
887 return;
888 }
889
6e4dc10f 890 /**
891 * Verifies current user's access to this part_of_admin_tree.
892 *
893 * Used to check if the current user has access to this part of the admin tree or
894 * not. If a class only inherits part_of_admin_tree and not parentable_part_of_admin_tree,
895 * then this method is usually just a call to has_capability() in the site context.
896 *
897 * If a class inherits parentable_part_of_admin_tree, this method should return the
898 * logical OR of the return of check_access() on all child objects.
899 *
900 * @return bool True if the user has access, false if she doesn't.
901 */
eef868d1 902 function check_access() {
903 trigger_error('Admin class does not implement method <strong>check_access()</strong>', E_USER_WARNING);
904 return;
6e4dc10f 905 }
eef868d1 906
a8a66c96 907 /**
908 * Mostly usefull for removing of some parts of the tree in admin tree block.
909 *
910 * @return True is hidden from normal list view
911 */
912 function is_hidden() {
913 trigger_error('Admin class does not implement method <strong>is_hidden()</strong>', E_USER_WARNING);
914 return;
915 }
6e4dc10f 916}
917
918/**
919 * Pseudointerface implemented by any part_of_admin_tree that has children.
920 *
921 * The pseudointerface implemented by any part_of_admin_tree that can be a parent
922 * to other part_of_admin_tree's. (For now, this only includes admin_category.) Apart
eef868d1 923 * from ensuring part_of_admin_tree compliancy, it also ensures inheriting methods
6e4dc10f 924 * include an add method for adding other part_of_admin_tree objects as children.
925 *
926 * @author Vincenzo K. Marcovecchio
927 * @package admin
928 */
929class parentable_part_of_admin_tree extends part_of_admin_tree {
eef868d1 930
6e4dc10f 931 /**
932 * Adds a part_of_admin_tree object to the admin tree.
933 *
934 * Used to add a part_of_admin_tree object to this object or a child of this
935 * object. $something should only be added if $destinationname matches
936 * $this->name. If it doesn't, add should be called on child objects that are
937 * also parentable_part_of_admin_tree's.
938 *
939 * @param string $destinationname The internal name of the new parent for $something.
940 * @param part_of_admin_tree &$something The object to be added.
941 * @return bool True on success, false on failure.
942 */
220a90c5 943 function add($destinationname, $something) {
eef868d1 944 trigger_error('Admin class does not implement method <strong>add()</strong>', E_USER_WARNING);
945 return;
6e4dc10f 946 }
eef868d1 947
6e4dc10f 948}
949
950/**
951 * The object used to represent folders (a.k.a. categories) in the admin tree block.
eef868d1 952 *
6e4dc10f 953 * Each admin_category object contains a number of part_of_admin_tree objects.
954 *
955 * @author Vincenzo K. Marcovecchio
956 * @package admin
957 */
958class admin_category extends parentable_part_of_admin_tree {
959
960 /**
961 * @var mixed An array of part_of_admin_tree objects that are this object's children
962 */
963 var $children;
eef868d1 964
6e4dc10f 965 /**
966 * @var string An internal name for this category. Must be unique amongst ALL part_of_admin_tree objects
967 */
968 var $name;
eef868d1 969
6e4dc10f 970 /**
971 * @var string The displayed name for this category. Usually obtained through get_string()
972 */
973 var $visiblename;
eef868d1 974
a8a66c96 975 /**
976 * @var bool Should this category be hidden in admin tree block?
977 */
978 var $hidden;
979
220a90c5 980 /**
981 * paths
982 */
983 var $path;
984 var $visiblepath;
6e4dc10f 985
986 /**
987 * Constructor for an empty admin category
988 *
989 * @param string $name The internal name for this category. Must be unique amongst ALL part_of_admin_tree objects
990 * @param string $visiblename The displayed named for this category. Usually obtained through get_string()
a8a66c96 991 * @param bool $hidden hide category in admin tree block
6e4dc10f 992 */
220a90c5 993 function admin_category($name, $visiblename, $hidden=false) {
994 $this->children = array();
995 $this->name = $name;
6e4dc10f 996 $this->visiblename = $visiblename;
220a90c5 997 $this->hidden = $hidden;
6e4dc10f 998 }
eef868d1 999
6e4dc10f 1000 /**
220a90c5 1001 * Returns a reference to the part_of_admin_tree object with internal name $name.
6e4dc10f 1002 *
220a90c5 1003 * @param string $name The internal name of the object we want.
1004 * @param bool $findpath initialize path and visiblepath arrays
1005 * @return mixed A reference to the object with internal name $name if found, otherwise a reference to NULL.
6e4dc10f 1006 */
220a90c5 1007 function &locate($name, $findpath=false) {
6e4dc10f 1008 if ($this->name == $name) {
220a90c5 1009 if ($findpath) {
1010 $this->visiblepath[] = $this->visiblename;
1011 $this->path[] = $this->name;
1012 }
1013 return $this;
6e4dc10f 1014 }
eef868d1 1015
220a90c5 1016 $return = NULL;
1017 foreach($this->children as $childid=>$unused) {
1018 if ($return =& $this->children[$childid]->locate($name, $findpath)) {
1019 break;
6e4dc10f 1020 }
1021 }
eef868d1 1022
220a90c5 1023 if (!is_null($return) and $findpath) {
1024 $return->visiblepath[] = $this->visiblename;
1025 $return->path[] = $this->name;
1026 }
eef868d1 1027
220a90c5 1028 return $return;
6e4dc10f 1029 }
1030
1031 /**
220a90c5 1032 * Search using query
1033 * @param strin query
1034 * @return mixed array-object structure of found settings and pages
6e4dc10f 1035 */
220a90c5 1036 function search($query) {
1037 $result = array();
1038 foreach ($this->children as $child) {
3cea9c55 1039 $subsearch = $child->search($query);
1040 if (!is_array($subsearch)) {
1041 debugging('Incorrect search result from '.$child->name);
1042 continue;
1043 }
1044 $result = array_merge($result, $subsearch);
6e4dc10f 1045 }
220a90c5 1046 return $result;
6e4dc10f 1047 }
1048
4672d955 1049 /**
1050 * Removes part_of_admin_tree object with internal name $name.
1051 *
1052 * @param string $name The internal name of the object we want to remove.
a8a66c96 1053 * @return bool success
4672d955 1054 */
1055 function prune($name) {
1056
1057 if ($this->name == $name) {
1058 return false; //can not remove itself
1059 }
1060
1061 foreach($this->children as $precedence => $child) {
1062 if ($child->name == $name) {
1063 // found it!
eef868d1 1064 unset($this->children[$precedence]);
4672d955 1065 return true;
1066 }
1067 if ($this->children[$precedence]->prune($name)) {
1068 return true;
1069 }
1070 }
1071 return false;
1072 }
1073
6e4dc10f 1074 /**
1075 * Adds a part_of_admin_tree to a child or grandchild (or great-grandchild, and so forth) of this object.
1076 *
220a90c5 1077 * @param string $destinationame The internal name of the immediate parent that we want for $something.
1078 * @param mixed $something A part_of_admin_tree or setting instanceto be added.
1079 * @return bool True if successfully added, false if $something can not be added.
6e4dc10f 1080 */
220a90c5 1081 function add($parentname, $something) {
1082 $parent =& $this->locate($parentname);
1083 if (is_null($parent)) {
1084 debugging('parent does not exist!');
6e4dc10f 1085 return false;
1086 }
1087
220a90c5 1088 if (is_a($something, 'part_of_admin_tree')) {
1089 if (!is_a($parent, 'parentable_part_of_admin_tree')) {
1090 debugging('error - parts of tree can be inserted only into parentable parts');
1091 return false;
6e4dc10f 1092 }
220a90c5 1093 $parent->children[] = $something;
6e4dc10f 1094 return true;
eef868d1 1095
220a90c5 1096 } else {
1097 debugging('error - can not add this element');
1098 return false;
6e4dc10f 1099 }
eef868d1 1100
6e4dc10f 1101 }
eef868d1 1102
6e4dc10f 1103 /**
1104 * Checks if the user has access to anything in this category.
1105 *
1106 * @return bool True if the user has access to atleast one child in this category, false otherwise.
1107 */
1108 function check_access() {
6e4dc10f 1109 foreach ($this->children as $child) {
220a90c5 1110 if ($child->check_access()) {
1111 return true;
1112 }
6e4dc10f 1113 }
220a90c5 1114 return false;
6e4dc10f 1115 }
eef868d1 1116
a8a66c96 1117 /**
1118 * Is this category hidden in admin tree block?
1119 *
1120 * @return bool True if hidden
1121 */
1122 function is_hidden() {
1123 return $this->hidden;
1124 }
6e4dc10f 1125}
1126
220a90c5 1127class admin_root extends admin_category {
1128 /**
1129 * list of errors
1130 */
1131 var $errors;
1132
1133 /**
1134 * search query
1135 */
1136 var $search;
1137
1138 /**
1139 * full tree flag - true means all settings required, false onlypages required
1140 */
1141 var $fulltree;
1142
1143
1144 function admin_root() {
1145 parent::admin_category('root', get_string('administration'), false);
1146 $this->errors = array();
1147 $this->search = '';
1148 $this->fulltree = true;
1149 }
1150}
1151
6e4dc10f 1152/**
1153 * Links external PHP pages into the admin tree.
1154 *
1155 * See detailed usage example at the top of this document (adminlib.php)
1156 *
1157 * @author Vincenzo K. Marcovecchio
1158 * @package admin
1159 */
1160class admin_externalpage extends part_of_admin_tree {
1161
eef868d1 1162 /**
6e4dc10f 1163 * @var string An internal name for this external page. Must be unique amongst ALL part_of_admin_tree objects
1164 */
1165 var $name;
eef868d1 1166
6e4dc10f 1167 /**
1168 * @var string The displayed name for this external page. Usually obtained through get_string().
1169 */
1170 var $visiblename;
eef868d1 1171
6e4dc10f 1172 /**
1173 * @var string The external URL that we should link to when someone requests this external page.
1174 */
1175 var $url;
eef868d1 1176
6e4dc10f 1177 /**
1178 * @var string The role capability/permission a user must have to access this external page.
1179 */
2ce38b70 1180 var $req_capability;
eef868d1 1181
84c8ede0 1182 /**
1183 * @var object The context in which capability/permission should be checked, default is site context.
1184 */
1185 var $context;
1186
a8a66c96 1187 /**
1188 * @var bool hidden in admin tree block.
1189 */
1190 var $hidden;
1191
220a90c5 1192 /**
1193 * visible path
1194 */
1195 var $path;
1196 var $visiblepath;
1197
6e4dc10f 1198 /**
1199 * Constructor for adding an external page into the admin tree.
1200 *
1201 * @param string $name The internal name for this external page. Must be unique amongst ALL part_of_admin_tree objects.
1202 * @param string $visiblename The displayed name for this external page. Usually obtained through get_string().
1203 * @param string $url The external URL that we should link to when someone requests this external page.
38d2d43b 1204 * @param mixed $req_capability The role capability/permission a user must have to access this external page. Defaults to 'moodle/site:config'.
6e4dc10f 1205 */
220a90c5 1206 function admin_externalpage($name, $visiblename, $url, $req_capability='moodle/site:config', $hidden=false, $context=NULL) {
1207 $this->name = $name;
6e4dc10f 1208 $this->visiblename = $visiblename;
220a90c5 1209 $this->url = $url;
38d2d43b 1210 if (is_array($req_capability)) {
1211 $this->req_capability = $req_capability;
1212 } else {
1213 $this->req_capability = array($req_capability);
1214 }
220a90c5 1215 $this->hidden = $hidden;
84c8ede0 1216 $this->context = $context;
6e4dc10f 1217 }
eef868d1 1218
6e4dc10f 1219 /**
1220 * Returns a reference to the part_of_admin_tree object with internal name $name.
1221 *
1222 * @param string $name The internal name of the object we want.
1223 * @return mixed A reference to the object with internal name $name if found, otherwise a reference to NULL.
1224 */
220a90c5 1225 function &locate($name, $findpath=false) {
1226 if ($this->name == $name) {
1227 if ($findpath) {
1228 $this->visiblepath = array($this->visiblename);
1229 $this->path = array($this->name);
1230 }
1231 return $this;
1232 } else {
1233 $return = NULL;
1234 return $return;
1235 }
6e4dc10f 1236 }
4672d955 1237
1238 function prune($name) {
1239 return false;
1240 }
1241
220a90c5 1242 /**
1243 * Search using query
1244 * @param strin query
1245 * @return mixed array-object structure of found settings and pages
1246 */
1247 function search($query) {
1248 $textlib = textlib_get_instance();
1249
1250 $found = false;
1251 if (strpos(strtolower($this->name), $query) !== false) {
1252 $found = true;
1253 } else if (strpos($textlib->strtolower($this->visiblename), $query) !== false) {
1254 $found = true;
1255 }
1256 if ($found) {
1257 $result = new object();
1258 $result->page = $this;
1259 $result->settings = array();
1260 return array($this->name => $result);
1261 } else {
1262 return array();
1263 }
1264 }
1265
6e4dc10f 1266 /**
2ce38b70 1267 * Determines if the current user has access to this external page based on $this->req_capability.
6e4dc10f 1268 * @return bool True if user has access, false otherwise.
1269 */
1270 function check_access() {
1271 if (!get_site()) {
1272 return true; // no access check before site is fully set up
1273 }
84c8ede0 1274 $context = empty($this->context) ? get_context_instance(CONTEXT_SYSTEM) : $this->context;
38d2d43b 1275 foreach($this->req_capability as $cap) {
1276 if (has_capability($cap, $context)) {
1277 return true;
1278 }
1279 }
1280 return false;
6e4dc10f 1281 }
1282
a8a66c96 1283 /**
1284 * Is this external page hidden in admin tree block?
1285 *
1286 * @return bool True if hidden
1287 */
1288 function is_hidden() {
1289 return $this->hidden;
1290 }
1291
6e4dc10f 1292}
1293
1294/**
1295 * Used to group a number of admin_setting objects into a page and add them to the admin tree.
1296 *
1297 * @author Vincenzo K. Marcovecchio
1298 * @package admin
1299 */
1300class admin_settingpage extends part_of_admin_tree {
1301
eef868d1 1302 /**
6e4dc10f 1303 * @var string An internal name for this external page. Must be unique amongst ALL part_of_admin_tree objects
1304 */
1305 var $name;
eef868d1 1306
6e4dc10f 1307 /**
1308 * @var string The displayed name for this external page. Usually obtained through get_string().
1309 */
1310 var $visiblename;
1311 /**
1312 * @var mixed An array of admin_setting objects that are part of this setting page.
1313 */
1314 var $settings;
eef868d1 1315
6e4dc10f 1316 /**
1317 * @var string The role capability/permission a user must have to access this external page.
1318 */
2ce38b70 1319 var $req_capability;
eef868d1 1320
84c8ede0 1321 /**
1322 * @var object The context in which capability/permission should be checked, default is site context.
1323 */
1324 var $context;
1325
a8a66c96 1326 /**
1327 * @var bool hidden in admin tree block.
1328 */
1329 var $hidden;
1330
220a90c5 1331 /**
1332 * paths
1333 */
1334 var $path;
1335 var $visiblepath;
1336
1337 // see admin_externalpage
1338 function admin_settingpage($name, $visiblename, $req_capability='moodle/site:config', $hidden=false, $context=NULL) {
1339 $this->settings = new object();
1340 $this->name = $name;
1341 $this->visiblename = $visiblename;
1342 if (is_array($req_capability)) {
1343 $this->req_capability = $req_capability;
6e4dc10f 1344 } else {
220a90c5 1345 $this->req_capability = array($req_capability);
6e4dc10f 1346 }
220a90c5 1347 $this->hidden = $hidden;
1348 $this->context = $context;
6e4dc10f 1349 }
eef868d1 1350
6e4dc10f 1351 // see admin_category
220a90c5 1352 function &locate($name, $findpath=false) {
1353 if ($this->name == $name) {
1354 if ($findpath) {
1355 $this->visiblepath = array($this->visiblename);
1356 $this->path = array($this->name);
1357 }
1358 return $this;
1359 } else {
1360 $return = NULL;
1361 return $return;
1362 }
6e4dc10f 1363 }
4672d955 1364
220a90c5 1365 function search($query) {
1366 $found = array();
4672d955 1367
220a90c5 1368 foreach ($this->settings as $setting) {
1369 if ($setting->is_related($query)) {
1370 $found[] = $setting;
1371 }
1372 }
1373
1374 if ($found) {
1375 $result = new object();
1376 $result->page = $this;
1377 $result->settings = $found;
1378 return array($this->name => $result);
1379 }
1380
1381 $textlib = textlib_get_instance();
1382
1383 $found = false;
1384 if (strpos(strtolower($this->name), $query) !== false) {
1385 $found = true;
1386 } else if (strpos($textlib->strtolower($this->visiblename), $query) !== false) {
1387 $found = true;
1388 }
1389 if ($found) {
1390 $result = new object();
1391 $result->page = $this;
1392 $result->settings = array();
1393 return array($this->name => $result);
38d2d43b 1394 } else {
220a90c5 1395 return array();
38d2d43b 1396 }
6e4dc10f 1397 }
eef868d1 1398
220a90c5 1399 function prune($name) {
6e4dc10f 1400 return false;
1401 }
eef868d1 1402
220a90c5 1403 /**
1404 * not the same as add for admin_category. adds an admin_setting to this admin_settingpage. settings appear (on the settingpage) in the order in which they're added
1405 * n.b. each admin_setting in an admin_settingpage must have a unique internal name
1406 * @param object $setting is the admin_setting object you want to add
1407 * @return true if successful, false if not
1408 */
1409 function add($setting) {
1410 if (!is_a($setting, 'admin_setting')) {
1411 debugging('error - not a setting instance');
1412 return false;
1413 }
1414
1415 $this->settings->{$setting->name} = $setting;
1416 return true;
1417 }
1418
6e4dc10f 1419 // see admin_externalpage
1420 function check_access() {
1421 if (!get_site()) {
1422 return true; // no access check before site is fully set up
1423 }
84c8ede0 1424 $context = empty($this->context) ? get_context_instance(CONTEXT_SYSTEM) : $this->context;
38d2d43b 1425 foreach($this->req_capability as $cap) {
1426 if (has_capability($cap, $context)) {
1427 return true;
1428 }
1429 }
1430 return false;
6e4dc10f 1431 }
eef868d1 1432
220a90c5 1433 /**
1434 * outputs this page as html in a table (suitable for inclusion in an admin pagetype)
1435 * returns a string of the html
1436 */
6e4dc10f 1437 function output_html() {
220a90c5 1438 $adminroot =& admin_get_root();
1439 $return = '<fieldset>'."\n".'<div class="clearer"><!-- --></div>'."\n";
6e4dc10f 1440 foreach($this->settings as $setting) {
220a90c5 1441 $fullname = $setting->get_full_name();
1442 if (array_key_exists($fullname, $adminroot->errors)) {
1443 $data = $adminroot->errors[$fullname]->data;
6e4dc10f 1444 } else {
220a90c5 1445 $data = $setting->get_setting();
1446 if (is_null($data)) {
1447 $data = $setting->get_defaultsetting();
1448 }
6e4dc10f 1449 }
220a90c5 1450 $return .= $setting->output_html($data);
6e4dc10f 1451 }
220a90c5 1452 $return .= '</fieldset>';
6e4dc10f 1453 return $return;
1454 }
1455
a8a66c96 1456 /**
1457 * Is this settigns page hidden in admin tree block?
1458 *
1459 * @return bool True if hidden
1460 */
1461 function is_hidden() {
1462 return $this->hidden;
1463 }
1464
6e4dc10f 1465}
1466
1467
220a90c5 1468/**
1469 * Admin settings class. Only exists on setting pages.
1470 * Read & write happens at this level; no authentication.
1471 */
6e4dc10f 1472class admin_setting {
1473
1474 var $name;
1475 var $visiblename;
1476 var $description;
1477 var $defaultsetting;
220a90c5 1478 var $updatedcallback;
1479 var $plugin; // null means main config table
6e4dc10f 1480
220a90c5 1481 /**
1482 * Constructor
1483 * @param $name string unique ascii name
1484 * @param $visiblename string localised name
1485 * @param strin $description localised long description
1486 * @param mixed $defaultsetting string or array depending on implementation
1487 */
6e4dc10f 1488 function admin_setting($name, $visiblename, $description, $defaultsetting) {
220a90c5 1489 $this->name = $name;
1490 $this->visiblename = $visiblename;
1491 $this->description = $description;
6e4dc10f 1492 $this->defaultsetting = $defaultsetting;
1493 }
eef868d1 1494
220a90c5 1495 function get_full_name() {
1496 return 's_'.$this->plugin.'_'.$this->name;
1497 }
1498
1499 function get_id() {
1500 return 'id_s_'.$this->plugin.'_'.$this->name;
1501 }
1502
1503 function config_read($name) {
1504 global $CFG;
1505 if ($this->plugin === 'backup') {
1506 require_once($CFG->dirroot.'/backup/lib.php');
1507 $backupconfig = backup_get_config();
1508 if (isset($backupconfig->$name)) {
1509 return $backupconfig->$name;
1510 } else {
1511 return NULL;
1512 }
1513
1514 } else if (!empty($this->plugin)) {
1515 $value = get_config($this->plugin, $name);
1516 return $value === false ? NULL : $value;
1517
1518 } else {
1519 if (isset($CFG->$name)) {
1520 return $CFG->$name;
1521 } else {
1522 return NULL;
1523 }
1524 }
1525 }
1526
1527 function config_write($name, $value) {
1528 global $CFG;
1529 if ($this->plugin === 'backup') {
1530 require_once($CFG->dirroot.'/backup/lib.php');
1531 return (boolean)backup_set_config($name, $value);
1532 } else {
1533 return (boolean)set_config($name, $value, $this->plugin);
1534 }
1535 }
1536
1537 /**
1538 * Returns current value of this setting
1539 * @return mixed array or string depending on instance, NULL means not set yet
1540 */
6e4dc10f 1541 function get_setting() {
220a90c5 1542 // has to be overridden
1543 return NULL;
6e4dc10f 1544 }
eef868d1 1545
220a90c5 1546 /**
1547 * Returns default setting if exists
1548 * @return mixed array or string depending on instance; NULL means no default, user must supply
1549 */
8e5da17a 1550 function get_defaultsetting() {
1551 return $this->defaultsetting;
1552 }
1553
220a90c5 1554 /**
1555 * Store new setting
1556 * @param mixed string or array, must not be NULL
1557 * @return '' if ok, string error message otherwise
1558 */
6e4dc10f 1559 function write_setting($data) {
220a90c5 1560 // should be overridden
1561 return '';
6e4dc10f 1562 }
eef868d1 1563
220a90c5 1564 /**
1565 * Return part of form with setting
1566 * @param mixed data array or string depending on setting
1567 * @return string
1568 */
1569 function output_html($data) {
1570 // should be overridden
1571 return;
1572 }
1573
1574 /**
1575 * function called if setting updated - cleanup, cache reset, etc.
1576 */
1577 function set_updatedcallback($functionname) {
1578 $this->updatedcallback = $functionname;
1579 }
1580
1581 /**
1582 * Is setting related to query text - used when searching
1583 * @param string $query
1584 * @return bool
1585 */
1586 function is_related($query) {
1587 if (strpos(strtolower($this->name), $query) !== false) {
1588 return true;
1589 }
1590 $textlib = textlib_get_instance();
1591 if (strpos($textlib->strtolower($this->visiblename), $query) !== false) {
1592 return true;
1593 }
1594 if (strpos($textlib->strtolower($this->description), $query) !== false) {
1595 return true;
1596 }
1597 return false;
6e4dc10f 1598 }
220a90c5 1599}
eef868d1 1600
220a90c5 1601/**
1602 * No setting - just heading and text.
1603 */
1604class admin_setting_heading extends admin_setting {
1605 /**
1606 * not a setting, just text
1607 * @param string $name of setting
1608 * @param string $heading heading
1609 * @param string $information text in box
1610 */
1611 function admin_setting_heading($name, $heading, $information) {
1612 parent::admin_setting($name, $heading, $information, '');
1613 }
1614
1615 function get_setting() {
1616 return true;
1617 }
1618
1619 function get_defaultsetting() {
1620 return true;
1621 }
1622
1623 function write_setting($data) {
1624 // do not write any setting
1625 return '';
1626 }
1627
1628 function output_html($data) {
1629 $return = '';
1630 if ($this->visiblename != '') {
1631 $return .= print_heading('<a name="'.$this->name.'">'.$this->visiblename.'</a>', '', 3, 'main', true);
1632 }
1633 if ($this->description != '') {
1634 $return .= print_box($this->description, 'generalbox formsettingheading', '', true);
1635 }
1636 return $return;
1637 }
1638}
6e4dc10f 1639
220a90c5 1640/**
1641 * The most flexibly setting, user is typing text
1642 */
6e4dc10f 1643class admin_setting_configtext extends admin_setting {
1644
1645 var $paramtype;
1646
220a90c5 1647 /**
1648 * config text contructor
1649 * @param string $name of setting
1650 * @param string $visiblename localised
1651 * @param string $description long localised info
1652 * @param string $defaultsetting
1653 * @param mixed $paramtype int means PARAM_XXX type, string is a allowed format in regex
1654 */
50999a0b 1655 function admin_setting_configtext($name, $visiblename, $description, $defaultsetting, $paramtype=PARAM_RAW) {
6e4dc10f 1656 $this->paramtype = $paramtype;
1657 parent::admin_setting($name, $visiblename, $description, $defaultsetting);
1658 }
1659
1660 function get_setting() {
220a90c5 1661 return $this->config_read($this->name);
6e4dc10f 1662 }
eef868d1 1663
6e4dc10f 1664 function write_setting($data) {
8cad6cca 1665 if ($this->paramtype === PARAM_INT and $data === '') {
1666 // do not complain if '' used instead of 0
1667 $data = 0;
1668 }
220a90c5 1669 // $data is a string
e33fbf87 1670 $validated = $this->validate($data);
1671 if ($validated !== true) {
1672 return $validated;
c235598d 1673 }
220a90c5 1674 return ($this->config_write($this->name, $data) ? '' : get_string('errorsetting', 'admin'));
6e4dc10f 1675 }
1676
e33fbf87 1677 /**
1678 * Validate data before storage
1679 * @param string data
1680 * @return mixed true if ok string if error found
1681 */
c235598d 1682 function validate($data) {
9e24fbd1 1683 if (is_string($this->paramtype)) {
e33fbf87 1684 if (preg_match($this->paramtype, $data)) {
1685 return true;
1686 } else {
1687 return get_string('validateerror', 'admin');
1688 }
1689
9e24fbd1 1690 } else if ($this->paramtype === PARAM_RAW) {
1691 return true;
e33fbf87 1692
9e24fbd1 1693 } else {
e33fbf87 1694 $cleaned = stripslashes(clean_param(addslashes($data), $this->paramtype));
1695 if ("$data" == "$cleaned") { // implicit conversion to string is needed to do exact comparison
1696 return true;
1697 } else {
1698 return get_string('validateerror', 'admin');
1699 }
9e24fbd1 1700 }
c235598d 1701 }
1702
220a90c5 1703 function output_html($data) {
1704 $default = $this->get_defaultsetting();
1705
1706 if (!is_null($default)) {
1707 if ($default === '') {
1708 $default = get_string('emptysettingvalue', 'admin');
1709 }
1710 $defaultinfo = '<span class="defaultinfo">'.get_string('defaultsettinginfo', 'admin', s($default)).'</span>';
1711 } else {
1712 $defaultinfo = '';
1713 }
1714
1715 if ($this->paramtype === PARAM_INT) {
1716 $paramclass = 'class="number"';
c8218a42 1717 } else {
220a90c5 1718 $paramclass = '';
c8218a42 1719 }
220a90c5 1720
1721 return format_admin_setting($this, $this->visiblename,
1722 '<div class="form-text">'
1723 .'<input type="text" '.$paramclass.' id="'.$this->get_id().'" name="'.$this->get_full_name().'" value="'.s($data).'" />'
1724 .$defaultinfo.'</div>',
6153cf58 1725 $this->description);
6e4dc10f 1726 }
6e4dc10f 1727}
1728
220a90c5 1729/**
1730 * General text area without html editor.
1731 */
1732class admin_setting_configtextarea extends admin_setting_configtext {
1733 var $rows;
1734 var $cols;
eba8cd63 1735
28764710 1736 function admin_setting_configtextarea($name, $visiblename, $description, $defaultsetting, $paramtype=PARAM_RAW, $cols='60', $rows='8') {
220a90c5 1737 $this->rows = $rows;
1738 $this->cols = $cols;
eba8cd63 1739 parent::admin_setting_configtext($name, $visiblename, $description, $defaultsetting, $paramtype);
1740 }
1741
220a90c5 1742 function output_html($data) {
1743 $default = $this->get_defaultsetting();
1744
1745 if (!is_null($default)) {
1746 if ($default === '') {
1747 $default = get_string('emptysettingvalue', 'admin');
1748 }
1749 $defaultinfo = '<div class="defaultinfo">'.get_string('defaultsettinginfo', 'admin', '<br />'.format_text($default, FORMAT_PLAIN)).'</div>';
eba8cd63 1750 } else {
220a90c5 1751 $defaultinfo = '';
eba8cd63 1752 }
220a90c5 1753
1754 return format_admin_setting($this, $this->visiblename,
1755 '<div class="form-textarea" ><textarea rows="'.$this->rows.'" cols="'.$this->cols.'" id="'.$this->get_id().'" name="'.$this->get_full_name().'">'.s($data).'</textarea>'.$defaultinfo.'</div>',
1756 $this->description);
1757 }
1758}
1759
1760/**
1761 * Password field, allows unmasking of password
1762 */
1763class admin_setting_configpasswordunmask extends admin_setting_configtext {
1764 /**
1765 * Constructor
1766 * @param string $name of setting
1767 * @param string $visiblename localised
1768 * @param string $description long localised info
1769 * @param string $defaultsetting default password
1770 */
1771 function admin_setting_configpasswordunmask($name, $visiblename, $description, $defaultsetting) {
1772 parent::admin_setting_configtext($name, $visiblename, $description, $defaultsetting, PARAM_RAW);
1773 }
1774
1775 function output_html($data) {
1776 $id = $this->get_id();
1777 $unmask = get_string('unmaskpassword', 'form');
1778 $unmaskjs = '<script type="text/javascript">
eba8cd63 1779//<![CDATA[
220a90c5 1780document.write(\'<span class="unmask"><input id="'.$id.'unmask" value="1" type="checkbox" onclick="unmaskPassword(\\\''.$id.'\\\')"/><label for="'.$id.'unmask">'.addslashes_js($unmask).'<\/label><\/span>\');
eba8cd63 1781//]]>
1782</script>';
220a90c5 1783 return format_admin_setting($this, $this->visiblename,
1784 '<div class="form-password"><input type="password" id="'.$this->get_id().'" name="'.$this->get_full_name().'" value="'.s($data).'" />'.$unmaskjs.'</div>',
1785 $this->description);
1786 }
1787}
1788
1789/**
1790 * Path to executable file
1791 */
1792class admin_setting_configexecutable extends admin_setting_configtext {
1793 /**
1794 * Constructor
1795 * @param string $name of setting
1796 * @param string $visiblename localised
1797 * @param string $description long localised info
1798 * @param string $defautpath default path
1799 */
1800 function admin_setting_configexecutable($name, $visiblename, $description, $defaultpath) {
1801 parent::admin_setting_configtext($name, $visiblename, $description, $defaultpath, PARAM_RAW);
1802 }
1803
1804 function output_html($data) {
1805 $default = $this->get_defaultsetting();
1806
1807 if (!is_null($default)) {
1808 if ($default === '') {
1809 $default = get_string('emptysettingvalue', 'admin');
1810 }
1811 $defaultinfo = '<span class="defaultinfo">'.get_string('defaultsettinginfo', 'admin', s($default)).'</span>';
1812 } else {
1813 $defaultinfo = '';
1814 }
1815
1816 if ($data) {
1817 if (file_exists($data) and is_executable($data)) {
1818 $executable = '<span class="pathok">&#x2714;</span>';
1819 } else {
1820 $executable = '<span class="patherror">&#x2718;</span>';
1821 }
1822 } else {
1823 $executable = '';
1824 }
1825
1826 return format_admin_setting($this, $this->visiblename,
1827 '<div class="form-executable">'
1828 .'<input type="text" id="'.$this->get_id().'" name="'.$this->get_full_name().'" value="'.s($data).'" />'.$executable
1829 .$defaultinfo.'</div>',
eba8cd63 1830 $this->description);
1831 }
220a90c5 1832}
1833
1834/**
1835 * Path to directory
1836 */
1837class admin_setting_configdirectory extends admin_setting_configtext {
1838 /**
1839 * Constructor
1840 * @param string $name of setting
1841 * @param string $visiblename localised
1842 * @param string $description long localised info
1843 * @param string $defaultdirectory default directory location
1844 */
1845 function admin_setting_configdirectory($name, $visiblename, $description, $defaultdirectory) {
1846 parent::admin_setting_configtext($name, $visiblename, $description, $defaultdirectory, PARAM_RAW);
1847 }
1848
1849 function output_html($data) {
1850 $default = $this->get_defaultsetting();
1851
1852 if (!is_null($default)) {
1853 if ($default === '') {
1854 $default = get_string('emptysettingvalue', 'admin');
1855 }
1856 $defaultinfo = '<span class="defaultinfo">'.get_string('defaultsettinginfo', 'admin', s($default)).'</span>';
1857 } else {
1858 $defaultinfo = '';
1859 }
1860
1861 if ($data) {
1862 if (file_exists($data) and is_dir($data)) {
1863 $executable = '<span class="pathok">&#x2714;</span>';
1864 } else {
1865 $executable = '<span class="patherror">&#x2718;</span>';
1866 }
1867 } else {
1868 $executable = '';
1869 }
9ba38673 1870
220a90c5 1871 return format_admin_setting($this, $this->visiblename,
1872 '<div class="form-directory">'
1873 .'<input type="text" id="'.$this->get_id().'" name="'.$this->get_full_name().'" value="'.s($data).'" />'.$executable
1874 .$defaultinfo.'</div>',
1875 $this->description);
1876 }
eba8cd63 1877}
1878
220a90c5 1879/**
1880 * Checkbox
1881 */
6e4dc10f 1882class admin_setting_configcheckbox extends admin_setting {
220a90c5 1883 var $yes;
1884 var $no;
6e4dc10f 1885
220a90c5 1886 /**
1887 * Constructor
1888 * @param string $name of setting
1889 * @param string $visiblename localised
1890 * @param string $description long localised info
1891 * @param string $defaultsetting
1892 * @param string $yes value used when checked
1893 * @param string $no value used when not checked
1894 */
1895 function admin_setting_configcheckbox($name, $visiblename, $description, $defaultsetting, $yes='1', $no='0') {
6e4dc10f 1896 parent::admin_setting($name, $visiblename, $description, $defaultsetting);
220a90c5 1897 $this->yes = (string)$yes;
1898 $this->no = (string)$no;
6e4dc10f 1899 }
1900
1901 function get_setting() {
220a90c5 1902 return $this->config_read($this->name);
6e4dc10f 1903 }
eef868d1 1904
6e4dc10f 1905 function write_setting($data) {
220a90c5 1906 if ((string)$data === $this->yes) { // convert to strings before comparison
1907 $data = $this->yes;
6e4dc10f 1908 } else {
220a90c5 1909 $data = $this->no;
6e4dc10f 1910 }
220a90c5 1911 return ($this->config_write($this->name, $data) ? '' : get_string('errorsetting', 'admin'));
6e4dc10f 1912 }
1913
220a90c5 1914 function output_html($data) {
1915 $default = $this->get_defaultsetting();
1916
1917 if (!is_null($default)) {
1918 if ((string)$default === $this->yes) {
1919 $str = get_string('checkboxyes', 'admin');
1920 } else {
1921 $str = get_string('checkboxno', 'admin');
1922 }
1923 $defaultinfo = '<span class="defaultinfo">'.get_string('defaultsettinginfo', 'admin', $str).'</span>';
c8218a42 1924 } else {
220a90c5 1925 $defaultinfo = '';
c8218a42 1926 }
220a90c5 1927
1928 if ((string)$data === $this->yes) { // convert to strings before comparison
1929 $checked = 'checked="checked"';
1930 } else {
1931 $checked = '';
1932 }
1933
1934 return format_admin_setting($this, $this->visiblename,
1935 '<div class="form-checkbox" ><input type="hidden" name="'.$this->get_full_name().'" value="'.s($this->no).'" /> '
1936 .'<input type="checkbox" id="'.$this->get_id().'" name="'.$this->get_full_name().'" value="'.s($this->yes).'" '.$checked.' />'
1937 .$defaultinfo.'</div>',
6153cf58 1938 $this->description);
6e4dc10f 1939 }
6e4dc10f 1940}
1941
220a90c5 1942/**
1943 * Multiple checkboxes, each represents different value, stored in csv format
1944 */
1945class admin_setting_configmulticheckbox extends admin_setting {
6e4dc10f 1946 var $choices;
eef868d1 1947
220a90c5 1948 /**
1949 * Constructor
1950 * @param string $name of setting
1951 * @param string $visiblename localised
1952 * @param string $description long localised info
1953 * @param array $defaultsetting array of selected
1954 * @param array $choices array of $value=>$label for each checkbox
1955 */
1956 function admin_setting_configmulticheckbox($name, $visiblename, $description, $defaultsetting, $choices) {
6e4dc10f 1957 $this->choices = $choices;
1958 parent::admin_setting($name, $visiblename, $description, $defaultsetting);
1959 }
1960
0a784551 1961 /**
1962 * This function may be used in ancestors for lazy loading of choices
220a90c5 1963 * @return true if loaded, false if error
0a784551 1964 */
1965 function load_choices() {
1966 /*
220a90c5 1967 if (is_array($this->choices)) {
1968 return true;
0a784551 1969 }
1970 .... load choices here
1971 */
220a90c5 1972 return true;
1973 }
1974
1975 /**
1976 * Is setting related to query text - used when searching
1977 * @param string $query
1978 * @return bool
1979 */
1980 function is_related($query) {
1981 if (!$this->load_choices() or empty($this->choices)) {
1982 return false;
1983 }
1984 if (parent::is_related($query)) {
1985 return true;
1986 }
1987
1988 $textlib = textlib_get_instance();
1989 foreach ($this->choices as $desc) {
1990 if (strpos($textlib->strtolower($desc), $query) !== false) {
1991 return true;
1992 }
1993 }
1994 return false;
0a784551 1995 }
1996
6e4dc10f 1997 function get_setting() {
220a90c5 1998 $result = $this->config_read($this->name);
1999 if (is_null($result)) {
2000 return NULL;
2001 }
2002 if ($result === '') {
2003 return array();
2004 }
2005 return explode(',', $result);
6e4dc10f 2006 }
eef868d1 2007
6e4dc10f 2008 function write_setting($data) {
220a90c5 2009 if (!is_array($data)) {
2010 return ''; // ignore it
2011 }
2012 if (!$this->load_choices() or empty($this->choices)) {
2013 return '';
2014 }
2015 unset($data['xxxxx']);
2016 $result = array();
2017 foreach ($data as $key => $value) {
2018 if ($value and array_key_exists($key, $this->choices)) {
2019 $result[] = $key;
2020 }
2021 }
2022 return $this->config_write($this->name, implode(',', $result)) ? '' : get_string('errorsetting', 'admin');
6e4dc10f 2023 }
eef868d1 2024
220a90c5 2025 function output_html($data) {
2026 if (!$this->load_choices() or empty($this->choices)) {
2027 return '';
2028 }
2029 $default = $this->get_defaultsetting();
2030 if (is_null($default)) {
2031 $default = array();
2032 }
2033 if (is_null($data)) {
2034 foreach ($default as $key=>$value) {
2035 if ($value) {
2036 $current[] = $value;
2037 }
2038 }
2039 }
2040
2041 $options = array();
2042 $defaults = array();
2043 foreach($this->choices as $key=>$description) {
2044 if (in_array($key, $data)) {
2045 $checked = 'checked="checked"';
2046 } else {
2047 $checked = '';
2048 }
2049 if (!empty($default[$key])) {
2050 $defaults[] = $description;
2051 }
2052
2053 $options[] = '<input type="checkbox" id="'.$this->get_id().'_'.$key.'" name="'.$this->get_full_name().'['.$key.']" value="1" '.$checked.' />'
2054 .'<label for="'.$this->get_id().'_'.$key.'">'.$description.'</label>';
2055 }
2056
2057 if (!empty($defaults)) {
2058 $defaultinfo = '<div class="defaultinfo">'.get_string('defaultsettinginfo', 'admin', implode(', ', $defaults)).'</div>';
c8218a42 2059 } else {
220a90c5 2060 $defaultinfo = '';
c8218a42 2061 }
220a90c5 2062
2063 $return = '<div class="form-multicheckbox">';
2064 $return .= '<input type="hidden" name="'.$this->get_full_name().'[xxxxx]" value="1" />'; // something must be submitted even if nothing selected
2065 if ($options) {
2066 $return .= '<ul>';
2067 foreach ($options as $option) {
2068 $return .= '<li>'.$option.'</li>';
2069 }
2070 $return .= '</ul>';
6e4dc10f 2071 }
220a90c5 2072 $return .= $defaultinfo.'</div>';
6153cf58 2073
220a90c5 2074 return format_admin_setting($this, $this->visiblename, $return, $this->description, false);
6e4dc10f 2075 }
6e4dc10f 2076}
2077
220a90c5 2078/**
2079 * Multiple checkboxes 2, value stored as string 00101011
2080 */
2081class admin_setting_configmulticheckbox2 extends admin_setting_configmulticheckbox {
2082 function get_setting() {
2083 $result = $this->config_read($this->name);
2084 if (is_null($result)) {
2085 return NULL;
2086 }
2087 if (!$this->load_choices()) {
2088 return NULL;
2089 }
2090 $result = str_pad($result, count($this->choices), '0');
2091 $result = preg_split('//', $result, -1, PREG_SPLIT_NO_EMPTY);
2092 $setting = array();
2093 foreach ($this->choices as $key=>$unused) {
2094 $value = array_shift($result);
2095 if ($value) {
2096 $setting[] = $key;
2097 }
2098 }
2099 return $setting;
2100 }
6e4dc10f 2101
220a90c5 2102 function write_setting($data) {
2103 if (!is_array($data)) {
2104 return ''; // ignore it
2105 }
2106 if (!$this->load_choices() or empty($this->choices)) {
2107 return '';
2108 }
2109 $result = '';
2110 foreach ($this->choices as $key=>$unused) {
2111 if (!empty($data[$key])) {
2112 $result .= '1';
2113 } else {
2114 $result .= '0';
2115 }
2116 }
2117 return $this->config_write($this->name, $result) ? '' : get_string('errorsetting', 'admin');
2118 }
2119}
2120
2121/**
2122 * Select one value from list
2123 */
2124class admin_setting_configselect extends admin_setting {
6e4dc10f 2125 var $choices;
6e4dc10f 2126
220a90c5 2127 /**
2128 * Constructor
2129 * @param string $name of setting
2130 * @param string $visiblename localised
2131 * @param string $description long localised info
2132 * @param string $defaultsetting
2133 * @param array $choices array of $value=>$label for each selection
2134 */
2135 function admin_setting_configselect($name, $visiblename, $description, $defaultsetting, $choices) {
2136 $this->choices = $choices;
2137 parent::admin_setting($name, $visiblename, $description, $defaultsetting);
2138 }
2139
2140 /**
2141 * This function may be used in ancestors for lazy loading of choices
2142 * @return true if loaded, false if error
2143 */
2144 function load_choices() {
2145 /*
2146 if (is_array($this->choices)) {
2147 return true;
6e4dc10f 2148 }
220a90c5 2149 .... load choices here
2150 */
2151 return true;
6e4dc10f 2152 }
2153
407d8134 2154 function is_related($query) {
2155 if (parent::is_related($query)) {
2156 return true;
2157 }
2158 if (!$this->load_choices()) {
2159 return false;
2160 }
2161 $textlib = textlib_get_instance();
2162 foreach ($this->choices as $key=>$value) {
2163 if (strpos($textlib->strtolower($key), $query) !== false) {
2164 return true;
2165 }
2166 if (strpos($textlib->strtolower($value), $query) !== false) {
2167 return true;
2168 }
2169 }
2170 return false;
2171 }
2172
6e4dc10f 2173 function get_setting() {
220a90c5 2174 return $this->config_read($this->name);
6e4dc10f 2175 }
eef868d1 2176
6e4dc10f 2177 function write_setting($data) {
220a90c5 2178 if (!$this->load_choices() or empty($this->choices)) {
2179 return '';
2180 }
2181 if (!array_key_exists($data, $this->choices)) {
2182 return ''; // ignore it
2183 }
eef868d1 2184
220a90c5 2185 return ($this->config_write($this->name, $data) ? '' : get_string('errorsetting', 'admin'));
6e4dc10f 2186 }
eef868d1 2187
220a90c5 2188 function output_html($data) {
2189 if (!$this->load_choices() or empty($this->choices)) {
2190 return '';
2191 }
2192 $default = $this->get_defaultsetting();
2193
2194 if (!is_null($default) and array_key_exists($default, $this->choices)) {
2195 $defaultinfo = '<span class="defaultinfo">'.get_string('defaultsettinginfo', 'admin', s($this->choices[$default])).'</span>';
cc73de71 2196 } else {
220a90c5 2197 $defaultinfo = '';
6e4dc10f 2198 }
220a90c5 2199
9c305ba1 2200 $current = $this->get_setting();
2201 $warning = '';
2202 if (is_null($current)) {
2203 //first run
2204 } else if (empty($current) and (array_key_exists('', $this->choices) or array_key_exists(0, $this->choices))) {
2205 // no warning
2206 } else if (!array_key_exists($current, $this->choices)) {
2207 $warning = get_string('warningcurrentsetting', 'admin', s($current));
2208 if (!is_null($default) and $data==$current) {
2209 $data = $default; // use default instead of first value when showing the form
2210 }
2211 }
2212
220a90c5 2213 $return = '<div class="form-select"><select id="'.$this->get_id().'" name="'.$this->get_full_name().'">';
6e4dc10f 2214 foreach ($this->choices as $key => $value) {
220a90c5 2215 // the string cast is needed because key may be integer - 0 is equal to most strings!
2216 $return .= '<option value="'.$key.'"'.((string)$key==$data ? ' selected="selected"' : '').'>'.$value.'</option>';
eef868d1 2217 }
220a90c5 2218 $return .= '</select>'.$defaultinfo.'</div>';
2219
9c305ba1 2220 return format_admin_setting($this, $this->visiblename, $return, $this->description, true, $warning);
6e4dc10f 2221 }
2222
2223}
2224
220a90c5 2225/**
2226 * Select multiple items from list
2227 */
6e4dc10f 2228class admin_setting_configmultiselect extends admin_setting_configselect {
220a90c5 2229 /**
2230 * Constructor
2231 * @param string $name of setting
2232 * @param string $visiblename localised
2233 * @param string $description long localised info
2234 * @param array $defaultsetting array of selected items
2235 * @param array $choices array of $value=>$label for each list item
2236 */
6e4dc10f 2237 function admin_setting_configmultiselect($name, $visiblename, $description, $defaultsetting, $choices) {
2238 parent::admin_setting_configselect($name, $visiblename, $description, $defaultsetting, $choices);
2239 }
2240
2241 function get_setting() {
220a90c5 2242 $result = $this->config_read($this->name);
2243 if (is_null($result)) {
d7933a55 2244 return NULL;
2245 }
220a90c5 2246 if ($result === '') {
2247 return array();
2248 }
2249 return explode(',', $result);
6e4dc10f 2250 }
eef868d1 2251
6e4dc10f 2252 function write_setting($data) {
220a90c5 2253 if (!is_array($data)) {
2254 return ''; //ignore it
2255 }
2256 if (!$this->load_choices() or empty($this->choices)) {
2257 return '';
2258 }
2259
a7ad48fd 2260 unset($data['xxxxx']);
2261
220a90c5 2262 $save = array();
2263 foreach ($data as $value) {
2264 if (!array_key_exists($value, $this->choices)) {
2265 continue; // ignore it
2266 }
2267 $save[] = $value;
2268 }
2269
2270 return ($this->config_write($this->name, implode(',', $save)) ? '' : get_string('errorsetting', 'admin'));
2271 }
2272
2273 /**
2274 * Is setting related to query text - used when searching
2275 * @param string $query
2276 * @return bool
2277 */
2278 function is_related($query) {
2279 if (!$this->load_choices() or empty($this->choices)) {
2280 return false;
2281 }
2282 if (parent::is_related($query)) {
2283 return true;
2284 }
2285
2286 $textlib = textlib_get_instance();
2287 foreach ($this->choices as $desc) {
2288 if (strpos($textlib->strtolower($desc), $query) !== false) {
2289 return true;
2290 }
2291 }
2292 return false;
2293 }
2294
2295 function output_html($data) {
2296 if (!$this->load_choices() or empty($this->choices)) {
2297 return '';
2298 }
2299 $choices = $this->choices;
2300 $default = $this->get_defaultsetting();
2301 if (is_null($default)) {
2302 $default = array();
2303 }
2304 if (is_null($data)) {
d7933a55 2305 $data = array();
2306 }
220a90c5 2307
2308 $defaults = array();
a7ad48fd 2309 $return = '<div class="form-select"><input type="hidden" name="'.$this->get_full_name().'[xxxxx]" value="1" />'; // something must be submitted even if nothing selected
2310 $return .= '<select id="'.$this->get_id().'" name="'.$this->get_full_name().'[]" size="10" multiple="multiple">';
220a90c5 2311 foreach ($this->choices as $key => $description) {
2312 if (in_array($key, $data)) {
2313 $selected = 'selected="selected"';
2314 } else {
2315 $selected = '';
2316 }
2317 if (in_array($key, $default)) {
2318 $defaults[] = $description;
6e4dc10f 2319 }
220a90c5 2320
2321 $return .= '<option value="'.s($key).'" '.$selected.'>'.$description.'</option>';
2322 }
2323
2324 if (!empty($defaults)) {
2325 $defaultinfo = '<div class="defaultinfo">'.get_string('defaultsettinginfo', 'admin', implode(', ', $defaults)).'</div>';
2326 } else {
2327 $defaultinfo = '';
6e4dc10f 2328 }
eef868d1 2329
220a90c5 2330 $return .= '</select>'.$defaultinfo.'</div>';
2331 return format_admin_setting($this, $this->visiblename, $return, $this->description);
6e4dc10f 2332 }
220a90c5 2333}
eef868d1 2334
220a90c5 2335/**
2336 * Time selector
2337 * this is a liiitle bit messy. we're using two selects, but we're returning
2338 * them as an array named after $name (so we only use $name2 internally for the setting)
2339 */
2340class admin_setting_configtime extends admin_setting {
2341 var $name2;
2342
2343 /**
2344 * Constructor
2345 * @param string $hoursname setting for hours
2346 * @param string $minutesname setting for hours
2347 * @param string $visiblename localised
2348 * @param string $description long localised info
2349 * @param array $defaultsetting array representing default time 'h'=>hours, 'm'=>minutes
2350 */
2351 function admin_setting_configtime($hoursname, $minutesname, $visiblename, $description, $defaultsetting) {
2352 $this->name2 = $minutesname;
2353 parent::admin_setting($hoursname, $visiblename, $description, $defaultsetting);
2354 }
2355
2356 function get_setting() {
2357 $result1 = $this->config_read($this->name);
2358 $result2 = $this->config_read($this->name2);
2359 if (is_null($result1) or is_null($result2)) {
2360 return NULL;
2361 }
2362
2363 return array('h' => $result1, 'm' => $result2);
2364 }
2365
2366 function write_setting($data) {
2367 if (!is_array($data)) {
2368 return '';
2369 }
2370
2371 $result = $this->config_write($this->name, (int)$data['h']) && $this->config_write($this->name2, (int)$data['m']);
2372 return ($result ? '' : get_string('errorsetting', 'admin'));
2373 }
2374
2375 function output_html($data) {
2376 $default = $this->get_defaultsetting();
2377
2378 if (is_array($default)) {
2379 $defaultinfo = '<span class="defaultinfo">'.get_string('defaultsettinginfo', 'admin', $default['h'].':'.$default['m']).'</span>';
cc73de71 2380 } else {
220a90c5 2381 $defaultinfo = '';
6e4dc10f 2382 }
220a90c5 2383
2384 $return = '<div class="form-time">'.
2385 '<select id="'.$this->get_id().'h" name="'.$this->get_full_name().'[h]">';
2386 for ($i = 0; $i < 24; $i++) {
2387 $return .= '<option value="'.$i.'"'.($i == $data['h'] ? ' selected="selected"' : '').'>'.$i.'</option>';
6e4dc10f 2388 }
220a90c5 2389 $return .= '</select>:<select id="'.$this->get_id().'m" name="'.$this->get_full_name().'[m]">';
2390 for ($i = 0; $i < 60; $i += 5) {
2391 $return .= '<option value="'.$i.'"'.($i == $data['m'] ? ' selected="selected"' : '').'>'.$i.'</option>';
2392 }
2393 $return .= '</select>'.$defaultinfo.'</div>';
2394 return format_admin_setting($this, $this->visiblename, $return, $this->description, false);
6e4dc10f 2395 }
2396
2397}
2398
220a90c5 2399/**
2400 * Special checkbox for calendar - resets SESSION vars.
2401 */
6e4dc10f 2402class admin_setting_special_adminseesall extends admin_setting_configcheckbox {
6e4dc10f 2403 function admin_setting_special_adminseesall() {
220a90c5 2404 parent::admin_setting_configcheckbox('calendar_adminseesall', get_string('adminseesall', 'admin'),
2405 get_string('helpadminseesall', 'admin'), '0');
6e4dc10f 2406 }
2407
2408 function write_setting($data) {
2409 global $SESSION;
2410 unset($SESSION->cal_courses_shown);
220a90c5 2411 return parent::write_setting($data);
6e4dc10f 2412 }
2413}
2414
392e7363 2415/**
2416 * Special select for settings that are altered in setup.php and can not be altered on the fly
2417 */
2418class admin_setting_special_selectsetup extends admin_setting_configselect {
2419 function get_setting() {
2420 // read directly from db!
2421 return get_config(NULL, $this->name);
2422 }
2423
2424 function write_setting($data) {
2425 global $CFG;
2426 // do not change active CFG setting!
2427 $current = $CFG->{$this->name};
2428 $result = parent::write_setting($data);
2429 $CFG->{$this->name} = $current;
2430 return $result;
2431 }
2432}
2433
220a90c5 2434/**
2435 * Special select for frontpage - stores data in course table
2436 */
6e4dc10f 2437class admin_setting_sitesetselect extends admin_setting_configselect {
6e4dc10f 2438 function get_setting() {
2439 $site = get_site();
220a90c5 2440 return $site->{$this->name};
6e4dc10f 2441 }
eef868d1 2442
6e4dc10f 2443 function write_setting($data) {
2444 if (!in_array($data, array_keys($this->choices))) {
220a90c5 2445 return get_string('errorsetting', 'admin');
6e4dc10f 2446 }
2447 $record = new stdClass();
220a90c5 2448 $record->id = SITEID;
2449 $temp = $this->name;
2450 $record->$temp = $data;
6e4dc10f 2451 $record->timemodified = time();
220a90c5 2452 return (update_record('course', $record) ? '' : get_string('errorsetting', 'admin'));
6e4dc10f 2453 }
6e4dc10f 2454}
2455
220a90c5 2456/**
2457 * Special select - lists on the frontpage - hacky
2458 */
2459class admin_setting_courselist_frontpage extends admin_setting {
2460 var $choices;
6e4dc10f 2461
e0f6e995 2462 function admin_setting_courselist_frontpage($loggedin) {
6e4dc10f 2463 global $CFG;
220a90c5 2464 require_once($CFG->dirroot.'/course/lib.php');
2465 $name = 'frontpage'.($loggedin ? 'loggedin' : '');
2466 $visiblename = get_string('frontpage'.($loggedin ? 'loggedin' : ''),'admin');
2467 $description = get_string('configfrontpage'.($loggedin ? 'loggedin' : ''),'admin');
2468 $defaults = array(FRONTPAGECOURSELIST);
2469 parent::admin_setting($name, $visiblename, $description, $defaults);
6e4dc10f 2470 }
eef868d1 2471
220a90c5 2472 function load_choices() {
2473 if (is_array($this->choices)) {
2474 return true;
2475 }
2476 $this->choices = array(FRONTPAGENEWS => get_string('frontpagenews'),
2477 FRONTPAGECOURSELIST => get_string('frontpagecourselist'),
2478 FRONTPAGECATEGORYNAMES => get_string('frontpagecategorynames'),
2479 FRONTPAGECATEGORYCOMBO => get_string('frontpagecategorycombo'),
2480 'none' => get_string('none'));
2481 if ($this->name == 'frontpage' and count_records('course') > FRONTPAGECOURSELIMIT) {
2482 unset($this->choices[FRONTPAGECOURSELIST]);
2483 }
2484 return true;
2485 }
6e4dc10f 2486 function get_setting() {
220a90c5 2487 $result = $this->config_read($this->name);
2488 if (is_null($result)) {
2489 return NULL;
2490 }
2491 if ($result === '') {
2492 return array();
2493 }
2494 return explode(',', $result);
6e4dc10f 2495 }
eef868d1 2496
6e4dc10f 2497 function write_setting($data) {
220a90c5 2498 if (!is_array($data)) {
2499 return '';
6e4dc10f 2500 }
220a90c5 2501 $this->load_choices();
2502 $save = array();
6e4dc10f 2503 foreach($data as $datum) {
220a90c5 2504 if ($datum == 'none' or !array_key_exists($datum, $this->choices)) {
2505 continue;
6e4dc10f 2506 }
220a90c5 2507 $save[$datum] = $datum; // no duplicates
6e4dc10f 2508 }
220a90c5 2509 return ($this->config_write($this->name, implode(',', $save)) ? '' : get_string('errorsetting', 'admin'));
6e4dc10f 2510 }
eef868d1 2511
220a90c5 2512 function output_html($data) {
2513 $this->load_choices();
2514 $currentsetting = array();
2515 foreach ($data as $key) {
2516 if ($key != 'none' and array_key_exists($key, $this->choices)) {
2517 $currentsetting[] = $key; // already selected first
6e4dc10f 2518 }
2519 }
220a90c5 2520
0a7e84c3 2521 $return = '<div class="form-group">';
6e4dc10f 2522 for ($i = 0; $i < count($this->choices) - 1; $i++) {
220a90c5 2523 if (!array_key_exists($i, $currentsetting)) {
2524 $currentsetting[$i] = 'none'; //none
2525 }
2526 $return .='<select class="form-select" id="'.$this->get_id().$i.'" name="'.$this->get_full_name().'[]">';
6e4dc10f 2527 foreach ($this->choices as $key => $value) {
220a90c5 2528 $return .= '<option value="'.$key.'"'.("$key" == $currentsetting[$i] ? ' selected="selected"' : '').'>'.$value.'</option>';
6e4dc10f 2529 }
2530 $return .= '</select>';
2531 if ($i !== count($this->choices) - 2) {
975211bb 2532 $return .= '<br />';
6e4dc10f 2533 }
2534 }
0a7e84c3 2535 $return .= '</div>';
2536
220a90c5 2537 return format_admin_setting($this, $this->visiblename, $return, $this->description, false);
6e4dc10f 2538 }
2539}
2540
220a90c5 2541/**
2542 * Special checkbox for frontpage - stores data in course table
2543 */
6e4dc10f 2544class admin_setting_sitesetcheckbox extends admin_setting_configcheckbox {
6e4dc10f 2545 function get_setting() {
2546 $site = get_site();
8e5da17a 2547 return $site->{$this->name};
6e4dc10f 2548 }
eef868d1 2549
6e4dc10f 2550 function write_setting($data) {
220a90c5 2551 $record = new object();
2552 $record->id = SITEID;
2553 $record->{$this->name} = ($data == '1' ? 1 : 0);
2554 $record->timemodified = time();
2555 return (update_record('course', $record) ? '' : get_string('errorsetting', 'admin'));
6e4dc10f 2556 }
6e4dc10f 2557}
2558
220a90c5 2559/**
2560 * Special text for frontpage - stores data in course table.
2561 * Empty string means not set here. Manual setting is required.
2562 */
6e4dc10f 2563class admin_setting_sitesettext extends admin_setting_configtext {
6e4dc10f 2564 function get_setting() {
2565 $site = get_site();
8e5da17a 2566 return $site->{$this->name} != '' ? $site->{$this->name} : NULL;
6e4dc10f 2567 }
90cfbd0a 2568
b89639f9 2569 function validate($data) {
e33fbf87 2570 $cleaned = stripslashes(clean_param(addslashes($data), PARAM_MULTILANG));
2571 if ($cleaned === '') {
2572 return get_string('required');
2573 }
2574 if ("$data" == "$cleaned") { // implicit conversion to string is needed to do exact comparison
2575 return true;
2576 } else {
2577 return get_string('validateerror', 'admin');
b89639f9 2578 }
b89639f9 2579 }
2580
6e4dc10f 2581 function write_setting($data) {
b89639f9 2582 $data = trim($data);
e33fbf87 2583 $validated = $this->validate($data);
2584 if ($validated !== true) {
2585 return $validated;
90cfbd0a 2586 }
eef868d1 2587
220a90c5 2588 $record = new object();
2589 $record->id = SITEID;
87fa8a17 2590 $record->{$this->name} = addslashes($data);
220a90c5 2591 $record->timemodified = time();
2592 return (update_record('course', $record) ? '' : get_string('dbupdatefailed', 'error'));
6e4dc10f 2593 }
6e4dc10f 2594}
2595
220a90c5 2596/**
2597 * Special text editor for site description.
2598 */
6e4dc10f 2599class admin_setting_special_frontpagedesc extends admin_setting {
6e4dc10f 2600 function admin_setting_special_frontpagedesc() {
220a90c5 2601 parent::admin_setting('summary', get_string('frontpagedescription'), get_string('frontpagedescriptionhelp'), NULL);
6e4dc10f 2602 }
eef868d1 2603
6e4dc10f 2604 function get_setting() {
6e4dc10f 2605 $site = get_site();
c626c2f4 2606 return $site->{$this->name};
2607 }
eef868d1 2608
6e4dc10f 2609 function write_setting($data) {
c626c2f4 2610 $record = new object();
220a90c5 2611 $record->id = SITEID;
c626c2f4 2612 $record->{$this->name} = addslashes($data);
2613 $record->timemodified = time();
220a90c5 2614 return(update_record('course', $record) ? '' : get_string('errorsetting', 'admin'));
6e4dc10f 2615 }
2616
220a90c5 2617 function output_html($data) {
2618 global $CFG;
6e4dc10f 2619
220a90c5 2620 $CFG->adminusehtmleditor = can_use_html_editor();
2621 $return = '<div class="form-htmlarea">'.print_textarea($CFG->adminusehtmleditor, 15, 60, 0, 0, $this->get_full_name(), $data, 0, true).'</div>';
2622
2623 return format_admin_setting($this, $this->visiblename, $return, $this->description, false);
2624 }
2625}
6e4dc10f 2626
2627class admin_setting_special_editorfontlist extends admin_setting {
2628
2629 var $items;
2630
2631 function admin_setting_special_editorfontlist() {
2632 global $CFG;
2633 $name = 'editorfontlist';
2634 $visiblename = get_string('editorfontlist', 'admin');
2635 $description = get_string('configeditorfontlist', 'admin');
6e4dc10f 2636 $defaults = array('k0' => 'Trebuchet',
2637 'v0' => 'Trebuchet MS,Verdana,Arial,Helvetica,sans-serif',
2638 'k1' => 'Arial',
2639 'v1' => 'arial,helvetica,sans-serif',
2640 'k2' => 'Courier New',
2641 'v2' => 'courier new,courier,monospace',
2642 'k3' => 'Georgia',
2643 'v3' => 'georgia,times new roman,times,serif',
2644 'k4' => 'Tahoma',
2645 'v4' => 'tahoma,arial,helvetica,sans-serif',
2646 'k5' => 'Times New Roman',
2647 'v5' => 'times new roman,times,serif',
2648 'k6' => 'Verdana',
2649 'v6' => 'verdana,arial,helvetica,sans-serif',
2650 'k7' => 'Impact',
2651 'v7' => 'impact',
2652 'k8' => 'Wingdings',
2653 'v8' => 'wingdings');
2654 parent::admin_setting($name, $visiblename, $description, $defaults);
2655 }
eef868d1 2656
6e4dc10f 2657 function get_setting() {
cc73de71 2658 global $CFG;
220a90c5 2659 $result = $this->config_read($this->name);
2660 if (is_null($result)) {
cc73de71 2661 return NULL;
2662 }
220a90c5 2663 $i = 0;
2664 $currentsetting = array();
2665 $items = explode(';', $result);
2666 foreach ($items as $item) {
2667 $item = explode(':', $item);
2668 $currentsetting['k'.$i] = $item[0];
2669 $currentsetting['v'.$i] = $item[1];
2670 $i++;
2671 }
2672 return $currentsetting;
6e4dc10f 2673 }
eef868d1 2674
6e4dc10f 2675 function write_setting($data) {
eef868d1 2676
6e4dc10f 2677 // there miiight be an easier way to do this :)
2678 // if this is changed, make sure the $defaults array above is modified so that this
2679 // function processes it correctly
eef868d1 2680
6e4dc10f 2681 $keys = array();
2682 $values = array();
eef868d1 2683
6e4dc10f 2684 foreach ($data as $key => $value) {
2685 if (substr($key,0,1) == 'k') {
2686 $keys[substr($key,1)] = $value;
2687 } elseif (substr($key,0,1) == 'v') {
2688 $values[substr($key,1)] = $value;
2689 }
2690 }
eef868d1 2691
220a90c5 2692 $result = array();
6e4dc10f 2693 for ($i = 0; $i < count($keys); $i++) {
2694 if (($keys[$i] !== '') && ($values[$i] !== '')) {
220a90c5 2695 $result[] = clean_param($keys[$i],PARAM_NOTAGS).':'.clean_param($values[$i], PARAM_NOTAGS);
6e4dc10f 2696 }
2697 }
eef868d1 2698
220a90c5 2699 return ($this->config_write($this->name, implode(';', $result)) ? '' : get_string('errorsetting', 'admin'));
6e4dc10f 2700 }
eef868d1 2701
220a90c5 2702 function output_html($data) {
2703 $fullname = $this->get_full_name();
1beed35f 2704 $return = '<div class="form-group">';
220a90c5 2705 for ($i = 0; $i < count($data) / 2; $i++) {
2706 $return .= '<input type="text" class="form-text" name="'.$fullname.'[k'.$i.']" value="'.$data['k'.$i].'" />';
6e4dc10f 2707 $return .= '&nbsp;&nbsp;';
220a90c5 2708 $return .= '<input type="text" class="form-text" name="'.$fullname.'[v'.$i.']" value="'.$data['v'.$i].'" /><br />';
6e4dc10f 2709 }
220a90c5 2710 $return .= '<input type="text" class="form-text" name="'.$fullname.'[k'.$i.']" value="" />';
6e4dc10f 2711 $return .= '&nbsp;&nbsp;';
220a90c5 2712 $return .= '<input type="text" class="form-text" name="'.$fullname.'[v'.$i.']" value="" /><br />';
2713 $return .= '<input type="text" class="form-text" name="'.$fullname.'[k'.($i + 1).']" value="" />';
6e4dc10f 2714 $return .= '&nbsp;&nbsp;';
220a90c5 2715 $return .= '<input type="text" class="form-text" name="'.$fullname.'[v'.($i + 1).']" value="" />';
1beed35f 2716 $return .= '</div>';
6153cf58 2717
220a90c5 2718 return format_admin_setting($this, $this->visiblename, $return, $this->description, false);
6e4dc10f 2719 }
eef868d1 2720
6e4dc10f 2721}
2722
93c61c18 2723class admin_setting_emoticons extends admin_setting {
2724
2725 var $items;
2726
2727 function admin_setting_emoticons() {
2728 global $CFG;
2729 $name = 'emoticons';
2730 $visiblename = get_string('emoticons', 'admin');
2731 $description = get_string('configemoticons', 'admin');
2732 $defaults = array('k0' => ':-)',
2733 'v0' => 'smiley',
2734 'k1' => ':)',
2735 'v1' => 'smiley',
2736 'k2' => ':-D',
2737 'v2' => 'biggrin',
2738 'k3' => ';-)',
2739 'v3' => 'wink',
2740 'k4' => ':-/',
2741 'v4' => 'mixed',
2742 'k5' => 'V-.',
2743 'v5' => 'thoughtful',
2744 'k6' => ':-P',
2745 'v6' => 'tongueout',
2746 'k7' => 'B-)',
2747 'v7' => 'cool',
2748 'k8' => '^-)',
2749 'v8' => 'approve',
2750 'k9' => '8-)',
2751 'v9' => 'wideeyes',
2752 'k10' => ':o)',
2753 'v10' => 'clown',
2754 'k11' => ':-(',
2755 'v11' => 'sad',
2756 'k12' => ':(',
2757 'v12' => 'sad',
2758 'k13' => '8-.',
2759 'v13' => 'shy',
2760 'k14' => ':-I',
2761 'v14' => 'blush',
2762 'k15' => ':-X',
2763 'v15' => 'kiss',
2764 'k16' => '8-o',
2765 'v16' => 'surprise',
2766 'k17' => 'P-|',
2767 'v17' => 'blackeye',
2768 'k18' => '8-[',
2769 'v18' => 'angry',
2770 'k19' => 'xx-P',
2771 'v19' => 'dead',
2772 'k20' => '|-.',
2773 'v20' => 'sleepy',
2774 'k21' => '}-]',
2775 'v21' => 'evil',
2776 'k22' => '(h)',
2777 'v22' => 'heart',
2778 'k23' => '(heart)',
2779 'v23' => 'heart',
2780 'k24' => '(y)',
2781 'v24' => 'yes',
2782 'k25' => '(n)',
2783 'v25' => 'no',
2784 'k26' => '(martin)',
2785 'v26' => 'martin',
2786 'k27' => '( )',
2787 'v27' => 'egg');
2788 parent::admin_setting($name, $visiblename, $description, $defaults);
2789 }
2790
2791 function get_setting() {
2792 global $CFG;
220a90c5 2793 $result = $this->config_read($this->name);
2794 if (is_null($result)) {
93c61c18 2795 return NULL;
2796 }
220a90c5 2797 $i = 0;
2798 $currentsetting = array();
2799 $items = explode('{;}', $result);
2800 foreach ($items as $item) {
2801 $item = explode('{:}', $item);
2802 $currentsetting['k'.$i] = $item[0];
2803 $currentsetting['v'.$i] = $item[1];
2804 $i++;
2805 }
2806 return $currentsetting;
93c61c18 2807 }
2808
2809 function write_setting($data) {
2810
2811 // there miiight be an easier way to do this :)
2812 // if this is changed, make sure the $defaults array above is modified so that this
2813 // function processes it correctly
2814
2815 $keys = array();
2816 $values = array();
2817
2818 foreach ($data as $key => $value) {
2819 if (substr($key,0,1) == 'k') {
2820 $keys[substr($key,1)] = $value;
2821 } elseif (substr($key,0,1) == 'v') {
2822 $values[substr($key,1)] = $value;
2823 }
2824 }
2825
220a90c5 2826 $result = array();
93c61c18 2827 for ($i = 0; $i < count($keys); $i++) {
2828 if (($keys[$i] !== '') && ($values[$i] !== '')) {
220a90c5 2829 $result[] = clean_param($keys[$i],PARAM_NOTAGS).'{:}'.clean_param($values[$i], PARAM_NOTAGS);
93c61c18 2830 }
2831 }
2832
220a90c5 2833 return ($this->config_write($this->name, implode('{;}', $result)) ? '' : get_string('errorsetting', 'admin').$this->visiblename.'<br />');
93c61c18 2834 }
2835
220a90c5 2836 function output_html($data) {
2837 $fullname = $this->get_full_name();
93c61c18 2838 $return = '<div class="form-group">';
220a90c5 2839 for ($i = 0; $i < count($data) / 2; $i++) {
2840 $return .= '<input type="text" class="form-text" name="'.$fullname.'[k'.$i.']" value="'.$data['k'.$i].'" />';
93c61c18 2841 $return .= '&nbsp;&nbsp;';
220a90c5 2842 $return .= '<input type="text" class="form-text" name="'.$fullname.'[v'.$i.']" value="'.$data['v'.$i].'" /><br />';
93c61c18 2843 }
220a90c5 2844 $return .= '<input type="text" class="form-text" name="'.$fullname.'[k'.$i.']" value="" />';
93c61c18 2845 $return .= '&nbsp;&nbsp;';
220a90c5 2846 $return .= '<input type="text" class="form-text" name="'.$fullname.'[v'.$i.']" value="" /><br />';
2847 $return .= '<input type="text" class="form-text" name="'.$fullname.'[k'.($i + 1).']" value="" />';
93c61c18 2848 $return .= '&nbsp;&nbsp;';
220a90c5 2849 $return .= '<input type="text" class="form-text" name="'.$fullname.'[v'.($i + 1).']" value="" />';
93c61c18 2850 $return .= '</div>';
2851
220a90c5 2852 return format_admin_setting($this, $this->visiblename, $return, $this->description, false);
93c61c18 2853 }
2854
2855}
2856
220a90c5 2857/**
2858 * Setting for spellchecker language selection.
2859 */
6e4dc10f 2860class admin_setting_special_editordictionary extends admin_setting_configselect {
2861
2862 function admin_setting_special_editordictionary() {
2863 $name = 'editordictionary';
2864 $visiblename = get_string('editordictionary','admin');
2865 $description = get_string('configeditordictionary', 'admin');
220a90c5 2866 parent::admin_setting_configselect($name, $visiblename, $description, '', NULL);
6e4dc10f 2867 }
2868
220a90c5 2869 function load_choices() {
2870 // function borrowed from the old moodle/admin/editor.php, slightly modified
2871 // Get all installed dictionaries in the system
2872 if (is_array($this->choices)) {
2873 return true;
2874 }
2875
2876 $this->choices = array();
6e4dc10f 2877
2878 global $CFG;
eef868d1 2879
6e4dc10f 2880 clearstatcache();
2881
2882 // If aspellpath isn't set don't even bother ;-)
2883 if (empty($CFG->aspellpath)) {
220a90c5 2884 $this->choices['error'] = 'Empty aspell path!';
2885 return true;
6e4dc10f 2886 }
2887
2888 // Do we have access to popen function?
2889 if (!function_exists('popen')) {
220a90c5 2890 $this->choices['error'] = 'Popen function disabled!';
2891 return true;
6e4dc10f 2892 }
eef868d1 2893
6e4dc10f 2894 $cmd = $CFG->aspellpath;
2895 $output = '';
2896 $dictionaries = array();
6e4dc10f 2897
220a90c5 2898 if(!($handle = @popen(escapeshellarg($cmd).' dump dicts', 'r'))) {
2899 $this->choices['error'] = 'Couldn\'t create handle!';
6e4dc10f 2900 }
2901
2902 while(!feof($handle)) {
2903 $output .= fread($handle, 1024);
2904 }
2905 @pclose($handle);
2906
2907 $dictionaries = explode(chr(10), $output);
220a90c5 2908 foreach ($dictionaries as $dict) {
2909 if (empty($dict)) {
2910 continue;
6e4dc10f 2911 }
220a90c5 2912 $this->choices[$dict] = $dict;
6e4dc10f 2913 }
2914
220a90c5 2915 if (empty($this->choices)) {
2916 $this->choices['error'] = 'Error! Check your aspell installation!';
6e4dc10f 2917 }
220a90c5 2918 return true;
6e4dc10f 2919 }
6e4dc10f 2920}
2921
2922
2923class admin_setting_special_editorhidebuttons extends admin_setting {
6e4dc10f 2924 var $items;
2925
2926 function admin_setting_special_editorhidebuttons() {
220a90c5 2927 parent::admin_setting('editorhidebuttons', get_string('editorhidebuttons', 'admin'),
2928 get_string('confeditorhidebuttons', 'admin'), array());
6e4dc10f 2929 // weird array... buttonname => buttonimage (assume proper path appended). if you leave buttomimage blank, text will be printed instead
2930 $this->items = array('fontname' => '',
2931 'fontsize' => '',
2932 'formatblock' => '',
2933 'bold' => 'ed_format_bold.gif',
2934 'italic' => 'ed_format_italic.gif',
2935 'underline' => 'ed_format_underline.gif',
2936 'strikethrough' => 'ed_format_strike.gif',
2937 'subscript' => 'ed_format_sub.gif',
2938 'superscript' => 'ed_format_sup.gif',
2939 'copy' => 'ed_copy.gif',
2940 'cut' => 'ed_cut.gif',
2941 'paste' => 'ed_paste.gif',
2942 'clean' => 'ed_wordclean.gif',
2943 'undo' => 'ed_undo.gif',
2944 'redo' => 'ed_redo.gif',
2945 'justifyleft' => 'ed_align_left.gif',
2946 'justifycenter' => 'ed_align_center.gif',
2947 'justifyright' => 'ed_align_right.gif',
2948 'justifyfull' => 'ed_align_justify.gif',
2949 'lefttoright' => 'ed_left_to_right.gif',
2950 'righttoleft' => 'ed_right_to_left.gif',
2951 'insertorderedlist' => 'ed_list_num.gif',
2952 'insertunorderedlist' => 'ed_list_bullet.gif',
2953 'outdent' => 'ed_indent_less.gif',
2954 'indent' => 'ed_indent_more.gif',
2955 'forecolor' => 'ed_color_fg.gif',
2956 'hilitecolor' => 'ed_color_bg.gif',
2957 'inserthorizontalrule' => 'ed_hr.gif',
2958 'createanchor' => 'ed_anchor.gif',
2959 'createlink' => 'ed_link.gif',
2960 'unlink' => 'ed_unlink.gif',
2961 'insertimage' => 'ed_image.gif',
2962 'inserttable' => 'insert_table.gif',
2963 'insertsmile' => 'em.icon.smile.gif',
2964 'insertchar' => 'icon_ins_char.gif',
2965 'spellcheck' => 'spell-check.gif',
2966 'htmlmode' => 'ed_html.gif',
2967 'popupeditor' => 'fullscreen_maximize.gif',
2968 'search_replace' => 'ed_replace.gif');
2969 }
2970
2971 function get_setting() {
220a90c5 2972 $result = $this->config_read($this->name);
2973 if (is_null($result)) {
2974 return NULL;
2975 }
2976 if ($result === '') {
2977 return array();
2978 }
2979 return explode(',', $result);
6e4dc10f 2980 }
2981
2982 function write_setting($data) {
220a90c5 2983 if (!is_array($data)) {
2984 return ''; // ignore it
2985 }
2986 unset($data['xxxxx']);
6e4dc10f 2987 $result = array();
220a90c5 2988
6e4dc10f 2989 foreach ($data as $key => $value) {
2990 if (!in_array($key, array_keys($this->items))) {
220a90c5 2991 return get_string('errorsetting', 'admin');
6e4dc10f 2992 }
2993 if ($value == '1') {
2994 $result[] = $key;
2995 }
2996 }
220a90c5 2997 return ($this->config_write($this->name, implode(' ', $result)) ? '' : get_string('errorsetting', 'admin'));
6e4dc10f 2998 }
2999
220a90c5 3000 function output_html($data) {
eef868d1 3001
6e4dc10f 3002 global $CFG;
eef868d1 3003
6e4dc10f 3004 // checkboxes with input name="$this->name[$key]" value="1"
3005 // we do 15 fields per column
eef868d1 3006
1beed35f 3007 $return = '<div class="form-group">';
3008 $return .= '<table><tr><td valign="top" align="right">';
220a90c5 3009 $return .= '<input type="hidden" name="'.$this->get_full_name().'[xxxxx]" value="1" />'; // something must be submitted even if nothing selected
eef868d1 3010
6e4dc10f 3011 $count = 0;
eef868d1 3012
6e4dc10f 3013 foreach($this->items as $key => $value) {
8ddbd7a6 3014 if ($count % 15 == 0 and $count != 0) {
3015 $return .= '</td><td valign="top" align="right">';
6e4dc10f 3016 }
eef868d1 3017
220a90c5 3018 $return .= ($value == '' ? get_string($key,'editor') : '<img width="18" height="18" src="'.$CFG->wwwroot.'/lib/editor/htmlarea/images/'.$value.'" alt="'.get_string($key,'editor').'" title="'.get_string($key,'editor').'" />').'&nbsp;';
3019 $return .= '<input type="checkbox" class="form-checkbox" value="1" id="'.$this->get_id().$key.'" name="'.$this->get_full_name().'['.$key.']"'.(in_array($key,$data) ? ' checked="checked"' : '').' />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
6e4dc10f 3020 $count++;
3021 if ($count % 15 != 0) {
3022 $return .= '<br /><br />';
3023 }
3024 }
eef868d1 3025
3026 $return .= '</td></tr>';
6e4dc10f 3027 $return .= '</table>';
1beed35f 3028 $return .= '</div>';
6e4dc10f 3029
220a90c5 3030 return format_admin_setting($this, $this->visiblename, $return, $this->description, false);
6e4dc10f 3031 }
6e4dc10f 3032}
3033
220a90c5 3034/**
3035 * Special setting for limiting of the list of available languages.
3036 */
4642650f 3037class admin_setting_langlist extends admin_setting_configtext {
3038 function admin_setting_langlist() {
3039 parent::admin_setting_configtext('langlist', get_string('langlist', 'admin'), get_string('configlanglist', 'admin'), '', PARAM_NOTAGS);
3040 }
3041
3042 function write_setting($data) {
3043 $return = parent::write_setting($data);
3044 get_list_of_languages(true);//refresh the list
3045 return $return;
3046 }
3047}
3048
220a90c5 3049/**
3050 * Course category selection
3051 */
3052class admin_settings_coursecat_select extends admin_setting_configselect {
3053 function admin_settings_coursecat_select($name, $visiblename, $description, $defaultsetting) {
3054 parent::admin_setting_configselect($name, $visiblename, $description, $defaultsetting, NULL);
3055 }
6153cf58 3056
220a90c5 3057 function load_choices() {
3058 global $CFG;
3059 require_once($CFG->dirroot.'/course/lib.php');
3060 if (is_array($this->choices)) {
3061 return true;
3062 }
3063 $this->choices = make_categories_options();
3064 return true;
3065 }
3066}
eef868d1 3067
220a90c5 3068class admin_setting_special_backupdays extends admin_setting_configmulticheckbox2 {
3069 function admin_setting_special_backupdays() {
3070 parent::admin_setting_configmulticheckbox2('backup_sche_weekdays', get_string('schedule'), get_string('backupschedulehelp'), array(), NULL);
3071 $this->plugin = 'backup';
6e4dc10f 3072 }
eef868d1 3073
220a90c5 3074 function load_choices() {
3075 if (is_array($this->choices)) {
3076 return true;
3077 }
3078 $this->choices = array();
3079 $days = array('sunday', 'monday', 'tuesday', 'wednesday', 'thursday', 'friday', 'saturday');
3080 foreach ($days as $day) {
3081 $this->choices[$day] = get_string($day, 'calendar');
6e4dc10f 3082 }
220a90c5 3083 return true;
6e4dc10f 3084 }
3085}
3086
220a90c5 3087/**
3088 * Special debug setting
3089 */
ee437bbc 3090class admin_setting_special_debug extends admin_setting_configselect {
6e4dc10f 3091 function admin_setting_special_debug() {
220a90c5 3092 parent::admin_setting_configselect('debug', get_string('debug', 'admin'), get_string('configdebug', 'admin'), DEBUG_NONE, NULL);
6e4dc10f 3093 }
3094
220a90c5 3095 function load_choices() {
3096 if (is_array($this->choices)) {
3097 return true;
ee437bbc 3098 }
220a90c5 3099 $this->choices = array(DEBUG_NONE => get_string('debugnone', 'admin'),
3100 DEBUG_MINIMAL => get_string('debugminimal', 'admin'),
3101 DEBUG_NORMAL => get_string('debugnormal', 'admin'),
3102 DEBUG_ALL => get_string('debugall', 'admin'),
3103 DEBUG_DEVELOPER => get_string('debugdeveloper', 'admin'));
3104 return true;
6e4dc10f 3105 }
6e4dc10f 3106}
3107
3108
3109class admin_setting_special_calendar_weekend extends admin_setting {
6e4dc10f 3110 function admin_setting_special_calendar_weekend() {
3111 $name = 'calendar_weekend';
3112 $visiblename = get_string('calendar_weekend', 'admin');
3113 $description = get_string('helpweekenddays', 'admin');
5eaa6aa0 3114 $default = array ('0', '6'); // Saturdays and Sundays
b91b1f92 3115 parent::admin_setting($name, $visiblename, $description, $default);
6e4dc10f 3116 }
3117
3118 function get_setting() {
220a90c5 3119 $result = $this->config_read($this->name);
3120 if (is_null($result)) {
3121 return NULL;
3122 }
3123 if ($result === '') {
3124 return array();
3125 }
3126 $settings = array();
3127 for ($i=0; $i<7; $i++) {
3128 if ($result & (1 << $i)) {
3129 $setting[] = $i;
3130 }
3131 }
3132 return $setting;
6e4dc10f 3133 }
eef868d1 3134
6e4dc10f 3135 function write_setting($data) {
220a90c5 3136 if (!is_array($data)) {
3137 return '';
3138 }
3139 unset($data['xxxxx']);
4af8d5d3 3140 $result = 0;
220a90c5 3141 foreach($data as $index) {
3142 $result |= 1 << $index;
6e4dc10f 3143 }
220a90c5 3144 return ($this->config_write($this->name, $result) ? '' : get_string('errorsetting', 'admin'));
6e4dc10f 3145 }
eef868d1 3146
220a90c5 3147 function output_html($data) {
4af8d5d3 3148 // The order matters very much because of the implied numeric keys
3149 $days = array('sunday', 'monday', 'tuesday', 'wednesday', 'thursday', 'friday', 'saturday');
3150 $return = '<table><thead><tr>';
220a90c5 3151 $return .= '<input type="hidden" name="'.$this->get_full_name().'[xxxxx]" value="1" />'; // something must be submitted even if nothing selected
4af8d5d3 3152 foreach($days as $index => $day) {
220a90c5 3153 $return .= '<td><label for="'.$this->get_id().$index.'">'.get_string($day, 'calendar').'</label></td>';
4af8d5d3 3154 }
3155 $return .= '</tr></thead><tbody><tr>';
3156 foreach($days as $index => $day) {
220a90c5 3157 $return .= '<td><input type="checkbox" class="form-checkbox" id="'.$this->get_id().$index.'" name="'.$this->get_full_name().'[]" value="'.$index.'" '.(in_array("$index", $data) ? 'checked="checked"' : '').' /></td>';
4af8d5d3 3158 }
3159 $return .= '</tr></tbody></table>';
6153cf58 3160
220a90c5 3161 return format_admin_setting($this, $this->visiblename, $return, $this->description, false);
eef868d1 3162
6e4dc10f 3163 }
6e4dc10f 3164}
3165
220a90c5 3166
3d5c00b3 3167/**
220a90c5 3168 * Graded roles in gradebook
5a412dbf 3169 */
220a90c5 3170class admin_setting_special_gradebookroles extends admin_setting_configmulticheckbox {
0909d44e 3171 function admin_setting_special_gradebookroles() {
220a90c5 3172 parent::admin_setting_configmulticheckbox('gradebookroles', get_string('gradebookroles', 'admin'),
3173 get_string('configgradebookroles', 'admin'), NULL, NULL);
5a412dbf 3174 }
3175
220a90c5 3176 function load_choices() {
5a412dbf 3177 global $CFG;
220a90c5 3178 if (empty($CFG->rolesactive)) {
3179 return false;
3180 }
3181 if (is_array($this->choices)) {
3182 return true;
3183 }
3184 if ($roles = get_records('role')) {
3185 $this->choices = array();
3186 foreach($roles as $role) {
3187 $this->choices[$role->id] = format_string($role->name);
60f7d402 3188 }
220a90c5 3189 return true;
5a412dbf 3190 } else {
220a90c5 3191 return false;
5a412dbf 3192 }
3193 }
3194
220a90c5 3195 function get_defaultsetting() {
3196 global $CFG;
3197 if (empty($CFG->rolesactive)) {
3198 return NULL;
3199 }
3200 $result = array();
3201 if ($studentroles = get_roles_with_capability('moodle/legacy:student', CAP_ALLOW)) {
3202 foreach ($studentroles as $studentrole) {
3203 $result[$studentrole->id] = '1';
5a412dbf 3204 }
73afaf5b 3205 }
220a90c5 3206 return $result;
5a412dbf 3207 }
220a90c5 3208}
5a412dbf 3209
220a90c5 3210/**
3211 * Which roles to show on course decription page
3212 */
3213class admin_setting_special_coursemanager extends admin_setting_configmulticheckbox {
3214 function admin_setting_special_coursemanager() {
3215 parent::admin_setting_configmulticheckbox('coursemanager', get_string('coursemanager', 'admin'),
3216 get_string('configcoursemanager', 'admin'), NULL, NULL);
3217 }
5a412dbf 3218
220a90c5 3219 function load_choices() {
3220 if (is_array($this->choices)) {
3221 return true;
5a412dbf 3222 }
5a412dbf 3223 if ($roles = get_records('role')) {
220a90c5 3224 $this->choices = array();
3225 foreach($roles as $role) {
3226 $this->choices[$role->id] = format_string($role->name);
5a412dbf 3227 }
220a90c5 3228 return true;
5a412dbf 3229 }
220a90c5 3230 return false;
3231 }
73afaf5b 3232
220a90c5 3233 function get_defaultsetting() {
3234 global $CFG;
3235 if (empty($CFG->rolesactive)) {
3236 return NULL;
3237 }
3238 $result = array();
3239 if ($teacherroles = get_roles_with_capability('moodle/legacy:editingteacher', CAP_ALLOW)) {
3240 foreach ($teacherroles as $teacherrole) {
3241 $result[$teacherrole->id] = '1';
3242 }
3243 }
3244 return $result;
3245 }
3246}
5a412dbf 3247
220a90c5 3248/**
3249 * Primary grade export plugin - has state tracking.
3250 */
3251class admin_setting_special_gradeexport extends admin_setting_configmulticheckbox {
3252 function admin_setting_special_gradeexport() {
3253 parent::admin_setting_configmulticheckbox('gradeexport', get_string('gradeexport', 'admin'),
3254 get_string('configgradeexport', 'admin'), array(), NULL);
5a412dbf 3255 }
3256
220a90c5 3257 function load_choices() {
3258 if (is_array($this->choices)) {
3259 return true;
3260 }
3261 $this->choices = array();
3262
3263 if ($plugins = get_list_of_plugins('grade/export')) {
3264 foreach($plugins as $plugin) {
3265 $this->choices[$plugin] = get_string('modulename', 'gradeexport_'.$plugin);
3266 }
3267 }
3268 return true;
3269 }
5a412dbf 3270}
6e4dc10f 3271
220a90c5 3272/**
3273 * Grade category settings
d42c64ba 3274 */
220a90c5 3275class admin_setting_gradecat_combo extends admin_setting {
d42c64ba 3276
220a90c5 3277 var $choices;
3278
3279 function admin_setting_gradecat_combo($name, $visiblename, $description, $defaultsetting, $choices) {
3280 $this->choices = $choices;
3281 parent::admin_setting($name, $visiblename, $description, $defaultsetting);
d42c64ba 3282 }
3283
3284 function get_setting() {
d42c64ba 3285 global $CFG;
220a90c5 3286
3287 $value = $this->config_read($this->name);
3288 $flag = $this->config_read($this->name.'_flag');
3289
3290 if (is_null($value) or is_null($flag)) {
3291 return NULL;
d42c64ba 3292 }
220a90c5 3293
3294 $flag = (int)$flag;
3295 $forced = (boolean)(1 & $flag); // first bit
3296 $adv = (boolean)(2 & $flag); // second bit
3297
3298 return array('value' => $value, 'forced' => $forced, 'adv' => $adv);
d42c64ba 3299 }
3300
3301 function write_setting($data) {
220a90c5 3302 global $CFG;
d42c64ba 3303
220a90c5 3304 $value = $data['value'];
3305 $forced = empty($data['forced']) ? 0 : 1;
3306 $adv = empty($data['adv']) ? 0 : 2;
3307 $flag = ($forced | $adv); //bitwise or
3308
3309 if (!in_array($value, array_keys($this->choices))) {
3310 return 'Error setting ';
3311 }
3312
3313 $oldvalue = $this->config_read($this->name);
3314 $oldflag = (int)$this->config_read($this->name.'_flag');
3315 $oldforced = (1 & $oldflag); // first bit
3316
3317 $result1 = $this->config_write($this->name, $value);
3318 $result2 = $this->config_write($this->name.'_flag', $flag);
3319
3320 // force regrade if needed
3321 if ($oldforced != $forced or ($forced and $value != $oldvalue)) {
3322 require_once($CFG->libdir.'/gradelib.php');
3323 grade_category::updated_forced_settings();
3324 }
3325
3326 if ($result1 and $result2) {
3327 return '';
d42c64ba 3328 } else {
220a90c5 3329 return get_string('errorsetting', 'admin');
d42c64ba 3330 }
3331 }
3332
220a90c5 3333 function output_html($data) {
3334 $value = $data['value'];
3335 $forced = !empty($data['forced']);
3336 $adv = !empty($data['adv']);
d42c64ba 3337
220a90c5 3338 $return = '<select class="form-select" id="'.$this->get_id().'" name="'.$this->get_full_name().'[value]">';
3339 foreach ($this->choices as $key => $val) {
3340 // the string cast is needed because key may be integer - 0 is equal to most strings!
3341 $return .= '<option value="'.$key.'"'.((string)$key==$value ? ' selected="selected"' : '').'>'.$val.'</option>';
3342 }
3343 $return .= '</select>';
3344 $return .= '</label><input type="checkbox" class="form-checkbox" id="'.$this->get_id().'force" name="'.$this->get_full_name().'[forced]" value="1" '.($forced ? 'checked="checked"' : '').' />'
3345 .'<label for="'.$this->get_id().'force">'.get_string('force');
3346 $return .= '</label><input type="checkbox" class="form-checkbox" id="'.$this->get_id().'adv" name="'.$this->get_full_name().'[adv]" value="1" '.($adv ? 'checked="checked"' : '').' />'
3347 .'<label for="'.$this->get_id().'adv">'.get_string('advanced');
3348
3349 return format_admin_setting($this, $this->visiblename, $return, $this->description);
3350 }
3351}
3352
3353
3354/**
3355 * Selection of grade report in user profiles
3356 */
3357class admin_setting_grade_profilereport extends admin_setting_configselect {
3358 function admin_setting_grade_profilereport() {
3359 parent::admin_setting_configselect('grade_profilereport', get_string('profilereport', 'grades'), get_string('configprofilereport', 'grades'), 'user', null);
3360 }
3361
3362 function load_choices() {
3363 if (is_array($this->choices)) {
3364 return true;
3365 }
3366 $this->choices = array();
3367
3368 global $CFG;
3369 require_once($CFG->libdir.'/gradelib.php');
3370
3371 foreach (get_list_of_plugins('grade/report') as $plugin) {
3372 if (file_exists($CFG->dirroot.'/grade/report/'.$plugin.'/lib.php')) {
3373 require_once($CFG->dirroot.'/grade/report/'.$plugin.'/lib.php');
3374 $functionname = 'grade_report_'.$plugin.'_profilereport';
3375 if (function_exists($functionname)) {
3376 $this->choices[$plugin] = get_string('modulename', 'gradereport_'.$plugin, NULL, $CFG->dirroot.'/grade/report/'.$plugin.'/lang/');
d42c64ba 3377 }
d42c64ba 3378 }
d42c64ba 3379 }
220a90c5 3380 return true;
d42c64ba 3381 }
3382}
3383
220a90c5 3384/**
3385 * Special class for register auth selection
76127f37 3386 */
220a90c5 3387class admin_setting_special_registerauth extends admin_setting_configselect {
3388 function admin_setting_special_registerauth() {
3389 parent::admin_setting_configselect('registerauth', get_string('selfregistration', 'auth'), get_string('selfregistration_help', 'auth'), 'email', null);
76127f37 3390 }
3391
220a90c5 3392 function get_defaultsettings() {
3393 $this->load_choices();
3394 if (array_key_exists($this->defaultsetting, $this->choices)) {
3395 return $this->defaultsetting;
3396 } else {
3397 return '';
3398 }
3399 }
76127f37 3400
220a90c5 3401 function load_choices() {
76127f37 3402 global $CFG;
220a90c5 3403
3404 if (is_array($this->choices)) {
3405 return true;
3406 }
3407 $this->choices = array();
3408 $this->choices[''] = get_string('disable');
3409
3410 $authsenabled = get_enabled_auth_plugins(true);
3411
3412 foreach ($authsenabled as $auth) {
3413 $authplugin = get_auth_plugin($auth);
3414 if (!$authplugin->can_signup()) {
3415 continue;
76127f37 3416 }
220a90c5 3417 // Get the auth title (from core or own auth lang files)
3418 $authtitle = get_string("auth_{$auth}title", "auth");
3419 if ($authtitle == "[[auth_{$auth}title]]") {
3420 $authtitle = get_string("auth_{$auth}title", "auth_{$auth}");
3421 }
3422 $this->choices[$auth] = $authtitle;
76127f37 3423 }
220a90c5 3424 return true;
76127f37 3425 }
220a90c5 3426}
76127f37 3427
220a90c5 3428/**
3429 * Module manage page
3430 */
3431class admin_page_managemods extends admin_externalpage {
3432 function admin_page_managemods() {
3433 global $CFG;
3434 parent::admin_externalpage('managemodules', get_string('modsettings', 'admin'), "$CFG->wwwroot/$CFG->admin/modules.php");
3435 }
76127f37 3436
220a90c5 3437 function search($query) {
3cea9c55 3438 if ($result = parent::search($query)) {
3439 return $result;
220a90c5 3440 }
3441
3442 $found = false;
3443 if ($modules = get_records('modules')) {
3444 $textlib = textlib_get_instance();
3445 foreach ($modules as $module) {
3446 if (strpos($module->name, $query) !== false) {
3447 $found = true;
3448 break;
3449 }
3450 $strmodulename = get_string('modulename', $module-&