MDL-47945 mod_forum: neighbour links at bottom of discussion
[moodle.git] / mod / forum / discuss.php
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.
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/>.
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  */
27     require_once('../../config.php');
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
33     $mark   = optional_param('mark', '', PARAM_ALPHA);       // Used for tracking read posts if user initiated.
34     $postid = optional_param('postid', 0, PARAM_INT);        // Used for tracking read posts if user initiated.
36     $url = new moodle_url('/mod/forum/discuss.php', array('d'=>$d));
37     if ($parent !== 0) {
38         $url->param('parent', $parent);
39     }
40     $PAGE->set_url($url);
42     $discussion = $DB->get_record('forum_discussions', array('id' => $d), '*', MUST_EXIST);
43     $course = $DB->get_record('course', array('id' => $discussion->course), '*', MUST_EXIST);
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);
47     require_course_login($course, true, $cm);
49     // move this down fix for MDL-6926
50     require_once($CFG->dirroot.'/mod/forum/lib.php');
52     $modcontext = context_module::instance($cm->id);
53     require_capability('mod/forum:viewdiscussion', $modcontext, NULL, true, 'noviewdiscussionspermission', 'forum');
55     if (!empty($CFG->enablerssfeeds) && !empty($CFG->forum_enablerssfeeds) && $forum->rsstype && $forum->rssarticles) {
56         require_once("$CFG->libdir/rsslib.php");
58         $rsstitle = format_string($course->shortname, true, array('context' => context_course::instance($course->id))) . ': ' . format_string($forum->name);
59         rss_add_http_header($modcontext, 'mod_forum', $forum, $rsstitle);
60     }
62     // Move discussion if requested.
63     if ($move > 0 and confirm_sesskey()) {
64         $return = $CFG->wwwroot.'/mod/forum/discuss.php?d='.$discussion->id;
66         if (!$forumto = $DB->get_record('forum', array('id' => $move))) {
67             print_error('cannotmovetonotexist', 'forum', $return);
68         }
70         require_capability('mod/forum:movediscussions', $modcontext);
72         if ($forum->type == 'single') {
73             print_error('cannotmovefromsingleforum', 'forum', $return);
74         }
76         if (!$forumto = $DB->get_record('forum', array('id' => $move))) {
77             print_error('cannotmovetonotexist', 'forum', $return);
78         }
80         if ($forumto->type == 'single') {
81             print_error('cannotmovetosingleforum', 'forum', $return);
82         }
84         // Get target forum cm and check it is visible to current user.
85         $modinfo = get_fast_modinfo($course);
86         $forums = $modinfo->get_instances_of('forum');
87         if (!array_key_exists($forumto->id, $forums)) {
88             print_error('cannotmovetonotfound', 'forum', $return);
89         }
90         $cmto = $forums[$forumto->id];
91         if (!$cmto->uservisible) {
92             print_error('cannotmovenotvisible', 'forum', $return);
93         }
95         $destinationctx = context_module::instance($cmto->id);
96         require_capability('mod/forum:startdiscussion', $destinationctx);
98         if (!forum_move_attachments($discussion, $forum->id, $forumto->id)) {
99             echo $OUTPUT->notification("Errors occurred while moving attachment directories - check your file permissions");
100         }
101         // For each subscribed user in this forum and discussion, copy over per-discussion subscriptions if required.
102         $discussiongroup = $discussion->groupid == -1 ? 0 : $discussion->groupid;
103         $potentialsubscribers = \mod_forum\subscriptions::fetch_subscribed_users(
104             $forum,
105             $discussiongroup,
106             $modcontext,
107             'u.id',
108             true
109         );
111         // Pre-seed the subscribed_discussion caches.
112         // Firstly for the forum being moved to.
113         \mod_forum\subscriptions::fill_subscription_cache($forumto->id);
114         // And also for the discussion being moved.
115         \mod_forum\subscriptions::fill_subscription_cache($forum->id);
116         $subscriptionchanges = array();
117         foreach ($potentialsubscribers as $subuser) {
118             $userid = $subuser->id;
119             $targetsubscription = \mod_forum\subscriptions::is_subscribed($userid, $forumto, null, $cmto);
120             if (\mod_forum\subscriptions::is_subscribed($userid, $forum, $discussion->id)) {
121                 if (!$targetsubscription) {
122                     $subscriptionchanges[$userid] = \mod_forum\subscriptions::FORUM_DISCUSSION_SUBSCRIBED;
123                 }
124             } else {
125                 if ($targetsubscription) {
126                     $subscriptionchanges[$userid] = \mod_forum\subscriptions::FORUM_DISCUSSION_UNSUBSCRIBED;
127                 }
128             }
129         }
131         $DB->set_field('forum_discussions', 'forum', $forumto->id, array('id' => $discussion->id));
132         $DB->set_field('forum_read', 'forumid', $forumto->id, array('discussionid' => $discussion->id));
134         // Delete the existing per-discussion subscriptions and replace them with the newly calculated ones.
135         $DB->delete_records('forum_discussion_subs', array('discussion' => $discussion->id));
136         $newdiscussion = clone $discussion;
137         $newdiscussion->forum = $forumto->id;
138         foreach ($subscriptionchanges as $userid => $preference) {
139             if ($preference === \mod_forum\subscriptions::FORUM_DISCUSSION_SUBSCRIBED) {
140                 // Users must have viewdiscussion to a discussion.
141                 if (has_capability('mod/forum:viewdiscussion', $destinationctx, $userid)) {
142                     \mod_forum\subscriptions::subscribe_user_to_discussion($userid, $newdiscussion, $destinationctx);
143                 }
144             } else {
145                 \mod_forum\subscriptions::unsubscribe_user_from_discussion($userid, $newdiscussion, $destinationctx);
146             }
147         }
149         $params = array(
150             'context' => $destinationctx,
151             'objectid' => $discussion->id,
152             'other' => array(
153                 'fromforumid' => $forum->id,
154                 'toforumid' => $forumto->id,
155             )
156         );
157         $event = \mod_forum\event\discussion_moved::create($params);
158         $event->add_record_snapshot('forum_discussions', $discussion);
159         $event->add_record_snapshot('forum', $forum);
160         $event->add_record_snapshot('forum', $forumto);
161         $event->trigger();
163         // Delete the RSS files for the 2 forums to force regeneration of the feeds
164         require_once($CFG->dirroot.'/mod/forum/rsslib.php');
165         forum_rss_delete_file($forum);
166         forum_rss_delete_file($forumto);
168         redirect($return.'&moved=-1&sesskey='.sesskey());
169     }
171     $params = array(
172         'context' => $modcontext,
173         'objectid' => $discussion->id,
174     );
175     $event = \mod_forum\event\discussion_viewed::create($params);
176     $event->add_record_snapshot('forum_discussions', $discussion);
177     $event->add_record_snapshot('forum', $forum);
178     $event->trigger();
180     unset($SESSION->fromdiscussion);
182     if ($mode) {
183         set_user_preference('forum_displaymode', $mode);
184     }
186     $displaymode = get_user_preferences('forum_displaymode', $CFG->forum_displaymode);
188     if ($parent) {
189         // If flat AND parent, then force nested display this time
190         if ($displaymode == FORUM_MODE_FLATOLDEST or $displaymode == FORUM_MODE_FLATNEWEST) {
191             $displaymode = FORUM_MODE_NESTED;
192         }
193     } else {
194         $parent = $discussion->firstpost;
195     }
197     if (! $post = forum_get_post_full($parent)) {
198         print_error("notexists", 'forum', "$CFG->wwwroot/mod/forum/view.php?f=$forum->id");
199     }
201     if (!forum_user_can_see_post($forum, $discussion, $post, null, $cm)) {
202         print_error('noviewdiscussionspermission', 'forum', "$CFG->wwwroot/mod/forum/view.php?id=$forum->id");
203     }
205     if ($mark == 'read' or $mark == 'unread') {
206         if ($CFG->forum_usermarksread && forum_tp_can_track_forums($forum) && forum_tp_is_tracked($forum)) {
207             if ($mark == 'read') {
208                 forum_tp_add_read_record($USER->id, $postid);
209             } else {
210                 // unread
211                 forum_tp_delete_read_records($USER->id, $postid);
212             }
213         }
214     }
216     $searchform = forum_search_form($course);
218     $forumnode = $PAGE->navigation->find($cm->id, navigation_node::TYPE_ACTIVITY);
219     if (empty($forumnode)) {
220         $forumnode = $PAGE->navbar;
221     } else {
222         $forumnode->make_active();
223     }
224     $node = $forumnode->add(format_string($discussion->name), new moodle_url('/mod/forum/discuss.php', array('d'=>$discussion->id)));
225     $node->display = false;
226     if ($node && $post->id != $discussion->firstpost) {
227         $node->add(format_string($post->subject), $PAGE->url);
228     }
230     $PAGE->set_title("$course->shortname: ".format_string($discussion->name));
231     $PAGE->set_heading($course->fullname);
232     $PAGE->set_button($searchform);
233     $renderer = $PAGE->get_renderer('mod_forum');
235     echo $OUTPUT->header();
237     echo $OUTPUT->heading(format_string($forum->name), 2);
238     echo $OUTPUT->heading(format_string($discussion->name), 3, 'discussionname');
240     if ((!isguestuser() && isloggedin()) && has_capability('mod/forum:viewdiscussion', $modcontext)) {
241         // Discussion subscription.
242         if (\mod_forum\subscriptions::is_subscribable($forum)) {
243             echo html_writer::div(
244                 forum_get_discussion_subscription_icon($forum, $post->discussion, null, true),
245                 'discussionsubscription'
246             );
247         }
248     }
251 /// Check to see if groups are being used in this forum
252 /// If so, make sure the current person is allowed to see this discussion
253 /// Also, if we know they should be able to reply, then explicitly set $canreply for performance reasons
255     $canreply = forum_user_can_post($forum, $discussion, $USER, $cm, $course, $modcontext);
256     if (!$canreply and $forum->type !== 'news') {
257         if (isguestuser() or !isloggedin()) {
258             $canreply = true;
259         }
260         if (!is_enrolled($modcontext) and !is_viewing($modcontext)) {
261             // allow guests and not-logged-in to see the link - they are prompted to log in after clicking the link
262             // normal users with temporary guest access see this link too, they are asked to enrol instead
263             $canreply = enrol_selfenrol_available($course->id);
264         }
265     }
267     // Output the links to neighbour discussions.
268     $neighbours = forum_get_discussion_neighbours($cm, $discussion);
269     $neighbourlinks = $renderer->neighbouring_discussion_navigation($neighbours['prev'], $neighbours['next']);
270     echo $neighbourlinks;
272 /// Print the controls across the top
273     echo '<div class="discussioncontrols clearfix">';
275     if (!empty($CFG->enableportfolios) && has_capability('mod/forum:exportdiscussion', $modcontext)) {
276         require_once($CFG->libdir.'/portfoliolib.php');
277         $button = new portfolio_add_button();
278         $button->set_callback_options('forum_portfolio_caller', array('discussionid' => $discussion->id), 'mod_forum');
279         $button = $button->to_html(PORTFOLIO_ADD_FULL_FORM, get_string('exportdiscussion', 'mod_forum'));
280         $buttonextraclass = '';
281         if (empty($button)) {
282             // no portfolio plugin available.
283             $button = '&nbsp;';
284             $buttonextraclass = ' noavailable';
285         }
286         echo html_writer::tag('div', $button, array('class' => 'discussioncontrol exporttoportfolio'.$buttonextraclass));
287     } else {
288         echo html_writer::tag('div', '&nbsp;', array('class'=>'discussioncontrol nullcontrol'));
289     }
291     // groups selector not needed here
292     echo '<div class="discussioncontrol displaymode">';
293     forum_print_mode_form($discussion->id, $displaymode);
294     echo "</div>";
296     if ($forum->type != 'single'
297                 && has_capability('mod/forum:movediscussions', $modcontext)) {
299         echo '<div class="discussioncontrol movediscussion">';
300         // Popup menu to move discussions to other forums. The discussion in a
301         // single discussion forum can't be moved.
302         $modinfo = get_fast_modinfo($course);
303         if (isset($modinfo->instances['forum'])) {
304             $forummenu = array();
305             // Check forum types and eliminate simple discussions.
306             $forumcheck = $DB->get_records('forum', array('course' => $course->id),'', 'id, type');
307             foreach ($modinfo->instances['forum'] as $forumcm) {
308                 if (!$forumcm->uservisible || !has_capability('mod/forum:startdiscussion',
309                     context_module::instance($forumcm->id))) {
310                     continue;
311                 }
312                 $section = $forumcm->sectionnum;
313                 $sectionname = get_section_name($course, $section);
314                 if (empty($forummenu[$section])) {
315                     $forummenu[$section] = array($sectionname => array());
316                 }
317                 $forumidcompare = $forumcm->instance != $forum->id;
318                 $forumtypecheck = $forumcheck[$forumcm->instance]->type !== 'single';
319                 if ($forumidcompare and $forumtypecheck) {
320                     $url = "/mod/forum/discuss.php?d=$discussion->id&move=$forumcm->instance&sesskey=".sesskey();
321                     $forummenu[$section][$sectionname][$url] = format_string($forumcm->name);
322                 }
323             }
324             if (!empty($forummenu)) {
325                 echo '<div class="movediscussionoption">';
326                 $select = new url_select($forummenu, '',
327                         array(''=>get_string("movethisdiscussionto", "forum")),
328                         'forummenu', get_string('move'));
329                 echo $OUTPUT->render($select);
330                 echo "</div>";
331             }
332         }
333         echo "</div>";
334     }
335     echo '<div class="clearfloat">&nbsp;</div>';
336     echo "</div>";
338     if (!empty($forum->blockafter) && !empty($forum->blockperiod)) {
339         $a = new stdClass();
340         $a->blockafter  = $forum->blockafter;
341         $a->blockperiod = get_string('secondstotime'.$forum->blockperiod);
342         echo $OUTPUT->notification(get_string('thisforumisthrottled','forum',$a));
343     }
345     if ($forum->type == 'qanda' && !has_capability('mod/forum:viewqandawithoutposting', $modcontext) &&
346                 !forum_user_has_posted($forum->id,$discussion->id,$USER->id)) {
347         echo $OUTPUT->notification(get_string('qandanotify','forum'));
348     }
350     if ($move == -1 and confirm_sesskey()) {
351         echo $OUTPUT->notification(get_string('discussionmoved', 'forum', format_string($forum->name,true)));
352     }
354     $canrate = has_capability('mod/forum:rate', $modcontext);
355     forum_print_discussion($course, $cm, $forum, $discussion, $post, $displaymode, $canreply, $canrate);
357     echo $neighbourlinks;
359     // Add the subscription toggle JS.
360     $PAGE->requires->yui_module('moodle-mod_forum-subscriptiontoggle', 'Y.M.mod_forum.subscriptiontoggle.init');
362     echo $OUTPUT->footer();