Added some set_time_limit()s in case of slow servers timing out.
[moodle-linuxchix.git] / mod / forum / index.php
blob4d5d97c7950e10996a49bddb203bb9a1ef7aadd3
1 <?php // $Id$
3 require_once("../../config.php");
4 require_once("lib.php");
5 require_once("$CFG->libdir/rsslib.php");
7 $id = optional_param('id', 0, PARAM_INT); // Course id
8 $subscribe = optional_param('subscribe', null, PARAM_INT); // Subscribe/Unsubscribe all forums
10 if ($id) {
11 if (! $course = get_record("course", "id", $id)) {
12 error("Course ID is incorrect");
14 } else {
15 if (! $course = get_site()) {
16 error("Could not find a top-level course!");
20 require_course_login($course);
21 $currentgroup = get_current_group($course->id);
22 $coursecontext = get_context_instance(CONTEXT_COURSE, $course->id);
25 unset($SESSION->fromdiscussion);
27 add_to_log($course->id, "forum", "view forums", "index.php?id=$course->id");
29 $strforums = get_string("forums", "forum");
30 $strforum = get_string("forum", "forum");
31 $strdescription = get_string("description");
32 $strdiscussions = get_string("discussions", "forum");
33 $strsubscribed = get_string("subscribed", "forum");
34 $strunreadposts = get_string("unreadposts", "forum");
35 $strtracking = get_string('tracking', 'forum');
36 $strmarkallread = get_string('markallread', 'forum');
37 $strtrackforum = get_string('trackforum', 'forum');
38 $strnotrackforum = get_string('notrackforum', 'forum');
39 $strsubscribe = get_string('subscribe', 'forum');
40 $strunsubscribe = get_string('unsubscribe', 'forum');
41 $stryes = get_string('yes');
42 $strno = get_string('no');
43 $strrss = get_string("rss");
44 $strweek = get_string('week');
45 $strsection = get_string('section');
47 $searchform = forum_search_form($course);
50 // Start of the table for General Forums
52 $generaltable->head = array ($strforum, $strdescription, $strdiscussions);
53 $generaltable->align = array ('left', 'left', 'center');
55 if ($usetracking = forum_tp_can_track_forums()) {
56 $untracked = forum_tp_get_untracked_forums($USER->id, $course->id);
58 $generaltable->head[] = $strunreadposts;
59 $generaltable->align[] = 'center';
61 $generaltable->head[] = $strtracking;
62 $generaltable->align[] = 'center';
65 if ($can_subscribe = has_capability('moodle/course:view', $coursecontext)) {
66 $generaltable->head[] = $strsubscribed;
67 $generaltable->align[] = 'center';
70 if ($show_rss = (($can_subscribe || $course->id == SITEID) &&
71 isset($CFG->enablerssfeeds) && isset($CFG->forum_enablerssfeeds) &&
72 $CFG->enablerssfeeds && $CFG->forum_enablerssfeeds)) {
73 $generaltable->head[] = $strrss;
74 $generaltable->align[] = 'center';
78 // Parse and organise all the forums. Most forums are course modules but
79 // some special ones are not. These get placed in the general forums
80 // category with the forums in section 0.
82 $generalforums = array(); // For now
83 $learningforums = get_all_instances_in_course("forum", $course);
85 if ($forums = get_records("forum", "course", $id, "name ASC")) { // All known forums
87 if ($learningforums) { // Copy "full" data into this complete array
88 foreach ($learningforums as $key => $learningforum) {
89 $learningforum->keyreference = $key;
90 $forums[$learningforum->id] = $learningforum;
94 foreach ($forums as $forum) {
96 $cm = get_coursemodule_from_instance("forum", $forum->id, $course->id);
97 $context = get_context_instance(CONTEXT_MODULE, $cm->id);
99 if (!has_capability('mod/forum:viewdiscussion', $context)) {
100 if (isset($forum->keyreference)) {
101 unset($learningforums[$forum->keyreference]);
103 continue;
105 if (!isset($forum->visible)) {
106 $forum->visible = instance_is_visible("forum", $forum);
107 if (!$forum->visible and !has_capability('moodle/course:viewhiddenactivities', $context)) {
108 if (isset($forum->keyreference)) {
109 unset($learningforums[$forum->keyreference]);
111 continue;
114 switch ($forum->type) {
115 case "news":
116 case "social":
117 $generalforums[] = $forum;
118 if (isset($forum->keyreference)) { // Should always be
119 unset($learningforums[$forum->keyreference]);
121 break;
122 default:
123 if (($course->id == SITEID) or empty($forum->section)) { // Site level or section 0
124 $generalforums[] = $forum;
125 if (isset($forum->keyreference)) {
126 unset($learningforums[$forum->keyreference]);
129 break;
134 /// Do course wide subscribe/unsubscribe
135 if (!is_null($subscribe) && !isguest()) {
136 $allforums = array_merge($generalforums, $learningforums);
137 if ($allforums) {
138 foreach ($allforums as $forum) {
139 if (!forum_is_forcesubscribed($forum->id)) {
140 $subscribed = forum_is_subscribed($USER->id, $forum->id);
141 if ($subscribe && !$subscribed) {
142 forum_subscribe($USER->id, $forum->id);
143 } elseif (!$subscribe && $subscribed) {
144 forum_unsubscribe($USER->id, $forum->id);
149 $returnto = forum_go_back_to("index.php?id=$course->id");
150 if ($subscribe) {
151 add_to_log($course->id, "forum", "subscribeall", "index.php?id=$course->id", $course->id);
152 redirect($returnto, get_string("nowallsubscribed", "forum", format_string($course->shortname)), 1);
153 } else {
154 add_to_log($course->id, "forum", "unsubscribeall", "index.php?id=$course->id", $course->id);
155 redirect($returnto, get_string("nowallunsubscribed", "forum", format_string($course->shortname)), 1);
159 /// First, let's process the general forums and build up a display
161 if ($generalforums) {
162 foreach ($generalforums as $forum) {
164 $cm = get_coursemodule_from_instance("forum", $forum->id, $course->id);
165 $context = get_context_instance(CONTEXT_MODULE, $cm->id);
167 if (isset($forum->groupmode)) {
168 $groupmode = groupmode($course, $forum); /// Can do this because forum->groupmode is defined
169 } else {
170 $groupmode = NOGROUPS;
174 // this is potentially wrong logic. could possibly check for if user has the right to hmmm
175 if ($groupmode == SEPARATEGROUPS and !has_capability('moodle/site:accessallgroups', $context)) {
176 $count = count_records_select("forum_discussions", "forum = '$forum->id' AND (groupid = '$currentgroup' OR groupid = '-1')");
177 } else {
178 $count = count_records("forum_discussions", "forum", "$forum->id");
181 if ($usetracking) {
182 if (($forum->trackingtype == FORUM_TRACKING_ON) || !isset($untracked[$forum->id])) {
183 $groupid = ($groupmode==SEPARATEGROUPS && !has_capability('moodle/site:accessallgroups', $context)) ? $currentgroup : false;
184 $unread = forum_tp_count_forum_unread_posts($USER->id, $forum->id, $groupid);
185 if ($unread > 0) {
186 $unreadlink = '<span class="unread"><a href="view.php?f='.$forum->id.'">'.$unread.'</a>';
187 $unreadlink .= '<a title="'.$strmarkallread.'" href="markposts.php?f='.
188 $forum->id.'&amp;mark=read"><img src="'.$CFG->pixpath.'/t/clear.gif" alt="'.$strmarkallread.'" /></a></span>';
189 } else {
190 $unreadlink = '<span class="read"><a href="view.php?f='.$forum->id.'">'.$unread.'</a></span>';
194 if ($forum->trackingtype == FORUM_TRACKING_OPTIONAL) {
195 $trackedlink = '<a title="'.$strnotrackforum.'" href="settracking.php?id='.
196 $forum->id.'">'.$stryes.'</a>';
198 else {
199 $trackedlink = $stryes;
201 } else {
202 $unreadlink = '-';
203 $trackedlink = '<a title="'.$strtrackforum.'" href="settracking.php?id='.
204 $forum->id.'">'.$strno.'</a>';
208 $introoptions->para=false;
209 $forum->intro = shorten_text(trim(format_text($forum->intro, FORMAT_HTML, $introoptions)), $CFG->forum_shortpost);
211 if ($forum->visible) {
212 $forumlink = "<a href=\"view.php?f=$forum->id\">".format_string($forum->name,true)."</a>";
213 $discussionlink = "<a href=\"view.php?f=$forum->id\">".$count."</a>";
214 } else {
215 $forumlink = "<a class=\"dimmed\" href=\"view.php?f=$forum->id\">".format_string($forum->name,true)."</a>";
216 $discussionlink = "<a class=\"dimmed\" href=\"view.php?f=$forum->id\">".$count."</a>";
219 //If this forum has RSS activated, calculate it
220 $rsslink = '';
221 if ($show_rss) {
222 if ($forum->rsstype and $forum->rssarticles) {
223 //Calculate the tolltip text
224 if ($forum->rsstype == 1) {
225 $tooltiptext = get_string("rsssubscriberssdiscussions","forum",format_string($forum->name));
226 } else {
227 $tooltiptext = get_string("rsssubscriberssposts","forum",format_string($forum->name));
229 if (empty($USER->id)) {
230 $userid = 0;
231 } else {
232 $userid = $USER->id;
234 //Get html code for RSS link
235 $rsslink = rss_get_link($course->id, $userid, "forum", $forum->id, $tooltiptext);
239 if ($can_subscribe) {
240 if (forum_is_forcesubscribed($forum->id)) {
241 $sublink = $stryes;
242 } else {
243 if ($groupmode and !has_capability('moodle/site:accessallgroups', $context) and !mygroupid($course->id)) {
244 $sublink = $strno; // Can't subscribe to a group forum (not in a group)
245 $forumlink = format_string($forum->name,true);
246 } else {
247 if (forum_is_subscribed($USER->id, $forum->id)) {
248 $subscribed = $stryes;
249 $subtitle = get_string("unsubscribe", "forum");
250 } else {
251 $subscribed = $strno;
252 $subtitle = get_string("subscribe", "forum");
254 if ($forum->forcesubscribe == FORUM_DISALLOWSUBSCRIBE
255 && !has_capability('mod/forum:managesubscriptions', $context)) {
256 $sublink = '-';
257 } else {
258 $sublink = "<a title=\"$subtitle\" href=\"subscribe.php?id=$forum->id\">$subscribed</a>";
262 $row = array ($forumlink, $forum->intro, $discussionlink);
263 if ($usetracking) {
264 $row[] = $unreadlink;
265 $row[] = $trackedlink; // Tracking.
267 $row[] = $sublink;
268 if ($show_rss) {
269 $row[] = $rsslink;
271 $generaltable->data[] = $row;
272 } else {
273 $row = array ($forumlink, $forum->intro, $discussionlink);
274 if ($usetracking) {
275 $row[] = $unreadlink;
276 $row[] = $trackedlink; // Tracking.
278 if ($show_rss) {
279 $row[] = $rsslink;
281 $generaltable->data[] = $row;
287 // Start of the table for Learning Forums
288 $learningtable->head = array ($strforum, $strdescription, $strdiscussions);
289 $learningtable->align = array ("left", "left", "center");
291 if ($usetracking) {
292 $learningtable->head[] = $strunreadposts;
293 $learningtable->align[] = 'center';
295 $learningtable->head[] = $strtracking;
296 $learningtable->align[] = 'center';
299 if ($can_subscribe) {
300 $learningtable->head[] = $strsubscribed;
301 $learningtable->align[] = 'center';
304 if ($show_rss = (($can_subscribe || $course->id == SITEID) &&
305 isset($CFG->enablerssfeeds) && isset($CFG->forum_enablerssfeeds) &&
306 $CFG->enablerssfeeds && $CFG->forum_enablerssfeeds)) {
307 $learningtable->head[] = $strrss;
308 $learningtable->align[] = 'center';
311 /// Now let's process the learning forums
313 if ($course->id != SITEID) { // Only real courses have learning forums
314 // Add extra field for section number, at the front
315 if ($course->format == 'weeks' or $course->format == 'weekscss') {
316 array_unshift($learningtable->head, $strweek);
317 } else {
318 array_unshift($learningtable->head, $strsection);
320 array_unshift($learningtable->align, "center");
323 if ($learningforums) {
324 $currentsection = "";
325 foreach ($learningforums as $key => $forum) {
326 $groupmode = groupmode($course, $forum); /// Can do this because forum->groupmode is defined
327 $forum->visible = instance_is_visible("forum", $forum)
328 || has_capability('moodle/course:view', $coursecontext);
330 $cm = get_coursemodule_from_instance("forum", $forum->id, $course->id);
331 $context = get_context_instance(CONTEXT_MODULE, $cm->id);
333 if ($groupmode == SEPARATEGROUPS and !has_capability('moodle/site:accessallgroups', $context)) {
334 $count = count_records("forum_discussions", "forum", "$forum->id", "groupid", $currentgroup);
335 } else {
336 $count = count_records("forum_discussions", "forum", "$forum->id");
339 if ($usetracking) {
340 if (($forum->trackingtype == FORUM_TRACKING_ON) ||
341 !isset($untracked[$forum->id])) {
342 $groupid = ($groupmode==SEPARATEGROUPS
343 && !has_capability('moodle/site:accessallgroups', $context))
344 ? $currentgroup : false;
345 $unread = forum_tp_count_forum_unread_posts($USER->id, $forum->id, $groupid);
346 if ($unread > 0) {
347 $unreadlink = '<span class="unread"><a href="view.php?f='.$forum->id.'">'.$unread.'</a>';
348 $unreadlink .= '<a title="'.$strmarkallread.'" href="markposts.php?f='.
349 $forum->id.'&amp;mark=read"><img src="'.$CFG->pixpath.'/t/clear.gif" alt="'.$strmarkallread.'" /></a></span>';
350 } else {
351 $unreadlink = '<span class="read"><a href="view.php?f='.$forum->id.'">'.$unread.'</a></span>';
353 if ($forum->trackingtype == FORUM_TRACKING_OPTIONAL) {
354 $trackedlink = '<a title="'.$strnotrackforum.'" href="settracking.php?id='.
355 $forum->id.'">'.$stryes.'</a>';
357 } else {
358 $unreadlink = '-';
359 $trackedlink = '<a title="'.$strtrackforum.'" href="settracking.php?id='.$forum->id.'">'.$strno.'</a>';
363 $introoptions->para=false;
364 $forum->intro = shorten_text(trim(format_text($forum->intro, FORMAT_HTML, $introoptions)), $CFG->forum_shortpost);
366 if ($forum->section != $currentsection) {
367 $printsection = $forum->section;
368 if ($currentsection) {
369 $learningtable->data[] = 'hr';
371 $currentsection = $forum->section;
372 } else {
373 $printsection = "";
376 if ($forum->visible) {
377 $forumlink = "<a href=\"view.php?f=$forum->id\">".format_string($forum->name,true)."</a>";
378 $discussionlink = "<a href=\"view.php?f=$forum->id\">".$count."</a>";
379 } else {
380 $forumlink = "<a class=\"dimmed\" href=\"view.php?f=$forum->id\">".format_string($forum->name,true)."</a>";
381 $discussionlink = "<a class=\"dimmed\" href=\"view.php?f=$forum->id\">".$count."</a>";
384 //If this forum has RSS activated, calculate it
385 $rsslink = '';
386 if ($show_rss) {
387 if ($forum->rsstype and $forum->rssarticles) {
388 //Calculate the tolltip text
389 if ($forum->rsstype == 1) {
390 $tooltiptext = get_string("rsssubscriberssdiscussions","forum",format_string($forum->name));
391 } else {
392 $tooltiptext = get_string("rsssubscriberssposts","forum",format_string($forum->name));
394 if (empty($USER->id)) {
395 $userid = 0;
396 } else {
397 $userid = $USER->id;
399 //Get html code for RSS link
400 $rsslink = rss_get_link($course->id, $userid, "forum", $forum->id, $tooltiptext);
404 if ($can_subscribe) {
405 if (forum_is_forcesubscribed($forum->id)) {
406 $sublink = $stryes;
407 } else {
408 if ($groupmode and !has_capability('moodle/site:accessallgroups', $context)
409 and !mygroupid($course->id)) {
410 $sublink = $strno; // Can't subscribe to a group forum (not in a group)
411 if ($groupmode == SEPARATEGROUPS) {
412 $forumlink = format_string($forum->name,true);
414 } else {
415 if (forum_is_subscribed($USER->id, $forum->id)) {
416 $subscribed = $stryes;
417 $subtitle = $strunsubscribe;
418 } else {
419 $subscribed = $strno;
420 $subtitle = $strsubscribe;
422 $sublink = "<a title=\"$subtitle\" href=\"subscribe.php?id=$forum->id\">$subscribed</a>";
426 $row = array ($printsection, $forumlink, $forum->intro, $discussionlink);
427 if ($usetracking) {
428 $row[] = $unreadlink;
429 $row[] = $trackedlink; // Tracking.
431 $row[] = $sublink;
432 if ($show_rss) {
433 $row[] = $rsslink;
435 $learningtable->data[] = $row;
437 } else {
438 $row = array ($printsection, $forumlink, $forum->intro, $discussionlink);
439 if ($usetracking) {
440 $row[] = $unreadlink;
441 $row[] = $trackedlink; // Tracking.
443 if ($show_rss) {
444 $row[] = $rsslink;
446 $learningtable->data[] = $row;
453 /// Output the page
454 $crumbs[] = array('name' => $strforums, 'link' => '', 'type' => 'activity');
456 print_header("$course->shortname: $strforums", $course->fullname,
457 build_navigation($crumbs),
458 "", "", true, $searchform, navmenu($course));
460 if (!isguest()) {
461 print_box_start('subscription');
462 echo '<span class="helplink">';
463 echo '<a href="index.php?id='.$course->id.'&amp;subscribe=1">'.get_string('allsubscribe', 'forum').'</a>';
464 echo '</span><br /><span class="helplink">';
465 echo '<a href="index.php?id='.$course->id.'&amp;subscribe=0">'.get_string('allunsubscribe', 'forum').'</a>';
466 echo '</span>';
467 print_box_end();
468 print_box('&nbsp;', 'clearer');
471 if ($generalforums) {
472 print_heading(get_string("generalforums", "forum"));
473 print_table($generaltable);
476 if ($learningforums) {
477 print_heading(get_string("learningforums", "forum"));
478 print_table($learningtable);
481 print_footer($course);