MDL-22388 Added some checks to kill these scripts dead with an unequivocal notice...
[moodle.git] / mod / forum / mod_form.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  * @package mod-forum
20  * @copyright Jamie Pratt <me@jamiep.org>
21  * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
22  */
24 if (!defined('MOODLE_INTERNAL')) {
25     die('Direct access to this script is forbidden.');    ///  It must be included from a Moodle page
26 }
28 require_once ($CFG->dirroot.'/course/moodleform_mod.php');
30 class mod_forum_mod_form extends moodleform_mod {
32     function definition() {
33         global $CFG, $COURSE, $DB;
35         $mform    =& $this->_form;
37 //-------------------------------------------------------------------------------
38         $mform->addElement('header', 'general', get_string('general', 'form'));
40         $mform->addElement('text', 'name', get_string('forumname', 'forum'), array('size'=>'64'));
41         if (!empty($CFG->formatstringstriptags)) {
42         $mform->setType('name', PARAM_TEXT);
43         } else {
44             $mform->setType('name', PARAM_CLEAN);
45         }
46         $mform->addRule('name', null, 'required', null, 'client');
47         $mform->addRule('name', get_string('maximumchars', '', 255), 'maxlength', 255, 'client');
49         $forum_types = forum_get_forum_types();
51         asort($forum_types);
52         $mform->addElement('select', 'type', get_string('forumtype', 'forum'), $forum_types);
53         $mform->addHelpButton('type', 'forumtype', 'forum');
54         $mform->setDefault('type', 'general');
56         $this->add_intro_editor(true, get_string('forumintro', 'forum'));
58         $options = array();
59         $options[FORUM_CHOOSESUBSCRIBE] = get_string('subscriptionoptional', 'forum');
60         $options[FORUM_FORCESUBSCRIBE] = get_string('subscriptionforced', 'forum');
61         $options[FORUM_INITIALSUBSCRIBE] = get_string('subscriptionauto', 'forum');
62         $options[FORUM_DISALLOWSUBSCRIBE] = get_string('subscriptiondisabled','forum');
63         $mform->addElement('select', 'forcesubscribe', get_string('subscriptionmode', 'forum'), $options);
64         $mform->addHelpButton('forcesubscribe', 'subscriptionmode', 'forum');
66         $options = array();
67         $options[FORUM_TRACKING_OPTIONAL] = get_string('trackingoptional', 'forum');
68         $options[FORUM_TRACKING_OFF] = get_string('trackingoff', 'forum');
69         $options[FORUM_TRACKING_ON] = get_string('trackingon', 'forum');
70         $mform->addElement('select', 'trackingtype', get_string('trackingtype', 'forum'), $options);
71         $mform->addHelpButton('trackingtype', 'trackingtype', 'forum');
73         $choices = get_max_upload_sizes($CFG->maxbytes, $COURSE->maxbytes);
74         $choices[1] = get_string('uploadnotallowed');
75         $choices[0] = get_string('courseuploadlimit') . ' ('.display_size($COURSE->maxbytes).')';
76         $mform->addElement('select', 'maxbytes', get_string('maxattachmentsize', 'forum'), $choices);
77         $mform->addHelpButton('maxbytes', 'maxattachmentsize', 'forum');
78         $mform->setDefault('maxbytes', $CFG->forum_maxbytes);
80         $choices = array(0,1,2,3,4,5,6,7,8,9);
81         $mform->addElement('select', 'maxattachments', get_string('maxattachments', 'forum'), $choices);
82         $mform->addHelpButton('maxattachments', 'maxattachments', 'forum');
83         $mform->setDefault('maxattachments', $CFG->forum_maxattachments);
85         if ($CFG->enablerssfeeds && isset($CFG->forum_enablerssfeeds) && $CFG->forum_enablerssfeeds) {
86 //-------------------------------------------------------------------------------
87             $mform->addElement('header', '', get_string('rss'));
88             $choices = array();
89             $choices[0] = get_string('none');
90             $choices[1] = get_string('discussions', 'forum');
91             $choices[2] = get_string('posts', 'forum');
92             $mform->addElement('select', 'rsstype', get_string('rsstype'), $choices);
93             $mform->addHelpButton('rsstype', 'rsstype', 'forum');
95             $choices = array();
96             $choices[0] = '0';
97             $choices[1] = '1';
98             $choices[2] = '2';
99             $choices[3] = '3';
100             $choices[4] = '4';
101             $choices[5] = '5';
102             $choices[10] = '10';
103             $choices[15] = '15';
104             $choices[20] = '20';
105             $choices[25] = '25';
106             $choices[30] = '30';
107             $choices[40] = '40';
108             $choices[50] = '50';
109             $mform->addElement('select', 'rssarticles', get_string('rssarticles'), $choices);
110             $mform->addHelpButton('rssarticles', 'rssarticles', 'forum');
111         }
113 //-------------------------------------------------------------------------------
114         $mform->addElement('header', '', get_string('blockafter', 'forum'));
115         $options = array();
116         $options[0] = get_string('blockperioddisabled','forum');
117         $options[60*60*24]   = '1 '.get_string('day');
118         $options[60*60*24*2] = '2 '.get_string('days');
119         $options[60*60*24*3] = '3 '.get_string('days');
120         $options[60*60*24*4] = '4 '.get_string('days');
121         $options[60*60*24*5] = '5 '.get_string('days');
122         $options[60*60*24*6] = '6 '.get_string('days');
123         $options[60*60*24*7] = '1 '.get_string('week');
124         $mform->addElement('select', 'blockperiod', get_string('blockperiod', 'forum'), $options);
125         $mform->addHelpButton('blockperiod', 'blockperiod', 'forum');
127         $mform->addElement('text', 'blockafter', get_string('blockafter', 'forum'));
128         $mform->setType('blockafter', PARAM_INT);
129         $mform->setDefault('blockafter', '0');
130         $mform->addRule('blockafter', null, 'numeric', null, 'client');
131         $mform->addHelpButton('blockafter', 'blockafter', 'forum');
132         $mform->disabledIf('blockafter', 'blockperiod', 'eq', 0);
135         $mform->addElement('text', 'warnafter', get_string('warnafter', 'forum'));
136         $mform->setType('warnafter', PARAM_INT);
137         $mform->setDefault('warnafter', '0');
138         $mform->addRule('warnafter', null, 'numeric', null, 'client');
139         $mform->addHelpButton('warnafter', 'warnafter', 'forum');
140         $mform->disabledIf('warnafter', 'blockperiod', 'eq', 0);
142 //-------------------------------------------------------------------------------
143         $this->standard_coursemodule_elements();
144 //-------------------------------------------------------------------------------
145 // buttons
146         $this->add_action_buttons();
148     }
150     function definition_after_data() {
151         parent::definition_after_data();
152         $mform     =& $this->_form;
153         $type      =& $mform->getElement('type');
154         $typevalue = $mform->getElementValue('type');
156         //we don't want to have these appear as possible selections in the form but
157         //we want the form to display them if they are set.
158         if ($typevalue[0]=='news') {
159             $type->addOption(get_string('namenews', 'forum'), 'news');
160             $mform->addHelpButton('type', 'namenews', 'forum');
161             $type->freeze();
162             $type->setPersistantFreeze(true);
163         }
164         if ($typevalue[0]=='social') {
165             $type->addOption(get_string('namesocial', 'forum'), 'social');
166             $type->freeze();
167             $type->setPersistantFreeze(true);
168         }
170     }
172     function data_preprocessing(&$default_values) {
173         // Set up the completion checkboxes which aren't part of standard data.
174         // We also make the default value (if you turn on the checkbox) for those
175         // numbers to be 1, this will not apply unless checkbox is ticked.
176         $default_values['completiondiscussionsenabled']=
177             !empty($default_values['completiondiscussions']) ? 1 : 0;
178         if (empty($default_values['completiondiscussions'])) {
179             $default_values['completiondiscussions']=1;
180         }
181         $default_values['completionrepliesenabled']=
182             !empty($default_values['completionreplies']) ? 1 : 0;
183         if (empty($default_values['completionreplies'])) {
184             $default_values['completionreplies']=1;
185         }
186         $default_values['completionpostsenabled']=
187             !empty($default_values['completionposts']) ? 1 : 0;
188         if (empty($default_values['completionposts'])) {
189             $default_values['completionposts']=1;
190         }
191     }
193       function add_completion_rules() {
194         $mform =& $this->_form;
196         $group=array();
197         $group[] =& $mform->createElement('checkbox', 'completionpostsenabled', '', get_string('completionposts','forum'));
198         $group[] =& $mform->createElement('text', 'completionposts', '', array('size'=>3));
199         $mform->setType('completionposts',PARAM_INT);
200         $mform->addGroup($group, 'completionpostsgroup', get_string('completionpostsgroup','forum'), array(' '), false);
201         $mform->disabledIf('completionposts','completionpostsenabled','notchecked');
203         $group=array();
204         $group[] =& $mform->createElement('checkbox', 'completiondiscussionsenabled', '', get_string('completiondiscussions','forum'));
205         $group[] =& $mform->createElement('text', 'completiondiscussions', '', array('size'=>3));
206         $mform->setType('completiondiscussions',PARAM_INT);
207         $mform->addGroup($group, 'completiondiscussionsgroup', get_string('completiondiscussionsgroup','forum'), array(' '), false);
208         $mform->disabledIf('completiondiscussions','completiondiscussionsenabled','notchecked');
210         $group=array();
211         $group[] =& $mform->createElement('checkbox', 'completionrepliesenabled', '', get_string('completionreplies','forum'));
212         $group[] =& $mform->createElement('text', 'completionreplies', '', array('size'=>3));
213         $mform->setType('completionreplies',PARAM_INT);
214         $mform->addGroup($group, 'completionrepliesgroup', get_string('completionrepliesgroup','forum'), array(' '), false);
215         $mform->disabledIf('completionreplies','completionrepliesenabled','notchecked');
217         return array('completiondiscussionsgroup','completionrepliesgroup','completionpostsgroup');
218     }
220     function completion_rule_enabled($data) {
221         return (!empty($data['completiondiscussionsenabled']) && $data['completiondiscussions']!=0) ||
222             (!empty($data['completionrepliesenabled']) && $data['completionreplies']!=0) ||
223             (!empty($data['completionpostsenabled']) && $data['completionposts']!=0);
224     }
226     function get_data() {
227         $data = parent::get_data();
228         if (!$data) {
229             return false;
230         }
231         // Turn off completion settings if the checkboxes aren't ticked
232         $autocompletion = !empty($data->completion) && $data->completion==COMPLETION_TRACKING_AUTOMATIC;
233         if (empty($data->completiondiscussionsenabled) || !$autocompletion) {
234             $data->completiondiscussions = 0;
235         }
236         if (empty($data->completionrepliesenabled) || !$autocompletion) {
237             $data->completionreplies = 0;
238         }
239         if (empty($data->completionpostsenabled) || !$autocompletion) {
240             $data->completionposts = 0;
241         }
242         return $data;
243     }