step.php

<?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/>.


/*
 * Class used to store information in the question attempt step data
 */

/**
 * Description of step
 *
 * @author dani
 */

/**
 * This class is useful for:
 *  - No intentar avaluar una pregunta si ha fallat en 3 intents seguits
 *    en les mateixes condicions. Útil en exàmens.
 *  - Guardar info en un "step" durant l'avaluació, perquè en aquest moment
 *    l'step és read-only.
 * **/

class qtype_wirisstep {
    const MAX_ATTEMPS_SHORTANSWER_WIRIS = 2;

    private $step;
    private $step_id;
    private $extraprefix;

    public function __construct() {
        $this->step = null;
    }

    public function load($step) {
        $notReadOnly = !($step instanceof question_attempt_step_read_only);
        $notAdapterOfReadOnly = !($step instanceof question_attempt_step_subquestion_adapter_wiris && $step->is_adapter_of_read_only());
        if ($notReadOnly && $notAdapterOfReadOnly) {
            $this->step = $step;
            // It is a regrade or the first attempt.
            try {
                $this->reset_attempts();
                return;
            } catch (moodle_exception $ex) {
                // We assume it is read only so continue.
                $this->step = null;
            }
        }
        $s = var_export($step, true);
        if (isset($step->get_id)) {
            // Moodle 2.3 or superior.
            $this->step_id = $step->get_id();
        } else {
            // Moodle 2.2.
            if (preg_match("/'id' *=> *'(.*)'/", $s, $matches)) {
                $this->step_id = $matches[1];
            } else {
                $this->step_id = 0;
            }
        }
        if (preg_match("/'extraprefix' *=> *'(.*)'/", $s, $matches)) {
            $this->extraprefix = $matches[1];
        } else {
            $this->extraprefix = "";
        }
    }

    /**
     * Sets a attempt step data value
     * @global type $CFG
     * @param type $name the name of the property to set
     * @param type $value the value
     * @param type $quizBool whether it is question level or subquestion level
     * @throws dml_exception
     */
    public function set_var($name, $value, $subquesbool = true) {
        if ($subquesbool && $this->step != null) {
            $this->step->set_qt_var($name, $value);
            return;
        }

        if (!isset($this->step_id) || $this->step_id == 0) {
            // It doees not exist, do not even try to find in the db.
            return null;
        }

        $DB = $this->get_db();

        $name = $this->get_step_var_internal($name, $subquesbool);

        if (strlen($name) > 32) {
            // Database only allows keys up to length 32.
            $name = substr($name, 0, 32);
        }

        $gc = $DB->get_record('question_attempt_step_data', array('attemptstepid' => $this->step_id, 'name' => $name), 'value');
        if ($gc == null) {
            $gc = new stdClass();
            $gc->attemptstepid = $this->step_id;
            $gc->name = $name;
            $gc->value = $value;
            $DB->insert_record('question_attempt_step_data', $gc);
        } else {
            $DB->set_field('question_attempt_step_data', 'value',
                    $value, array('attemptstepid' => $this->step_id, 'name' => $name));
        }

    }
    public function get_qt_data() {
        if ($this->step != null) {
            return $this->step->get_qt_data();
        } else {
            $DB = $this->get_db();
        }
    }
    /**
     *
     * @param type $name
     * @param type $subquesbool whether the variable is from the subquestion or the parent (only cloze).
     * @return null
     */
    public function get_var($name, $subquesbool = true) {
        if ($subquesbool && $this->step != null) {
            return $this->step->get_qt_var($name);
        }

        if (!isset($this->step_id) || $this->step_id == 0) {
            // It doees not exist, do not even try to find in the db.
            return null;
        }

        $DB = $this->get_db();

        $name = $this->get_step_var_internal($name, $subquesbool);

        if (strlen($name) > 32) {
            $name = substr($name, 0, 32);
        }

        $gc = $DB->get_record('question_attempt_step_data', array('attemptstepid' => $this->step_id, 'name' => $name), 'value');
        if ($gc == null) {
            $r = null;
        } else {
            $r = $gc->value;
        }

        return $r;
    }

    private function get_step_var_internal($name, $subquesbool) {
        if ($subquesbool && strlen($this->extraprefix) > 0) {
            // The prefix is needed when it is a subquestion of a cloze
            // (multianswer) question type.
            if (substr($name, 0, 2) === '!_') {
                return '-_' . $this->extraprefix . substr($name, 2);
            } else if (substr($name, 0, 1) === '-') {
                return '-' . $this->extraprefix . substr($name, 1);
            } else if (substr($name, 0, 1) === '_') {
                return '_' . $this->extraprefix . substr($name, 1);
            } else {
                return $this->extraprefix . $name;
            }
        } else {
            return $name;
        }
    }

    private function get_db() {
        global $wirisdb;
        if (!isset($wirisdb)) {
            global $CFG;
            // Create a new connection because the default one is inside a transaction
            // and a rollback is done afterwards.
            if (!$wirisdb = moodle_database::get_driver_instance($CFG->dbtype, $CFG->dblibrary)) {
                throw new dml_exception('dbdriverproblem', "Unknown driver $CFG->dblibrary/$CFG->dbtype");
            }
            $wirisdb->connect($CFG->dbhost, $CFG->dbuser, $CFG->dbpass, $CFG->dbname, $CFG->prefix, $CFG->dboptions);
        }
        return $wirisdb;
    }

    /**
     * Returns whether the max number of attempts limit is reached
     */
    public function is_attempt_limit_reached() {
        $c = $this->get_var('_gc', false);
        if (is_null($c)) {
            return false;
        }
        return $c >= self::MAX_ATTEMPS_SHORTANSWER_WIRIS;
    }

    /**
     * Increment number of failed attempts
     */
    public function inc_attempts() {
        $c = $this->get_var('_gc', false);
        if (is_null($c)) {
            $c = 0;
        }
        $this->set_var('_gc', $c + 1, false);
    }

    /**
     * Set number of failed attempts to zero
     */
    public function reset_attempts() {
        $this->set_var('_gc', 0, false);
    }

    /**
     * Whether there is any error in the question or in the parent
     * @return boolean
     */
    public function is_error() {
        $c = $this->get_var('_gc', false); // False to look into the parent.
        if (!is_null($c) && $c > 0) {
            return true;
        }
        return false;
    }

    /**
     * Returns the number of failed attempts
     * @return int
     */
    public function get_attempts() {
        $c = $this->get_var('_gc', false);
        if ($c == null) {
            return 0;
        }
        return $c;
    }

    public function is_first_step() {
        // The original $step object is always a quetsion_attempt_stept_read_only
        // object but in the first one of the steps sequence. In $this->load
        // method we save $this->step only if it isn't readonly, so in particular
        // only if it is the first step.
        return (!is_null($this->step));
    }
}

class question_attempt_step_subquestion_adapter_wiris extends question_attempt_step_subquestion_adapter {

    public function is_adapter_of_read_only() {
        // In Moodle 4.1 and earlier the variable $this->realstep was misspelled as $this->realqas.
        // Therefore we need to check for both possibilities. In Moodle 4.2 we use this extension class
        // because $this->realstep is protected.
        return 
            (isset($this->realqas) && ($this->realqas instanceof question_attempt_step_read_only)) ||
            (isset($this->realstep) && ($this->realstep instanceof question_attempt_step_read_only));
    }
}