Correct usage of debugging. MDL-11893 ; merged from 19_STABLE
[moodle.git] / index.php
CommitLineData
4bab5275 1<?php // $Id$
657423c8 2 // index.php - the front page.
89adb174 3
0cfb6a52 4///////////////////////////////////////////////////////////////////////////
5// //
6// NOTICE OF COPYRIGHT //
7// //
8// Moodle - Modular Object-Oriented Dynamic Learning Environment //
9// http://moodle.org //
10// //
3b365361 11// Copyright (C) 1999 onwards Martin Dougiamas http://moodle.com //
0cfb6a52 12// //
13// This program is free software; you can redistribute it and/or modify //
14// it under the terms of the GNU General Public License as published by //
15// the Free Software Foundation; either version 2 of the License, or //
16// (at your option) any later version. //
17// //
18// This program is distributed in the hope that it will be useful, //
19// but WITHOUT ANY WARRANTY; without even the implied warranty of //
20// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //
21// GNU General Public License for more details: //
22// //
23// http://www.gnu.org/copyleft/gpl.html //
24// //
25///////////////////////////////////////////////////////////////////////////
26
27
8b5b1028 28 if (!file_exists('./config.php')) {
29 header('Location: install.php');
30 die;
31 }
32
d41746c9 33 require_once('config.php');
34 require_once($CFG->dirroot .'/course/lib.php');
35 require_once($CFG->dirroot .'/lib/blocklib.php');
364fffda 36
d41746c9 37 if (empty($SITE)) {
38 redirect($CFG->wwwroot .'/'. $CFG->admin .'/index.php');
39 }
40
689456eb 41 // Bounds for block widths
42 // more flexible for theme designers taken from theme config.php
43 $lmin = (empty($THEME->block_l_min_width)) ? 100 : $THEME->block_l_min_width;
44 $lmax = (empty($THEME->block_l_max_width)) ? 210 : $THEME->block_l_max_width;
45 $rmin = (empty($THEME->block_r_min_width)) ? 100 : $THEME->block_r_min_width;
46 $rmax = (empty($THEME->block_r_max_width)) ? 210 : $THEME->block_r_max_width;
47
48 define('BLOCK_L_MIN_WIDTH', $lmin);
49 define('BLOCK_L_MAX_WIDTH', $lmax);
50 define('BLOCK_R_MIN_WIDTH', $rmin);
51 define('BLOCK_R_MAX_WIDTH', $rmax);
df9e0f89 52
5f0314ab 53 // check if major upgrade needed - also present in login/index.php
89d1efe4 54 if ((int)$CFG->version < 2006101100) { //1.7 or older
55 @require_logout();
56 redirect("$CFG->wwwroot/$CFG->admin/");
57 }
f667ecfe 58 // Trigger 1.9 accesslib upgrade?
5f0314ab 59 if ((int)$CFG->version < 2007092000
f667ecfe 60 && isset($USER->id)
61 && is_siteadmin($USER->id)) { // this test is expensive, but is only triggered during the upgrade
62 redirect("$CFG->wwwroot/$CFG->admin/");
63 }
89d1efe4 64
0a45ffe3 65 if ($CFG->forcelogin) {
66 require_login();
67 }
68
89948e45 69 if ($CFG->rolesactive) { // if already using roles system
84c8ede0 70 if (has_capability('moodle/site:config', get_context_instance(CONTEXT_SYSTEM))) {
89948e45 71 if (moodle_needs_upgrading()) {
72 redirect($CFG->wwwroot .'/'. $CFG->admin .'/index.php');
73 }
db0852c5 74 } else if (!empty($CFG->mymoodleredirect)) { // Redirect logged-in users to My Moodle overview if required
40fa2a74 75 if (isloggedin() && $USER->username != 'guest') {
db0852c5 76 redirect($CFG->wwwroot .'/my/index.php');
77 }
89948e45 78 }
79 } else { // if upgrading from 1.6 or below
80 if (isadmin() && moodle_needs_upgrading()) {
4bab5275 81 redirect($CFG->wwwroot .'/'. $CFG->admin .'/index.php');
53bfe78c 82 }
3565715c 83 }
84
db0852c5 85
364fffda 86 if (get_moodle_cookie() == '') {
9f9e3576 87 set_moodle_cookie('nobody'); // To help search for cookies on login page
88 }
89
c44d5d42 90 if (!empty($USER->id)) {
34dd5900 91 add_to_log(SITEID, 'course', 'view', 'view.php?id='.SITEID, SITEID);
a325bd2b 92 }
a5e3644b 93
984a8bf3 94 if (empty($CFG->langmenu)) {
4bab5275 95 $langmenu = '';
984a8bf3 96 } else {
97 $currlang = current_language();
98 $langs = get_list_of_languages();
0d0afd96 99 $langlabel = get_accesshide(get_string('language'));
2c6e998f 100 $langmenu = popup_form($CFG->wwwroot .'/index.php?lang=', $langs, 'chooselang', $currlang, '', '', '', true, 'self', $langlabel);
984a8bf3 101 }
a5e3644b 102
60fe9736 103 $PAGE = page_create_object(PAGE_COURSE_VIEW, SITEID);
3615b2b2 104 $pageblocks = blocks_setup($PAGE);
60fe9736 105 $editing = $PAGE->user_is_editing();
364fffda 106 $preferred_width_left = bounded_number(BLOCK_L_MIN_WIDTH, blocks_preferred_width($pageblocks[BLOCK_POS_LEFT]),
af328e4b 107 BLOCK_L_MAX_WIDTH);
364fffda 108 $preferred_width_right = bounded_number(BLOCK_R_MIN_WIDTH, blocks_preferred_width($pageblocks[BLOCK_POS_RIGHT]),
af328e4b 109 BLOCK_R_MAX_WIDTH);
704ba13c 110 print_header($SITE->fullname, $SITE->fullname, 'home', '',
78ba4d06 111 '<meta name="description" content="'. s(strip_tags($SITE->summary)) .'" />',
c44d5d42 112 true, '', user_login_string($SITE).$langmenu);
5921e0a0 113
f9903ed0 114?>
115
3054741a 116
6173f39e 117<table id="layout-table" summary="layout">
3565715c 118 <tr>
af328e4b 119 <?php
d55c9a1f 120 $lt = (empty($THEME->layouttable)) ? array('left', 'middle', 'right') : $THEME->layouttable;
121 foreach ($lt as $column) {
122 switch ($column) {
123 case 'left':
af328e4b 124 if (blocks_have_content($pageblocks, BLOCK_POS_LEFT) || $editing) {
e96ba29d 125 echo '<td style="width: '.$preferred_width_left.'px;" id="left-column">';
9f7f1a74 126 print_container_start();
66492322 127 blocks_print_group($PAGE, $pageblocks, BLOCK_POS_LEFT);
9f7f1a74 128 print_container_end();
89adb174 129 echo '</td>';
130 }
d55c9a1f 131 break;
132 case 'middle':
317d5ddc 133 echo '<td id="middle-column">'. skip_main_destination();
8c336db1 134
9f7f1a74 135 print_container_start();
8c336db1 136
5fc2f2fd 137/// Print Section
78ba4d06 138 if ($SITE->numsections > 0) {
5fc2f2fd 139
78ba4d06 140 if (!$section = get_record('course_sections', 'course', $SITE->id, 'section', 1)) {
141 delete_records('course_sections', 'course', $SITE->id, 'section', 1); // Just in case
142 $section->course = $SITE->id;
45a6b40d 143 $section->section = 1;
144 $section->summary = '';
a2b82263 145 $section->sequence = '';
45a6b40d 146 $section->visible = 1;
147 $section->id = insert_record('course_sections', $section);
148 }
5fc2f2fd 149
a2b82263 150 if (!empty($section->sequence) or !empty($section->summary) or $editing) {
8cef9517 151 print_box_start('generalbox sitetopic');
5fc2f2fd 152
a2b82263 153 /// If currently moving a file then show the current clipboard
154 if (ismoving($SITE->id)) {
155 $stractivityclipboard = strip_tags(get_string('activityclipboard', '', addslashes($USER->activitycopyname)));
156 echo '<p><font size="2">';
e9c99674 157 echo "$stractivityclipboard&nbsp;&nbsp;(<a href=\"course/mod.php?cancelcopy=true&amp;sesskey=$USER->sesskey\">". get_string('cancel') .'</a>)';
a2b82263 158 echo '</font></p>';
159 }
5fc2f2fd 160
73e95f22 161 $options = NULL;
162 $options->noclean = true;
163 echo format_text($section->summary, FORMAT_HTML, $options);
5fc2f2fd 164
a2b82263 165 if ($editing) {
166 $streditsummary = get_string('editsummary');
167 echo "<a title=\"$streditsummary\" ".
168 " href=\"course/editsection.php?id=$section->id\"><img src=\"$CFG->pixpath/t/edit.gif\" ".
0d905d9f 169 " class=\"iconsmall\" alt=\"$streditsummary\" /></a><br /><br />";
a2b82263 170 }
171
172 get_all_mods($SITE->id, $mods, $modnames, $modnamesplural, $modnamesused);
173 print_section($SITE, $section, $mods, $modnamesused, true);
364fffda 174
a2b82263 175 if ($editing) {
176 print_section_add_menus($SITE, $section->section, $modnames);
177 }
8cef9517 178 print_box_end();
5fc2f2fd 179 }
5fc2f2fd 180 }
181
6f24e48e 182 if (isloggedin() and !isguest() and isset($CFG->frontpageloggedin)) {
183 $frontpagelayout = $CFG->frontpageloggedin;
184 } else {
185 $frontpagelayout = $CFG->frontpage;
186 }
187
188 foreach (explode(',',$frontpagelayout) as $v) {
e1638d61 189 switch ($v) { /// Display the main part of the front page.
220a90c5 190 case FRONTPAGENEWS:
e1638d61 191 if ($SITE->newsitems) { // Print forums only when needed
192 require_once($CFG->dirroot .'/mod/forum/lib.php');
193
194 if (! $newsforum = forum_get_course_forum($SITE->id, 'news')) {
5a2a5331 195 print_error('Could not find or create a main news forum for the site');
e1638d61 196 }
197
86a1ba04 198 if (!empty($USER->id)) {
e1638d61 199 $SESSION->fromdiscussion = $CFG->wwwroot;
90f4745c 200 if (forum_is_subscribed($USER->id, $newsforum)) {
e1638d61 201 $subtext = get_string('unsubscribe', 'forum');
202 } else {
203 $subtext = get_string('subscribe', 'forum');
204 }
1c9d49c2 205 print_heading_block($newsforum->name);
206 echo '<div class="subscribelink"><a href="mod/forum/subscribe.php?id='.$newsforum->id.'">'.$subtext.'</a></div>';
af328e4b 207 } else {
1c9d49c2 208 print_heading_block($newsforum->name);
af328e4b 209 }
e1638d61 210
a5a9cd99 211 forum_print_latest_discussions($SITE, $newsforum, $SITE->newsitems, 'plain', 'p.modified DESC');
89adb174 212 }
e1638d61 213 break;
89adb174 214
e1638d61 215 case FRONTPAGECOURSELIST:
af328e4b 216
84c8ede0 217 if (isloggedin() and !has_capability('moodle/site:config', get_context_instance(CONTEXT_SYSTEM)) and !isguest() and empty($CFG->disablemycourses)) {
e1638d61 218 print_heading_block(get_string('mycourses'));
219 print_my_moodle();
84c8ede0 220 } else if ((!has_capability('moodle/site:config', get_context_instance(CONTEXT_SYSTEM)) and !isguest()) or (count_records('course') <= FRONTPAGECOURSELIMIT)) {
fe2920ad 221 // admin should not see list of courses when there are too many of them
e0140f24 222 print_heading_block(get_string('availablecourses'));
5f6b9c09 223 print_courses(0);
89adb174 224 }
e1638d61 225 break;
89adb174 226
e0140f24 227 case FRONTPAGECATEGORYNAMES:
228
229 print_heading_block(get_string('categories'));
986f093f 230 print_box_start('generalbox categorybox');
d157bd5b 231 print_whole_category_list(NULL, NULL, NULL, -1, false);
986f093f 232 print_box_end();
e0140f24 233 print_course_search('', false, 'short');
234 break;
235
6f24e48e 236 case FRONTPAGECATEGORYCOMBO:
237
238 print_heading_block(get_string('categories'));
986f093f 239 print_box_start('generalbox categorybox');
6f24e48e 240 print_whole_category_list(NULL, NULL, NULL, -1, true);
986f093f 241 print_box_end();
6f24e48e 242 print_course_search('', false, 'short');
243 break;
244
e1638d61 245 case FRONTPAGETOPICONLY: // Do nothing!! :-)
246 break;
5eafd948 247
e1638d61 248 }
249 echo '<br />';
89adb174 250 }
251
9f7f1a74 252 print_container_end();
86df6cc6 253
89adb174 254 echo '</td>';
d55c9a1f 255 break;
256 case 'right':
9b4b78fd 257 // The right column
f7016edc 258 if (blocks_have_content($pageblocks, BLOCK_POS_RIGHT) || $editing || $PAGE->user_allowed_editing()) {
e96ba29d 259 echo '<td style="width: '.$preferred_width_right.'px;" id="right-column">';
9f7f1a74 260 print_container_start();
f7016edc 261 if ($PAGE->user_allowed_editing()) {
535792b2 262 echo '<div style="text-align:center">'.update_course_icon($SITE->id).'</div>';
89adb174 263 echo '<br />';
264 }
66492322 265 blocks_print_group($PAGE, $pageblocks, BLOCK_POS_RIGHT);
9f7f1a74 266 print_container_end();
89adb174 267 echo '</td>';
268 }
d55c9a1f 269 break;
270 }
271 }
89adb174 272?>
d887b5a7 273
3565715c 274 </tr>
275</table>
f9903ed0 276
0768842c 277
8c336db1 278<?php
8c336db1 279 print_footer('home'); // Please do not modify this line
b5768b9e 280?>