MDL-40062 mod_forum: convert viewed events
[moodle.git] / mod / forum / discuss.php
CommitLineData
1adbd2c3 1<?php
501cdbd8 2
8f685009
SH
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.
14//
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/>.
17
18/**
19 * Displays a post, and all the posts below it.
20 * If no post is given, displays all posts in a discussion
21 *
22 * @package mod-forum
23 * @copyright 1999 onwards Martin Dougiamas {@link http://moodle.com}
24 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
25 */
501cdbd8 26
65bcf17b 27 require_once('../../config.php');
65bcf17b 28
83da3d28 29 $d = required_param('d', PARAM_INT); // Discussion ID
30 $parent = optional_param('parent', 0, PARAM_INT); // If set, then display this post and all children.
31 $mode = optional_param('mode', 0, PARAM_INT); // If set, changes the layout of the thread
32 $move = optional_param('move', 0, PARAM_INT); // If set, moves this discussion to another forum
87b0b499 33 $mark = optional_param('mark', '', PARAM_ALPHA); // Used for tracking read posts if user initiated.
83da3d28 34 $postid = optional_param('postid', 0, PARAM_INT); // Used for tracking read posts if user initiated.
501cdbd8 35
a6855934 36 $url = new moodle_url('/mod/forum/discuss.php', array('d'=>$d));
8a876913
SH
37 if ($parent !== 0) {
38 $url->param('parent', $parent);
39 }
8a876913 40 $PAGE->set_url($url);
d3558659 41
01d0aceb 42 $discussion = $DB->get_record('forum_discussions', array('id' => $d), '*', MUST_EXIST);
74df2951 43 $course = $DB->get_record('course', array('id' => $discussion->course), '*', MUST_EXIST);
01d0aceb
SH
44 $forum = $DB->get_record('forum', array('id' => $discussion->forum), '*', MUST_EXIST);
45 $cm = get_coursemodule_from_instance('forum', $forum->id, $course->id, false, MUST_EXIST);
68258534 46
bf553d9e 47 require_course_login($course, true, $cm);
50e07a49 48
4cabf99f 49 // move this down fix for MDL-6926
01d0aceb 50 require_once($CFG->dirroot.'/mod/forum/lib.php');
4cabf99f 51
bf0f06b1 52 $modcontext = context_module::instance($cm->id);
65bcf17b 53 require_capability('mod/forum:viewdiscussion', $modcontext, NULL, true, 'noviewdiscussionspermission', 'forum');
54
9e86f2e7
AD
55 if (!empty($CFG->enablerssfeeds) && !empty($CFG->forum_enablerssfeeds) && $forum->rsstype && $forum->rssarticles) {
56 require_once("$CFG->libdir/rsslib.php");
57
7a241d81 58 $rsstitle = format_string($course->shortname, true, array('context' => context_course::instance($course->id))) . ': ' . format_string($forum->name);
43b92251 59 rss_add_http_header($modcontext, 'mod_forum', $forum, $rsstitle);
9e86f2e7
AD
60 }
61
65bcf17b 62/// move discussion if requested
63 if ($move > 0 and confirm_sesskey()) {
a5f77de6 64 $return = $CFG->wwwroot.'/mod/forum/discuss.php?d='.$discussion->id;
65bcf17b 65
66 require_capability('mod/forum:movediscussions', $modcontext);
1fc49f00 67
65bcf17b 68 if ($forum->type == 'single') {
12e57b92 69 print_error('cannotmovefromsingleforum', 'forum', $return);
83da3d28 70 }
65bcf17b 71
4e445355 72 if (!$forumto = $DB->get_record('forum', array('id' => $move))) {
12e57b92 73 print_error('cannotmovetonotexist', 'forum', $return);
83da3d28 74 }
7c900d5d 75
5fad08b4
CF
76 if ($forumto->type == 'single') {
77 print_error('cannotmovetosingleforum', 'forum', $return);
78 }
79
65bcf17b 80 if (!$cmto = get_coursemodule_from_instance('forum', $forumto->id, $course->id)) {
12e57b92 81 print_error('cannotmovetonotfound', 'forum', $return);
65bcf17b 82 }
83
84 if (!coursemodule_visible_for_user($cmto)) {
12e57b92 85 print_error('cannotmovenotvisible', 'forum', $return);
1fc49f00 86 }
65bcf17b 87
bf0f06b1 88 require_capability('mod/forum:startdiscussion', context_module::instance($cmto->id));
ee8d825f 89
0faf6791 90 if (!forum_move_attachments($discussion, $forum->id, $forumto->id)) {
9146b979 91 echo $OUTPUT->notification("Errors occurred while moving attachment directories - check your file permissions");
65bcf17b 92 }
4e445355 93 $DB->set_field('forum_discussions', 'forum', $forumto->id, array('id' => $discussion->id));
94 $DB->set_field('forum_read', 'forumid', $forumto->id, array('discussionid' => $discussion->id));
65bcf17b 95 add_to_log($course->id, 'forum', 'move discussion', "discuss.php?d=$discussion->id", $discussion->id, $cmto->id);
96
a74bea12 97 // Delete the RSS files for the 2 forums to force regeneration of the feeds
54eb02a4 98 require_once($CFG->dirroot.'/mod/forum/rsslib.php');
a74bea12
AD
99 forum_rss_delete_file($forum);
100 forum_rss_delete_file($forumto);
65bcf17b 101
e4c5abdc 102 redirect($return.'&moved=-1&sesskey='.sesskey());
1fc49f00 103 }
104
02c34fe1 105 add_to_log($course->id, 'forum', 'view discussion', "discuss.php?d=$discussion->id", $discussion->id, $cm->id);
501cdbd8 106
107 unset($SESSION->fromdiscussion);
108
279826e2 109 if ($mode) {
f2d042c4 110 set_user_preference('forum_displaymode', $mode);
279826e2 111 }
501cdbd8 112
acb50c1b 113 $displaymode = get_user_preferences('forum_displaymode', $CFG->forum_displaymode);
501cdbd8 114
e92ea3d8 115 if ($parent) {
65bcf17b 116 // If flat AND parent, then force nested display this time
117 if ($displaymode == FORUM_MODE_FLATOLDEST or $displaymode == FORUM_MODE_FLATNEWEST) {
118 $displaymode = FORUM_MODE_NESTED;
e92ea3d8 119 }
120 } else {
501cdbd8 121 $parent = $discussion->firstpost;
501cdbd8 122 }
123
11b0c469 124 if (! $post = forum_get_post_full($parent)) {
12e57b92 125 print_error("notexists", 'forum', "$CFG->wwwroot/mod/forum/view.php?f=$forum->id");
501cdbd8 126 }
127
737aefb4
MN
128 if (!forum_user_can_see_post($forum, $discussion, $post, null, $cm)) {
129 print_error('noviewdiscussionspermission', 'forum', "$CFG->wwwroot/mod/forum/view.php?id=$forum->id");
f37da850 130 }
131
65bcf17b 132 if ($mark == 'read' or $mark == 'unread') {
90f4745c 133 if ($CFG->forum_usermarksread && forum_tp_can_track_forums($forum) && forum_tp_is_tracked($forum)) {
65bcf17b 134 if ($mark == 'read') {
90f4745c 135 forum_tp_add_read_record($USER->id, $postid);
65bcf17b 136 } else {
137 // unread
138 forum_tp_delete_read_records($USER->id, $postid);
139 }
140 }
141 }
cef1ce6a 142
6f1cc8d6 143 $searchform = forum_search_form($course);
39790bd8 144
01d0aceb
SH
145 $forumnode = $PAGE->navigation->find($cm->id, navigation_node::TYPE_ACTIVITY);
146 if (empty($forumnode)) {
147 $forumnode = $PAGE->navbar;
148 } else {
c89fa3fe 149 $forumnode->make_active();
87a462ea 150 }
01d0aceb 151 $node = $forumnode->add(format_string($discussion->name), new moodle_url('/mod/forum/discuss.php', array('d'=>$discussion->id)));
c89fa3fe 152 $node->display = false;
01d0aceb
SH
153 if ($node && $post->id != $discussion->firstpost) {
154 $node->add(format_string($post->subject), $PAGE->url);
155 }
156
15ca5e5e 157 $PAGE->set_title("$course->shortname: ".format_string($discussion->name));
158 $PAGE->set_heading($course->fullname);
159 $PAGE->set_button($searchform);
160 echo $OUTPUT->header();
3eb032d7 161 echo $OUTPUT->heading(format_string($forum->name), 2);
c6d691dc 162
9197e147 163/// Check to see if groups are being used in this forum
164/// If so, make sure the current person is allowed to see this discussion
8b79a625 165/// Also, if we know they should be able to reply, then explicitly set $canreply for performance reasons
c6d691dc 166
8e18e1ec
PS
167 $canreply = forum_user_can_post($forum, $discussion, $USER, $cm, $course, $modcontext);
168 if (!$canreply and $forum->type !== 'news') {
169 if (isguestuser() or !isloggedin()) {
170 $canreply = true;
171 }
172 if (!is_enrolled($modcontext) and !is_viewing($modcontext)) {
173 // allow guests and not-logged-in to see the link - they are prompted to log in after clicking the link
174 // normal users with temporary guest access see this link too, they are asked to enrol instead
175 $canreply = enrol_selfenrol_available($course->id);
176 }
9197e147 177 }
178
c6d691dc 179/// Print the controls across the top
c00037cd 180 echo '<div class="discussioncontrols clearfix">';
c6d691dc 181
6708a1f5 182 if (!empty($CFG->enableportfolios) && has_capability('mod/forum:exportdiscussion', $modcontext)) {
24ba58ee 183 require_once($CFG->libdir.'/portfoliolib.php');
0d06b6fd 184 $button = new portfolio_add_button();
37743241 185 $button->set_callback_options('forum_portfolio_caller', array('discussionid' => $discussion->id), 'mod_forum');
f3cc571a
DM
186 $button = $button->to_html(PORTFOLIO_ADD_FULL_FORM, get_string('exportdiscussion', 'mod_forum'));
187 $buttonextraclass = '';
188 if (empty($button)) {
189 // no portfolio plugin available.
190 $button = '&nbsp;';
191 $buttonextraclass = ' noavailable';
192 }
193 echo html_writer::tag('div', $button, array('class' => 'discussioncontrol exporttoportfolio'.$buttonextraclass));
f357d2f8
DM
194 } else {
195 echo html_writer::tag('div', '&nbsp;', array('class'=>'discussioncontrol nullcontrol'));
10ae55f9 196 }
197
f357d2f8
DM
198 // groups selector not needed here
199 echo '<div class="discussioncontrol displaymode">';
200 forum_print_mode_form($discussion->id, $displaymode);
201 echo "</div>";
202
cef1ce6a 203 if ($forum->type != 'single'
204 && has_capability('mod/forum:movediscussions', $modcontext)) {
65bcf17b 205
f357d2f8 206 echo '<div class="discussioncontrol movediscussion">';
cef1ce6a 207 // Popup menu to move discussions to other forums. The discussion in a
208 // single discussion forum can't be moved.
65bcf17b 209 $modinfo = get_fast_modinfo($course);
210 if (isset($modinfo->instances['forum'])) {
65bcf17b 211 $forummenu = array();
5fad08b4
CF
212 // Check forum types and eliminate simple discussions.
213 $forumcheck = $DB->get_records('forum', array('course' => $course->id),'', 'id, type');
65bcf17b 214 foreach ($modinfo->instances['forum'] as $forumcm) {
ee8d825f 215 if (!$forumcm->uservisible || !has_capability('mod/forum:startdiscussion',
bf0f06b1 216 context_module::instance($forumcm->id))) {
65bcf17b 217 continue;
fcc69042 218 }
65bcf17b 219 $section = $forumcm->sectionnum;
71a56e08 220 $sectionname = get_section_name($course, $section);
f1a3e072 221 if (empty($forummenu[$section])) {
7487c856 222 $forummenu[$section] = array($sectionname => array());
f1a3e072 223 }
5fad08b4
CF
224 $forumidcompare = $forumcm->instance != $forum->id;
225 $forumtypecheck = $forumcheck[$forumcm->instance]->type !== 'single';
226 if ($forumidcompare and $forumtypecheck) {
f1a3e072 227 $url = "/mod/forum/discuss.php?d=$discussion->id&move=$forumcm->instance&sesskey=".sesskey();
7487c856 228 $forummenu[$section][$sectionname][$url] = format_string($forumcm->name);
1fc49f00 229 }
230 }
231 if (!empty($forummenu)) {
12a24e00 232 echo '<div class="movediscussionoption">';
15e48a1a
SM
233 $select = new url_select($forummenu, '',
234 array(''=>get_string("movethisdiscussionto", "forum")),
235 'forummenu', get_string('move'));
f1a3e072 236 echo $OUTPUT->render($select);
1fc49f00 237 echo "</div>";
238 }
239 }
12a24e00 240 echo "</div>";
1fc49f00 241 }
12a24e00
RW
242 echo '<div class="clearfloat">&nbsp;</div>';
243 echo "</div>";
1fc49f00 244
a4f495bf 245 if (!empty($forum->blockafter) && !empty($forum->blockperiod)) {
39790bd8 246 $a = new stdClass();
65bcf17b 247 $a->blockafter = $forum->blockafter;
a4f495bf 248 $a->blockperiod = get_string('secondstotime'.$forum->blockperiod);
9146b979 249 echo $OUTPUT->notification(get_string('thisforumisthrottled','forum',$a));
a4f495bf 250 }
251
0468976c 252 if ($forum->type == 'qanda' && !has_capability('mod/forum:viewqandawithoutposting', $modcontext) &&
bbbf2d40 253 !forum_user_has_posted($forum->id,$discussion->id,$USER->id)) {
9146b979 254 echo $OUTPUT->notification(get_string('qandanotify','forum'));
098d27d4 255 }
256
65bcf17b 257 if ($move == -1 and confirm_sesskey()) {
9146b979 258 echo $OUTPUT->notification(get_string('discussionmoved', 'forum', format_string($forum->name,true)));
8de14dc7 259 }
260
65bcf17b 261 $canrate = has_capability('mod/forum:rate', $modcontext);
262 forum_print_discussion($course, $cm, $forum, $discussion, $post, $displaymode, $canreply, $canrate);
c6d691dc 263
396fb912 264 echo $OUTPUT->footer();
65bcf17b 265
501cdbd8 266
1adbd2c3 267