Proyectos de Subversion Moodle

<?php

// This file is part of Moodle - http://moodle.org/

//

// Moodle is free software: you can redistribute it and/or modify

// it under the terms of the GNU General Public License as published by

// the Free Software Foundation, either version 3 of the License, or

// (at your option) any later version.

//

// Moodle is distributed in the hope that it will be useful,

// but WITHOUT ANY WARRANTY; without even the implied warranty of

// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

// GNU General Public License for more details.

//

// You should have received a copy of the GNU General Public License

// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.

/**

 * This script allows a teacher to create, edit and delete question categories.

 *

 * @package    qbank_managecategories

 * @copyright  1999 onwards Martin Dougiamas {@link http://moodle.com}

 * @author     2021, Guillermo Gomez Arias <guillermogomez@catalyst-au.net>

 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later

 */

require_once(__DIR__ . '/../../../config.php');

require_once($CFG->dirroot . '/question/editlib.php');

use core_question\output\qbank_actionbar;

use core_question\category_manager;

use qbank_managecategories\form\question_move_form;

use qbank_managecategories\helper;

use qbank_managecategories\output\categories;

use qbank_managecategories\output\categories_header;

use qbank_managecategories\question_categories;

require_login();

core_question\local\bank\helper::require_plugin_enabled(helper::PLUGINNAME);

// Since Moodle 5.0 any request with the courseid parameter is deprecated and will redirect to the banks management page.

if ($courseid = optional_param('courseid', 0, PARAM_INT)) {

    redirect(new moodle_url('/question/banks.php', ['courseid' => $courseid]));

}

list($thispageurl, $contexts, $cmid, $cm, $module, $pagevars) =

    question_edit_setup('categories', '/question/bank/managecategories/category.php');

$thiscontext = context_module::instance($cmid)->id;

$todelete = optional_param('delete', 0, PARAM_INT); // The ID of a category to delete.

$PAGE->set_url($thispageurl);

$PAGE->add_body_class('limitedwidth');

$manager = new category_manager($thispageurl);

if ($todelete) {

    if (!$category = $DB->get_record("question_categories", ["id" => $todelete])) {

        throw new moodle_exception('nocate', 'question', $thispageurl->out(), $todelete);

    }

    helper::question_remove_stale_questions_from_category($todelete);

    $questionstomove = count($manager->get_real_question_ids_in_category($todelete));

    // Second pass, if we still have questions to move, setup the form.

    if ($questionstomove) {

        $categorycontext = context::instance_by_id($category->contextid);

        $moveform = new question_move_form($thispageurl,

            ['contexts' => [$categorycontext], 'currentcat' => "$todelete"]);

        if ($moveform->is_cancelled()) {

            $thispageurl->remove_all_params();

            if (!is_null($cmid)) {

                $thispageurl->param('cmid', $cmid);

            } else {

                $thispageurl->param('courseid', $courseid);

            }

            redirect($thispageurl);

        } else if ($formdata = $moveform->get_data()) {

            list($tocategoryid, $tocontextid) = explode(',', $formdata->category);

            $manager->move_questions_and_delete_category($formdata->delete, $tocategoryid);

            $thispageurl->remove_params('cat', 'category');

            redirect($thispageurl);

        }

    }

} else {

    $questionstomove = 0;

}

if ((!empty($todelete) && (!$questionstomove) && confirm_sesskey())) {

    $manager->delete_category($todelete);// Delete the category now no questions to move.

    $thispageurl->remove_params('cat', 'category');

    redirect($thispageurl);

}

$PAGE->set_title(get_string('editcategories', 'question'));

$PAGE->set_heading($COURSE->fullname);

$PAGE->activityheader->disable();

// Print horizontal nav if needed.

$renderer = $PAGE->get_renderer('core_question', 'bank');

echo $OUTPUT->header();

$qbankaction = new \core_question\output\qbank_action_menu($thispageurl);

echo $renderer->render($qbankaction);

if ($questionstomove) {

    $vars = new stdClass();

    $vars->name = $category->name;

    $vars->count = $questionstomove;

    echo $OUTPUT->box(get_string('categorymove', 'question', $vars), 'generalbox boxaligncenter');

    $moveform->display();

} else {

    // Get module contexts we have capabilities to manage.

    $contextswithcaps = $contexts->having_one_edit_tab_cap('categories');

    $modcontexts = array_filter($contextswithcaps, static fn ($context) => $context->contextlevel === CONTEXT_MODULE);

    // Display the user interface.

    $questioncategories = new question_categories(

        $thispageurl,

        $modcontexts,

        $cmid,

        $courseid,

        $thiscontext,

    );

    $PAGE->requires->js_call_amd('qbank_managecategories/categorymanager', 'init'); // Load reactive module.

    echo $OUTPUT->render(new categories_header($questioncategories));

    echo $OUTPUT->render(new categories($questioncategories));

}

echo $OUTPUT->footer();