2 // This file is part of Moodle - http://moodle.org/
4 // Moodle is free software: you can redistribute it and/or modify
5 // it under the terms of the GNU General Public License as published by
6 // the Free Software Foundation, either version 3 of the License, or
7 // (at your option) any later version.
9 // Moodle is distributed in the hope that it will be useful,
10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 // GNU General Public License for more details.
14 // You should have received a copy of the GNU General Public License
15 // along with Moodle. If not, see <http://www.gnu.org/licenses/>.
18 * Library of useful functions
20 * @copyright 1999 Martin Dougiamas http://dougiamas.com
21 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
22 * @package core_course
25 defined('MOODLE_INTERNAL') ||
die;
27 require_once($CFG->libdir
.'/completionlib.php');
28 require_once($CFG->libdir
.'/filelib.php');
29 require_once($CFG->dirroot
.'/course/format/lib.php');
31 define('COURSE_MAX_LOGS_PER_PAGE', 1000); // Records.
32 define('COURSE_MAX_RECENT_PERIOD', 172800); // Two days, in seconds.
35 * Number of courses to display when summaries are included.
37 * @deprecated since 2.4, use $CFG->courseswithsummarieslimit instead.
39 define('COURSE_MAX_SUMMARIES_PER_PAGE', 10);
41 // Max courses in log dropdown before switching to optional.
42 define('COURSE_MAX_COURSES_PER_DROPDOWN', 1000);
43 // Max users in log dropdown before switching to optional.
44 define('COURSE_MAX_USERS_PER_DROPDOWN', 1000);
45 define('FRONTPAGENEWS', '0');
46 define('FRONTPAGECATEGORYNAMES', '2');
47 define('FRONTPAGECATEGORYCOMBO', '4');
48 define('FRONTPAGEENROLLEDCOURSELIST', '5');
49 define('FRONTPAGEALLCOURSELIST', '6');
50 define('FRONTPAGECOURSESEARCH', '7');
51 // Important! Replaced with $CFG->frontpagecourselimit - maximum number of courses displayed on the frontpage.
52 define('EXCELROWS', 65535);
53 define('FIRSTUSEDEXCELROW', 3);
55 define('MOD_CLASS_ACTIVITY', 0);
56 define('MOD_CLASS_RESOURCE', 1);
58 function make_log_url($module, $url) {
61 if (strpos($url, 'report/') === 0) {
62 // there is only one report type, course reports are deprecated
72 if (strpos($url, '../') === 0) {
73 $url = ltrim($url, '.');
75 $url = "/course/$url";
79 $url = "/calendar/$url";
83 $url = "/$module/$url";
96 $url = "/message/$url";
108 $url = "/grade/$url";
111 $url = "/mod/$module/$url";
115 //now let's sanitise urls - there might be some ugly nasties:-(
116 $parts = explode('?', $url);
117 $script = array_shift($parts);
118 if (strpos($script, 'http') === 0) {
119 $script = clean_param($script, PARAM_URL
);
121 $script = clean_param($script, PARAM_PATH
);
126 $query = implode('', $parts);
127 $query = str_replace('&', '&', $query); // both & and & are stored in db :-|
128 $parts = explode('&', $query);
129 $eq = urlencode('=');
130 foreach ($parts as $key=>$part) {
131 $part = urlencode(urldecode($part));
132 $part = str_replace($eq, '=', $part);
133 $parts[$key] = $part;
135 $query = '?'.implode('&', $parts);
138 return $script.$query;
142 function build_mnet_logs_array($hostid, $course, $user=0, $date=0, $order="l.time ASC", $limitfrom='', $limitnum='',
143 $modname="", $modid=0, $modaction="", $groupid=0) {
146 // It is assumed that $date is the GMT time of midnight for that day,
147 // and so the next 86400 seconds worth of logs are printed.
149 /// Setup for group handling.
151 // TODO: I don't understand group/context/etc. enough to be able to do
152 // something interesting with it here
153 // What is the context of a remote course?
155 /// If the group mode is separate, and this user does not have editing privileges,
156 /// then only the user's group can be viewed.
157 //if ($course->groupmode == SEPARATEGROUPS and !has_capability('moodle/course:managegroups', context_course::instance($course->id))) {
158 // $groupid = get_current_group($course->id);
160 /// If this course doesn't have groups, no groupid can be specified.
161 //else if (!$course->groupmode) {
170 $qry = "SELECT l.*, u.firstname, u.lastname, u.picture
172 LEFT JOIN {user} u ON l.userid = u.id
176 $where .= "l.hostid = :hostid";
177 $params['hostid'] = $hostid;
179 // TODO: Is 1 really a magic number referring to the sitename?
180 if ($course != SITEID ||
$modid != 0) {
181 $where .= " AND l.course=:courseid";
182 $params['courseid'] = $course;
186 $where .= " AND l.module = :modname";
187 $params['modname'] = $modname;
190 if ('site_errors' === $modid) {
191 $where .= " AND ( l.action='error' OR l.action='infected' )";
193 //TODO: This assumes that modids are the same across sites... probably
195 $where .= " AND l.cmid = :modid";
196 $params['modid'] = $modid;
200 $firstletter = substr($modaction, 0, 1);
201 if ($firstletter == '-') {
202 $where .= " AND ".$DB->sql_like('l.action', ':modaction', false, true, true);
203 $params['modaction'] = '%'.substr($modaction, 1).'%';
205 $where .= " AND ".$DB->sql_like('l.action', ':modaction', false);
206 $params['modaction'] = '%'.$modaction.'%';
211 $where .= " AND l.userid = :user";
212 $params['user'] = $user;
216 $enddate = $date +
86400;
217 $where .= " AND l.time > :date AND l.time < :enddate";
218 $params['date'] = $date;
219 $params['enddate'] = $enddate;
223 $result['totalcount'] = $DB->count_records_sql("SELECT COUNT('x') FROM {mnet_log} l WHERE $where", $params);
224 if(!empty($result['totalcount'])) {
225 $where .= " ORDER BY $order";
226 $result['logs'] = $DB->get_records_sql("$qry $where", $params, $limitfrom, $limitnum);
228 $result['logs'] = array();
233 function build_logs_array($course, $user=0, $date=0, $order="l.time ASC", $limitfrom='', $limitnum='',
234 $modname="", $modid=0, $modaction="", $groupid=0) {
235 global $DB, $SESSION, $USER;
236 // It is assumed that $date is the GMT time of midnight for that day,
237 // and so the next 86400 seconds worth of logs are printed.
239 /// Setup for group handling.
241 /// If the group mode is separate, and this user does not have editing privileges,
242 /// then only the user's group can be viewed.
243 if ($course->groupmode
== SEPARATEGROUPS
and !has_capability('moodle/course:managegroups', context_course
::instance($course->id
))) {
244 if (isset($SESSION->currentgroup
[$course->id
])) {
245 $groupid = $SESSION->currentgroup
[$course->id
];
247 $groupid = groups_get_all_groups($course->id
, $USER->id
);
248 if (is_array($groupid)) {
249 $groupid = array_shift(array_keys($groupid));
250 $SESSION->currentgroup
[$course->id
] = $groupid;
256 /// If this course doesn't have groups, no groupid can be specified.
257 else if (!$course->groupmode
) {
264 if ($course->id
!= SITEID ||
$modid != 0) {
265 $joins[] = "l.course = :courseid";
266 $params['courseid'] = $course->id
;
270 $joins[] = "l.module = :modname";
271 $params['modname'] = $modname;
274 if ('site_errors' === $modid) {
275 $joins[] = "( l.action='error' OR l.action='infected' )";
277 $joins[] = "l.cmid = :modid";
278 $params['modid'] = $modid;
282 $firstletter = substr($modaction, 0, 1);
283 if ($firstletter == '-') {
284 $joins[] = $DB->sql_like('l.action', ':modaction', false, true, true);
285 $params['modaction'] = '%'.substr($modaction, 1).'%';
287 $joins[] = $DB->sql_like('l.action', ':modaction', false);
288 $params['modaction'] = '%'.$modaction.'%';
293 /// Getting all members of a group.
294 if ($groupid and !$user) {
295 if ($gusers = groups_get_members($groupid)) {
296 $gusers = array_keys($gusers);
297 $joins[] = 'l.userid IN (' . implode(',', $gusers) . ')';
299 $joins[] = 'l.userid = 0'; // No users in groups, so we want something that will always be false.
303 $joins[] = "l.userid = :userid";
304 $params['userid'] = $user;
308 $enddate = $date +
86400;
309 $joins[] = "l.time > :date AND l.time < :enddate";
310 $params['date'] = $date;
311 $params['enddate'] = $enddate;
314 $selector = implode(' AND ', $joins);
316 $totalcount = 0; // Initialise
318 $result['logs'] = get_logs($selector, $params, $order, $limitfrom, $limitnum, $totalcount);
319 $result['totalcount'] = $totalcount;
324 function print_log($course, $user=0, $date=0, $order="l.time ASC", $page=0, $perpage=100,
325 $url="", $modname="", $modid=0, $modaction="", $groupid=0) {
327 global $CFG, $DB, $OUTPUT;
329 if (!$logs = build_logs_array($course, $user, $date, $order, $page*$perpage, $perpage,
330 $modname, $modid, $modaction, $groupid)) {
331 echo $OUTPUT->notification("No logs found!");
332 echo $OUTPUT->footer();
338 if ($course->id
== SITEID
) {
340 if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) {
341 foreach ($ccc as $cc) {
342 $courses[$cc->id
] = $cc->shortname
;
346 $courses[$course->id
] = $course->shortname
;
349 $totalcount = $logs['totalcount'];
352 $tt = getdate(time());
353 $today = mktime (0, 0, 0, $tt["mon"], $tt["mday"], $tt["year"]);
355 $strftimedatetime = get_string("strftimedatetime");
357 echo "<div class=\"info\">\n";
358 print_string("displayingrecords", "", $totalcount);
361 echo $OUTPUT->paging_bar($totalcount, $page, $perpage, "$url&perpage=$perpage");
363 $table = new html_table();
364 $table->classes
= array('logtable','generaltable');
365 $table->align
= array('right', 'left', 'left');
366 $table->head
= array(
368 get_string('ip_address'),
369 get_string('fullnameuser'),
370 get_string('action'),
373 $table->data
= array();
375 if ($course->id
== SITEID
) {
376 array_unshift($table->align
, 'left');
377 array_unshift($table->head
, get_string('course'));
380 // Make sure that the logs array is an array, even it is empty, to avoid warnings from the foreach.
381 if (empty($logs['logs'])) {
382 $logs['logs'] = array();
385 foreach ($logs['logs'] as $log) {
387 if (isset($ldcache[$log->module
][$log->action
])) {
388 $ld = $ldcache[$log->module
][$log->action
];
390 $ld = $DB->get_record('log_display', array('module'=>$log->module
, 'action'=>$log->action
));
391 $ldcache[$log->module
][$log->action
] = $ld;
393 if ($ld && is_numeric($log->info
)) {
394 // ugly hack to make sure fullname is shown correctly
395 if ($ld->mtable
== 'user' && $ld->field
== $DB->sql_concat('firstname', "' '" , 'lastname')) {
396 $log->info
= fullname($DB->get_record($ld->mtable
, array('id'=>$log->info
)), true);
398 $log->info
= $DB->get_field($ld->mtable
, $ld->field
, array('id'=>$log->info
));
403 $log->info
= format_string($log->info
);
405 // If $log->url has been trimmed short by the db size restriction
406 // code in add_to_log, keep a note so we don't add a link to a broken url
407 $brokenurl=(core_text
::strlen($log->url
)==100 && core_text
::substr($log->url
,97)=='...');
410 if ($course->id
== SITEID
) {
411 if (empty($log->course
)) {
412 $row[] = get_string('site');
414 $row[] = "<a href=\"{$CFG->wwwroot}/course/view.php?id={$log->course}\">". format_string($courses[$log->course
])."</a>";
418 $row[] = userdate($log->time
, '%a').' '.userdate($log->time
, $strftimedatetime);
420 $link = new moodle_url("/iplookup/index.php?ip=$log->ip&user=$log->userid");
421 $row[] = $OUTPUT->action_link($link, $log->ip
, new popup_action('click', $link, 'iplookup', array('height' => 440, 'width' => 700)));
423 $row[] = html_writer
::link(new moodle_url("/user/view.php?id={$log->userid}&course={$log->course}"), fullname($log, has_capability('moodle/site:viewfullnames', context_course
::instance($course->id
))));
425 $displayaction="$log->module $log->action";
427 $row[] = $displayaction;
429 $link = make_log_url($log->module
,$log->url
);
430 $row[] = $OUTPUT->action_link($link, $displayaction, new popup_action('click', $link, 'fromloglive'), array('height' => 440, 'width' => 700));
433 $table->data
[] = $row;
436 echo html_writer
::table($table);
437 echo $OUTPUT->paging_bar($totalcount, $page, $perpage, "$url&perpage=$perpage");
441 function print_mnet_log($hostid, $course, $user=0, $date=0, $order="l.time ASC", $page=0, $perpage=100,
442 $url="", $modname="", $modid=0, $modaction="", $groupid=0) {
444 global $CFG, $DB, $OUTPUT;
446 if (!$logs = build_mnet_logs_array($hostid, $course, $user, $date, $order, $page*$perpage, $perpage,
447 $modname, $modid, $modaction, $groupid)) {
448 echo $OUTPUT->notification("No logs found!");
449 echo $OUTPUT->footer();
453 if ($course->id
== SITEID
) {
455 if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname,c.visible')) {
456 foreach ($ccc as $cc) {
457 $courses[$cc->id
] = $cc->shortname
;
462 $totalcount = $logs['totalcount'];
465 $tt = getdate(time());
466 $today = mktime (0, 0, 0, $tt["mon"], $tt["mday"], $tt["year"]);
468 $strftimedatetime = get_string("strftimedatetime");
470 echo "<div class=\"info\">\n";
471 print_string("displayingrecords", "", $totalcount);
474 echo $OUTPUT->paging_bar($totalcount, $page, $perpage, "$url&perpage=$perpage");
476 echo "<table class=\"logtable\" cellpadding=\"3\" cellspacing=\"0\">\n";
478 if ($course->id
== SITEID
) {
479 echo "<th class=\"c0 header\">".get_string('course')."</th>\n";
481 echo "<th class=\"c1 header\">".get_string('time')."</th>\n";
482 echo "<th class=\"c2 header\">".get_string('ip_address')."</th>\n";
483 echo "<th class=\"c3 header\">".get_string('fullnameuser')."</th>\n";
484 echo "<th class=\"c4 header\">".get_string('action')."</th>\n";
485 echo "<th class=\"c5 header\">".get_string('info')."</th>\n";
488 if (empty($logs['logs'])) {
494 foreach ($logs['logs'] as $log) {
496 $log->info
= $log->coursename
;
497 $row = ($row +
1) %
2;
499 if (isset($ldcache[$log->module
][$log->action
])) {
500 $ld = $ldcache[$log->module
][$log->action
];
502 $ld = $DB->get_record('log_display', array('module'=>$log->module
, 'action'=>$log->action
));
503 $ldcache[$log->module
][$log->action
] = $ld;
505 if (0 && $ld && !empty($log->info
)) {
506 // ugly hack to make sure fullname is shown correctly
507 if (($ld->mtable
== 'user') and ($ld->field
== $DB->sql_concat('firstname', "' '" , 'lastname'))) {
508 $log->info
= fullname($DB->get_record($ld->mtable
, array('id'=>$log->info
)), true);
510 $log->info
= $DB->get_field($ld->mtable
, $ld->field
, array('id'=>$log->info
));
515 $log->info
= format_string($log->info
);
517 echo '<tr class="r'.$row.'">';
518 if ($course->id
== SITEID
) {
519 $courseshortname = format_string($courses[$log->course
], true, array('context' => context_course
::instance(SITEID
)));
520 echo "<td class=\"r$row c0\" >\n";
521 echo " <a href=\"{$CFG->wwwroot}/course/view.php?id={$log->course}\">".$courseshortname."</a>\n";
524 echo "<td class=\"r$row c1\" align=\"right\">".userdate($log->time
, '%a').
525 ' '.userdate($log->time
, $strftimedatetime)."</td>\n";
526 echo "<td class=\"r$row c2\" >\n";
527 $link = new moodle_url("/iplookup/index.php?ip=$log->ip&user=$log->userid");
528 echo $OUTPUT->action_link($link, $log->ip
, new popup_action('click', $link, 'iplookup', array('height' => 400, 'width' => 700)));
530 $fullname = fullname($log, has_capability('moodle/site:viewfullnames', context_course
::instance($course->id
)));
531 echo "<td class=\"r$row c3\" >\n";
532 echo " <a href=\"$CFG->wwwroot/user/view.php?id={$log->userid}\">$fullname</a>\n";
534 echo "<td class=\"r$row c4\">\n";
535 echo $log->action
.': '.$log->module
;
537 echo "<td class=\"r$row c5\">{$log->info}</td>\n";
542 echo $OUTPUT->paging_bar($totalcount, $page, $perpage, "$url&perpage=$perpage");
546 function print_log_csv($course, $user, $date, $order='l.time DESC', $modname,
547 $modid, $modaction, $groupid) {
550 require_once($CFG->libdir
. '/csvlib.class.php');
552 $csvexporter = new csv_export_writer('tab');
555 $header[] = get_string('course');
556 $header[] = get_string('time');
557 $header[] = get_string('ip_address');
558 $header[] = get_string('fullnameuser');
559 $header[] = get_string('action');
560 $header[] = get_string('info');
562 if (!$logs = build_logs_array($course, $user, $date, $order, '', '',
563 $modname, $modid, $modaction, $groupid)) {
569 if ($course->id
== SITEID
) {
571 if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) {
572 foreach ($ccc as $cc) {
573 $courses[$cc->id
] = $cc->shortname
;
577 $courses[$course->id
] = $course->shortname
;
582 $tt = getdate(time());
583 $today = mktime (0, 0, 0, $tt["mon"], $tt["mday"], $tt["year"]);
585 $strftimedatetime = get_string("strftimedatetime");
587 $csvexporter->set_filename('logs', '.txt');
588 $title = array(get_string('savedat').userdate(time(), $strftimedatetime));
589 $csvexporter->add_data($title);
590 $csvexporter->add_data($header);
592 if (empty($logs['logs'])) {
596 foreach ($logs['logs'] as $log) {
597 if (isset($ldcache[$log->module
][$log->action
])) {
598 $ld = $ldcache[$log->module
][$log->action
];
600 $ld = $DB->get_record('log_display', array('module'=>$log->module
, 'action'=>$log->action
));
601 $ldcache[$log->module
][$log->action
] = $ld;
603 if ($ld && is_numeric($log->info
)) {
604 // ugly hack to make sure fullname is shown correctly
605 if (($ld->mtable
== 'user') and ($ld->field
== $DB->sql_concat('firstname', "' '" , 'lastname'))) {
606 $log->info
= fullname($DB->get_record($ld->mtable
, array('id'=>$log->info
)), true);
608 $log->info
= $DB->get_field($ld->mtable
, $ld->field
, array('id'=>$log->info
));
613 $log->info
= format_string($log->info
);
614 $log->info
= strip_tags(urldecode($log->info
)); // Some XSS protection
616 $coursecontext = context_course
::instance($course->id
);
617 $firstField = format_string($courses[$log->course
], true, array('context' => $coursecontext));
618 $fullname = fullname($log, has_capability('moodle/site:viewfullnames', $coursecontext));
619 $actionurl = $CFG->wwwroot
. make_log_url($log->module
,$log->url
);
620 $row = array($firstField, userdate($log->time
, $strftimedatetime), $log->ip
, $fullname, $log->module
.' '.$log->action
.' ('.$actionurl.')', $log->info
);
621 $csvexporter->add_data($row);
623 $csvexporter->download_file();
628 function print_log_xls($course, $user, $date, $order='l.time DESC', $modname,
629 $modid, $modaction, $groupid) {
633 require_once("$CFG->libdir/excellib.class.php");
635 if (!$logs = build_logs_array($course, $user, $date, $order, '', '',
636 $modname, $modid, $modaction, $groupid)) {
642 if ($course->id
== SITEID
) {
644 if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) {
645 foreach ($ccc as $cc) {
646 $courses[$cc->id
] = $cc->shortname
;
650 $courses[$course->id
] = $course->shortname
;
655 $tt = getdate(time());
656 $today = mktime (0, 0, 0, $tt["mon"], $tt["mday"], $tt["year"]);
658 $strftimedatetime = get_string("strftimedatetime");
660 $nroPages = ceil(count($logs)/(EXCELROWS
-FIRSTUSEDEXCELROW+
1));
661 $filename = 'logs_'.userdate(time(),get_string('backupnameformat', 'langconfig'),99,false);
664 $workbook = new MoodleExcelWorkbook('-');
665 $workbook->send($filename);
667 $worksheet = array();
668 $headers = array(get_string('course'), get_string('time'), get_string('ip_address'),
669 get_string('fullnameuser'), get_string('action'), get_string('info'));
671 // Creating worksheets
672 for ($wsnumber = 1; $wsnumber <= $nroPages; $wsnumber++
) {
673 $sheettitle = get_string('logs').' '.$wsnumber.'-'.$nroPages;
674 $worksheet[$wsnumber] = $workbook->add_worksheet($sheettitle);
675 $worksheet[$wsnumber]->set_column(1, 1, 30);
676 $worksheet[$wsnumber]->write_string(0, 0, get_string('savedat').
677 userdate(time(), $strftimedatetime));
679 foreach ($headers as $item) {
680 $worksheet[$wsnumber]->write(FIRSTUSEDEXCELROW
-1,$col,$item,'');
685 if (empty($logs['logs'])) {
690 $formatDate =& $workbook->add_format();
691 $formatDate->set_num_format(get_string('log_excel_date_format'));
693 $row = FIRSTUSEDEXCELROW
;
695 $myxls =& $worksheet[$wsnumber];
696 foreach ($logs['logs'] as $log) {
697 if (isset($ldcache[$log->module
][$log->action
])) {
698 $ld = $ldcache[$log->module
][$log->action
];
700 $ld = $DB->get_record('log_display', array('module'=>$log->module
, 'action'=>$log->action
));
701 $ldcache[$log->module
][$log->action
] = $ld;
703 if ($ld && is_numeric($log->info
)) {
704 // ugly hack to make sure fullname is shown correctly
705 if (($ld->mtable
== 'user') and ($ld->field
== $DB->sql_concat('firstname', "' '" , 'lastname'))) {
706 $log->info
= fullname($DB->get_record($ld->mtable
, array('id'=>$log->info
)), true);
708 $log->info
= $DB->get_field($ld->mtable
, $ld->field
, array('id'=>$log->info
));
713 $log->info
= format_string($log->info
);
714 $log->info
= strip_tags(urldecode($log->info
)); // Some XSS protection
717 if ($row > EXCELROWS
) {
719 $myxls =& $worksheet[$wsnumber];
720 $row = FIRSTUSEDEXCELROW
;
724 $coursecontext = context_course
::instance($course->id
);
726 $myxls->write($row, 0, format_string($courses[$log->course
], true, array('context' => $coursecontext)), '');
727 $myxls->write_date($row, 1, $log->time
, $formatDate); // write_date() does conversion/timezone support. MDL-14934
728 $myxls->write($row, 2, $log->ip
, '');
729 $fullname = fullname($log, has_capability('moodle/site:viewfullnames', $coursecontext));
730 $myxls->write($row, 3, $fullname, '');
731 $actionurl = $CFG->wwwroot
. make_log_url($log->module
,$log->url
);
732 $myxls->write($row, 4, $log->module
.' '.$log->action
.' ('.$actionurl.')', '');
733 $myxls->write($row, 5, $log->info
, '');
742 function print_log_ods($course, $user, $date, $order='l.time DESC', $modname,
743 $modid, $modaction, $groupid) {
747 require_once("$CFG->libdir/odslib.class.php");
749 if (!$logs = build_logs_array($course, $user, $date, $order, '', '',
750 $modname, $modid, $modaction, $groupid)) {
756 if ($course->id
== SITEID
) {
758 if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) {
759 foreach ($ccc as $cc) {
760 $courses[$cc->id
] = $cc->shortname
;
764 $courses[$course->id
] = $course->shortname
;
769 $tt = getdate(time());
770 $today = mktime (0, 0, 0, $tt["mon"], $tt["mday"], $tt["year"]);
772 $strftimedatetime = get_string("strftimedatetime");
774 $nroPages = ceil(count($logs)/(EXCELROWS
-FIRSTUSEDEXCELROW+
1));
775 $filename = 'logs_'.userdate(time(),get_string('backupnameformat', 'langconfig'),99,false);
778 $workbook = new MoodleODSWorkbook('-');
779 $workbook->send($filename);
781 $worksheet = array();
782 $headers = array(get_string('course'), get_string('time'), get_string('ip_address'),
783 get_string('fullnameuser'), get_string('action'), get_string('info'));
785 // Creating worksheets
786 for ($wsnumber = 1; $wsnumber <= $nroPages; $wsnumber++
) {
787 $sheettitle = get_string('logs').' '.$wsnumber.'-'.$nroPages;
788 $worksheet[$wsnumber] = $workbook->add_worksheet($sheettitle);
789 $worksheet[$wsnumber]->set_column(1, 1, 30);
790 $worksheet[$wsnumber]->write_string(0, 0, get_string('savedat').
791 userdate(time(), $strftimedatetime));
793 foreach ($headers as $item) {
794 $worksheet[$wsnumber]->write(FIRSTUSEDEXCELROW
-1,$col,$item,'');
799 if (empty($logs['logs'])) {
804 $formatDate =& $workbook->add_format();
805 $formatDate->set_num_format(get_string('log_excel_date_format'));
807 $row = FIRSTUSEDEXCELROW
;
809 $myxls =& $worksheet[$wsnumber];
810 foreach ($logs['logs'] as $log) {
811 if (isset($ldcache[$log->module
][$log->action
])) {
812 $ld = $ldcache[$log->module
][$log->action
];
814 $ld = $DB->get_record('log_display', array('module'=>$log->module
, 'action'=>$log->action
));
815 $ldcache[$log->module
][$log->action
] = $ld;
817 if ($ld && is_numeric($log->info
)) {
818 // ugly hack to make sure fullname is shown correctly
819 if (($ld->mtable
== 'user') and ($ld->field
== $DB->sql_concat('firstname', "' '" , 'lastname'))) {
820 $log->info
= fullname($DB->get_record($ld->mtable
, array('id'=>$log->info
)), true);
822 $log->info
= $DB->get_field($ld->mtable
, $ld->field
, array('id'=>$log->info
));
827 $log->info
= format_string($log->info
);
828 $log->info
= strip_tags(urldecode($log->info
)); // Some XSS protection
831 if ($row > EXCELROWS
) {
833 $myxls =& $worksheet[$wsnumber];
834 $row = FIRSTUSEDEXCELROW
;
838 $coursecontext = context_course
::instance($course->id
);
840 $myxls->write_string($row, 0, format_string($courses[$log->course
], true, array('context' => $coursecontext)));
841 $myxls->write_date($row, 1, $log->time
);
842 $myxls->write_string($row, 2, $log->ip
);
843 $fullname = fullname($log, has_capability('moodle/site:viewfullnames', $coursecontext));
844 $myxls->write_string($row, 3, $fullname);
845 $actionurl = $CFG->wwwroot
. make_log_url($log->module
,$log->url
);
846 $myxls->write_string($row, 4, $log->module
.' '.$log->action
.' ('.$actionurl.')');
847 $myxls->write_string($row, 5, $log->info
);
857 * Checks the integrity of the course data.
859 * In summary - compares course_sections.sequence and course_modules.section.
861 * More detailed, checks that:
862 * - course_sections.sequence contains each module id not more than once in the course
863 * - for each moduleid from course_sections.sequence the field course_modules.section
864 * refers to the same section id (this means course_sections.sequence is more
865 * important if they are different)
866 * - ($fullcheck only) each module in the course is present in one of
867 * course_sections.sequence
868 * - ($fullcheck only) removes non-existing course modules from section sequences
870 * If there are any mismatches, the changes are made and records are updated in DB.
872 * Course cache is NOT rebuilt if there are any errors!
874 * This function is used each time when course cache is being rebuilt with $fullcheck = false
875 * and in CLI script admin/cli/fix_course_sequence.php with $fullcheck = true
877 * @param int $courseid id of the course
878 * @param array $rawmods result of funciton {@link get_course_mods()} - containst
879 * the list of enabled course modules in the course. Retrieved from DB if not specified.
880 * Argument ignored in cashe of $fullcheck, the list is retrieved form DB anyway.
881 * @param array $sections records from course_sections table for this course.
882 * Retrieved from DB if not specified
883 * @param bool $fullcheck Will add orphaned modules to their sections and remove non-existing
884 * course modules from sequences. Only to be used in site maintenance mode when we are
885 * sure that another user is not in the middle of the process of moving/removing a module.
886 * @param bool $checkonly Only performs the check without updating DB, outputs all errors as debug messages.
887 * @return array array of messages with found problems. Empty output means everything is ok
889 function course_integrity_check($courseid, $rawmods = null, $sections = null, $fullcheck = false, $checkonly = false) {
892 if ($sections === null) {
893 $sections = $DB->get_records('course_sections', array('course' => $courseid), 'section', 'id,section,sequence');
896 // Retrieve all records from course_modules regardless of module type visibility.
897 $rawmods = $DB->get_records('course_modules', array('course' => $courseid), 'id', 'id,section');
899 if ($rawmods === null) {
900 $rawmods = get_course_mods($courseid);
902 if (!$fullcheck && (empty($sections) ||
empty($rawmods))) {
903 // If either of the arrays is empty, no modules are displayed anyway.
906 $debuggingprefix = 'Failed integrity check for course ['.$courseid.']. ';
908 // First make sure that each module id appears in section sequences only once.
909 // If it appears in several section sequences the last section wins.
910 // If it appears twice in one section sequence, the first occurence wins.
911 $modsection = array();
912 foreach ($sections as $sectionid => $section) {
913 $sections[$sectionid]->newsequence
= $section->sequence
;
914 if (!empty($section->sequence
)) {
915 $sequence = explode(",", $section->sequence
);
916 $sequenceunique = array_unique($sequence);
917 if (count($sequenceunique) != count($sequence)) {
918 // Some course module id appears in this section sequence more than once.
919 ksort($sequenceunique); // Preserve initial order of modules.
920 $sequence = array_values($sequenceunique);
921 $sections[$sectionid]->newsequence
= join(',', $sequence);
922 $messages[] = $debuggingprefix.'Sequence for course section ['.
923 $sectionid.'] is "'.$sections[$sectionid]->sequence
.'", must be "'.$sections[$sectionid]->newsequence
.'"';
925 foreach ($sequence as $cmid) {
926 if (array_key_exists($cmid, $modsection) && isset($rawmods[$cmid])) {
927 // Some course module id appears to be in more than one section's sequences.
928 $wrongsectionid = $modsection[$cmid];
929 $sections[$wrongsectionid]->newsequence
= trim(preg_replace("/,$cmid,/", ',', ','.$sections[$wrongsectionid]->newsequence
. ','), ',');
930 $messages[] = $debuggingprefix.'Course module ['.$cmid.'] must be removed from sequence of section ['.
931 $wrongsectionid.'] because it is also present in sequence of section ['.$sectionid.']';
933 $modsection[$cmid] = $sectionid;
938 // Add orphaned modules to their sections if they exist or to section 0 otherwise.
940 foreach ($rawmods as $cmid => $mod) {
941 if (!isset($modsection[$cmid])) {
942 // This is a module that is not mentioned in course_section.sequence at all.
943 // Add it to the section $mod->section or to the last available section.
944 if ($mod->section
&& isset($sections[$mod->section
])) {
945 $modsection[$cmid] = $mod->section
;
947 $firstsection = reset($sections);
948 $modsection[$cmid] = $firstsection->id
;
950 $sections[$modsection[$cmid]]->newsequence
= trim($sections[$modsection[$cmid]]->newsequence
.','.$cmid, ',');
951 $messages[] = $debuggingprefix.'Course module ['.$cmid.'] is missing from sequence of section ['.
952 $modsection[$cmid].']';
955 foreach ($modsection as $cmid => $sectionid) {
956 if (!isset($rawmods[$cmid])) {
957 // Section $sectionid refers to module id that does not exist.
958 $sections[$sectionid]->newsequence
= trim(preg_replace("/,$cmid,/", ',', ','.$sections[$sectionid]->newsequence
.','), ',');
959 $messages[] = $debuggingprefix.'Course module ['.$cmid.
960 '] does not exist but is present in the sequence of section ['.$sectionid.']';
965 // Update changed sections.
966 if (!$checkonly && !empty($messages)) {
967 foreach ($sections as $sectionid => $section) {
968 if ($section->newsequence
!== $section->sequence
) {
969 $DB->update_record('course_sections', array('id' => $sectionid, 'sequence' => $section->newsequence
));
974 // Now make sure that all modules point to the correct sections.
975 foreach ($rawmods as $cmid => $mod) {
976 if (isset($modsection[$cmid]) && $modsection[$cmid] != $mod->section
) {
978 $DB->update_record('course_modules', array('id' => $cmid, 'section' => $modsection[$cmid]));
980 $messages[] = $debuggingprefix.'Course module ['.$cmid.
981 '] points to section ['.$mod->section
.'] instead of ['.$modsection[$cmid].']';
989 * For a given course, returns an array of course activity objects
990 * Each item in the array contains he following properties:
992 function get_array_of_activities($courseid) {
993 // cm - course module id
994 // mod - name of the module (eg forum)
995 // section - the number of the section (eg week or topic)
996 // name - the name of the instance
997 // visible - is the instance visible or not
998 // groupingid - grouping id
999 // extra - contains extra string to include in any link
1002 $course = $DB->get_record('course', array('id'=>$courseid));
1004 if (empty($course)) {
1005 throw new moodle_exception('courseidnotfound');
1010 $rawmods = get_course_mods($courseid);
1011 if (empty($rawmods)) {
1012 return $mod; // always return array
1015 if ($sections = $DB->get_records('course_sections', array('course' => $courseid), 'section ASC', 'id,section,sequence')) {
1016 // First check and correct obvious mismatches between course_sections.sequence and course_modules.section.
1017 if ($errormessages = course_integrity_check($courseid, $rawmods, $sections)) {
1018 debugging(join('<br>', $errormessages));
1019 $rawmods = get_course_mods($courseid);
1020 $sections = $DB->get_records('course_sections', array('course' => $courseid), 'section ASC', 'id,section,sequence');
1022 // Build array of activities.
1023 foreach ($sections as $section) {
1024 if (!empty($section->sequence
)) {
1025 $sequence = explode(",", $section->sequence
);
1026 foreach ($sequence as $seq) {
1027 if (empty($rawmods[$seq])) {
1030 $mod[$seq] = new stdClass();
1031 $mod[$seq]->id
= $rawmods[$seq]->instance
;
1032 $mod[$seq]->cm
= $rawmods[$seq]->id
;
1033 $mod[$seq]->mod
= $rawmods[$seq]->modname
;
1035 // Oh dear. Inconsistent names left here for backward compatibility.
1036 $mod[$seq]->section
= $section->section
;
1037 $mod[$seq]->sectionid
= $rawmods[$seq]->section
;
1039 $mod[$seq]->module
= $rawmods[$seq]->module
;
1040 $mod[$seq]->added
= $rawmods[$seq]->added
;
1041 $mod[$seq]->score
= $rawmods[$seq]->score
;
1042 $mod[$seq]->idnumber
= $rawmods[$seq]->idnumber
;
1043 $mod[$seq]->visible
= $rawmods[$seq]->visible
;
1044 $mod[$seq]->visibleold
= $rawmods[$seq]->visibleold
;
1045 $mod[$seq]->groupmode
= $rawmods[$seq]->groupmode
;
1046 $mod[$seq]->groupingid
= $rawmods[$seq]->groupingid
;
1047 $mod[$seq]->indent
= $rawmods[$seq]->indent
;
1048 $mod[$seq]->completion
= $rawmods[$seq]->completion
;
1049 $mod[$seq]->extra
= "";
1050 $mod[$seq]->completiongradeitemnumber
=
1051 $rawmods[$seq]->completiongradeitemnumber
;
1052 $mod[$seq]->completionview
= $rawmods[$seq]->completionview
;
1053 $mod[$seq]->completionexpected
= $rawmods[$seq]->completionexpected
;
1054 $mod[$seq]->showdescription
= $rawmods[$seq]->showdescription
;
1055 $mod[$seq]->availability
= $rawmods[$seq]->availability
;
1057 $modname = $mod[$seq]->mod
;
1058 $functionname = $modname."_get_coursemodule_info";
1060 if (!file_exists("$CFG->dirroot/mod/$modname/lib.php")) {
1064 include_once("$CFG->dirroot/mod/$modname/lib.php");
1066 if ($hasfunction = function_exists($functionname)) {
1067 if ($info = $functionname($rawmods[$seq])) {
1068 if (!empty($info->icon
)) {
1069 $mod[$seq]->icon
= $info->icon
;
1071 if (!empty($info->iconcomponent
)) {
1072 $mod[$seq]->iconcomponent
= $info->iconcomponent
;
1074 if (!empty($info->name
)) {
1075 $mod[$seq]->name
= $info->name
;
1077 if ($info instanceof cached_cm_info
) {
1078 // When using cached_cm_info you can include three new fields
1079 // that aren't available for legacy code
1080 if (!empty($info->content
)) {
1081 $mod[$seq]->content
= $info->content
;
1083 if (!empty($info->extraclasses
)) {
1084 $mod[$seq]->extraclasses
= $info->extraclasses
;
1086 if (!empty($info->iconurl
)) {
1087 // Convert URL to string as it's easier to store. Also serialized object contains \0 byte and can not be written to Postgres DB.
1088 $url = new moodle_url($info->iconurl
);
1089 $mod[$seq]->iconurl
= $url->out(false);
1091 if (!empty($info->onclick
)) {
1092 $mod[$seq]->onclick
= $info->onclick
;
1094 if (!empty($info->customdata
)) {
1095 $mod[$seq]->customdata
= $info->customdata
;
1098 // When using a stdclass, the (horrible) deprecated ->extra field
1099 // is available for BC
1100 if (!empty($info->extra
)) {
1101 $mod[$seq]->extra
= $info->extra
;
1106 // When there is no modname_get_coursemodule_info function,
1107 // but showdescriptions is enabled, then we use the 'intro'
1108 // and 'introformat' fields in the module table
1109 if (!$hasfunction && $rawmods[$seq]->showdescription
) {
1110 if ($modvalues = $DB->get_record($rawmods[$seq]->modname
,
1111 array('id' => $rawmods[$seq]->instance
), 'name, intro, introformat')) {
1112 // Set content from intro and introformat. Filters are disabled
1113 // because we filter it with format_text at display time
1114 $mod[$seq]->content
= format_module_intro($rawmods[$seq]->modname
,
1115 $modvalues, $rawmods[$seq]->id
, false);
1117 // To save making another query just below, put name in here
1118 $mod[$seq]->name
= $modvalues->name
;
1121 if (!isset($mod[$seq]->name
)) {
1122 $mod[$seq]->name
= $DB->get_field($rawmods[$seq]->modname
, "name", array("id"=>$rawmods[$seq]->instance
));
1125 // Minimise the database size by unsetting default options when they are
1126 // 'empty'. This list corresponds to code in the cm_info constructor.
1127 foreach (array('idnumber', 'groupmode', 'groupingid',
1128 'indent', 'completion', 'extra', 'extraclasses', 'iconurl', 'onclick', 'content',
1129 'icon', 'iconcomponent', 'customdata', 'availability', 'completionview',
1130 'completionexpected', 'score', 'showdescription') as $property) {
1131 if (property_exists($mod[$seq], $property) &&
1132 empty($mod[$seq]->{$property})) {
1133 unset($mod[$seq]->{$property});
1136 // Special case: this value is usually set to null, but may be 0
1137 if (property_exists($mod[$seq], 'completiongradeitemnumber') &&
1138 is_null($mod[$seq]->completiongradeitemnumber
)) {
1139 unset($mod[$seq]->completiongradeitemnumber
);
1149 * Returns the localised human-readable names of all used modules
1151 * @param bool $plural if true returns the plural forms of the names
1152 * @return array where key is the module name (component name without 'mod_') and
1153 * the value is the human-readable string. Array sorted alphabetically by value
1155 function get_module_types_names($plural = false) {
1156 static $modnames = null;
1158 if ($modnames === null) {
1159 $modnames = array(0 => array(), 1 => array());
1160 if ($allmods = $DB->get_records("modules")) {
1161 foreach ($allmods as $mod) {
1162 if (file_exists("$CFG->dirroot/mod/$mod->name/lib.php") && $mod->visible
) {
1163 $modnames[0][$mod->name
] = get_string("modulename", "$mod->name");
1164 $modnames[1][$mod->name
] = get_string("modulenameplural", "$mod->name");
1167 core_collator
::asort($modnames[0]);
1168 core_collator
::asort($modnames[1]);
1171 return $modnames[(int)$plural];
1175 * Set highlighted section. Only one section can be highlighted at the time.
1177 * @param int $courseid course id
1178 * @param int $marker highlight section with this number, 0 means remove higlightin
1181 function course_set_marker($courseid, $marker) {
1183 $DB->set_field("course", "marker", $marker, array('id' => $courseid));
1184 format_base
::reset_course_cache($courseid);
1188 * For a given course section, marks it visible or hidden,
1189 * and does the same for every activity in that section
1191 * @param int $courseid course id
1192 * @param int $sectionnumber The section number to adjust
1193 * @param int $visibility The new visibility
1194 * @return array A list of resources which were hidden in the section
1196 function set_section_visible($courseid, $sectionnumber, $visibility) {
1199 $resourcestotoggle = array();
1200 if ($section = $DB->get_record("course_sections", array("course"=>$courseid, "section"=>$sectionnumber))) {
1201 course_update_section($courseid, $section, array('visible' => $visibility));
1203 // Determine which modules are visible for AJAX update
1204 $modules = !empty($section->sequence
) ?
explode(',', $section->sequence
) : array();
1205 if (!empty($modules)) {
1206 list($insql, $params) = $DB->get_in_or_equal($modules);
1207 $select = 'id ' . $insql . ' AND visible = ?';
1208 array_push($params, $visibility);
1210 $select .= ' AND visibleold = 1';
1212 $resourcestotoggle = $DB->get_fieldset_select('course_modules', 'id', $select, $params);
1215 return $resourcestotoggle;
1219 * Retrieve all metadata for the requested modules
1221 * @param object $course The Course
1222 * @param array $modnames An array containing the list of modules and their
1224 * @param int $sectionreturn The section to return to
1225 * @return array A list of stdClass objects containing metadata about each
1228 function get_module_metadata($course, $modnames, $sectionreturn = null) {
1229 global $CFG, $OUTPUT;
1231 // get_module_metadata will be called once per section on the page and courses may show
1232 // different modules to one another
1233 static $modlist = array();
1234 if (!isset($modlist[$course->id
])) {
1235 $modlist[$course->id
] = array();
1239 $urlbase = new moodle_url('/course/mod.php', array('id' => $course->id
, 'sesskey' => sesskey()));
1240 if ($sectionreturn !== null) {
1241 $urlbase->param('sr', $sectionreturn);
1243 foreach($modnames as $modname => $modnamestr) {
1244 if (!course_allowed_module($course, $modname)) {
1247 if (isset($modlist[$course->id
][$modname])) {
1248 // This module is already cached
1249 $return[$modname] = $modlist[$course->id
][$modname];
1253 // Include the module lib
1254 $libfile = "$CFG->dirroot/mod/$modname/lib.php";
1255 if (!file_exists($libfile)) {
1258 include_once($libfile);
1260 // NOTE: this is legacy stuff, module subtypes are very strongly discouraged!!
1261 $gettypesfunc = $modname.'_get_types';
1262 $types = MOD_SUBTYPE_NO_CHILDREN
;
1263 if (function_exists($gettypesfunc)) {
1264 $types = $gettypesfunc();
1266 if ($types !== MOD_SUBTYPE_NO_CHILDREN
) {
1267 if (is_array($types) && count($types) > 0) {
1268 $group = new stdClass();
1269 $group->name
= $modname;
1270 $group->icon
= $OUTPUT->pix_icon('icon', '', $modname, array('class' => 'icon'));
1271 foreach($types as $type) {
1272 if ($type->typestr
=== '--') {
1275 if (strpos($type->typestr
, '--') === 0) {
1276 $group->title
= str_replace('--', '', $type->typestr
);
1279 // Set the Sub Type metadata
1280 $subtype = new stdClass();
1281 $subtype->title
= $type->typestr
;
1282 $subtype->type
= str_replace('&', '&', $type->type
);
1283 $subtype->name
= preg_replace('/.*type=/', '', $subtype->type
);
1284 $subtype->archetype
= $type->modclass
;
1286 // The group archetype should match the subtype archetypes and all subtypes
1287 // should have the same archetype
1288 $group->archetype
= $subtype->archetype
;
1290 if (!empty($type->help
)) {
1291 $subtype->help
= $type->help
;
1292 } else if (get_string_manager()->string_exists('help' . $subtype->name
, $modname)) {
1293 $subtype->help
= get_string('help' . $subtype->name
, $modname);
1295 $subtype->link
= new moodle_url($urlbase, array('add' => $modname, 'type' => $subtype->name
));
1296 $group->types
[] = $subtype;
1298 $modlist[$course->id
][$modname] = $group;
1301 $module = new stdClass();
1302 $module->title
= $modnamestr;
1303 $module->name
= $modname;
1304 $module->link
= new moodle_url($urlbase, array('add' => $modname));
1305 $module->icon
= $OUTPUT->pix_icon('icon', '', $module->name
, array('class' => 'icon'));
1306 $sm = get_string_manager();
1307 if ($sm->string_exists('modulename_help', $modname)) {
1308 $module->help
= get_string('modulename_help', $modname);
1309 if ($sm->string_exists('modulename_link', $modname)) { // Link to further info in Moodle docs
1310 $link = get_string('modulename_link', $modname);
1311 $linktext = get_string('morehelp');
1312 $module->help
.= html_writer
::tag('div', $OUTPUT->doc_link($link, $linktext, true), array('class' => 'helpdoclink'));
1315 $module->archetype
= plugin_supports('mod', $modname, FEATURE_MOD_ARCHETYPE
, MOD_ARCHETYPE_OTHER
);
1316 $modlist[$course->id
][$modname] = $module;
1318 if (isset($modlist[$course->id
][$modname])) {
1319 $return[$modname] = $modlist[$course->id
][$modname];
1321 debugging("Invalid module metadata configuration for {$modname}");
1329 * Return the course category context for the category with id $categoryid, except
1330 * that if $categoryid is 0, return the system context.
1332 * @param integer $categoryid a category id or 0.
1333 * @return context the corresponding context
1335 function get_category_or_system_context($categoryid) {
1337 return context_coursecat
::instance($categoryid, IGNORE_MISSING
);
1339 return context_system
::instance();
1344 * Returns full course categories trees to be used in html_writer::select()
1346 * Calls {@link coursecat::make_categories_list()} to build the tree and
1347 * adds whitespace to denote nesting
1349 * @return array array mapping coursecat id to the display name
1351 function make_categories_options() {
1353 require_once($CFG->libdir
. '/coursecatlib.php');
1354 $cats = coursecat
::make_categories_list('', 0, ' / ');
1355 foreach ($cats as $key => $value) {
1356 // Prefix the value with the number of spaces equal to category depth (number of separators in the value).
1357 $cats[$key] = str_repeat(' ', substr_count($value, ' / ')). $value;
1363 * Print the buttons relating to course requests.
1365 * @param object $context current page context.
1367 function print_course_request_buttons($context) {
1368 global $CFG, $DB, $OUTPUT;
1369 if (empty($CFG->enablecourserequests
)) {
1372 if (!has_capability('moodle/course:create', $context) && has_capability('moodle/course:request', $context)) {
1373 /// Print a button to request a new course
1374 echo $OUTPUT->single_button(new moodle_url('/course/request.php'), get_string('requestcourse'), 'get');
1376 /// Print a button to manage pending requests
1377 if ($context->contextlevel
== CONTEXT_SYSTEM
&& has_capability('moodle/site:approvecourse', $context)) {
1378 $disabled = !$DB->record_exists('course_request', array());
1379 echo $OUTPUT->single_button(new moodle_url('/course/pending.php'), get_string('coursespending'), 'get', array('disabled' => $disabled));
1384 * Does the user have permission to edit things in this category?
1386 * @param integer $categoryid The id of the category we are showing, or 0 for system context.
1387 * @return boolean has_any_capability(array(...), ...); in the appropriate context.
1389 function can_edit_in_category($categoryid = 0) {
1390 $context = get_category_or_system_context($categoryid);
1391 return has_any_capability(array('moodle/category:manage', 'moodle/course:create'), $context);
1394 /// MODULE FUNCTIONS /////////////////////////////////////////////////////////////////
1396 function add_course_module($mod) {
1399 $mod->added
= time();
1402 $cmid = $DB->insert_record("course_modules", $mod);
1403 rebuild_course_cache($mod->course
, true);
1408 * Creates missing course section(s) and rebuilds course cache
1410 * @param int|stdClass $courseorid course id or course object
1411 * @param int|array $sections list of relative section numbers to create
1412 * @return bool if there were any sections created
1414 function course_create_sections_if_missing($courseorid, $sections) {
1416 if (!is_array($sections)) {
1417 $sections = array($sections);
1419 $existing = array_keys(get_fast_modinfo($courseorid)->get_section_info_all());
1420 if (is_object($courseorid)) {
1421 $courseorid = $courseorid->id
;
1423 $coursechanged = false;
1424 foreach ($sections as $sectionnum) {
1425 if (!in_array($sectionnum, $existing)) {
1426 $cw = new stdClass();
1427 $cw->course
= $courseorid;
1428 $cw->section
= $sectionnum;
1430 $cw->summaryformat
= FORMAT_HTML
;
1432 $id = $DB->insert_record("course_sections", $cw);
1433 $coursechanged = true;
1436 if ($coursechanged) {
1437 rebuild_course_cache($courseorid, true);
1439 return $coursechanged;
1443 * Adds an existing module to the section
1445 * Updates both tables {course_sections} and {course_modules}
1447 * Note: This function does not use modinfo PROVIDED that the section you are
1448 * adding the module to already exists. If the section does not exist, it will
1449 * build modinfo if necessary and create the section.
1451 * @param int|stdClass $courseorid course id or course object
1452 * @param int $cmid id of the module already existing in course_modules table
1453 * @param int $sectionnum relative number of the section (field course_sections.section)
1454 * If section does not exist it will be created
1455 * @param int|stdClass $beforemod id or object with field id corresponding to the module
1456 * before which the module needs to be included. Null for inserting in the
1457 * end of the section
1458 * @return int The course_sections ID where the module is inserted
1460 function course_add_cm_to_section($courseorid, $cmid, $sectionnum, $beforemod = null) {
1461 global $DB, $COURSE;
1462 if (is_object($beforemod)) {
1463 $beforemod = $beforemod->id
;
1465 if (is_object($courseorid)) {
1466 $courseid = $courseorid->id
;
1468 $courseid = $courseorid;
1470 // Do not try to use modinfo here, there is no guarantee it is valid!
1471 $section = $DB->get_record('course_sections',
1472 array('course' => $courseid, 'section' => $sectionnum), '*', IGNORE_MISSING
);
1474 // This function call requires modinfo.
1475 course_create_sections_if_missing($courseorid, $sectionnum);
1476 $section = $DB->get_record('course_sections',
1477 array('course' => $courseid, 'section' => $sectionnum), '*', MUST_EXIST
);
1480 $modarray = explode(",", trim($section->sequence
));
1481 if (empty($section->sequence
)) {
1482 $newsequence = "$cmid";
1483 } else if ($beforemod && ($key = array_keys($modarray, $beforemod))) {
1484 $insertarray = array($cmid, $beforemod);
1485 array_splice($modarray, $key[0], 1, $insertarray);
1486 $newsequence = implode(",", $modarray);
1488 $newsequence = "$section->sequence,$cmid";
1490 $DB->set_field("course_sections", "sequence", $newsequence, array("id" => $section->id
));
1491 $DB->set_field('course_modules', 'section', $section->id
, array('id' => $cmid));
1492 if (is_object($courseorid)) {
1493 rebuild_course_cache($courseorid->id
, true);
1495 rebuild_course_cache($courseorid, true);
1497 return $section->id
; // Return course_sections ID that was used.
1501 * Change the group mode of a course module.
1503 * Note: Do not forget to trigger the event \core\event\course_module_updated as it needs
1504 * to be triggered manually, refer to {@link \core\event\course_module_updated::create_from_cm()}.
1506 * @param int $id course module ID.
1507 * @param int $groupmode the new groupmode value.
1508 * @return bool True if the $groupmode was updated.
1510 function set_coursemodule_groupmode($id, $groupmode) {
1512 $cm = $DB->get_record('course_modules', array('id' => $id), 'id,course,groupmode', MUST_EXIST
);
1513 if ($cm->groupmode
!= $groupmode) {
1514 $DB->set_field('course_modules', 'groupmode', $groupmode, array('id' => $cm->id
));
1515 rebuild_course_cache($cm->course
, true);
1517 return ($cm->groupmode
!= $groupmode);
1520 function set_coursemodule_idnumber($id, $idnumber) {
1522 $cm = $DB->get_record('course_modules', array('id' => $id), 'id,course,idnumber', MUST_EXIST
);
1523 if ($cm->idnumber
!= $idnumber) {
1524 $DB->set_field('course_modules', 'idnumber', $idnumber, array('id' => $cm->id
));
1525 rebuild_course_cache($cm->course
, true);
1527 return ($cm->idnumber
!= $idnumber);
1531 * Set the visibility of a module and inherent properties.
1533 * Note: Do not forget to trigger the event \core\event\course_module_updated as it needs
1534 * to be triggered manually, refer to {@link \core\event\course_module_updated::create_from_cm()}.
1536 * From 2.4 the parameter $prevstateoverrides has been removed, the logic it triggered
1537 * has been moved to {@link set_section_visible()} which was the only place from which
1538 * the parameter was used.
1540 * @param int $id of the module
1541 * @param int $visible state of the module
1542 * @return bool false when the module was not found, true otherwise
1544 function set_coursemodule_visible($id, $visible) {
1546 require_once($CFG->libdir
.'/gradelib.php');
1547 require_once($CFG->dirroot
.'/calendar/lib.php');
1549 // Trigger developer's attention when using the previously removed argument.
1550 if (func_num_args() > 2) {
1551 debugging('Wrong number of arguments passed to set_coursemodule_visible(), $prevstateoverrides
1552 has been removed.', DEBUG_DEVELOPER
);
1555 if (!$cm = $DB->get_record('course_modules', array('id'=>$id))) {
1559 // Create events and propagate visibility to associated grade items if the value has changed.
1560 // Only do this if it's changed to avoid accidently overwriting manual showing/hiding of student grades.
1561 if ($cm->visible
== $visible) {
1565 if (!$modulename = $DB->get_field('modules', 'name', array('id'=>$cm->module
))) {
1568 if ($events = $DB->get_records('event', array('instance'=>$cm->instance
, 'modulename'=>$modulename))) {
1569 foreach($events as $event) {
1571 $event = new calendar_event($event);
1572 $event->toggle_visibility(true);
1574 $event = new calendar_event($event);
1575 $event->toggle_visibility(false);
1580 // Updating visible and visibleold to keep them in sync. Only changing a section visibility will
1581 // affect visibleold to allow for an original visibility restore. See set_section_visible().
1582 $cminfo = new stdClass();
1584 $cminfo->visible
= $visible;
1585 $cminfo->visibleold
= $visible;
1586 $DB->update_record('course_modules', $cminfo);
1588 // Hide the associated grade items so the teacher doesn't also have to go to the gradebook and hide them there.
1589 // Note that this must be done after updating the row in course_modules, in case
1590 // the modules grade_item_update function needs to access $cm->visible.
1591 if (plugin_supports('mod', $modulename, FEATURE_CONTROLS_GRADE_VISIBILITY
) &&
1592 component_callback_exists('mod_' . $modulename, 'grade_item_update')) {
1593 $instance = $DB->get_record($modulename, array('id' => $cm->instance
), '*', MUST_EXIST
);
1594 component_callback('mod_' . $modulename, 'grade_item_update', array($instance));
1596 $grade_items = grade_item
::fetch_all(array('itemtype'=>'mod', 'itemmodule'=>$modulename, 'iteminstance'=>$cm->instance
, 'courseid'=>$cm->course
));
1598 foreach ($grade_items as $grade_item) {
1599 $grade_item->set_hidden(!$visible);
1604 rebuild_course_cache($cm->course
, true);
1609 * This function will handle the whole deletion process of a module. This includes calling
1610 * the modules delete_instance function, deleting files, events, grades, conditional data,
1611 * the data in the course_module and course_sections table and adding a module deletion
1614 * @param int $cmid the course module id
1617 function course_delete_module($cmid) {
1620 require_once($CFG->libdir
.'/gradelib.php');
1621 require_once($CFG->libdir
.'/questionlib.php');
1622 require_once($CFG->dirroot
.'/blog/lib.php');
1623 require_once($CFG->dirroot
.'/calendar/lib.php');
1625 // Get the course module.
1626 if (!$cm = $DB->get_record('course_modules', array('id' => $cmid))) {
1630 // Get the module context.
1631 $modcontext = context_module
::instance($cm->id
);
1633 // Get the course module name.
1634 $modulename = $DB->get_field('modules', 'name', array('id' => $cm->module
), MUST_EXIST
);
1636 // Get the file location of the delete_instance function for this module.
1637 $modlib = "$CFG->dirroot/mod/$modulename/lib.php";
1639 // Include the file required to call the delete_instance function for this module.
1640 if (file_exists($modlib)) {
1641 require_once($modlib);
1643 throw new moodle_exception('cannotdeletemodulemissinglib', '', '', null,
1644 "Cannot delete this module as the file mod/$modulename/lib.php is missing.");
1647 $deleteinstancefunction = $modulename . '_delete_instance';
1649 // Ensure the delete_instance function exists for this module.
1650 if (!function_exists($deleteinstancefunction)) {
1651 throw new moodle_exception('cannotdeletemodulemissingfunc', '', '', null,
1652 "Cannot delete this module as the function {$modulename}_delete_instance is missing in mod/$modulename/lib.php.");
1655 // Delete activity context questions and question categories.
1656 question_delete_activity($cm);
1658 // Call the delete_instance function, if it returns false throw an exception.
1659 if (!$deleteinstancefunction($cm->instance
)) {
1660 throw new moodle_exception('cannotdeletemoduleinstance', '', '', null,
1661 "Cannot delete the module $modulename (instance).");
1664 // Remove all module files in case modules forget to do that.
1665 $fs = get_file_storage();
1666 $fs->delete_area_files($modcontext->id
);
1668 // Delete events from calendar.
1669 if ($events = $DB->get_records('event', array('instance' => $cm->instance
, 'modulename' => $modulename))) {
1670 foreach($events as $event) {
1671 $calendarevent = calendar_event
::load($event->id
);
1672 $calendarevent->delete();
1676 // Delete grade items, outcome items and grades attached to modules.
1677 if ($grade_items = grade_item
::fetch_all(array('itemtype' => 'mod', 'itemmodule' => $modulename,
1678 'iteminstance' => $cm->instance
, 'courseid' => $cm->course
))) {
1679 foreach ($grade_items as $grade_item) {
1680 $grade_item->delete('moddelete');
1684 // Delete completion and availability data; it is better to do this even if the
1685 // features are not turned on, in case they were turned on previously (these will be
1686 // very quick on an empty table).
1687 $DB->delete_records('course_modules_completion', array('coursemoduleid' => $cm->id
));
1688 $DB->delete_records('course_completion_criteria', array('moduleinstance' => $cm->id
,
1689 'criteriatype' => COMPLETION_CRITERIA_TYPE_ACTIVITY
));
1691 // Delete all tag instances associated with the instance of this module.
1692 core_tag_tag
::delete_instances('mod_' . $modulename, null, $modcontext->id
);
1694 // Delete the context.
1695 context_helper
::delete_instance(CONTEXT_MODULE
, $cm->id
);
1697 // Delete the module from the course_modules table.
1698 $DB->delete_records('course_modules', array('id' => $cm->id
));
1700 // Delete module from that section.
1701 if (!delete_mod_from_section($cm->id
, $cm->section
)) {
1702 throw new moodle_exception('cannotdeletemodulefromsection', '', '', null,
1703 "Cannot delete the module $modulename (instance) from section.");
1706 // Trigger event for course module delete action.
1707 $event = \core\event\course_module_deleted
::create(array(
1708 'courseid' => $cm->course
,
1709 'context' => $modcontext,
1710 'objectid' => $cm->id
,
1712 'modulename' => $modulename,
1713 'instanceid' => $cm->instance
,
1716 $event->add_record_snapshot('course_modules', $cm);
1718 rebuild_course_cache($cm->course
, true);
1721 function delete_mod_from_section($modid, $sectionid) {
1724 if ($section = $DB->get_record("course_sections", array("id"=>$sectionid)) ) {
1726 $modarray = explode(",", $section->sequence
);
1728 if ($key = array_keys ($modarray, $modid)) {
1729 array_splice($modarray, $key[0], 1);
1730 $newsequence = implode(",", $modarray);
1731 $DB->set_field("course_sections", "sequence", $newsequence, array("id"=>$section->id
));
1732 rebuild_course_cache($section->course
, true);
1743 * Moves a section within a course, from a position to another.
1744 * Be very careful: $section and $destination refer to section number,
1747 * @param object $course
1748 * @param int $section Section number (not id!!!)
1749 * @param int $destination
1750 * @param bool $ignorenumsections
1751 * @return boolean Result
1753 function move_section_to($course, $section, $destination, $ignorenumsections = false) {
1754 /// Moves a whole course section up and down within the course
1757 if (!$destination && $destination != 0) {
1761 // compartibility with course formats using field 'numsections'
1762 $courseformatoptions = course_get_format($course)->get_format_options();
1763 if ((!$ignorenumsections && array_key_exists('numsections', $courseformatoptions) &&
1764 ($destination > $courseformatoptions['numsections'])) ||
($destination < 1)) {
1768 // Get all sections for this course and re-order them (2 of them should now share the same section number)
1769 if (!$sections = $DB->get_records_menu('course_sections', array('course' => $course->id
),
1770 'section ASC, id ASC', 'id, section')) {
1774 $movedsections = reorder_sections($sections, $section, $destination);
1776 // Update all sections. Do this in 2 steps to avoid breaking database
1777 // uniqueness constraint
1778 $transaction = $DB->start_delegated_transaction();
1779 foreach ($movedsections as $id => $position) {
1780 if ($sections[$id] !== $position) {
1781 $DB->set_field('course_sections', 'section', -$position, array('id' => $id));
1784 foreach ($movedsections as $id => $position) {
1785 if ($sections[$id] !== $position) {
1786 $DB->set_field('course_sections', 'section', $position, array('id' => $id));
1790 // If we move the highlighted section itself, then just highlight the destination.
1791 // Adjust the higlighted section location if we move something over it either direction.
1792 if ($section == $course->marker
) {
1793 course_set_marker($course->id
, $destination);
1794 } elseif ($section > $course->marker
&& $course->marker
>= $destination) {
1795 course_set_marker($course->id
, $course->marker+
1);
1796 } elseif ($section < $course->marker
&& $course->marker
<= $destination) {
1797 course_set_marker($course->id
, $course->marker
-1);
1800 $transaction->allow_commit();
1801 rebuild_course_cache($course->id
, true);
1806 * This method will delete a course section and may delete all modules inside it.
1808 * No permissions are checked here, use {@link course_can_delete_section()} to
1809 * check if section can actually be deleted.
1811 * @param int|stdClass $course
1812 * @param int|stdClass|section_info $section
1813 * @param bool $forcedeleteifnotempty if set to false section will not be deleted if it has modules in it.
1814 * @return bool whether section was deleted
1816 function course_delete_section($course, $section, $forcedeleteifnotempty = true) {
1819 // Prepare variables.
1820 $courseid = (is_object($course)) ?
$course->id
: (int)$course;
1821 $sectionnum = (is_object($section)) ?
$section->section
: (int)$section;
1822 $section = $DB->get_record('course_sections', array('course' => $courseid, 'section' => $sectionnum));
1824 // No section exists, can't proceed.
1827 $format = course_get_format($course);
1828 $sectionname = $format->get_section_name($section);
1831 $result = $format->delete_section($section, $forcedeleteifnotempty);
1833 // Trigger an event for course section deletion.
1835 $context = context_course
::instance($courseid);
1836 $event = \core\event\course_section_deleted
::create(
1838 'objectid' => $section->id
,
1839 'courseid' => $courseid,
1840 'context' => $context,
1842 'sectionnum' => $section->section
,
1843 'sectionname' => $sectionname,
1847 $event->add_record_snapshot('course_sections', $section);
1854 * Updates the course section
1856 * This function does not check permissions or clean values - this has to be done prior to calling it.
1858 * @param int|stdClass $course
1859 * @param stdClass $section record from course_sections table - it will be updated with the new values
1860 * @param array|stdClass $data
1862 function course_update_section($course, $section, $data) {
1865 $courseid = (is_object($course)) ?
$course->id
: (int)$course;
1867 // Some fields can not be updated using this method.
1868 $data = array_diff_key((array)$data, array('id', 'course', 'section', 'sequence'));
1869 $changevisibility = (array_key_exists('visible', $data) && (bool)$data['visible'] != (bool)$section->visible
);
1870 if (array_key_exists('name', $data) && \core_text
::strlen($data['name']) > 255) {
1871 throw new moodle_exception('maximumchars', 'moodle', '', 255);
1874 // Update record in the DB and course format options.
1875 $data['id'] = $section->id
;
1876 $DB->update_record('course_sections', $data);
1877 rebuild_course_cache($courseid, true);
1878 course_get_format($courseid)->update_section_format_options($data);
1880 // Update fields of the $section object.
1881 foreach ($data as $key => $value) {
1882 if (property_exists($section, $key)) {
1883 $section->$key = $value;
1887 // Trigger an event for course section update.
1888 $event = \core\event\course_section_updated
::create(
1890 'objectid' => $section->id
,
1891 'courseid' => $courseid,
1892 'context' => context_course
::instance($courseid),
1893 'other' => array('sectionnum' => $section->section
)
1898 // If section visibility was changed, hide the modules in this section too.
1899 if ($changevisibility && !empty($section->sequence
)) {
1900 $modules = explode(',', $section->sequence
);
1901 foreach ($modules as $moduleid) {
1902 if ($cm = get_coursemodule_from_id(null, $moduleid, $courseid)) {
1903 if ($data['visible']) {
1904 // As we unhide the section, we use the previously saved visibility stored in visibleold.
1905 set_coursemodule_visible($moduleid, $cm->visibleold
);
1907 // We hide the section, so we hide the module but we store the original state in visibleold.
1908 set_coursemodule_visible($moduleid, 0);
1909 $DB->set_field('course_modules', 'visibleold', $cm->visible
, array('id' => $moduleid));
1911 \core\event\course_module_updated
::create_from_cm($cm)->trigger();
1918 * Checks if the current user can delete a section (if course format allows it and user has proper permissions).
1920 * @param int|stdClass $course
1921 * @param int|stdClass|section_info $section
1924 function course_can_delete_section($course, $section) {
1925 if (is_object($section)) {
1926 $section = $section->section
;
1929 // Not possible to delete 0-section.
1932 // Course format should allow to delete sections.
1933 if (!course_get_format($course)->can_delete_section($section)) {
1936 // Make sure user has capability to update course and move sections.
1937 $context = context_course
::instance(is_object($course) ?
$course->id
: $course);
1938 if (!has_all_capabilities(array('moodle/course:movesections', 'moodle/course:update'), $context)) {
1941 // Make sure user has capability to delete each activity in this section.
1942 $modinfo = get_fast_modinfo($course);
1943 if (!empty($modinfo->sections
[$section])) {
1944 foreach ($modinfo->sections
[$section] as $cmid) {
1945 if (!has_capability('moodle/course:manageactivities', context_module
::instance($cmid))) {
1954 * Reordering algorithm for course sections. Given an array of section->section indexed by section->id,
1955 * an original position number and a target position number, rebuilds the array so that the
1956 * move is made without any duplication of section positions.
1957 * Note: The target_position is the position AFTER WHICH the moved section will be inserted. If you want to
1958 * insert a section before the first one, you must give 0 as the target (section 0 can never be moved).
1960 * @param array $sections
1961 * @param int $origin_position
1962 * @param int $target_position
1965 function reorder_sections($sections, $origin_position, $target_position) {
1966 if (!is_array($sections)) {
1970 // We can't move section position 0
1971 if ($origin_position < 1) {
1972 echo "We can't move section position 0";
1976 // Locate origin section in sections array
1977 if (!$origin_key = array_search($origin_position, $sections)) {
1978 echo "searched position not in sections array";
1979 return false; // searched position not in sections array
1982 // Extract origin section
1983 $origin_section = $sections[$origin_key];
1984 unset($sections[$origin_key]);
1986 // Find offset of target position (stupid PHP's array_splice requires offset instead of key index!)
1988 $append_array = array();
1989 foreach ($sections as $id => $position) {
1991 $append_array[$id] = $position;
1992 unset($sections[$id]);
1994 if ($position == $target_position) {
1995 if ($target_position < $origin_position) {
1996 $append_array[$id] = $position;
1997 unset($sections[$id]);
2003 // Append moved section
2004 $sections[$origin_key] = $origin_section;
2006 // Append rest of array (if applicable)
2007 if (!empty($append_array)) {
2008 foreach ($append_array as $id => $position) {
2009 $sections[$id] = $position;
2013 // Renumber positions
2015 foreach ($sections as $id => $p) {
2016 $sections[$id] = $position;
2025 * Move the module object $mod to the specified $section
2026 * If $beforemod exists then that is the module
2027 * before which $modid should be inserted
2029 * @param stdClass|cm_info $mod
2030 * @param stdClass|section_info $section
2031 * @param int|stdClass $beforemod id or object with field id corresponding to the module
2032 * before which the module needs to be included. Null for inserting in the
2033 * end of the section
2034 * @return int new value for module visibility (0 or 1)
2036 function moveto_module($mod, $section, $beforemod=NULL) {
2037 global $OUTPUT, $DB;
2039 // Current module visibility state - return value of this function.
2040 $modvisible = $mod->visible
;
2042 // Remove original module from original section.
2043 if (! delete_mod_from_section($mod->id
, $mod->section
)) {
2044 echo $OUTPUT->notification("Could not delete module from existing section");
2047 // If moving to a hidden section then hide module.
2048 if ($mod->section
!= $section->id
) {
2049 if (!$section->visible
&& $mod->visible
) {
2050 // Module was visible but must become hidden after moving to hidden section.
2052 set_coursemodule_visible($mod->id
, 0);
2053 // Set visibleold to 1 so module will be visible when section is made visible.
2054 $DB->set_field('course_modules', 'visibleold', 1, array('id' => $mod->id
));
2056 if ($section->visible
&& !$mod->visible
) {
2057 // Hidden module was moved to the visible section, restore the module visibility from visibleold.
2058 set_coursemodule_visible($mod->id
, $mod->visibleold
);
2059 $modvisible = $mod->visibleold
;
2063 // Add the module into the new section.
2064 course_add_cm_to_section($section->course
, $mod->id
, $section->section
, $beforemod);
2069 * Returns the list of all editing actions that current user can perform on the module
2071 * @param cm_info $mod The module to produce editing buttons for
2072 * @param int $indent The current indenting (default -1 means no move left-right actions)
2073 * @param int $sr The section to link back to (used for creating the links)
2074 * @return array array of action_link or pix_icon objects
2076 function course_get_cm_edit_actions(cm_info
$mod, $indent = -1, $sr = null) {
2077 global $COURSE, $SITE;
2081 $coursecontext = context_course
::instance($mod->course
);
2082 $modcontext = context_module
::instance($mod->id
);
2084 $editcaps = array('moodle/course:manageactivities', 'moodle/course:activityvisibility', 'moodle/role:assign');
2085 $dupecaps = array('moodle/backup:backuptargetimport', 'moodle/restore:restoretargetimport');
2087 // No permission to edit anything.
2088 if (!has_any_capability($editcaps, $modcontext) and !has_all_capabilities($dupecaps, $coursecontext)) {
2092 $hasmanageactivities = has_capability('moodle/course:manageactivities', $modcontext);
2095 $str = get_strings(array('delete', 'move', 'moveright', 'moveleft',
2096 'editsettings', 'duplicate', 'hide', 'show'), 'moodle');
2097 $str->assign
= get_string('assignroles', 'role');
2098 $str->groupsnone
= get_string('clicktochangeinbrackets', 'moodle', get_string("groupsnone"));
2099 $str->groupsseparate
= get_string('clicktochangeinbrackets', 'moodle', get_string("groupsseparate"));
2100 $str->groupsvisible
= get_string('clicktochangeinbrackets', 'moodle', get_string("groupsvisible"));
2103 $baseurl = new moodle_url('/course/mod.php', array('sesskey' => sesskey()));
2106 $baseurl->param('sr', $sr);
2111 if ($hasmanageactivities) {
2112 $actions['update'] = new action_menu_link_secondary(
2113 new moodle_url($baseurl, array('update' => $mod->id
)),
2114 new pix_icon('t/edit', $str->editsettings
, 'moodle', array('class' => 'iconsmall', 'title' => '')),
2116 array('class' => 'editing_update', 'data-action' => 'update')
2121 if ($hasmanageactivities && $indent >= 0) {
2122 $indentlimits = new stdClass();
2123 $indentlimits->min
= 0;
2124 $indentlimits->max
= 16;
2125 if (right_to_left()) { // Exchange arrows on RTL
2126 $rightarrow = 't/left';
2127 $leftarrow = 't/right';
2129 $rightarrow = 't/right';
2130 $leftarrow = 't/left';
2133 if ($indent >= $indentlimits->max
) {
2134 $enabledclass = 'hidden';
2138 $actions['moveright'] = new action_menu_link_secondary(
2139 new moodle_url($baseurl, array('id' => $mod->id
, 'indent' => '1')),
2140 new pix_icon($rightarrow, $str->moveright
, 'moodle', array('class' => 'iconsmall', 'title' => '')),
2142 array('class' => 'editing_moveright ' . $enabledclass, 'data-action' => 'moveright', 'data-keepopen' => true)
2145 if ($indent <= $indentlimits->min
) {
2146 $enabledclass = 'hidden';
2150 $actions['moveleft'] = new action_menu_link_secondary(
2151 new moodle_url($baseurl, array('id' => $mod->id
, 'indent' => '-1')),
2152 new pix_icon($leftarrow, $str->moveleft
, 'moodle', array('class' => 'iconsmall', 'title' => '')),
2154 array('class' => 'editing_moveleft ' . $enabledclass, 'data-action' => 'moveleft', 'data-keepopen' => true)
2160 if (has_capability('moodle/course:activityvisibility', $modcontext)) {
2161 if ($mod->visible
) {
2162 $actions['hide'] = new action_menu_link_secondary(
2163 new moodle_url($baseurl, array('hide' => $mod->id
)),
2164 new pix_icon('t/hide', $str->hide
, 'moodle', array('class' => 'iconsmall', 'title' => '')),
2166 array('class' => 'editing_hide', 'data-action' => 'hide')
2169 $actions['show'] = new action_menu_link_secondary(
2170 new moodle_url($baseurl, array('show' => $mod->id
)),
2171 new pix_icon('t/show', $str->show
, 'moodle', array('class' => 'iconsmall', 'title' => '')),
2173 array('class' => 'editing_show', 'data-action' => 'show')
2178 // Duplicate (require both target import caps to be able to duplicate and backup2 support, see modduplicate.php)
2179 if (has_all_capabilities($dupecaps, $coursecontext) &&
2180 plugin_supports('mod', $mod->modname
, FEATURE_BACKUP_MOODLE2
)) {
2181 $actions['duplicate'] = new action_menu_link_secondary(
2182 new moodle_url($baseurl, array('duplicate' => $mod->id
)),
2183 new pix_icon('t/copy', $str->duplicate
, 'moodle', array('class' => 'iconsmall', 'title' => '')),
2185 array('class' => 'editing_duplicate', 'data-action' => 'duplicate', 'data-sr' => $sr)
2190 if ($hasmanageactivities && !$mod->coursegroupmodeforce
) {
2191 if (plugin_supports('mod', $mod->modname
, FEATURE_GROUPS
, 0)) {
2192 if ($mod->effectivegroupmode
== SEPARATEGROUPS
) {
2193 $nextgroupmode = VISIBLEGROUPS
;
2194 $grouptitle = $str->groupsseparate
;
2195 $actionname = 'groupsseparate';
2196 $groupimage = 'i/groups';
2197 } else if ($mod->effectivegroupmode
== VISIBLEGROUPS
) {
2198 $nextgroupmode = NOGROUPS
;
2199 $grouptitle = $str->groupsvisible
;
2200 $actionname = 'groupsvisible';
2201 $groupimage = 'i/groupv';
2203 $nextgroupmode = SEPARATEGROUPS
;
2204 $grouptitle = $str->groupsnone
;
2205 $actionname = 'groupsnone';
2206 $groupimage = 'i/groupn';
2209 $actions[$actionname] = new action_menu_link_primary(
2210 new moodle_url($baseurl, array('id' => $mod->id
, 'groupmode' => $nextgroupmode)),
2211 new pix_icon($groupimage, null, 'moodle', array('class' => 'iconsmall')),
2213 array('class' => 'editing_'. $actionname, 'data-action' => $actionname, 'data-nextgroupmode' => $nextgroupmode, 'aria-live' => 'assertive')
2216 $actions['nogroupsupport'] = new action_menu_filler();
2221 if (has_capability('moodle/role:assign', $modcontext)){
2222 $actions['assign'] = new action_menu_link_secondary(
2223 new moodle_url('/admin/roles/assign.php', array('contextid' => $modcontext->id
)),
2224 new pix_icon('t/assignroles', $str->assign
, 'moodle', array('class' => 'iconsmall', 'title' => '')),
2226 array('class' => 'editing_assign', 'data-action' => 'assignroles')
2231 if ($hasmanageactivities) {
2232 $actions['delete'] = new action_menu_link_secondary(
2233 new moodle_url($baseurl, array('delete' => $mod->id
)),
2234 new pix_icon('t/delete', $str->delete
, 'moodle', array('class' => 'iconsmall', 'title' => '')),
2236 array('class' => 'editing_delete', 'data-action' => 'delete')
2244 * Returns the rename action.
2246 * @param cm_info $mod The module to produce editing buttons for
2247 * @param int $sr The section to link back to (used for creating the links)
2248 * @return The markup for the rename action, or an empty string if not available.
2250 function course_get_cm_rename_action(cm_info
$mod, $sr = null) {
2251 global $COURSE, $OUTPUT;
2256 $modcontext = context_module
::instance($mod->id
);
2257 $hasmanageactivities = has_capability('moodle/course:manageactivities', $modcontext);
2260 $str = get_strings(array('edittitle'));
2263 if (!isset($baseurl)) {
2264 $baseurl = new moodle_url('/course/mod.php', array('sesskey' => sesskey()));
2268 $baseurl->param('sr', $sr);
2272 if ($mod->has_view() && $hasmanageactivities && course_ajax_enabled($COURSE) &&
2273 (($mod->course
== $COURSE->id
) ||
($mod->course
== SITEID
))) {
2274 // we will not display link if we are on some other-course page (where we should not see this module anyway)
2275 return html_writer
::span(
2277 new moodle_url($baseurl, array('update' => $mod->id
)),
2278 $OUTPUT->pix_icon('t/editstring', '', 'moodle', array('class' => 'iconsmall visibleifjs', 'title' => '')),
2280 'class' => 'editing_title',
2281 'data-action' => 'edittitle',
2282 'title' => $str->edittitle
,
2291 * Returns the move action.
2293 * @param cm_info $mod The module to produce a move button for
2294 * @param int $sr The section to link back to (used for creating the links)
2295 * @return The markup for the move action, or an empty string if not available.
2297 function course_get_cm_move(cm_info
$mod, $sr = null) {
2303 $modcontext = context_module
::instance($mod->id
);
2304 $hasmanageactivities = has_capability('moodle/course:manageactivities', $modcontext);
2307 $str = get_strings(array('move'));
2310 if (!isset($baseurl)) {
2311 $baseurl = new moodle_url('/course/mod.php', array('sesskey' => sesskey()));
2314 $baseurl->param('sr', $sr);
2318 if ($hasmanageactivities) {
2319 $pixicon = 'i/dragdrop';
2321 if (!course_ajax_enabled($mod->get_course())) {
2322 // Override for course frontpage until we get drag/drop working there.
2323 $pixicon = 't/move';
2326 return html_writer
::link(
2327 new moodle_url($baseurl, array('copy' => $mod->id
)),
2328 $OUTPUT->pix_icon($pixicon, $str->move
, 'moodle', array('class' => 'iconsmall', 'title' => '')),
2329 array('class' => 'editing_move', 'data-action' => 'move')
2336 * given a course object with shortname & fullname, this function will
2337 * truncate the the number of chars allowed and add ... if it was too long
2339 function course_format_name ($course,$max=100) {
2341 $context = context_course
::instance($course->id
);
2342 $shortname = format_string($course->shortname
, true, array('context' => $context));
2343 $fullname = format_string($course->fullname
, true, array('context' => context_course
::instance($course->id
)));
2344 $str = $shortname.': '. $fullname;
2345 if (core_text
::strlen($str) <= $max) {
2349 return core_text
::substr($str,0,$max-3).'...';
2354 * Is the user allowed to add this type of module to this course?
2355 * @param object $course the course settings. Only $course->id is used.
2356 * @param string $modname the module name. E.g. 'forum' or 'quiz'.
2357 * @return bool whether the current user is allowed to add this type of module to this course.
2359 function course_allowed_module($course, $modname) {
2360 if (is_numeric($modname)) {
2361 throw new coding_exception('Function course_allowed_module no longer
2362 supports numeric module ids. Please update your code to pass the module name.');
2365 $capability = 'mod/' . $modname . ':addinstance';
2366 if (!get_capability_info($capability)) {
2367 // Debug warning that the capability does not exist, but no more than once per page.
2368 static $warned = array();
2369 $archetype = plugin_supports('mod', $modname, FEATURE_MOD_ARCHETYPE
, MOD_ARCHETYPE_OTHER
);
2370 if (!isset($warned[$modname]) && $archetype !== MOD_ARCHETYPE_SYSTEM
) {
2371 debugging('The module ' . $modname . ' does not define the standard capability ' .
2372 $capability , DEBUG_DEVELOPER
);
2373 $warned[$modname] = 1;
2376 // If the capability does not exist, the module can always be added.
2380 $coursecontext = context_course
::instance($course->id
);
2381 return has_capability($capability, $coursecontext);
2385 * Efficiently moves many courses around while maintaining
2386 * sortorder in order.
2388 * @param array $courseids is an array of course ids
2389 * @param int $categoryid
2390 * @return bool success
2392 function move_courses($courseids, $categoryid) {
2395 if (empty($courseids)) {
2400 if (!$category = $DB->get_record('course_categories', array('id' => $categoryid))) {
2404 $courseids = array_reverse($courseids);
2405 $newparent = context_coursecat
::instance($category->id
);
2408 list($where, $params) = $DB->get_in_or_equal($courseids);
2409 $dbcourses = $DB->get_records_select('course', 'id ' . $where, $params, '', 'id, category, shortname, fullname');
2410 foreach ($dbcourses as $dbcourse) {
2411 $course = new stdClass();
2412 $course->id
= $dbcourse->id
;
2413 $course->category
= $category->id
;
2414 $course->sortorder
= $category->sortorder + MAX_COURSES_IN_CATEGORY
- $i++
;
2415 if ($category->visible
== 0) {
2416 // Hide the course when moving into hidden category, do not update the visibleold flag - we want to get
2417 // to previous state if somebody unhides the category.
2418 $course->visible
= 0;
2421 $DB->update_record('course', $course);
2423 // Update context, so it can be passed to event.
2424 $context = context_course
::instance($course->id
);
2425 $context->update_moved($newparent);
2427 // Trigger a course updated event.
2428 $event = \core\event\course_updated
::create(array(
2429 'objectid' => $course->id
,
2430 'context' => context_course
::instance($course->id
),
2431 'other' => array('shortname' => $dbcourse->shortname
,
2432 'fullname' => $dbcourse->fullname
)
2434 $event->set_legacy_logdata(array($course->id
, 'course', 'move', 'edit.php?id=' . $course->id
, $course->id
));
2437 fix_course_sortorder();
2438 cache_helper
::purge_by_event('changesincourse');
2444 * Returns the display name of the given section that the course prefers
2446 * Implementation of this function is provided by course format
2447 * @see format_base::get_section_name()
2449 * @param int|stdClass $courseorid The course to get the section name for (object or just course id)
2450 * @param int|stdClass $section Section object from database or just field course_sections.section
2451 * @return string Display name that the course format prefers, e.g. "Week 2"
2453 function get_section_name($courseorid, $section) {
2454 return course_get_format($courseorid)->get_section_name($section);
2458 * Tells if current course format uses sections
2460 * @param string $format Course format ID e.g. 'weeks' $course->format
2463 function course_format_uses_sections($format) {
2464 $course = new stdClass();
2465 $course->format
= $format;
2466 return course_get_format($course)->uses_sections();
2470 * Returns the information about the ajax support in the given source format
2472 * The returned object's property (boolean)capable indicates that
2473 * the course format supports Moodle course ajax features.
2475 * @param string $format
2478 function course_format_ajax_support($format) {
2479 $course = new stdClass();
2480 $course->format
= $format;
2481 return course_get_format($course)->supports_ajax();
2485 * Can the current user delete this course?
2486 * Course creators have exception,
2487 * 1 day after the creation they can sill delete the course.
2488 * @param int $courseid
2491 function can_delete_course($courseid) {
2494 $context = context_course
::instance($courseid);
2496 if (has_capability('moodle/course:delete', $context)) {
2500 // hack: now try to find out if creator created this course recently (1 day)
2501 if (!has_capability('moodle/course:create', $context)) {
2505 $since = time() - 60*60*24;
2506 $course = get_course($courseid);
2508 if ($course->timecreated
< $since) {
2509 return false; // Return if the course was not created in last 24 hours.
2512 $logmanger = get_log_manager();
2513 $readers = $logmanger->get_readers('\core\log\sql_reader');
2514 $reader = reset($readers);
2516 if (empty($reader)) {
2517 return false; // No log reader found.
2521 $select = "userid = :userid AND courseid = :courseid AND eventname = :eventname AND timecreated > :since";
2522 $params = array('userid' => $USER->id
, 'since' => $since, 'courseid' => $course->id
, 'eventname' => '\core\event\course_created');
2524 return (bool)$reader->get_events_select_count($select, $params);
2528 * Save the Your name for 'Some role' strings.
2530 * @param integer $courseid the id of this course.
2531 * @param array $data the data that came from the course settings form.
2533 function save_local_role_names($courseid, $data) {
2535 $context = context_course
::instance($courseid);
2537 foreach ($data as $fieldname => $value) {
2538 if (strpos($fieldname, 'role_') !== 0) {
2541 list($ignored, $roleid) = explode('_', $fieldname);
2543 // make up our mind whether we want to delete, update or insert
2545 $DB->delete_records('role_names', array('contextid' => $context->id
, 'roleid' => $roleid));
2547 } else if ($rolename = $DB->get_record('role_names', array('contextid' => $context->id
, 'roleid' => $roleid))) {
2548 $rolename->name
= $value;
2549 $DB->update_record('role_names', $rolename);
2552 $rolename = new stdClass
;
2553 $rolename->contextid
= $context->id
;
2554 $rolename->roleid
= $roleid;
2555 $rolename->name
= $value;
2556 $DB->insert_record('role_names', $rolename);
2558 // This will ensure the course contacts cache is purged..
2559 coursecat
::role_assignment_changed($roleid, $context);
2564 * Returns options to use in course overviewfiles filemanager
2566 * @param null|stdClass|course_in_list|int $course either object that has 'id' property or just the course id;
2567 * may be empty if course does not exist yet (course create form)
2568 * @return array|null array of options such as maxfiles, maxbytes, accepted_types, etc.
2569 * or null if overviewfiles are disabled
2571 function course_overviewfiles_options($course) {
2573 if (empty($CFG->courseoverviewfileslimit
)) {
2576 $accepted_types = preg_split('/\s*,\s*/', trim($CFG->courseoverviewfilesext
), -1, PREG_SPLIT_NO_EMPTY
);
2577 if (in_array('*', $accepted_types) ||
empty($accepted_types)) {
2578 $accepted_types = '*';
2580 // Since config for $CFG->courseoverviewfilesext is a text box, human factor must be considered.
2581 // Make sure extensions are prefixed with dot unless they are valid typegroups
2582 foreach ($accepted_types as $i => $type) {
2583 if (substr($type, 0, 1) !== '.') {
2584 require_once($CFG->libdir
. '/filelib.php');
2585 if (!count(file_get_typegroup('extension', $type))) {
2586 // It does not start with dot and is not a valid typegroup, this is most likely extension.
2587 $accepted_types[$i] = '.'. $type;
2592 if (!empty($corrected)) {
2593 set_config('courseoverviewfilesext', join(',', $accepted_types));
2597 'maxfiles' => $CFG->courseoverviewfileslimit
,
2598 'maxbytes' => $CFG->maxbytes
,
2600 'accepted_types' => $accepted_types
2602 if (!empty($course->id
)) {
2603 $options['context'] = context_course
::instance($course->id
);
2604 } else if (is_int($course) && $course > 0) {
2605 $options['context'] = context_course
::instance($course);
2611 * Create a course and either return a $course object
2613 * Please note this functions does not verify any access control,
2614 * the calling code is responsible for all validation (usually it is the form definition).
2616 * @param array $editoroptions course description editor options
2617 * @param object $data - all the data needed for an entry in the 'course' table
2618 * @return object new course instance
2620 function create_course($data, $editoroptions = NULL) {
2623 //check the categoryid - must be given for all new courses
2624 $category = $DB->get_record('course_categories', array('id'=>$data->category
), '*', MUST_EXIST
);
2626 // Check if the shortname already exists.
2627 if (!empty($data->shortname
)) {
2628 if ($DB->record_exists('course', array('shortname' => $data->shortname
))) {
2629 throw new moodle_exception('shortnametaken', '', '', $data->shortname
);
2633 // Check if the idnumber already exists.
2634 if (!empty($data->idnumber
)) {
2635 if ($DB->record_exists('course', array('idnumber' => $data->idnumber
))) {
2636 throw new moodle_exception('courseidnumbertaken', '', '', $data->idnumber
);
2640 // Check if timecreated is given.
2641 $data->timecreated
= !empty($data->timecreated
) ?
$data->timecreated
: time();
2642 $data->timemodified
= $data->timecreated
;
2644 // place at beginning of any category
2645 $data->sortorder
= 0;
2647 if ($editoroptions) {
2648 // summary text is updated later, we need context to store the files first
2649 $data->summary
= '';
2650 $data->summary_format
= FORMAT_HTML
;
2653 if (!isset($data->visible
)) {
2654 // data not from form, add missing visibility info
2655 $data->visible
= $category->visible
;
2657 $data->visibleold
= $data->visible
;
2659 $newcourseid = $DB->insert_record('course', $data);
2660 $context = context_course
::instance($newcourseid, MUST_EXIST
);
2662 if ($editoroptions) {
2663 // Save the files used in the summary editor and store
2664 $data = file_postupdate_standard_editor($data, 'summary', $editoroptions, $context, 'course', 'summary', 0);
2665 $DB->set_field('course', 'summary', $data->summary
, array('id'=>$newcourseid));
2666 $DB->set_field('course', 'summaryformat', $data->summary_format
, array('id'=>$newcourseid));
2668 if ($overviewfilesoptions = course_overviewfiles_options($newcourseid)) {
2669 // Save the course overviewfiles
2670 $data = file_postupdate_standard_filemanager($data, 'overviewfiles', $overviewfilesoptions, $context, 'course', 'overviewfiles', 0);
2673 // update course format options
2674 course_get_format($newcourseid)->update_course_format_options($data);
2676 $course = course_get_format($newcourseid)->get_course();
2678 fix_course_sortorder();
2679 // purge appropriate caches in case fix_course_sortorder() did not change anything
2680 cache_helper
::purge_by_event('changesincourse');
2682 // new context created - better mark it as dirty
2683 $context->mark_dirty();
2685 // Trigger a course created event.
2686 $event = \core\event\course_created
::create(array(
2687 'objectid' => $course->id
,
2688 'context' => context_course
::instance($course->id
),
2689 'other' => array('shortname' => $course->shortname
,
2690 'fullname' => $course->fullname
)
2695 blocks_add_default_course_blocks($course);
2697 // Create a default section.
2698 course_create_sections_if_missing($course, 0);
2700 // Save any custom role names.
2701 save_local_role_names($course->id
, (array)$data);
2703 // set up enrolments
2704 enrol_course_updated(true, $course, $data);
2706 // Update course tags.
2707 if (isset($data->tags
)) {
2708 core_tag_tag
::set_item_tags('core', 'course', $course->id
, context_course
::instance($course->id
), $data->tags
);
2717 * Please note this functions does not verify any access control,
2718 * the calling code is responsible for all validation (usually it is the form definition).
2720 * @param object $data - all the data needed for an entry in the 'course' table
2721 * @param array $editoroptions course description editor options
2724 function update_course($data, $editoroptions = NULL) {
2727 $data->timemodified
= time();
2729 $oldcourse = course_get_format($data->id
)->get_course();
2730 $context = context_course
::instance($oldcourse->id
);
2732 if ($editoroptions) {
2733 $data = file_postupdate_standard_editor($data, 'summary', $editoroptions, $context, 'course', 'summary', 0);
2735 if ($overviewfilesoptions = course_overviewfiles_options($data->id
)) {
2736 $data = file_postupdate_standard_filemanager($data, 'overviewfiles', $overviewfilesoptions, $context, 'course', 'overviewfiles', 0);
2739 // Check we don't have a duplicate shortname.
2740 if (!empty($data->shortname
) && $oldcourse->shortname
!= $data->shortname
) {
2741 if ($DB->record_exists_sql('SELECT id from {course} WHERE shortname = ? AND id <> ?', array($data->shortname
, $data->id
))) {
2742 throw new moodle_exception('shortnametaken', '', '', $data->shortname
);
2746 // Check we don't have a duplicate idnumber.
2747 if (!empty($data->idnumber
) && $oldcourse->idnumber
!= $data->idnumber
) {
2748 if ($DB->record_exists_sql('SELECT id from {course} WHERE idnumber = ? AND id <> ?', array($data->idnumber
, $data->id
))) {
2749 throw new moodle_exception('courseidnumbertaken', '', '', $data->idnumber
);
2753 if (!isset($data->category
) or empty($data->category
)) {
2754 // prevent nulls and 0 in category field
2755 unset($data->category
);
2757 $changesincoursecat = $movecat = (isset($data->category
) and $oldcourse->category
!= $data->category
);
2759 if (!isset($data->visible
)) {
2760 // data not from form, add missing visibility info
2761 $data->visible
= $oldcourse->visible
;
2764 if ($data->visible
!= $oldcourse->visible
) {
2765 // reset the visibleold flag when manually hiding/unhiding course
2766 $data->visibleold
= $data->visible
;
2767 $changesincoursecat = true;
2770 $newcategory = $DB->get_record('course_categories', array('id'=>$data->category
));
2771 if (empty($newcategory->visible
)) {
2772 // make sure when moving into hidden category the course is hidden automatically
2778 // Update with the new data
2779 $DB->update_record('course', $data);
2780 // make sure the modinfo cache is reset
2781 rebuild_course_cache($data->id
);
2783 // update course format options with full course data
2784 course_get_format($data->id
)->update_course_format_options($data, $oldcourse);
2786 $course = $DB->get_record('course', array('id'=>$data->id
));
2789 $newparent = context_coursecat
::instance($course->category
);
2790 $context->update_moved($newparent);
2792 $fixcoursesortorder = $movecat ||
(isset($data->sortorder
) && ($oldcourse->sortorder
!= $data->sortorder
));
2793 if ($fixcoursesortorder) {
2794 fix_course_sortorder();
2797 // purge appropriate caches in case fix_course_sortorder() did not change anything
2798 cache_helper
::purge_by_event('changesincourse');
2799 if ($changesincoursecat) {
2800 cache_helper
::purge_by_event('changesincoursecat');
2803 // Test for and remove blocks which aren't appropriate anymore
2804 blocks_remove_inappropriate($course);
2806 // Save any custom role names.
2807 save_local_role_names($course->id
, $data);
2809 // update enrol settings
2810 enrol_course_updated(false, $course, $data);
2812 // Update course tags.
2813 if (isset($data->tags
)) {
2814 core_tag_tag
::set_item_tags('core', 'course', $course->id
, context_course
::instance($course->id
), $data->tags
);
2817 // Trigger a course updated event.
2818 $event = \core\event\course_updated
::create(array(
2819 'objectid' => $course->id
,
2820 'context' => context_course
::instance($course->id
),
2821 'other' => array('shortname' => $course->shortname
,
2822 'fullname' => $course->fullname
)
2825 $event->set_legacy_logdata(array($course->id
, 'course', 'update', 'edit.php?id=' . $course->id
, $course->id
));
2828 if ($oldcourse->format
!== $course->format
) {
2829 // Remove all options stored for the previous format
2830 // We assume that new course format migrated everything it needed watching trigger
2831 // 'course_updated' and in method format_XXX::update_course_format_options()
2832 $DB->delete_records('course_format_options',
2833 array('courseid' => $course->id
, 'format' => $oldcourse->format
));
2838 * Average number of participants
2841 function average_number_of_participants() {
2844 //count total of enrolments for visible course (except front page)
2845 $sql = 'SELECT COUNT(*) FROM (
2846 SELECT DISTINCT ue.userid, e.courseid
2847 FROM {user_enrolments} ue, {enrol} e, {course} c
2848 WHERE ue.enrolid = e.id
2849 AND e.courseid <> :siteid
2850 AND c.id = e.courseid
2851 AND c.visible = 1) total';
2852 $params = array('siteid' => $SITE->id
);
2853 $enrolmenttotal = $DB->count_records_sql($sql, $params);
2856 //count total of visible courses (minus front page)
2857 $coursetotal = $DB->count_records('course', array('visible' => 1));
2858 $coursetotal = $coursetotal - 1 ;
2860 //average of enrolment
2861 if (empty($coursetotal)) {
2862 $participantaverage = 0;
2864 $participantaverage = $enrolmenttotal / $coursetotal;
2867 return $participantaverage;
2871 * Average number of course modules
2874 function average_number_of_courses_modules() {
2877 //count total of visible course module (except front page)
2878 $sql = 'SELECT COUNT(*) FROM (
2879 SELECT cm.course, cm.module
2880 FROM {course} c, {course_modules} cm
2881 WHERE c.id = cm.course
2884 AND c.visible = 1) total';
2885 $params = array('siteid' => $SITE->id
);
2886 $moduletotal = $DB->count_records_sql($sql, $params);
2889 //count total of visible courses (minus front page)
2890 $coursetotal = $DB->count_records('course', array('visible' => 1));
2891 $coursetotal = $coursetotal - 1 ;
2893 //average of course module
2894 if (empty($coursetotal)) {
2895 $coursemoduleaverage = 0;
2897 $coursemoduleaverage = $moduletotal / $coursetotal;
2900 return $coursemoduleaverage;
2904 * This class pertains to course requests and contains methods associated with
2905 * create, approving, and removing course requests.
2907 * Please note we do not allow embedded images here because there is no context
2908 * to store them with proper access control.
2910 * @copyright 2009 Sam Hemelryk
2911 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
2914 * @property-read int $id
2915 * @property-read string $fullname
2916 * @property-read string $shortname
2917 * @property-read string $summary
2918 * @property-read int $summaryformat
2919 * @property-read int $summarytrust
2920 * @property-read string $reason
2921 * @property-read int $requester
2923 class course_request
{
2926 * This is the stdClass that stores the properties for the course request
2927 * and is externally accessed through the __get magic method
2930 protected $properties;
2933 * An array of options for the summary editor used by course request forms.
2934 * This is initially set by {@link summary_editor_options()}
2938 protected static $summaryeditoroptions;
2941 * Static function to prepare the summary editor for working with a course
2945 * @param null|stdClass $data Optional, an object containing the default values
2946 * for the form, these may be modified when preparing the
2947 * editor so this should be called before creating the form
2948 * @return stdClass An object that can be used to set the default values for
2951 public static function prepare($data=null) {
2952 if ($data === null) {
2953 $data = new stdClass
;
2955 $data = file_prepare_standard_editor($data, 'summary', self
::summary_editor_options());
2960 * Static function to create a new course request when passed an array of properties
2963 * This function also handles saving any files that may have been used in the editor
2966 * @param stdClass $data
2967 * @return course_request The newly created course request
2969 public static function create($data) {
2970 global $USER, $DB, $CFG;
2971 $data->requester
= $USER->id
;
2973 // Setting the default category if none set.
2974 if (empty($data->category
) ||
empty($CFG->requestcategoryselection
)) {
2975 $data->category
= $CFG->defaultrequestcategory
;
2978 // Summary is a required field so copy the text over
2979 $data->summary
= $data->summary_editor
['text'];
2980 $data->summaryformat
= $data->summary_editor
['format'];
2982 $data->id
= $DB->insert_record('course_request', $data);
2984 // Create a new course_request object and return it
2985 $request = new course_request($data);
2987 // Notify the admin if required.
2988 if ($users = get_users_from_config($CFG->courserequestnotify
, 'moodle/site:approvecourse')) {
2991 $a->link
= "$CFG->wwwroot/course/pending.php";
2992 $a->user
= fullname($USER);
2993 $subject = get_string('courserequest');
2994 $message = get_string('courserequestnotifyemail', 'admin', $a);
2995 foreach ($users as $user) {
2996 $request->notify($user, $USER, 'courserequested', $subject, $message);
3004 * Returns an array of options to use with a summary editor
3006 * @uses course_request::$summaryeditoroptions
3007 * @return array An array of options to use with the editor
3009 public static function summary_editor_options() {
3011 if (self
::$summaryeditoroptions === null) {
3012 self
::$summaryeditoroptions = array('maxfiles' => 0, 'maxbytes'=>0);
3014 return self
::$summaryeditoroptions;
3018 * Loads the properties for this course request object. Id is required and if
3019 * only id is provided then we load the rest of the properties from the database
3021 * @param stdClass|int $properties Either an object containing properties
3022 * or the course_request id to load
3024 public function __construct($properties) {
3026 if (empty($properties->id
)) {
3027 if (empty($properties)) {
3028 throw new coding_exception('You must provide a course request id when creating a course_request object');
3031 $properties = new stdClass
;
3032 $properties->id
= (int)$id;
3035 if (empty($properties->requester
)) {
3036 if (!($this->properties
= $DB->get_record('course_request', array('id' => $properties->id
)))) {
3037 print_error('unknowncourserequest');
3040 $this->properties
= $properties;
3042 $this->properties
->collision
= null;
3046 * Returns the requested property
3048 * @param string $key
3051 public function __get($key) {
3052 return $this->properties
->$key;
3056 * Override this to ensure empty($request->blah) calls return a reliable answer...
3058 * This is required because we define the __get method
3061 * @return bool True is it not empty, false otherwise
3063 public function __isset($key) {
3064 return (!empty($this->properties
->$key));
3068 * Returns the user who requested this course
3070 * Uses a static var to cache the results and cut down the number of db queries
3072 * @staticvar array $requesters An array of cached users
3073 * @return stdClass The user who requested the course
3075 public function get_requester() {
3077 static $requesters= array();
3078 if (!array_key_exists($this->properties
->requester
, $requesters)) {
3079 $requesters[$this->properties
->requester
] = $DB->get_record('user', array('id'=>$this->properties
->requester
));
3081 return $requesters[$this->properties
->requester
];
3085 * Checks that the shortname used by the course does not conflict with any other
3086 * courses that exist
3088 * @param string|null $shortnamemark The string to append to the requests shortname
3089 * should a conflict be found
3090 * @return bool true is there is a conflict, false otherwise
3092 public function check_shortname_collision($shortnamemark = '[*]') {
3095 if ($this->properties
->collision
!== null) {
3096 return $this->properties
->collision
;
3099 if (empty($this->properties
->shortname
)) {
3100 debugging('Attempting to check a course request shortname before it has been set', DEBUG_DEVELOPER
);
3101 $this->properties
->collision
= false;
3102 } else if ($DB->record_exists('course', array('shortname' => $this->properties
->shortname
))) {
3103 if (!empty($shortnamemark)) {
3104 $this->properties
->shortname
.= ' '.$shortnamemark;
3106 $this->properties
->collision
= true;
3108 $this->properties
->collision
= false;
3110 return $this->properties
->collision
;
3114 * Returns the category where this course request should be created
3116 * Note that we don't check here that user has a capability to view
3117 * hidden categories if he has capabilities 'moodle/site:approvecourse' and
3118 * 'moodle/course:changecategory'
3122 public function get_category() {
3124 require_once($CFG->libdir
.'/coursecatlib.php');
3125 // If the category is not set, if the current user does not have the rights to change the category, or if the
3126 // category does not exist, we set the default category to the course to be approved.
3127 // The system level is used because the capability moodle/site:approvecourse is based on a system level.
3128 if (empty($this->properties
->category
) ||
!has_capability('moodle/course:changecategory', context_system
::instance()) ||
3129 (!$category = coursecat
::get($this->properties
->category
, IGNORE_MISSING
, true))) {
3130 $category = coursecat
::get($CFG->defaultrequestcategory
, IGNORE_MISSING
, true);
3133 $category = coursecat
::get_default();
3139 * This function approves the request turning it into a course
3141 * This function converts the course request into a course, at the same time
3142 * transferring any files used in the summary to the new course and then removing
3143 * the course request and the files associated with it.
3145 * @return int The id of the course that was created from this request
3147 public function approve() {
3148 global $CFG, $DB, $USER;
3150 $user = $DB->get_record('user', array('id' => $this->properties
->requester
, 'deleted'=>0), '*', MUST_EXIST
);
3152 $courseconfig = get_config('moodlecourse');
3154 // Transfer appropriate settings
3155 $data = clone($this->properties
);
3157 unset($data->reason
);
3158 unset($data->requester
);
3161 $category = $this->get_category();
3162 $data->category
= $category->id
;
3163 // Set misc settings
3164 $data->requested
= 1;
3166 // Apply course default settings
3167 $data->format
= $courseconfig->format
;
3168 $data->newsitems
= $courseconfig->newsitems
;
3169 $data->showgrades
= $courseconfig->showgrades
;
3170 $data->showreports
= $courseconfig->showreports
;
3171 $data->maxbytes
= $courseconfig->maxbytes
;
3172 $data->groupmode
= $courseconfig->groupmode
;
3173 $data->groupmodeforce
= $courseconfig->groupmodeforce
;
3174 $data->visible
= $courseconfig->visible
;
3175 $data->visibleold
= $data->visible
;
3176 $data->lang
= $courseconfig->lang
;
3178 $course = create_course($data);
3179 $context = context_course
::instance($course->id
, MUST_EXIST
);
3181 // add enrol instances
3182 if (!$DB->record_exists('enrol', array('courseid'=>$course->id
, 'enrol'=>'manual'))) {
3183 if ($manual = enrol_get_plugin('manual')) {
3184 $manual->add_default_instance($course);
3188 // enrol the requester as teacher if necessary
3189 if (!empty($CFG->creatornewroleid
) and !is_viewing($context, $user, 'moodle/role:assign') and !is_enrolled($context, $user, 'moodle/role:assign')) {
3190 enrol_try_internal_enrol($course->id
, $user->id
, $CFG->creatornewroleid
);
3195 $a = new stdClass();
3196 $a->name
= format_string($course->fullname
, true, array('context' => context_course
::instance($course->id
)));
3197 $a->url
= $CFG->wwwroot
.'/course/view.php?id=' . $course->id
;
3198 $this->notify($user, $USER, 'courserequestapproved', get_string('courseapprovedsubject'), get_string('courseapprovedemail2', 'moodle', $a));
3204 * Reject a course request
3206 * This function rejects a course request, emailing the requesting user the
3207 * provided notice and then removing the request from the database
3209 * @param string $notice The message to display to the user
3211 public function reject($notice) {
3213 $user = $DB->get_record('user', array('id' => $this->properties
->requester
), '*', MUST_EXIST
);
3214 $this->notify($user, $USER, 'courserequestrejected', get_string('courserejectsubject'), get_string('courserejectemail', 'moodle', $notice));
3219 * Deletes the course request and any associated files
3221 public function delete() {
3223 $DB->delete_records('course_request', array('id' => $this->properties
->id
));
3227 * Send a message from one user to another using events_trigger
3229 * @param object $touser
3230 * @param object $fromuser
3231 * @param string $name
3232 * @param string $subject
3233 * @param string $message
3235 protected function notify($touser, $fromuser, $name='courserequested', $subject, $message) {
3236 $eventdata = new stdClass();
3237 $eventdata->component
= 'moodle';
3238 $eventdata->name
= $name;
3239 $eventdata->userfrom
= $fromuser;
3240 $eventdata->userto
= $touser;
3241 $eventdata->subject
= $subject;
3242 $eventdata->fullmessage
= $message;
3243 $eventdata->fullmessageformat
= FORMAT_PLAIN
;
3244 $eventdata->fullmessagehtml
= '';
3245 $eventdata->smallmessage
= '';
3246 $eventdata->notification
= 1;
3247 message_send($eventdata);
3252 * Return a list of page types
3253 * @param string $pagetype current page type
3254 * @param context $parentcontext Block's parent context
3255 * @param context $currentcontext Current context of block
3256 * @return array array of page types
3258 function course_page_type_list($pagetype, $parentcontext, $currentcontext) {
3259 if ($pagetype === 'course-index' ||
$pagetype === 'course-index-category') {
3260 // For courses and categories browsing pages (/course/index.php) add option to show on ANY category page
3261 $pagetypes = array('*' => get_string('page-x', 'pagetype'),
3262 'course-index-*' => get_string('page-course-index-x', 'pagetype'),
3264 } else if ($currentcontext && (!($coursecontext = $currentcontext->get_course_context(false)) ||
$coursecontext->instanceid
== SITEID
)) {
3265 // We know for sure that despite pagetype starts with 'course-' this is not a page in course context (i.e. /course/search.php, etc.)
3266 $pagetypes = array('*' => get_string('page-x', 'pagetype'));
3268 // Otherwise consider it a page inside a course even if $currentcontext is null
3269 $pagetypes = array('*' => get_string('page-x', 'pagetype'),
3270 'course-*' => get_string('page-course-x', 'pagetype'),
3271 'course-view-*' => get_string('page-course-view-x', 'pagetype')
3278 * Determine whether course ajax should be enabled for the specified course
3280 * @param stdClass $course The course to test against
3281 * @return boolean Whether course ajax is enabled or note
3283 function course_ajax_enabled($course) {
3284 global $CFG, $PAGE, $SITE;
3286 // The user must be editing for AJAX to be included
3287 if (!$PAGE->user_is_editing()) {
3291 // Check that the theme suports
3292 if (!$PAGE->theme
->enablecourseajax
) {
3296 // Check that the course format supports ajax functionality
3297 // The site 'format' doesn't have information on course format support
3298 if ($SITE->id
!== $course->id
) {
3299 $courseformatajaxsupport = course_format_ajax_support($course->format
);
3300 if (!$courseformatajaxsupport->capable
) {
3305 // All conditions have been met so course ajax should be enabled
3310 * Include the relevant javascript and language strings for the resource
3311 * toolbox YUI module
3313 * @param integer $id The ID of the course being applied to
3314 * @param array $usedmodules An array containing the names of the modules in use on the page
3315 * @param array $enabledmodules An array containing the names of the enabled (visible) modules on this site
3316 * @param stdClass $config An object containing configuration parameters for ajax modules including:
3317 * * resourceurl The URL to post changes to for resource changes
3318 * * sectionurl The URL to post changes to for section changes
3319 * * pageparams Additional parameters to pass through in the post
3322 function include_course_ajax($course, $usedmodules = array(), $enabledmodules = null, $config = null) {
3323 global $CFG, $PAGE, $SITE;
3325 // Ensure that ajax should be included
3326 if (!course_ajax_enabled($course)) {
3331 $config = new stdClass();
3334 // The URL to use for resource changes
3335 if (!isset($config->resourceurl
)) {
3336 $config->resourceurl
= '/course/rest.php';
3339 // The URL to use for section changes
3340 if (!isset($config->sectionurl
)) {
3341 $config->sectionurl
= '/course/rest.php';
3344 // Any additional parameters which need to be included on page submission
3345 if (!isset($config->pageparams
)) {
3346 $config->pageparams
= array();
3349 // Include toolboxes
3350 $PAGE->requires
->yui_module('moodle-course-toolboxes',
3351 'M.course.init_resource_toolbox',
3353 'courseid' => $course->id
,
3354 'ajaxurl' => $config->resourceurl
,
3355 'config' => $config,
3358 $PAGE->requires
->yui_module('moodle-course-toolboxes',
3359 'M.course.init_section_toolbox',
3361 'courseid' => $course->id
,
3362 'format' => $course->format
,
3363 'ajaxurl' => $config->sectionurl
,
3364 'config' => $config,
3368 // Include course dragdrop
3369 if (course_format_uses_sections($course->format
)) {
3370 $PAGE->requires
->yui_module('moodle-course-dragdrop', 'M.course.init_section_dragdrop',
3372 'courseid' => $course->id
,
3373 'ajaxurl' => $config->sectionurl
,
3374 'config' => $config,
3377 $PAGE->requires
->yui_module('moodle-course-dragdrop', 'M.course.init_resource_dragdrop',
3379 'courseid' => $course->id
,
3380 'ajaxurl' => $config->resourceurl
,
3381 'config' => $config,
3385 // Require various strings for the command toolbox
3386 $PAGE->requires
->strings_for_js(array(
3389 'deletechecktypename',
3391 'edittitleinstructions',
3399 'clicktochangeinbrackets',
3404 'movecoursesection',
3407 'emptydragdropregion',
3413 // Include section-specific strings for formats which support sections.
3414 if (course_format_uses_sections($course->format
)) {
3415 $PAGE->requires
->strings_for_js(array(
3418 ), 'format_' . $course->format
);
3421 // For confirming resource deletion we need the name of the module in question
3422 foreach ($usedmodules as $module => $modname) {
3423 $PAGE->requires
->string_for_js('pluginname', $module);
3426 // Load drag and drop upload AJAX.
3427 require_once($CFG->dirroot
.'/course/dnduploadlib.php');
3428 dndupload_add_to_course($course, $enabledmodules);
3434 * Returns the sorted list of available course formats, filtered by enabled if necessary
3436 * @param bool $enabledonly return only formats that are enabled
3437 * @return array array of sorted format names
3439 function get_sorted_course_formats($enabledonly = false) {
3441 $formats = core_component
::get_plugin_list('format');
3443 if (!empty($CFG->format_plugins_sortorder
)) {
3444 $order = explode(',', $CFG->format_plugins_sortorder
);
3445 $order = array_merge(array_intersect($order, array_keys($formats)),
3446 array_diff(array_keys($formats), $order));
3448 $order = array_keys($formats);
3450 if (!$enabledonly) {
3453 $sortedformats = array();
3454 foreach ($order as $formatname) {
3455 if (!get_config('format_'.$formatname, 'disabled')) {
3456 $sortedformats[] = $formatname;
3459 return $sortedformats;
3463 * The URL to use for the specified course (with section)
3465 * @param int|stdClass $courseorid The course to get the section name for (either object or just course id)
3466 * @param int|stdClass $section Section object from database or just field course_sections.section
3467 * if omitted the course view page is returned
3468 * @param array $options options for view URL. At the moment core uses:
3469 * 'navigation' (bool) if true and section has no separate page, the function returns null
3470 * 'sr' (int) used by multipage formats to specify to which section to return
3471 * @return moodle_url The url of course
3473 function course_get_url($courseorid, $section = null, $options = array()) {
3474 return course_get_format($courseorid)->get_view_url($section, $options);
3481 * - capability checks and other checks
3482 * - create the module from the module info
3484 * @param object $module
3485 * @return object the created module info
3486 * @throws moodle_exception if user is not allowed to perform the action or module is not allowed in this course
3488 function create_module($moduleinfo) {
3491 require_once($CFG->dirroot
. '/course/modlib.php');
3493 // Check manadatory attributs.
3494 $mandatoryfields = array('modulename', 'course', 'section', 'visible');
3495 if (plugin_supports('mod', $moduleinfo->modulename
, FEATURE_MOD_INTRO
, true)) {
3496 $mandatoryfields[] = 'introeditor';
3498 foreach($mandatoryfields as $mandatoryfield) {
3499 if (!isset($moduleinfo->{$mandatoryfield})) {
3500 throw new moodle_exception('createmodulemissingattribut', '', '', $mandatoryfield);
3504 // Some additional checks (capability / existing instances).
3505 $course = $DB->get_record('course', array('id'=>$moduleinfo->course
), '*', MUST_EXIST
);
3506 list($module, $context, $cw) = can_add_moduleinfo($course, $moduleinfo->modulename
, $moduleinfo->section
);
3509 $moduleinfo->module
= $module->id
;
3510 $moduleinfo = add_moduleinfo($moduleinfo, $course, null);
3519 * - capability and other checks
3520 * - update the module
3522 * @param object $module
3523 * @return object the updated module info
3524 * @throws moodle_exception if current user is not allowed to update the module
3526 function update_module($moduleinfo) {
3529 require_once($CFG->dirroot
. '/course/modlib.php');
3531 // Check the course module exists.
3532 $cm = get_coursemodule_from_id('', $moduleinfo->coursemodule
, 0, false, MUST_EXIST
);
3534 // Check the course exists.
3535 $course = $DB->get_record('course', array('id'=>$cm->course
), '*', MUST_EXIST
);
3537 // Some checks (capaibility / existing instances).
3538 list($cm, $context, $module, $data, $cw) = can_update_moduleinfo($cm);
3540 // Retrieve few information needed by update_moduleinfo.
3541 $moduleinfo->modulename
= $cm->modname
;
3542 if (!isset($moduleinfo->scale
)) {
3543 $moduleinfo->scale
= 0;
3545 $moduleinfo->type
= 'mod';
3547 // Update the module.
3548 list($cm, $moduleinfo) = update_moduleinfo($cm, $moduleinfo, $course, null);
3554 * Duplicate a module on the course for ajax.
3556 * @see mod_duplicate_module()
3557 * @param object $course The course
3558 * @param object $cm The course module to duplicate
3559 * @param int $sr The section to link back to (used for creating the links)
3560 * @throws moodle_exception if the plugin doesn't support duplication
3561 * @return Object containing:
3562 * - fullcontent: The HTML markup for the created CM
3563 * - cmid: The CMID of the newly created CM
3564 * - redirect: Whether to trigger a redirect following this change
3566 function mod_duplicate_activity($course, $cm, $sr = null) {
3569 $newcm = duplicate_module($course, $cm);
3571 $resp = new stdClass();
3573 $courserenderer = $PAGE->get_renderer('core', 'course');
3574 $completioninfo = new completion_info($course);
3575 $modulehtml = $courserenderer->course_section_cm($course, $completioninfo,
3576 $newcm, null, array());
3578 $resp->fullcontent
= $courserenderer->course_section_cm_list_item($course, $completioninfo, $newcm, $sr);
3579 $resp->cmid
= $newcm->id
;
3581 // Trigger a redirect.
3582 $resp->redirect
= true;
3588 * Api to duplicate a module.
3590 * @param object $course course object.
3591 * @param object $cm course module object to be duplicated.
3595 * @throws coding_exception
3596 * @throws moodle_exception
3597 * @throws restore_controller_exception
3599 * @return cm_info|null cminfo object if we sucessfully duplicated the mod and found the new cm.
3601 function duplicate_module($course, $cm) {
3602 global $CFG, $DB, $USER;
3603 require_once($CFG->dirroot
. '/backup/util/includes/backup_includes.php');
3604 require_once($CFG->dirroot
. '/backup/util/includes/restore_includes.php');
3605 require_once($CFG->libdir
. '/filelib.php');
3607 $a = new stdClass();
3608 $a->modtype
= get_string('modulename', $cm->modname
);
3609 $a->modname
= format_string($cm->name
);
3611 if (!plugin_supports('mod', $cm->modname
, FEATURE_BACKUP_MOODLE2
)) {
3612 throw new moodle_exception('duplicatenosupport', 'error', '', $a);
3615 // Backup the activity.
3617 $bc = new backup_controller(backup
::TYPE_1ACTIVITY
, $cm->id
, backup
::FORMAT_MOODLE
,
3618 backup
::INTERACTIVE_NO
, backup
::MODE_IMPORT
, $USER->id
);
3620 $backupid = $bc->get_backupid();
3621 $backupbasepath = $bc->get_plan()->get_basepath();
3623 $bc->execute_plan();
3627 // Restore the backup immediately.
3629 $rc = new restore_controller($backupid, $course->id
,
3630 backup
::INTERACTIVE_NO
, backup
::MODE_IMPORT
, $USER->id
, backup
::TARGET_CURRENT_ADDING
);
3632 $cmcontext = context_module
::instance($cm->id
);
3633 if (!$rc->execute_precheck()) {
3634 $precheckresults = $rc->get_precheck_results();
3635 if (is_array($precheckresults) && !empty($precheckresults['errors'])) {
3636 if (empty($CFG->keeptempdirectoriesonbackup
)) {
3637 fulldelete($backupbasepath);
3642 $rc->execute_plan();
3644 // Now a bit hacky part follows - we try to get the cmid of the newly
3645 // restored copy of the module.
3647 $tasks = $rc->get_plan()->get_tasks();
3648 foreach ($tasks as $task) {
3649 if (is_subclass_of($task, 'restore_activity_task')) {
3650 if ($task->get_old_contextid() == $cmcontext->id
) {
3651 $newcmid = $task->get_moduleid();
3657 // If we know the cmid of the new course module, let us move it
3658 // right below the original one. otherwise it will stay at the
3659 // end of the section.
3661 $info = get_fast_modinfo($course);
3662 $newcm = $info->get_cm($newcmid);
3663 $section = $DB->get_record('course_sections', array('id' => $cm->section
, 'course' => $cm->course
));
3664 moveto_module($newcm, $section, $cm);
3665 moveto_module($cm, $section, $newcm);
3667 // Trigger course module created event. We can trigger the event only if we know the newcmid.
3668 $event = \core\event\course_module_created
::create_from_cm($newcm);
3671 rebuild_course_cache($cm->course
);
3675 if (empty($CFG->keeptempdirectoriesonbackup
)) {
3676 fulldelete($backupbasepath);
3679 return isset($newcm) ?
$newcm : null;
3683 * Compare two objects to find out their correct order based on timestamp (to be used by usort).
3684 * Sorts by descending order of time.
3686 * @param stdClass $a First object
3687 * @param stdClass $b Second object
3688 * @return int 0,1,-1 representing the order
3690 function compare_activities_by_time_desc($a, $b) {
3691 // Make sure the activities actually have a timestamp property.
3692 if ((!property_exists($a, 'timestamp')) && (!property_exists($b, 'timestamp'))) {
3695 // We treat instances without timestamp as if they have a timestamp of 0.
3696 if ((!property_exists($a, 'timestamp')) && (property_exists($b,'timestamp'))) {
3699 if ((property_exists($a, 'timestamp')) && (!property_exists($b, 'timestamp'))) {
3702 if ($a->timestamp
== $b->timestamp
) {
3705 return ($a->timestamp
> $b->timestamp
) ?
-1 : 1;
3709 * Compare two objects to find out their correct order based on timestamp (to be used by usort).
3710 * Sorts by ascending order of time.
3712 * @param stdClass $a First object
3713 * @param stdClass $b Second object
3714 * @return int 0,1,-1 representing the order
3716 function compare_activities_by_time_asc($a, $b) {
3717 // Make sure the activities actually have a timestamp property.
3718 if ((!property_exists($a, 'timestamp')) && (!property_exists($b, 'timestamp'))) {
3721 // We treat instances without timestamp as if they have a timestamp of 0.
3722 if ((!property_exists($a, 'timestamp')) && (property_exists($b, 'timestamp'))) {
3725 if ((property_exists($a, 'timestamp')) && (!property_exists($b, 'timestamp'))) {
3728 if ($a->timestamp
== $b->timestamp
) {
3731 return ($a->timestamp
< $b->timestamp
) ?
-1 : 1;
3735 * Changes the visibility of a course.
3737 * @param int $courseid The course to change.
3738 * @param bool $show True to make it visible, false otherwise.
3741 function course_change_visibility($courseid, $show = true) {
3742 $course = new stdClass
;
3743 $course->id
= $courseid;
3744 $course->visible
= ($show) ?
'1' : '0';
3745 $course->visibleold
= $course->visible
;
3746 update_course($course);
3751 * Changes the course sortorder by one, moving it up or down one in respect to sort order.
3753 * @param stdClass|course_in_list $course
3754 * @param bool $up If set to true the course will be moved up one. Otherwise down one.
3757 function course_change_sortorder_by_one($course, $up) {
3759 $params = array($course->sortorder
, $course->category
);
3761 $select = 'sortorder < ? AND category = ?';
3762 $sort = 'sortorder DESC';
3764 $select = 'sortorder > ? AND category = ?';
3765 $sort = 'sortorder ASC';
3767 fix_course_sortorder();
3768 $swapcourse = $DB->get_records_select('course', $select, $params, $sort, '*', 0, 1);
3770 $swapcourse = reset($swapcourse);
3771 $DB->set_field('course', 'sortorder', $swapcourse->sortorder
, array('id' => $course->id
));
3772 $DB->set_field('course', 'sortorder', $course->sortorder
, array('id' => $swapcourse->id
));
3773 // Finally reorder courses.
3774 fix_course_sortorder();
3775 cache_helper
::purge_by_event('changesincourse');
3782 * Changes the sort order of courses in a category so that the first course appears after the second.
3784 * @param int|stdClass $courseorid The course to focus on.
3785 * @param int $moveaftercourseid The course to shifter after or 0 if you want it to be the first course in the category.
3788 function course_change_sortorder_after_course($courseorid, $moveaftercourseid) {
3791 if (!is_object($courseorid)) {
3792 $course = get_course($courseorid);
3794 $course = $courseorid;
3797 if ((int)$moveaftercourseid === 0) {
3798 // We've moving the course to the start of the queue.
3799 $sql = 'SELECT sortorder
3801 WHERE category = :categoryid
3802 ORDER BY sortorder';
3804 'categoryid' => $course->category
3806 $sortorder = $DB->get_field_sql($sql, $params, IGNORE_MULTIPLE
);
3808 $sql = 'UPDATE {course}
3809 SET sortorder = sortorder + 1
3810 WHERE category = :categoryid
3813 'categoryid' => $course->category
,
3814 'id' => $course->id
,
3816 $DB->execute($sql, $params);
3817 $DB->set_field('course', 'sortorder', $sortorder, array('id' => $course->id
));
3818 } else if ($course->id
=== $moveaftercourseid) {
3819 // They're the same - moronic.
3820 debugging("Invalid move after course given.", DEBUG_DEVELOPER
);
3823 // Moving this course after the given course. It could be before it could be after.
3824 $moveaftercourse = get_course($moveaftercourseid);
3825 if ($course->category
!== $moveaftercourse->category
) {
3826 debugging("Cannot re-order courses. The given courses do not belong to the same category.", DEBUG_DEVELOPER
);
3829 // Increment all courses in the same category that are ordered after the moveafter course.
3830 // This makes a space for the course we're moving.
3831 $sql = 'UPDATE {course}
3832 SET sortorder = sortorder + 1
3833 WHERE category = :categoryid
3834 AND sortorder > :sortorder';
3836 'categoryid' => $moveaftercourse->category
,
3837 'sortorder' => $moveaftercourse->sortorder
3839 $DB->execute($sql, $params);
3840 $DB->set_field('course', 'sortorder', $moveaftercourse->sortorder +
1, array('id' => $course->id
));
3842 fix_course_sortorder();
3843 cache_helper
::purge_by_event('changesincourse');
3848 * Trigger course viewed event. This API function is used when course view actions happens,
3849 * usually in course/view.php but also in external functions.
3851 * @param stdClass $context course context object
3852 * @param int $sectionnumber section number
3855 function course_view($context, $sectionnumber = 0) {
3857 $eventdata = array('context' => $context);
3859 if (!empty($sectionnumber)) {
3860 $eventdata['other']['coursesectionnumber'] = $sectionnumber;
3863 $event = \core\event\course_viewed
::create($eventdata);
3868 * Returns courses tagged with a specified tag.
3870 * @param core_tag_tag $tag
3871 * @param bool $exclusivemode if set to true it means that no other entities tagged with this tag
3872 * are displayed on the page and the per-page limit may be bigger
3873 * @param int $fromctx context id where the link was displayed, may be used by callbacks
3874 * to display items in the same context first
3875 * @param int $ctx context id where to search for records
3876 * @param bool $rec search in subcontexts as well
3877 * @param int $page 0-based number of page being displayed
3878 * @return \core_tag\output\tagindex
3880 function course_get_tagged_courses($tag, $exclusivemode = false, $fromctx = 0, $ctx = 0, $rec = 1, $page = 0) {
3882 require_once($CFG->libdir
. '/coursecatlib.php');
3884 $perpage = $exclusivemode ?
$CFG->coursesperpage
: 5;
3885 $displayoptions = array(
3886 'limit' => $perpage,
3887 'offset' => $page * $perpage,
3888 'viewmoreurl' => null,
3891 $courserenderer = $PAGE->get_renderer('core', 'course');
3892 $totalcount = coursecat
::search_courses_count(array('tagid' => $tag->id
, 'ctx' => $ctx, 'rec' => $rec));
3893 $content = $courserenderer->tagged_courses($tag->id
, $exclusivemode, $ctx, $rec, $displayoptions);
3894 $totalpages = ceil($totalcount / $perpage);
3896 return new core_tag\output\tagindex
($tag, 'core', 'course', $content,
3897 $exclusivemode, $fromctx, $ctx, $rec, $page, $totalpages);