question/lib.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  * Question related functions.
  19  *
  20  * This file was created just because Fragment API expects callbacks to be defined on lib.php.
  21  *
  22  * Please, do not add new functions to this file.
  23  *
  24  * @package   core_question
  25  * @copyright 2018 Simey Lameze <simey@moodle.com>
  26  * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  27  */
  28
  29 defined('MOODLE_INTERNAL') || die();
  30
  31 /**
  32  * Question tags fragment callback.
  33  *
  34  * @param array $args Arguments to the form.
  35  * @return null|string The rendered form.
  36  * @deprecated since Moodle 4.0
  37  * @see /question/bank/qbank_tagquestion/lib.php
  38  * @todo Final deprecation on Moodle 4.4 MDL-72438
  39  */
  40 function core_question_output_fragment_tags_form($args) {
  41     debugging('Function core_question_output_fragment_tags_form() is deprecated,
  42          please use core_question_output_fragment_tags_form() from qbank_tagquestion instead.', DEBUG_DEVELOPER);
  43
  44     if (!empty($args['id'])) {
  45         global $CFG, $DB;
  46         require_once($CFG->libdir . '/questionlib.php');
  47         $id = clean_param($args['id'], PARAM_INT);
  48         $editingcontext = $args['context'];
  49
  50         // Load the question and some related information.
  51         $question = $DB->get_record('question', ['id' => $id]);
  52
  53         if ($coursecontext = $editingcontext->get_course_context(false)) {
  54             $course = $DB->get_record('course', ['id' => $coursecontext->instanceid]);
  55             $filtercourses = [$course];
  56         } else {
  57             $filtercourses = null;
  58         }
  59
  60         $sql = "SELECT qc.*
  61                   FROM {question} q
  62                   JOIN {question_versions} qv ON qv.questionid = q.id
  63                   JOIN {question_bank_entries} qbe ON qbe.id = qv.questionbankentryid
  64                   JOIN {question_categories} qc ON qc.id = qbe.questioncategoryid
  65                  WHERE q.id = :id";
  66         $category = $DB->get_record_sql($sql, ['id' => $question->id]);
  67         $questioncontext = \context::instance_by_id($category->contextid);
  68         $contexts = new \core_question\local\bank\question_edit_contexts($editingcontext);
  69
  70         // Load the question tags and filter the course tags by the current course.
  71         if (core_tag_tag::is_enabled('core_question', 'question')) {
  72             $tagobjectsbyquestion = core_tag_tag::get_items_tags('core_question', 'question', [$question->id]);
  73             if (!empty($tagobjectsbyquestion[$question->id])) {
  74                 $tagobjects = $tagobjectsbyquestion[$question->id];
  75                 $sortedtagobjects = question_sort_tags($tagobjects,
  76                         context::instance_by_id($category->contextid), $filtercourses);
  77             }
  78         }
  79         $formoptions = [
  80             'editingcontext' => $editingcontext,
  81             'questioncontext' => $questioncontext,
  82             'contexts' => $contexts->all()
  83         ];
  84         $data = [
  85             'id' => $question->id,
  86             'questioncategory' => $category->name,
  87             'questionname' => $question->name,
  88             'categoryid' => $category->id,
  89             'contextid' => $category->contextid,
  90             'context' => $questioncontext->get_context_name(),
  91             'tags' => $sortedtagobjects->tags ?? [],
  92             'coursetags' => $sortedtagobjects->coursetags ?? [],
  93         ];
  94
  95         $cantag = question_has_capability_on($question, 'tag');
  96         $mform = new \qbank_tagquestion\form\tags_form(null, $formoptions, 'post', '', null, $cantag, $data);
  97         $mform->set_data($data);
  98
  99         return $mform->render();
 100     }
 101 }