SCORM AICC MDL-30223 invalid call to update_record - very hard to test/reproduce.
[moodle.git] / index.php
blobd6424a52b8c661c459f187ec2f98918b0cfbd0e7
1 <?php
3 // This file is part of Moodle - http://moodle.org/
4 //
5 // Moodle is free software: you can redistribute it and/or modify
6 // it under the terms of the GNU General Public License as published by
7 // the Free Software Foundation, either version 3 of the License, or
8 // (at your option) any later version.
9 //
10 // Moodle is distributed in the hope that it will be useful,
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 // GNU General Public License for more details.
15 // You should have received a copy of the GNU General Public License
16 // along with Moodle. If not, see <http://www.gnu.org/licenses/>.
18 /**
19 * Moodle frontpage.
21 * @package core
22 * @copyright 1999 onwards Martin Dougiamas (http://dougiamas.com)
23 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
26 if (!file_exists('./config.php')) {
27 header('Location: install.php');
28 die;
31 require_once('config.php');
32 require_once($CFG->dirroot .'/course/lib.php');
33 require_once($CFG->libdir .'/filelib.php');
35 redirect_if_major_upgrade_required();
37 if ($CFG->forcelogin) {
38 require_login();
39 } else {
40 user_accesstime_log();
43 $hassiteconfig = has_capability('moodle/site:config', get_context_instance(CONTEXT_SYSTEM));
45 $PAGE->set_url('/');
46 $PAGE->set_course($SITE);
48 /// If the site is currently under maintenance, then print a message
49 if (!empty($CFG->maintenance_enabled) and !$hassiteconfig) {
50 print_maintenance_message();
53 if ($hassiteconfig && moodle_needs_upgrading()) {
54 redirect($CFG->wwwroot .'/'. $CFG->admin .'/index.php');
57 if (get_home_page() != HOMEPAGE_SITE) {
58 // Redirect logged-in users to My Moodle overview if required
59 if (optional_param('setdefaulthome', false, PARAM_BOOL)) {
60 set_user_preference('user_home_page_preference', HOMEPAGE_SITE);
61 } else if ($CFG->defaulthomepage == HOMEPAGE_MY && (optional_param('redirect', true, PARAM_BOOL) || !$hassiteconfig)) {
62 redirect($CFG->wwwroot .'/my/');
63 } else if (!empty($CFG->defaulthomepage) && $CFG->defaulthomepage == HOMEPAGE_USER) {
64 $PAGE->settingsnav->get('usercurrentsettings')->add(get_string('makethismyhome'), new moodle_url('/', array('setdefaulthome'=>true)), navigation_node::TYPE_SETTING);
68 if (isloggedin()) {
69 add_to_log(SITEID, 'course', 'view', 'view.php?id='.SITEID, SITEID);
72 /// If the hub plugin is installed then we let it take over the homepage here
73 if (get_config('local_hub', 'hubenabled') && file_exists($CFG->dirroot.'/local/hub/lib.php')) {
74 require_once($CFG->dirroot.'/local/hub/lib.php');
75 $hub = new local_hub();
76 $continue = $hub->display_homepage();
77 //display_homepage() return true if the hub home page is not displayed
78 //mostly when search form is not displayed for not logged users
79 if (empty($continue)) {
80 exit;
84 $PAGE->set_pagetype('site-index');
85 $PAGE->set_other_editing_capability('moodle/course:manageactivities');
86 $PAGE->set_docs_path('');
87 $PAGE->set_pagelayout('frontpage');
88 $editing = $PAGE->user_is_editing();
89 $PAGE->set_title($SITE->fullname);
90 $PAGE->set_heading($SITE->fullname);
91 echo $OUTPUT->header();
93 /// Print Section or custom info
94 if (!empty($CFG->customfrontpageinclude)) {
95 include($CFG->customfrontpageinclude);
97 } else if ($SITE->numsections > 0) {
99 if (!$section = $DB->get_record('course_sections', array('course'=>$SITE->id, 'section'=>1))) {
100 $DB->delete_records('course_sections', array('course'=>$SITE->id, 'section'=>1)); // Just in case
101 $section->course = $SITE->id;
102 $section->section = 1;
103 $section->summary = '';
104 $section->summaryformat = FORMAT_HTML;
105 $section->sequence = '';
106 $section->visible = 1;
107 $section->id = $DB->insert_record('course_sections', $section);
110 if (!empty($section->sequence) or !empty($section->summary) or $editing) {
111 echo $OUTPUT->box_start('generalbox sitetopic');
113 /// If currently moving a file then show the current clipboard
114 if (ismoving($SITE->id)) {
115 $stractivityclipboard = strip_tags(get_string('activityclipboard', '', $USER->activitycopyname));
116 echo '<p><font size="2">';
117 echo "$stractivityclipboard&nbsp;&nbsp;(<a href=\"course/mod.php?cancelcopy=true&amp;sesskey=".sesskey()."\">". get_string('cancel') .'</a>)';
118 echo '</font></p>';
121 $context = get_context_instance(CONTEXT_COURSE, SITEID);
122 $summarytext = file_rewrite_pluginfile_urls($section->summary, 'pluginfile.php', $context->id, 'course', 'section', $section->id);
123 $summaryformatoptions = new stdClass();
124 $summaryformatoptions->noclean = true;
125 $summaryformatoptions->overflowdiv = true;
127 echo format_text($summarytext, $section->summaryformat, $summaryformatoptions);
129 if ($editing) {
130 $streditsummary = get_string('editsummary');
131 echo "<a title=\"$streditsummary\" ".
132 " href=\"course/editsection.php?id=$section->id\"><img src=\"" . $OUTPUT->pix_url('t/edit') . "\" ".
133 " class=\"iconsmall\" alt=\"$streditsummary\" /></a><br /><br />";
136 get_all_mods($SITE->id, $mods, $modnames, $modnamesplural, $modnamesused);
137 print_section($SITE, $section, $mods, $modnamesused, true);
139 if ($editing) {
140 print_section_add_menus($SITE, $section->section, $modnames);
142 echo $OUTPUT->box_end();
146 if (isloggedin() and !isguestuser() and isset($CFG->frontpageloggedin)) {
147 $frontpagelayout = $CFG->frontpageloggedin;
148 } else {
149 $frontpagelayout = $CFG->frontpage;
152 foreach (explode(',',$frontpagelayout) as $v) {
153 switch ($v) { /// Display the main part of the front page.
154 case FRONTPAGENEWS:
155 if ($SITE->newsitems) { // Print forums only when needed
156 require_once($CFG->dirroot .'/mod/forum/lib.php');
158 if (! $newsforum = forum_get_course_forum($SITE->id, 'news')) {
159 print_error('cannotfindorcreateforum', 'forum');
162 // fetch news forum context for proper filtering to happen
163 $newsforumcm = get_coursemodule_from_instance('forum', $newsforum->id, $SITE->id, false, MUST_EXIST);
164 $newsforumcontext = get_context_instance(CONTEXT_MODULE, $newsforumcm->id, MUST_EXIST);
166 $forumname = format_string($newsforum->name, true, array('context' => $newsforumcontext));
167 echo html_writer::tag('a', get_string('skipa', 'access', moodle_strtolower(strip_tags($forumname))), array('href'=>'#skipsitenews', 'class'=>'skip-block'));
169 if (isloggedin()) {
170 $SESSION->fromdiscussion = $CFG->wwwroot;
171 $subtext = '';
172 if (forum_is_subscribed($USER->id, $newsforum)) {
173 if (!forum_is_forcesubscribed($newsforum)) {
174 $subtext = get_string('unsubscribe', 'forum');
176 } else {
177 $subtext = get_string('subscribe', 'forum');
179 echo $OUTPUT->heading($forumname, 2, 'headingblock header');
180 $suburl = new moodle_url('/mod/forum/subscribe.php', array('id' => $newsforum->id, 'sesskey' => sesskey()));
181 echo html_writer::tag('div', html_writer::link($suburl, $subtext), array('class' => 'subscribelink'));
182 } else {
183 echo $OUTPUT->heading($forumname, 2, 'headingblock header');
186 forum_print_latest_discussions($SITE, $newsforum, $SITE->newsitems, 'plain', 'p.modified DESC');
187 echo html_writer::tag('span', '', array('class'=>'skip-block-to', 'id'=>'skipsitenews'));
189 break;
191 case FRONTPAGECOURSELIST:
192 if (isloggedin() and !$hassiteconfig and !isguestuser() and empty($CFG->disablemycourses)) {
193 echo html_writer::tag('a', get_string('skipa', 'access', moodle_strtolower(get_string('mycourses'))), array('href'=>'#skipmycourses', 'class'=>'skip-block'));
194 echo $OUTPUT->heading(get_string('mycourses'), 2, 'headingblock header');
195 print_my_moodle();
196 echo html_writer::tag('span', '', array('class'=>'skip-block-to', 'id'=>'skipmycourses'));
197 } else if ((!$hassiteconfig and !isguestuser()) or ($DB->count_records('course') <= FRONTPAGECOURSELIMIT)) {
198 // admin should not see list of courses when there are too many of them
199 echo html_writer::tag('a', get_string('skipa', 'access', moodle_strtolower(get_string('availablecourses'))), array('href'=>'#skipavailablecourses', 'class'=>'skip-block'));
200 echo $OUTPUT->heading(get_string('availablecourses'), 2, 'headingblock header');
201 print_courses(0);
202 echo html_writer::tag('span', '', array('class'=>'skip-block-to', 'id'=>'skipavailablecourses'));
204 break;
206 case FRONTPAGECATEGORYNAMES:
207 echo html_writer::tag('a', get_string('skipa', 'access', moodle_strtolower(get_string('categories'))), array('href'=>'#skipcategories', 'class'=>'skip-block'));
208 echo $OUTPUT->heading(get_string('categories'), 2, 'headingblock header');
209 echo $OUTPUT->box_start('generalbox categorybox');
210 print_whole_category_list(NULL, NULL, NULL, -1, false);
211 echo $OUTPUT->box_end();
212 print_course_search('', false, 'short');
213 echo html_writer::tag('span', '', array('class'=>'skip-block-to', 'id'=>'skipcategories'));
214 break;
216 case FRONTPAGECATEGORYCOMBO:
217 echo html_writer::tag('a', get_string('skipa', 'access', moodle_strtolower(get_string('courses'))), array('href'=>'#skipcourses', 'class'=>'skip-block'));
218 echo $OUTPUT->heading(get_string('courses'), 2, 'headingblock header');
219 $renderer = $PAGE->get_renderer('core','course');
220 // if there are too many courses, budiling course category tree could be slow,
221 // users should go to course index page to see the whole list.
222 $coursecount = $DB->count_records('course');
223 if (empty($CFG->numcoursesincombo)) {
224 // if $CFG->numcoursesincombo hasn't been set, use default value 500
225 $CFG->numcoursesincombo = 500;
227 if ($coursecount > $CFG->numcoursesincombo) {
228 $link = new moodle_url('/course/');
229 echo $OUTPUT->notification(get_string('maxnumcoursesincombo', 'moodle', array('link'=>$link->out(), 'maxnumofcourses'=>$CFG->numcoursesincombo, 'numberofcourses'=>$coursecount)));
230 } else {
231 echo $renderer->course_category_tree(get_course_category_tree());
233 print_course_search('', false, 'short');
234 echo html_writer::tag('span', '', array('class'=>'skip-block-to', 'id'=>'skipcourses'));
235 break;
237 case FRONTPAGETOPICONLY: // Do nothing!! :-)
238 break;
241 echo '<br />';
244 echo $OUTPUT->footer();