3 * Allows a teacher to create, edit and delete categories
5 * @author Martin Dougiamas and many others.
6 * {@link http://moodle.org}
7 * @license http://www.gnu.org/copyleft/gpl.html GNU Public License
8 * @package questionbank
11 require_once("../config.php");
12 require_once($CFG->dirroot
."/question/editlib.php");
13 require_once($CFG->dirroot
."/question/category_class.php");
17 list($thispageurl, $contexts, $cmid, $cm, $module, $pagevars) = question_edit_setup('categories');
19 // get values from form for actions on this page
20 $param = new stdClass();
23 $param->moveup
= optional_param('moveup', 0, PARAM_INT
);
24 $param->movedown
= optional_param('movedown', 0, PARAM_INT
);
25 $param->moveupcontext
= optional_param('moveupcontext', 0, PARAM_INT
);
26 $param->movedowncontext
= optional_param('movedowncontext', 0, PARAM_INT
);
27 $param->tocontext
= optional_param('tocontext', 0, PARAM_INT
);
28 $param->left
= optional_param('left', 0, PARAM_INT
);
29 $param->right
= optional_param('right', 0, PARAM_INT
);
30 $param->delete
= optional_param('delete', 0, PARAM_INT
);
31 $param->confirm
= optional_param('confirm', 0, PARAM_INT
);
32 $param->cancel
= optional_param('cancel', '', PARAM_ALPHA
);
33 $param->move
= optional_param('move', 0, PARAM_INT
);
34 $param->moveto
= optional_param('moveto', 0, PARAM_INT
);
35 $param->edit
= optional_param('edit', 0, PARAM_INT
);
37 $qcobject = new question_category_object($pagevars['cpage'], $thispageurl, $contexts->having_one_edit_tab_cap('categories'), $param->edit
, $pagevars['cat'], $param->delete
,
38 $contexts->having_cap('moodle/question:add'));
40 $streditingcategories = get_string('editcategories', 'quiz');
41 if ($param->left ||
$param->right ||
$param->moveup ||
$param->movedown||
$param->moveupcontext ||
$param->movedowncontext
){
43 foreach ($qcobject->editlists
as $list){
44 //processing of these actions is handled in the method where appropriate and page redirects.
45 $list->process_actions($param->left
, $param->right
, $param->moveup
, $param->movedown
,
46 $param->moveupcontext
, $param->movedowncontext
, $param->tocontext
);
49 if ($param->delete
&& ($questionstomove = count_records("question", "category", $param->delete
))){
50 if (!$category = get_record("question_categories", "id", $param->delete
)) { // security
51 error("No such category {$param->delete}!", $thispageurl->out());
53 $categorycontext = get_context_instance_by_id($category->contextid
);
54 $qcobject->moveform
= new question_move_form($thispageurl,
55 array('contexts'=>array($categorycontext), 'currentcat'=>$param->delete
));
56 if ($qcobject->moveform
->is_cancelled()){
57 redirect($thispageurl->out());
58 } elseif ($formdata = $qcobject->moveform
->get_data()) {
59 /// 'confirm' is the category to move existing questions to
60 list($tocategoryid, $tocontextid) = explode(',', $formdata->category
);
61 $qcobject->move_questions_and_delete_category($formdata->delete
, $tocategoryid);
62 $thispageurl->remove_params('cat', 'category');
63 redirect($thispageurl->out());
68 if ($qcobject->catform
->is_cancelled()) {
69 redirect($thispageurl->out());
70 } else if ($catformdata = $qcobject->catform
->get_data()) {
71 if (!$catformdata->id
) {//new category
72 $qcobject->add_category($catformdata->parent
, $catformdata->name
, $catformdata->info
);
74 $qcobject->update_category($catformdata->id
, $catformdata->parent
, $catformdata->name
, $catformdata->info
);
76 redirect($thispageurl->out());
77 } else if ((!empty($param->delete
) and (!$questionstomove) and confirm_sesskey())) {
78 $qcobject->delete_category($param->delete
);//delete the category now no questions to move
79 $thispageurl->remove_params('cat', 'category');
80 redirect($thispageurl->out());
85 $strupdatemodule = has_capability('moodle/course:manageactivities', $contexts->lowest())
86 ?
update_module_button($cm->id
, $COURSE->id
, get_string('modulename', $cm->modname
))
88 $navlinks[] = array('name' => get_string('modulenameplural', $cm->modname
),
89 'link' => "$CFG->wwwroot/mod/{$cm->modname}/index.php?id=$COURSE->id",
90 'type' => 'activity');
91 $navlinks[] = array('name' => format_string($module->name
),
92 'link' => "$CFG->wwwroot/mod/{$cm->modname}/view.php?id={$cm->id}",
95 // Print basic page layout.
96 $strupdatemodule = '';
100 $navlinks[] = array('name' => $streditingcategories, 'link' => '', 'type' => 'title');
102 $navlinks[] = array('name' => $streditingcategories, 'link' => $thispageurl->out(), 'type' => 'title');
103 $navlinks[] = array('name' => get_string('editingcategory', 'question'), 'link' => '', 'type' => 'title');
106 $navigation = build_navigation($navlinks);
107 print_header_simple($streditingcategories, '', $navigation, "", "", true, $strupdatemodule);
111 $currenttab = 'edit';
112 $mode = 'categories';
113 $
{$cm->modname
} = $module;
114 include($CFG->dirroot
."/mod/{$cm->modname}/tabs.php");
116 $currenttab = 'categories';
117 $context = $contexts->lowest();
122 if (!empty($param->edit
)) {
123 $qcobject->edit_single_category($param->edit
);
124 } else if ($questionstomove){
125 $qcobject->display_move_form($questionstomove, $category);
127 // display the user interface
128 $qcobject->display_user_interface();
130 print_footer($COURSE);