question/category.php

   1 <?php
   2 // This file is part of Moodle - http://moodle.org/
   3 //
   4 // Moodle is free software: you can redistribute it and/or modify
   5 // it under the terms of the GNU General Public License as published by
   6 // the Free Software Foundation, either version 3 of the License, or
   7 // (at your option) any later version.
   8 //
   9 // Moodle is distributed in the hope that it will be useful,
  10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 // GNU General Public License for more details.
  13 //
  14 // You should have received a copy of the GNU General Public License
  15 // along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
  16
  17 /**
  18  * This script allows a teacher to create, edit and delete question categories.
  19  *
  20  * @package    moodlecore
  21  * @subpackage questionbank
  22  * @copyright  1999 onwards Martin Dougiamas {@link http://moodle.com}
  23  * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  24  */
  25
  26
  27 require_once("../config.php");
  28 require_once($CFG->dirroot."/question/editlib.php");
  29 require_once($CFG->dirroot."/question/category_class.php");
  30
  31 list($thispageurl, $contexts, $cmid, $cm, $module, $pagevars) =
  32         question_edit_setup('categories', '/question/category.php');
  33
  34 // get values from form for actions on this page
  35 $param = new stdClass();
  36 $param->moveup = optional_param('moveup', 0, PARAM_INT);
  37 $param->movedown = optional_param('movedown', 0, PARAM_INT);
  38 $param->moveupcontext = optional_param('moveupcontext', 0, PARAM_INT);
  39 $param->movedowncontext = optional_param('movedowncontext', 0, PARAM_INT);
  40 $param->tocontext = optional_param('tocontext', 0, PARAM_INT);
  41 $param->left = optional_param('left', 0, PARAM_INT);
  42 $param->right = optional_param('right', 0, PARAM_INT);
  43 $param->delete = optional_param('delete', 0, PARAM_INT);
  44 $param->confirm = optional_param('confirm', 0, PARAM_INT);
  45 $param->cancel = optional_param('cancel', '', PARAM_ALPHA);
  46 $param->move = optional_param('move', 0, PARAM_INT);
  47 $param->moveto = optional_param('moveto', 0, PARAM_INT);
  48 $param->edit = optional_param('edit', 0, PARAM_INT);
  49
  50 $url = new moodle_url($thispageurl);
  51 foreach ((array)$param as $key=>$value) {
  52     if (($key !== 'cancel' && $value !== 0) || ($key === 'cancel' && $value !== '')) {
  53         $url->param($key, $value);
  54     }
  55 }
  56 $PAGE->set_url($url);
  57
  58 $qcobject = new question_category_object($pagevars['cpage'], $thispageurl, $contexts->having_one_edit_tab_cap('categories'), $param->edit, $pagevars['cat'], $param->delete,
  59                             $contexts->having_cap('moodle/question:add'));
  60
  61 $streditingcategories = get_string('editcategories', 'question');
  62 if ($param->left || $param->right || $param->moveup || $param->movedown|| $param->moveupcontext || $param->movedowncontext){
  63     require_sesskey();
  64     foreach ($qcobject->editlists as $list){
  65         //processing of these actions is handled in the method where appropriate and page redirects.
  66         $list->process_actions($param->left, $param->right, $param->moveup, $param->movedown,
  67                                 $param->moveupcontext, $param->movedowncontext, $param->tocontext);
  68     }
  69 }
  70 if ($param->delete && ($questionstomove = $DB->count_records("question", array("category" => $param->delete)))){
  71     if (!$category = $DB->get_record("question_categories", array("id" => $param->delete))) {  // security
  72         print_error('nocate', 'question', $thispageurl->out(), $param->delete);
  73     }
  74     $categorycontext = get_context_instance_by_id($category->contextid);
  75     $qcobject->moveform = new question_move_form($thispageurl,
  76                 array('contexts'=>array($categorycontext), 'currentcat'=>$param->delete));
  77     if ($qcobject->moveform->is_cancelled()){
  78         redirect($thispageurl);
  79     }  elseif ($formdata = $qcobject->moveform->get_data()) {
  80         /// 'confirm' is the category to move existing questions to
  81         list($tocategoryid, $tocontextid) = explode(',', $formdata->category);
  82         $qcobject->move_questions_and_delete_category($formdata->delete, $tocategoryid);
  83         $thispageurl->remove_params('cat', 'category');
  84         redirect($thispageurl);
  85     }
  86 } else {
  87     $questionstomove = 0;
  88 }
  89 if ($qcobject->catform->is_cancelled()) {
  90     redirect($thispageurl);
  91 } else if ($catformdata = $qcobject->catform->get_data()) {
  92     if (!$catformdata->id) {//new category
  93         $qcobject->add_category($catformdata->parent, $catformdata->name, $catformdata->info);
  94     } else {
  95         $qcobject->update_category($catformdata->id, $catformdata->parent, $catformdata->name, $catformdata->info);
  96     }
  97     redirect($thispageurl);
  98 } else if ((!empty($param->delete) and (!$questionstomove) and confirm_sesskey())) {
  99     $qcobject->delete_category($param->delete);//delete the category now no questions to move
 100     $thispageurl->remove_params('cat', 'category');
 101     redirect($thispageurl);
 102 }
 103
 104 if ($param->edit){
 105     $PAGE->navbar->add(get_string('editingcategory', 'question'));
 106 }
 107
 108 $PAGE->set_title($streditingcategories);
 109 $PAGE->set_heading($COURSE->fullname);
 110 echo $OUTPUT->header();
 111
 112 // display UI
 113 if (!empty($param->edit)) {
 114     $qcobject->edit_single_category($param->edit);
 115 } else if ($questionstomove){
 116     $qcobject->display_move_form($questionstomove, $category);
 117 } else {
 118     // display the user interface
 119     $qcobject->display_user_interface();
 120 }
 121 echo $OUTPUT->footer();