Ir a la última revisión | Autoría | Comparar con el anterior | Ultima modificación | Ver Log |
<?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/>./*** Library of internal classes and functions for module workshop** All the workshop specific functions, needed to implement the module* logic, should go to here. Instead of having bunch of function named* workshop_something() taking the workshop instance as the first* parameter, we use a class workshop that provides all methods.** @package mod_workshop* @copyright 2009 David Mudrak <david.mudrak@gmail.com>* @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later*/defined('MOODLE_INTERNAL') || die();require_once(__DIR__.'/lib.php'); // we extend this library hererequire_once($CFG->libdir . '/gradelib.php'); // we use some rounding and comparing routines hererequire_once($CFG->libdir . '/filelib.php');/*** Full-featured workshop API** This wraps the workshop database record with a set of methods that are called* from the module itself. The class should be initialized right after you get* $workshop, $cm and $course records at the begining of the script.*/class workshop {/** error status of the {@link self::add_allocation()} */const ALLOCATION_EXISTS = -9999;/** the internal code of the workshop phases as are stored in the database */const PHASE_SETUP = 10;const PHASE_SUBMISSION = 20;const PHASE_ASSESSMENT = 30;const PHASE_EVALUATION = 40;const PHASE_CLOSED = 50;/** the internal code of the examples modes as are stored in the database */const EXAMPLES_VOLUNTARY = 0;const EXAMPLES_BEFORE_SUBMISSION = 1;const EXAMPLES_BEFORE_ASSESSMENT = 2;/** @var stdclass workshop record from database */public $dbrecord;/** @var cm_info course module record */public $cm;/** @var stdclass course record */public $course;/** @var stdclass context object */public $context;/** @var int workshop instance identifier */public $id;/** @var string workshop activity name */public $name;/** @var string introduction or description of the activity */public $intro;/** @var int format of the {@link $intro} */public $introformat;/** @var string instructions for the submission phase */public $instructauthors;/** @var int format of the {@link $instructauthors} */public $instructauthorsformat;/** @var string instructions for the assessment phase */public $instructreviewers;/** @var int format of the {@link $instructreviewers} */public $instructreviewersformat;/** @var int timestamp of when the module was modified */public $timemodified;/** @var int current phase of workshop, for example {@link workshop::PHASE_SETUP} */public $phase;/** @var bool optional feature: students practise evaluating on example submissions from teacher */public $useexamples;/** @var bool optional feature: students perform peer assessment of others' work (deprecated, consider always enabled) */public $usepeerassessment;/** @var bool optional feature: students perform self assessment of their own work */public $useselfassessment;/** @var float number (10, 5) unsigned, the maximum grade for submission */public $grade;/** @var float number (10, 5) unsigned, the maximum grade for assessment */public $gradinggrade;/** @var string type of the current grading strategy used in this workshop, for example 'accumulative' */public $strategy;/** @var string the name of the evaluation plugin to use for grading grades calculation */public $evaluation;/** @var int number of digits that should be shown after the decimal point when displaying grades */public $gradedecimals;/** @var int number of allowed submission attachments and the files embedded into submission */public $nattachments;/** @var string list of allowed file types that are allowed to be embedded into submission */public $submissionfiletypes = null;/** @var bool allow submitting the work after the deadline */public $latesubmissions;/** @var int maximum size of the one attached file in bytes */public $maxbytes;/** @var int mode of example submissions support, for example {@link workshop::EXAMPLES_VOLUNTARY} */public $examplesmode;/** @var int if greater than 0 then the submission is not allowed before this timestamp */public $submissionstart;/** @var int if greater than 0 then the submission is not allowed after this timestamp */public $submissionend;/** @var int if greater than 0 then the peer assessment is not allowed before this timestamp */public $assessmentstart;/** @var int if greater than 0 then the peer assessment is not allowed after this timestamp */public $assessmentend;/** @var bool automatically switch to the assessment phase after the submissions deadline */public $phaseswitchassessment;/** @var string conclusion text to be displayed at the end of the activity */public $conclusion;/** @var int format of the conclusion text */public $conclusionformat;/** @var int the mode of the overall feedback */public $overallfeedbackmode;/** @var int maximum number of overall feedback attachments */public $overallfeedbackfiles;/** @var string list of allowed file types that can be attached to the overall feedback */public $overallfeedbackfiletypes = null;/** @var int maximum size of one file attached to the overall feedback */public $overallfeedbackmaxbytes;/** @var int Should the submission form show the text field? */public $submissiontypetext;/** @var int Should the submission form show the file attachment field? */public $submissiontypefile;/*** @var workshop_strategy grading strategy instance* Do not use directly, get the instance using {@link workshop::grading_strategy_instance()}*/protected $strategyinstance = null;/*** @var workshop_evaluation grading evaluation instance* Do not use directly, get the instance using {@link workshop::grading_evaluation_instance()}*/protected $evaluationinstance = null;/*** @var array It gets initialised in init_initial_bar, and may have keys 'i_first' and 'i_last' depending on what is selected.*/protected $initialbarprefs = [];/*** Initializes the workshop API instance using the data from DB** Makes deep copy of all passed records properties.** For unit testing only, $cm and $course may be set to null. This is so that* you can test without having any real database objects if you like. Not all* functions will work in this situation.** @param stdClass $dbrecord Workshop instance data from {workshop} table* @param stdClass|cm_info $cm Course module record* @param stdClass $course Course record from {course} table* @param stdClass $context The context of the workshop instance*/public function __construct(stdclass $dbrecord, $cm, $course, stdclass $context=null) {$this->dbrecord = $dbrecord;foreach ($this->dbrecord as $field => $value) {if (property_exists('workshop', $field)) {$this->{$field} = $value;}}$this->strategy = clean_param($this->strategy, PARAM_PLUGIN);$this->evaluation = clean_param($this->evaluation, PARAM_PLUGIN);if (is_null($cm) || is_null($course)) {throw new coding_exception('Must specify $cm and $course');}$this->course = $course;if ($cm instanceof cm_info) {$this->cm = $cm;} else {$modinfo = get_fast_modinfo($course);$this->cm = $modinfo->get_cm($cm->id);}if (is_null($context)) {$this->context = context_module::instance($this->cm->id);} else {$this->context = $context;}}////////////////////////////////////////////////////////////////////////////////// Static methods ///////////////////////////////////////////////////////////////////////////////////*** Return list of available allocation methods** @return array Array ['string' => 'string'] of localized allocation method names*/public static function installed_allocators() {$installed = core_component::get_plugin_list('workshopallocation');$forms = array();foreach ($installed as $allocation => $allocationpath) {if (file_exists($allocationpath . '/lib.php')) {$forms[$allocation] = get_string('pluginname', 'workshopallocation_' . $allocation);}}// usability - make sure that manual allocation appears the firstif (isset($forms['manual'])) {$m = array('manual' => $forms['manual']);unset($forms['manual']);$forms = array_merge($m, $forms);}return $forms;}/*** Returns an array of options for the editors that are used for submitting and assessing instructions** @param stdClass $context* @uses EDITOR_UNLIMITED_FILES hard-coded value for the 'maxfiles' option* @return array*/public static function instruction_editors_options(stdclass $context) {return array('subdirs' => 1, 'maxbytes' => 0, 'maxfiles' => -1,'changeformat' => 1, 'context' => $context, 'noclean' => 1, 'trusttext' => 0);}/*** Given the percent and the total, returns the number** @param float $percent from 0 to 100* @param float $total the 100% value* @return float*/public static function percent_to_value($percent, $total) {if ($percent < 0 or $percent > 100) {throw new coding_exception('The percent can not be less than 0 or higher than 100');}return $total * $percent / 100;}/*** Returns an array of numeric values that can be used as maximum grades** @return array Array of integers*/public static function available_maxgrades_list() {$grades = array();for ($i=100; $i>=0; $i--) {$grades[$i] = $i;}return $grades;}/*** Returns the localized list of supported examples modes** @return array*/public static function available_example_modes_list() {$options = array();$options[self::EXAMPLES_VOLUNTARY] = get_string('examplesvoluntary', 'workshop');$options[self::EXAMPLES_BEFORE_SUBMISSION] = get_string('examplesbeforesubmission', 'workshop');$options[self::EXAMPLES_BEFORE_ASSESSMENT] = get_string('examplesbeforeassessment', 'workshop');return $options;}/*** Returns the list of available grading strategy methods** @return array ['string' => 'string']*/public static function available_strategies_list() {$installed = core_component::get_plugin_list('workshopform');$forms = array();foreach ($installed as $strategy => $strategypath) {if (file_exists($strategypath . '/lib.php')) {$forms[$strategy] = get_string('pluginname', 'workshopform_' . $strategy);}}return $forms;}/*** Returns the list of available grading evaluation methods** @return array of (string)name => (string)localized title*/public static function available_evaluators_list() {$evals = array();foreach (core_component::get_plugin_list_with_file('workshopeval', 'lib.php', false) as $eval => $evalpath) {$evals[$eval] = get_string('pluginname', 'workshopeval_' . $eval);}return $evals;}/*** Return an array of possible values of assessment dimension weight** @return array of integers 0, 1, 2, ..., 16*/public static function available_dimension_weights_list() {$weights = array();for ($i=16; $i>=0; $i--) {$weights[$i] = $i;}return $weights;}/*** Return an array of possible values of assessment weight** Note there is no real reason why the maximum value here is 16. It used to be 10 in* workshop 1.x and I just decided to use the same number as in the maximum weight of* a single assessment dimension.* The value looks reasonable, though. Teachers who would want to assign themselves* higher weight probably do not want peer assessment really...** @return array of integers 0, 1, 2, ..., 16*/public static function available_assessment_weights_list() {$weights = array();for ($i=16; $i>=0; $i--) {$weights[$i] = $i;}return $weights;}/*** Helper function returning the greatest common divisor** @param int $a* @param int $b* @return int*/public static function gcd($a, $b) {return ($b == 0) ? ($a):(self::gcd($b, $a % $b));}/*** Helper function returning the least common multiple** @param int $a* @param int $b* @return int*/public static function lcm($a, $b) {return ($a / self::gcd($a,$b)) * $b;}/*** Returns an object suitable for strings containing dates/times** The returned object contains properties date, datefullshort, datetime, ... containing the given* timestamp formatted using strftimedate, strftimedatefullshort, strftimedatetime, ... from the* current lang's langconfig.php* This allows translators and administrators customize the date/time format.** @param int $timestamp the timestamp in UTC* @return stdclass*/public static function timestamp_formats($timestamp) {$formats = array('date', 'datefullshort', 'dateshort', 'datetime','datetimeshort', 'daydate', 'daydatetime', 'dayshort', 'daytime','monthyear', 'recent', 'recentfull', 'time');$a = new stdclass();foreach ($formats as $format) {$a->{$format} = userdate($timestamp, get_string('strftime'.$format, 'langconfig'));}$day = userdate($timestamp, '%Y%m%d', 99, false);$today = userdate(time(), '%Y%m%d', 99, false);$tomorrow = userdate(time() + DAYSECS, '%Y%m%d', 99, false);$yesterday = userdate(time() - DAYSECS, '%Y%m%d', 99, false);$distance = (int)round(abs(time() - $timestamp) / DAYSECS);if ($day == $today) {$a->distanceday = get_string('daystoday', 'workshop');} elseif ($day == $yesterday) {$a->distanceday = get_string('daysyesterday', 'workshop');} elseif ($day < $today) {$a->distanceday = get_string('daysago', 'workshop', $distance);} elseif ($day == $tomorrow) {$a->distanceday = get_string('daystomorrow', 'workshop');} elseif ($day > $today) {$a->distanceday = get_string('daysleft', 'workshop', $distance);}return $a;}/*** Converts the argument into an array (list) of file extensions.** The list can be separated by whitespace, end of lines, commas colons and semicolons.* Empty values are not returned. Values are converted to lowercase.* Duplicates are removed. Glob evaluation is not supported.** @deprecated since Moodle 3.4 MDL-56486 - please use the {@link core_form\filetypes_util}* @param string|array $extensions list of file extensions* @return array of strings*/public static function normalize_file_extensions($extensions) {debugging('The method workshop::normalize_file_extensions() is deprecated.Please use the methods provided by the \core_form\filetypes_util class.', DEBUG_DEVELOPER);if ($extensions === '') {return array();}if (!is_array($extensions)) {$extensions = preg_split('/[\s,;:"\']+/', $extensions, -1, PREG_SPLIT_NO_EMPTY);}foreach ($extensions as $i => $extension) {$extension = str_replace('*.', '', $extension);$extension = strtolower($extension);$extension = ltrim($extension, '.');$extension = trim($extension);$extensions[$i] = $extension;}foreach ($extensions as $i => $extension) {if (strpos($extension, '*') !== false or strpos($extension, '?') !== false) {unset($extensions[$i]);}}$extensions = array_filter($extensions, 'strlen');$extensions = array_keys(array_flip($extensions));foreach ($extensions as $i => $extension) {$extensions[$i] = '.'.$extension;}return $extensions;}/*** Cleans the user provided list of file extensions.** @deprecated since Moodle 3.4 MDL-56486 - please use the {@link core_form\filetypes_util}* @param string $extensions* @return string*/public static function clean_file_extensions($extensions) {debugging('The method workshop::clean_file_extensions() is deprecated.Please use the methods provided by the \core_form\filetypes_util class.', DEBUG_DEVELOPER);$extensions = self::normalize_file_extensions($extensions);foreach ($extensions as $i => $extension) {$extensions[$i] = ltrim($extension, '.');}return implode(', ', $extensions);}/*** Check given file types and return invalid/unknown ones.** Empty allowlist is interpretted as "any extension is valid".** @deprecated since Moodle 3.4 MDL-56486 - please use the {@link core_form\filetypes_util}* @param string|array $extensions list of file extensions* @param string|array $allowlist list of valid extensions* @return array list of invalid extensions not found in the allowlist*/public static function invalid_file_extensions($extensions, $allowlist) {debugging('The method workshop::invalid_file_extensions() is deprecated.Please use the methods provided by the \core_form\filetypes_util class.', DEBUG_DEVELOPER);$extensions = self::normalize_file_extensions($extensions);$allowlist = self::normalize_file_extensions($allowlist);if (empty($extensions) or empty($allowlist)) {return array();}// Return those items from $extensions that are not present in $allowlist.return array_keys(array_diff_key(array_flip($extensions), array_flip($allowlist)));}/*** Is the file have allowed to be uploaded to the workshop?** Empty allowlist is interpretted as "any file type is allowed" rather* than "no file can be uploaded".** @deprecated since Moodle 3.4 MDL-56486 - please use the {@link core_form\filetypes_util}* @param string $filename the file name* @param string|array $allowlist list of allowed file extensions* @return false*/public static function is_allowed_file_type($filename, $allowlist) {debugging('The method workshop::is_allowed_file_type() is deprecated.Please use the methods provided by the \core_form\filetypes_util class.', DEBUG_DEVELOPER);$allowlist = self::normalize_file_extensions($allowlist);if (empty($allowlist)) {return true;}$haystack = strrev(trim(strtolower($filename)));foreach ($allowlist as $extension) {if (strpos($haystack, strrev($extension)) === 0) {// The file name ends with the extension.return true;}}return false;}////////////////////////////////////////////////////////////////////////////////// Workshop API ///////////////////////////////////////////////////////////////////////////////////*** Fetches all enrolled users with the capability mod/workshop:submit in the current workshop** The returned objects contain properties required by user_picture and are ordered by lastname, firstname.* Only users with the active enrolment are returned.** @param bool $musthavesubmission if true, return only users who have already submitted* @param int $groupid 0 means ignore groups, any other value limits the result by group id* @param int $limitfrom return a subset of records, starting at this point (optional, required if $limitnum is set)* @param int $limitnum return a subset containing this number of records (optional, required if $limitfrom is set)* @return array array[userid] => stdClass*/public function get_potential_authors($musthavesubmission=true, $groupid=0, $limitfrom=0, $limitnum=0) {global $DB;list($sql, $params) = $this->get_users_with_capability_sql('mod/workshop:submit', $musthavesubmission, $groupid);if (empty($sql)) {return array();}list($sort, $sortparams) = users_order_by_sql('tmp');$sql = "SELECT *FROM ($sql) tmpORDER BY $sort";return $DB->get_records_sql($sql, array_merge($params, $sortparams), $limitfrom, $limitnum);}/*** Returns the total number of users that would be fetched by {@link self::get_potential_authors()}** @param bool $musthavesubmission if true, count only users who have already submitted* @param int $groupid 0 means ignore groups, any other value limits the result by group id* @return int*/public function count_potential_authors($musthavesubmission=true, $groupid=0) {global $DB;list($sql, $params) = $this->get_users_with_capability_sql('mod/workshop:submit', $musthavesubmission, $groupid);if (empty($sql)) {return 0;}$sql = "SELECT COUNT(*)FROM ($sql) tmp";return $DB->count_records_sql($sql, $params);}/*** Fetches all enrolled users with the capability mod/workshop:peerassess in the current workshop** The returned objects contain properties required by user_picture and are ordered by lastname, firstname.* Only users with the active enrolment are returned.** @param bool $musthavesubmission if true, return only users who have already submitted* @param int $groupid 0 means ignore groups, any other value limits the result by group id* @param int $limitfrom return a subset of records, starting at this point (optional, required if $limitnum is set)* @param int $limitnum return a subset containing this number of records (optional, required if $limitfrom is set)* @return array array[userid] => stdClass*/public function get_potential_reviewers($musthavesubmission=false, $groupid=0, $limitfrom=0, $limitnum=0) {global $DB;list($sql, $params) = $this->get_users_with_capability_sql('mod/workshop:peerassess', $musthavesubmission, $groupid);if (empty($sql)) {return array();}list($sort, $sortparams) = users_order_by_sql('tmp');$sql = "SELECT *FROM ($sql) tmpORDER BY $sort";return $DB->get_records_sql($sql, array_merge($params, $sortparams), $limitfrom, $limitnum);}/*** Returns the total number of users that would be fetched by {@link self::get_potential_reviewers()}** @param bool $musthavesubmission if true, count only users who have already submitted* @param int $groupid 0 means ignore groups, any other value limits the result by group id* @return int*/public function count_potential_reviewers($musthavesubmission=false, $groupid=0) {global $DB;list($sql, $params) = $this->get_users_with_capability_sql('mod/workshop:peerassess', $musthavesubmission, $groupid);if (empty($sql)) {return 0;}$sql = "SELECT COUNT(*)FROM ($sql) tmp";return $DB->count_records_sql($sql, $params);}/*** Fetches all enrolled users that are authors or reviewers (or both) in the current workshop** The returned objects contain properties required by user_picture and are ordered by lastname, firstname.* Only users with the active enrolment are returned.** @see self::get_potential_authors()* @see self::get_potential_reviewers()* @param bool $musthavesubmission if true, return only users who have already submitted* @param int $groupid 0 means ignore groups, any other value limits the result by group id* @param int $limitfrom return a subset of records, starting at this point (optional, required if $limitnum is set)* @param int $limitnum return a subset containing this number of records (optional, required if $limitfrom is set)* @return array array[userid] => stdClass*/public function get_participants($musthavesubmission=false, $groupid=0, $limitfrom=0, $limitnum=0) {global $DB;list($sql, $params) = $this->get_participants_sql($musthavesubmission, $groupid);list($filteringsql, $filteringparams) = $this->get_users_with_initial_filtering_sql_where();$wheresql = "";if ($filteringsql) {$wheresql .= $filteringsql;$params = array_merge($params, $filteringparams);}if (empty($sql)) {return array();}list($sort, $sortparams) = users_order_by_sql('tmp');$sql = "SELECT * FROM ($sql) tmp";if ($wheresql) {$sql .= " WHERE $wheresql";}$sql .= " ORDER BY $sort";return $DB->get_records_sql($sql, array_merge($params, $sortparams), $limitfrom, $limitnum);}/*** Returns the total number of records that would be returned by {@link self::get_participants()}** @param bool $musthavesubmission if true, return only users who have already submitted* @param int $groupid 0 means ignore groups, any other value limits the result by group id* @return int*/public function count_participants($musthavesubmission=false, $groupid=0) {global $DB;list($sql, $params) = $this->get_participants_sql($musthavesubmission, $groupid);if (empty($sql)) {return 0;}$sql = "SELECT COUNT(*)FROM ($sql) tmp";return $DB->count_records_sql($sql, $params);}/*** Checks if the given user is an actively enrolled participant in the workshop** @param int $userid, defaults to the current $USER* @return boolean*/public function is_participant($userid=null) {global $USER, $DB;if (is_null($userid)) {$userid = $USER->id;}list($sql, $params) = $this->get_participants_sql();if (empty($sql)) {return false;}$sql = "SELECT COUNT(*)FROM {user} uxxJOIN ({$sql}) pxx ON uxx.id = pxx.idWHERE uxx.id = :uxxid";$params['uxxid'] = $userid;if ($DB->count_records_sql($sql, $params)) {return true;}return false;}/*** Groups the given users by the group membership** This takes the module grouping settings into account. If a grouping is* set, returns only groups withing the course module grouping. Always* returns group [0] with all the given users.** @param array $users array[userid] => stdclass{->id ->lastname ->firstname}* @return array array[groupid][userid] => stdclass{->id ->lastname ->firstname}*/public function get_grouped($users) {global $DB;global $CFG;$grouped = array(); // grouped users to be returnedif (empty($users)) {return $grouped;}if ($this->cm->groupingid) {// Group workshop set to specified grouping - only consider groups// within this grouping, and leave out users who aren't members of// this grouping.$groupingid = $this->cm->groupingid;// All users that are members of at least one group will be// added into a virtual group id 0$grouped[0] = array();} else {$groupingid = 0;// there is no need to be member of a group so $grouped[0] will contain// all users$grouped[0] = $users;}$gmemberships = groups_get_all_groups($this->cm->course, array_keys($users), $groupingid,'gm.id,gm.groupid,gm.userid');foreach ($gmemberships as $gmembership) {if (!isset($grouped[$gmembership->groupid])) {$grouped[$gmembership->groupid] = array();}$grouped[$gmembership->groupid][$gmembership->userid] = $users[$gmembership->userid];$grouped[0][$gmembership->userid] = $users[$gmembership->userid];}return $grouped;}/*** Returns the list of all allocations (i.e. assigned assessments) in the workshop** Assessments of example submissions are ignored** @return array*/public function get_allocations() {global $DB;$sql = 'SELECT a.id, a.submissionid, a.reviewerid, s.authoridFROM {workshop_assessments} aINNER JOIN {workshop_submissions} s ON (a.submissionid = s.id)WHERE s.example = 0 AND s.workshopid = :workshopid';$params = array('workshopid' => $this->id);return $DB->get_records_sql($sql, $params);}/*** Returns the total number of records that would be returned by {@link self::get_submissions()}** @param mixed $authorid int|array|'all' If set to [array of] integer, return submission[s] of the given user[s] only* @param int $groupid If non-zero, return only submissions by authors in the specified group* @return int number of records*/public function count_submissions($authorid='all', $groupid=0) {global $DB;$params = array('workshopid' => $this->id);$sql = "SELECT COUNT(s.id)FROM {workshop_submissions} sJOIN {user} u ON (s.authorid = u.id)";if ($groupid) {$sql .= " JOIN {groups_members} gm ON (gm.userid = u.id AND gm.groupid = :groupid)";$params['groupid'] = $groupid;}$sql .= " WHERE s.example = 0 AND s.workshopid = :workshopid";if ('all' === $authorid) {// no additional conditions} elseif (!empty($authorid)) {list($usql, $uparams) = $DB->get_in_or_equal($authorid, SQL_PARAMS_NAMED);$sql .= " AND authorid $usql";$params = array_merge($params, $uparams);} else {// $authorid is emptyreturn 0;}return $DB->count_records_sql($sql, $params);}/*** Returns submissions from this workshop** Fetches data from {workshop_submissions} and adds some useful information from other* tables. Does not return textual fields to prevent possible memory lack issues.** @see self::count_submissions()* @param mixed $authorid int|array|'all' If set to [array of] integer, return submission[s] of the given user[s] only* @param int $groupid If non-zero, return only submissions by authors in the specified group* @param int $limitfrom Return a subset of records, starting at this point (optional)* @param int $limitnum Return a subset containing this many records in total (optional, required if $limitfrom is set)* @return array of records or an empty array*/public function get_submissions($authorid='all', $groupid=0, $limitfrom=0, $limitnum=0) {global $DB;$userfieldsapi = \core_user\fields::for_userpic();$authorfields = $userfieldsapi->get_sql('u', false, 'author', 'authoridx', false)->selects;$gradeoverbyfields = $userfieldsapi->get_sql('t', false, 'over', 'gradeoverbyx', false)->selects;$params = array('workshopid' => $this->id);$sql = "SELECT s.id, s.workshopid, s.example, s.authorid, s.timecreated, s.timemodified,s.title, s.grade, s.gradeover, s.gradeoverby, s.published,$authorfields, $gradeoverbyfieldsFROM {workshop_submissions} sJOIN {user} u ON (s.authorid = u.id)";if ($groupid) {$sql .= " JOIN {groups_members} gm ON (gm.userid = u.id AND gm.groupid = :groupid)";$params['groupid'] = $groupid;}$sql .= " LEFT JOIN {user} t ON (s.gradeoverby = t.id)WHERE s.example = 0 AND s.workshopid = :workshopid";if ('all' === $authorid) {// no additional conditions} elseif (!empty($authorid)) {list($usql, $uparams) = $DB->get_in_or_equal($authorid, SQL_PARAMS_NAMED);$sql .= " AND authorid $usql";$params = array_merge($params, $uparams);} else {// $authorid is emptyreturn array();}list($sort, $sortparams) = users_order_by_sql('u');$sql .= " ORDER BY $sort";return $DB->get_records_sql($sql, array_merge($params, $sortparams), $limitfrom, $limitnum);}/*** Returns submissions from this workshop that are viewable by the current user (except example submissions).** @param mixed $authorid int|array If set to [array of] integer, return submission[s] of the given user[s] only* @param int $groupid If non-zero, return only submissions by authors in the specified group. 0 for all groups.* @param int $limitfrom Return a subset of records, starting at this point (optional)* @param int $limitnum Return a subset containing this many records in total (optional, required if $limitfrom is set)* @return array of records and the total submissions count* @since Moodle 3.4*/public function get_visible_submissions($authorid = 0, $groupid = 0, $limitfrom = 0, $limitnum = 0) {global $DB, $USER;$submissions = array();$select = "SELECT s.*";$selectcount = "SELECT COUNT(s.id)";$from = " FROM {workshop_submissions} s";$params = array('workshopid' => $this->id);// Check if the passed group (or all groups when groupid is 0) is visible by the current user.if (!groups_group_visible($groupid, $this->course, $this->cm)) {return array($submissions, 0);}if ($groupid) {$from .= " JOIN {groups_members} gm ON (gm.userid = s.authorid AND gm.groupid = :groupid)";$params['groupid'] = $groupid;}$where = " WHERE s.workshopid = :workshopid AND s.example = 0";if (!has_capability('mod/workshop:viewallsubmissions', $this->context)) {// Check published submissions.$workshopclosed = $this->phase == self::PHASE_CLOSED;$canviewpublished = has_capability('mod/workshop:viewpublishedsubmissions', $this->context);if ($workshopclosed && $canviewpublished) {$published = " OR s.published = 1";} else {$published = '';}// Always get submissions I did or I provided feedback to.$where .= " AND (s.authorid = :authorid OR s.gradeoverby = :graderid $published)";$params['authorid'] = $USER->id;$params['graderid'] = $USER->id;}// Now, user filtering.if (!empty($authorid)) {list($usql, $uparams) = $DB->get_in_or_equal($authorid, SQL_PARAMS_NAMED);$where .= " AND s.authorid $usql";$params = array_merge($params, $uparams);}$order = " ORDER BY s.timecreated";$totalcount = $DB->count_records_sql($selectcount.$from.$where, $params);if ($totalcount) {$submissions = $DB->get_records_sql($select.$from.$where.$order, $params, $limitfrom, $limitnum);}return array($submissions, $totalcount);}/*** Returns a submission record with the author's data** @param int $id submission id* @return stdclass*/public function get_submission_by_id($id) {global $DB;// we intentionally check the workshopid here, too, so the workshop can't touch submissions// from other instances$userfieldsapi = \core_user\fields::for_userpic();$authorfields = $userfieldsapi->get_sql('u', false, 'author', 'authoridx', false)->selects;$gradeoverbyfields = $userfieldsapi->get_sql('g', false, 'gradeoverby', 'gradeoverbyx', false)->selects;$sql = "SELECT s.*, $authorfields, $gradeoverbyfieldsFROM {workshop_submissions} sINNER JOIN {user} u ON (s.authorid = u.id)LEFT JOIN {user} g ON (s.gradeoverby = g.id)WHERE s.example = 0 AND s.workshopid = :workshopid AND s.id = :id";$params = array('workshopid' => $this->id, 'id' => $id);return $DB->get_record_sql($sql, $params, MUST_EXIST);}/*** Returns a submission submitted by the given author** @param int $id author id* @return stdclass|false*/public function get_submission_by_author($authorid) {global $DB;if (empty($authorid)) {return false;}$userfieldsapi = \core_user\fields::for_userpic();$authorfields = $userfieldsapi->get_sql('u', false, 'author', 'authoridx', false)->selects;$gradeoverbyfields = $userfieldsapi->get_sql('g', false, 'gradeoverby', 'gradeoverbyx', false)->selects;$sql = "SELECT s.*, $authorfields, $gradeoverbyfieldsFROM {workshop_submissions} sINNER JOIN {user} u ON (s.authorid = u.id)LEFT JOIN {user} g ON (s.gradeoverby = g.id)WHERE s.example = 0 AND s.workshopid = :workshopid AND s.authorid = :authorid";$params = array('workshopid' => $this->id, 'authorid' => $authorid);return $DB->get_record_sql($sql, $params);}/*** Returns published submissions with their authors data** @return array of stdclass*/public function get_published_submissions($orderby='finalgrade DESC') {global $DB;$userfieldsapi = \core_user\fields::for_userpic();$authorfields = $userfieldsapi->get_sql('u', false, 'author', 'authoridx', false)->selects;$sql = "SELECT s.id, s.authorid, s.timecreated, s.timemodified,s.title, s.grade, s.gradeover, COALESCE(s.gradeover,s.grade) AS finalgrade,$authorfieldsFROM {workshop_submissions} sINNER JOIN {user} u ON (s.authorid = u.id)WHERE s.example = 0 AND s.workshopid = :workshopid AND s.published = 1ORDER BY $orderby";$params = array('workshopid' => $this->id);return $DB->get_records_sql($sql, $params);}/*** Returns full record of the given example submission** @param int $id example submission od* @return object*/public function get_example_by_id($id) {global $DB;return $DB->get_record('workshop_submissions',array('id' => $id, 'workshopid' => $this->id, 'example' => 1), '*', MUST_EXIST);}/*** Returns the list of example submissions in this workshop with reference assessments attached** @return array of objects or an empty array* @see workshop::prepare_example_summary()*/public function get_examples_for_manager() {global $DB;$sql = 'SELECT s.id, s.title,a.id AS assessmentid, a.grade, a.gradinggradeFROM {workshop_submissions} sLEFT JOIN {workshop_assessments} a ON (a.submissionid = s.id AND a.weight = 1)WHERE s.example = 1 AND s.workshopid = :workshopidORDER BY s.title';return $DB->get_records_sql($sql, array('workshopid' => $this->id));}/*** Returns the list of all example submissions in this workshop with the information of assessments done by the given user** @param int $reviewerid user id* @return array of objects, indexed by example submission id* @see workshop::prepare_example_summary()*/public function get_examples_for_reviewer($reviewerid) {global $DB;if (empty($reviewerid)) {return false;}$sql = 'SELECT s.id, s.title,a.id AS assessmentid, a.grade, a.gradinggradeFROM {workshop_submissions} sLEFT JOIN {workshop_assessments} a ON (a.submissionid = s.id AND a.reviewerid = :reviewerid AND a.weight = 0)WHERE s.example = 1 AND s.workshopid = :workshopidORDER BY s.title';return $DB->get_records_sql($sql, array('workshopid' => $this->id, 'reviewerid' => $reviewerid));}/*** Prepares renderable submission component** @param stdClass $record required by {@see workshop_submission}* @param bool $showauthor show the author-related information* @return workshop_submission*/public function prepare_submission(stdClass $record, $showauthor = false) {$submission = new workshop_submission($this, $record, $showauthor);$submission->url = $this->submission_url($record->id);return $submission;}/*** Prepares renderable submission summary component** @param stdClass $record required by {@see workshop_submission_summary}* @param bool $showauthor show the author-related information* @return workshop_submission_summary*/public function prepare_submission_summary(stdClass $record, $showauthor = false) {$summary = new workshop_submission_summary($this, $record, $showauthor);$summary->url = $this->submission_url($record->id);return $summary;}/*** Prepares renderable example submission component** @param stdClass $record required by {@see workshop_example_submission}* @return workshop_example_submission*/public function prepare_example_submission(stdClass $record) {$example = new workshop_example_submission($this, $record);return $example;}/*** Prepares renderable example submission summary component** If the example is editable, the caller must set the 'editable' flag explicitly.** @param stdClass $example as returned by {@link workshop::get_examples_for_manager()} or {@link workshop::get_examples_for_reviewer()}* @return workshop_example_submission_summary to be rendered*/public function prepare_example_summary(stdClass $example) {$summary = new workshop_example_submission_summary($this, $example);if (is_null($example->grade)) {$summary->status = 'notgraded';$summary->assesslabel = get_string('assess', 'workshop');} else {$summary->status = 'graded';$summary->assesslabel = get_string('reassess', 'workshop');}$summary->gradeinfo = new stdclass();$summary->gradeinfo->received = $this->real_grade($example->grade);$summary->gradeinfo->max = $this->real_grade(100);$summary->url = new moodle_url($this->exsubmission_url($example->id));$summary->editurl = new moodle_url($this->exsubmission_url($example->id), array('edit' => 'on'));$summary->assessurl = new moodle_url($this->exsubmission_url($example->id), array('assess' => 'on', 'sesskey' => sesskey()));return $summary;}/*** Prepares renderable assessment component** The $options array supports the following keys:* showauthor - should the author user info be available for the renderer* showreviewer - should the reviewer user info be available for the renderer* showform - show the assessment form if it is available* showweight - should the assessment weight be available for the renderer** @param stdClass $record as returned by eg {@link self::get_assessment_by_id()}* @param workshop_assessment_form|null $form as returned by {@link workshop_strategy::get_assessment_form()}* @param array $options* @return workshop_assessment*/public function prepare_assessment(stdClass $record, $form, array $options = array()) {$assessment = new workshop_assessment($this, $record, $options);$assessment->url = $this->assess_url($record->id);$assessment->maxgrade = $this->real_grade(100);if (!empty($options['showform']) and !($form instanceof workshop_assessment_form)) {debugging('Not a valid instance of workshop_assessment_form supplied', DEBUG_DEVELOPER);}if (!empty($options['showform']) and ($form instanceof workshop_assessment_form)) {$assessment->form = $form;}if (empty($options['showweight'])) {$assessment->weight = null;}if (!is_null($record->grade)) {$assessment->realgrade = $this->real_grade($record->grade);}return $assessment;}/*** Prepares renderable example submission's assessment component** The $options array supports the following keys:* showauthor - should the author user info be available for the renderer* showreviewer - should the reviewer user info be available for the renderer* showform - show the assessment form if it is available** @param stdClass $record as returned by eg {@link self::get_assessment_by_id()}* @param workshop_assessment_form|null $form as returned by {@link workshop_strategy::get_assessment_form()}* @param array $options* @return workshop_example_assessment*/public function prepare_example_assessment(stdClass $record, $form = null, array $options = array()) {$assessment = new workshop_example_assessment($this, $record, $options);$assessment->url = $this->exassess_url($record->id);$assessment->maxgrade = $this->real_grade(100);if (!empty($options['showform']) and !($form instanceof workshop_assessment_form)) {debugging('Not a valid instance of workshop_assessment_form supplied', DEBUG_DEVELOPER);}if (!empty($options['showform']) and ($form instanceof workshop_assessment_form)) {$assessment->form = $form;}if (!is_null($record->grade)) {$assessment->realgrade = $this->real_grade($record->grade);}$assessment->weight = null;return $assessment;}/*** Prepares renderable example submission's reference assessment component** The $options array supports the following keys:* showauthor - should the author user info be available for the renderer* showreviewer - should the reviewer user info be available for the renderer* showform - show the assessment form if it is available** @param stdClass $record as returned by eg {@link self::get_assessment_by_id()}* @param workshop_assessment_form|null $form as returned by {@link workshop_strategy::get_assessment_form()}* @param array $options* @return workshop_example_reference_assessment*/public function prepare_example_reference_assessment(stdClass $record, $form = null, array $options = array()) {$assessment = new workshop_example_reference_assessment($this, $record, $options);$assessment->maxgrade = $this->real_grade(100);if (!empty($options['showform']) and !($form instanceof workshop_assessment_form)) {debugging('Not a valid instance of workshop_assessment_form supplied', DEBUG_DEVELOPER);}if (!empty($options['showform']) and ($form instanceof workshop_assessment_form)) {$assessment->form = $form;}if (!is_null($record->grade)) {$assessment->realgrade = $this->real_grade($record->grade);}$assessment->weight = null;return $assessment;}/*** Removes the submission and all relevant data** @param stdClass $submission record to delete* @return void*/public function delete_submission(stdclass $submission) {global $DB;$assessments = $DB->get_records('workshop_assessments', array('submissionid' => $submission->id), '', 'id');$this->delete_assessment(array_keys($assessments));$fs = get_file_storage();$fs->delete_area_files($this->context->id, 'mod_workshop', 'submission_content', $submission->id);$fs->delete_area_files($this->context->id, 'mod_workshop', 'submission_attachment', $submission->id);$DB->delete_records('workshop_submissions', array('id' => $submission->id));// Event information.$params = array('context' => $this->context,'courseid' => $this->course->id,'relateduserid' => $submission->authorid,'other' => array('submissiontitle' => $submission->title));$params['objectid'] = $submission->id;$event = \mod_workshop\event\submission_deleted::create($params);$event->add_record_snapshot('workshop', $this->dbrecord);$event->trigger();}/*** Returns the list of all assessments in the workshop with some data added** Fetches data from {workshop_assessments} and adds some useful information from other* tables. The returned object does not contain textual fields (i.e. comments) to prevent memory* lack issues.** @return array [assessmentid] => assessment stdclass*/public function get_all_assessments() {global $DB;$userfieldsapi = \core_user\fields::for_userpic();$reviewerfields = $userfieldsapi->get_sql('reviewer', false, '', 'revieweridx', false)->selects;$authorfields = $userfieldsapi->get_sql('author', false, 'author', 'authorid', false)->selects;$overbyfields = $userfieldsapi->get_sql('overby', false, 'overby', 'gradinggradeoverbyx', false)->selects;list($sort, $params) = users_order_by_sql('reviewer');$sql = "SELECT a.id, a.submissionid, a.reviewerid, a.timecreated, a.timemodified,a.grade, a.gradinggrade, a.gradinggradeover, a.gradinggradeoverby,$reviewerfields, $authorfields, $overbyfields,s.titleFROM {workshop_assessments} aINNER JOIN {user} reviewer ON (a.reviewerid = reviewer.id)INNER JOIN {workshop_submissions} s ON (a.submissionid = s.id)INNER JOIN {user} author ON (s.authorid = author.id)LEFT JOIN {user} overby ON (a.gradinggradeoverby = overby.id)WHERE s.workshopid = :workshopid AND s.example = 0ORDER BY $sort";$params['workshopid'] = $this->id;return $DB->get_records_sql($sql, $params);}/*** Get the complete information about the given assessment** @param int $id Assessment ID* @return stdclass*/public function get_assessment_by_id($id) {global $DB;$userfieldsapi = \core_user\fields::for_userpic();$reviewerfields = $userfieldsapi->get_sql('reviewer', false, 'reviewer', 'revieweridx', false)->selects;$authorfields = $userfieldsapi->get_sql('author', false, 'author', 'authorid', false)->selects;$overbyfields = $userfieldsapi->get_sql('overby', false, 'overby', 'gradinggradeoverbyx', false)->selects;$sql = "SELECT a.*, s.title, $reviewerfields, $authorfields, $overbyfieldsFROM {workshop_assessments} aINNER JOIN {user} reviewer ON (a.reviewerid = reviewer.id)INNER JOIN {workshop_submissions} s ON (a.submissionid = s.id)INNER JOIN {user} author ON (s.authorid = author.id)LEFT JOIN {user} overby ON (a.gradinggradeoverby = overby.id)WHERE a.id = :id AND s.workshopid = :workshopid";$params = array('id' => $id, 'workshopid' => $this->id);return $DB->get_record_sql($sql, $params, MUST_EXIST);}/*** Get the complete information about the user's assessment of the given submission** @param int $sid submission ID* @param int $uid user ID of the reviewer* @return false|stdclass false if not found, stdclass otherwise*/public function get_assessment_of_submission_by_user($submissionid, $reviewerid) {global $DB;$userfieldsapi = \core_user\fields::for_userpic();$reviewerfields = $userfieldsapi->get_sql('reviewer', false, 'reviewer', 'revieweridx', false)->selects;$authorfields = $userfieldsapi->get_sql('author', false, 'author', 'authorid', false)->selects;$overbyfields = $userfieldsapi->get_sql('overby', false, 'overby', 'gradinggradeoverbyx', false)->selects;$sql = "SELECT a.*, s.title, $reviewerfields, $authorfields, $overbyfieldsFROM {workshop_assessments} aINNER JOIN {user} reviewer ON (a.reviewerid = reviewer.id)INNER JOIN {workshop_submissions} s ON (a.submissionid = s.id AND s.example = 0)INNER JOIN {user} author ON (s.authorid = author.id)LEFT JOIN {user} overby ON (a.gradinggradeoverby = overby.id)WHERE s.id = :sid AND reviewer.id = :rid AND s.workshopid = :workshopid";$params = array('sid' => $submissionid, 'rid' => $reviewerid, 'workshopid' => $this->id);return $DB->get_record_sql($sql, $params, IGNORE_MISSING);}/*** Get the complete information about all assessments of the given submission** @param int $submissionid* @return array*/public function get_assessments_of_submission($submissionid) {global $DB;$userfieldsapi = \core_user\fields::for_userpic();$reviewerfields = $userfieldsapi->get_sql('reviewer', false, 'reviewer', 'revieweridx', false)->selects;$overbyfields = $userfieldsapi->get_sql('overby', false, 'overby', 'gradinggradeoverbyx', false)->selects;list($sort, $params) = users_order_by_sql('reviewer');$sql = "SELECT a.*, s.title, $reviewerfields, $overbyfieldsFROM {workshop_assessments} aINNER JOIN {user} reviewer ON (a.reviewerid = reviewer.id)INNER JOIN {workshop_submissions} s ON (a.submissionid = s.id)LEFT JOIN {user} overby ON (a.gradinggradeoverby = overby.id)WHERE s.example = 0 AND s.id = :submissionid AND s.workshopid = :workshopidORDER BY $sort";$params['submissionid'] = $submissionid;$params['workshopid'] = $this->id;return $DB->get_records_sql($sql, $params);}/*** Get the complete information about all assessments allocated to the given reviewer** @param int $reviewerid* @return array*/public function get_assessments_by_reviewer($reviewerid) {global $DB;$userfieldsapi = \core_user\fields::for_userpic();$reviewerfields = $userfieldsapi->get_sql('reviewer', false, 'reviewer', 'revieweridx', false)->selects;$authorfields = $userfieldsapi->get_sql('author', false, 'author', 'authorid', false)->selects;$overbyfields = $userfieldsapi->get_sql('overby', false, 'overby', 'gradinggradeoverbyx', false)->selects;$sql = "SELECT a.*, $reviewerfields, $authorfields, $overbyfields,s.id AS submissionid, s.title AS submissiontitle, s.timecreated AS submissioncreated,s.timemodified AS submissionmodifiedFROM {workshop_assessments} aINNER JOIN {user} reviewer ON (a.reviewerid = reviewer.id)INNER JOIN {workshop_submissions} s ON (a.submissionid = s.id)INNER JOIN {user} author ON (s.authorid = author.id)LEFT JOIN {user} overby ON (a.gradinggradeoverby = overby.id)WHERE s.example = 0 AND reviewer.id = :reviewerid AND s.workshopid = :workshopid";$params = array('reviewerid' => $reviewerid, 'workshopid' => $this->id);return $DB->get_records_sql($sql, $params);}/*** Get allocated assessments not graded yet by the given reviewer** @see self::get_assessments_by_reviewer()* @param int $reviewerid the reviewer id* @param null|int|array $exclude optional assessment id (or list of them) to be excluded* @return array*/public function get_pending_assessments_by_reviewer($reviewerid, $exclude = null) {$assessments = $this->get_assessments_by_reviewer($reviewerid);foreach ($assessments as $id => $assessment) {if (!is_null($assessment->grade)) {unset($assessments[$id]);continue;}if (!empty($exclude)) {if (is_array($exclude) and in_array($id, $exclude)) {unset($assessments[$id]);continue;} else if ($id == $exclude) {unset($assessments[$id]);continue;}}}return $assessments;}/*** Allocate a submission to a user for review** @param stdClass $submission Submission object with at least id property* @param int $reviewerid User ID* @param int $weight of the new assessment, from 0 to 16* @param bool $bulk repeated inserts into DB expected* @return int ID of the new assessment or an error code {@link self::ALLOCATION_EXISTS} if the allocation already exists*/public function add_allocation(stdclass $submission, $reviewerid, $weight=1, $bulk=false) {global $DB;if ($DB->record_exists('workshop_assessments', array('submissionid' => $submission->id, 'reviewerid' => $reviewerid))) {return self::ALLOCATION_EXISTS;}$weight = (int)$weight;if ($weight < 0) {$weight = 0;}if ($weight > 16) {$weight = 16;}$now = time();$assessment = new stdclass();$assessment->submissionid = $submission->id;$assessment->reviewerid = $reviewerid;$assessment->timecreated = $now; // do not set timemodified here$assessment->weight = $weight;$assessment->feedbackauthorformat = editors_get_preferred_format();$assessment->feedbackreviewerformat = editors_get_preferred_format();return $DB->insert_record('workshop_assessments', $assessment, true, $bulk);}/*** Delete assessment record or records.** Removes associated records from the workshop_grades table, too.** @param int|array $id assessment id or array of assessments ids* @todo Give grading strategy plugins a chance to clean up their data, too.* @return bool true*/public function delete_assessment($id) {global $DB;if (empty($id)) {return true;}$fs = get_file_storage();if (is_array($id)) {$DB->delete_records_list('workshop_grades', 'assessmentid', $id);foreach ($id as $itemid) {$fs->delete_area_files($this->context->id, 'mod_workshop', 'overallfeedback_content', $itemid);$fs->delete_area_files($this->context->id, 'mod_workshop', 'overallfeedback_attachment', $itemid);}$DB->delete_records_list('workshop_assessments', 'id', $id);} else {$DB->delete_records('workshop_grades', array('assessmentid' => $id));$fs->delete_area_files($this->context->id, 'mod_workshop', 'overallfeedback_content', $id);$fs->delete_area_files($this->context->id, 'mod_workshop', 'overallfeedback_attachment', $id);$DB->delete_records('workshop_assessments', array('id' => $id));}return true;}/*** Returns instance of grading strategy class** @return stdclass Instance of a grading strategy*/public function grading_strategy_instance() {global $CFG; // because we require other libs hereif (is_null($this->strategyinstance)) {if (empty($this->strategy)) {throw new coding_exception('Unknown grading strategy');}$strategylib = __DIR__ . '/form/' . $this->strategy . '/lib.php';if (is_readable($strategylib)) {require_once($strategylib);} else {throw new coding_exception('the grading forms subplugin must contain library ' . $strategylib);}$classname = 'workshop_' . $this->strategy . '_strategy';$this->strategyinstance = new $classname($this);if (!in_array('workshop_strategy', class_implements($this->strategyinstance))) {throw new coding_exception($classname . ' does not implement workshop_strategy interface');}}return $this->strategyinstance;}/*** Sets the current evaluation method to the given plugin.** @param string $method the name of the workshopeval subplugin* @return bool true if successfully set* @throws coding_exception if attempting to set a non-installed evaluation method*/public function set_grading_evaluation_method($method) {global $DB;$method = clean_param($method, PARAM_PLUGIN);$evaluationlib = __DIR__ . '/eval/' . $method . '/lib.php';if (is_readable($evaluationlib)) {$this->evaluationinstance = null;$this->evaluation = $method;$DB->set_field('workshop', 'evaluation', $method, array('id' => $this->id));return true;}throw new coding_exception('Attempt to set a non-existing evaluation method.');}/*** Returns instance of grading evaluation class** @return stdclass Instance of a grading evaluation*/public function grading_evaluation_instance() {global $CFG; // because we require other libs hereif (is_null($this->evaluationinstance)) {if (empty($this->evaluation)) {$this->evaluation = 'best';}$evaluationlib = __DIR__ . '/eval/' . $this->evaluation . '/lib.php';if (is_readable($evaluationlib)) {require_once($evaluationlib);} else {// Fall back in case the subplugin is not available.$this->evaluation = 'best';$evaluationlib = __DIR__ . '/eval/' . $this->evaluation . '/lib.php';if (is_readable($evaluationlib)) {require_once($evaluationlib);} else {// Fall back in case the subplugin is not available any more.throw new coding_exception('Missing default grading evaluation library ' . $evaluationlib);}}$classname = 'workshop_' . $this->evaluation . '_evaluation';$this->evaluationinstance = new $classname($this);if (!in_array('workshop_evaluation', class_parents($this->evaluationinstance))) {throw new coding_exception($classname . ' does not extend workshop_evaluation class');}}return $this->evaluationinstance;}/*** Returns instance of submissions allocator** @param string $method The name of the allocation method, must be PARAM_ALPHA* @return stdclass Instance of submissions allocator*/public function allocator_instance($method) {global $CFG; // because we require other libs here$allocationlib = __DIR__ . '/allocation/' . $method . '/lib.php';if (is_readable($allocationlib)) {require_once($allocationlib);} else {throw new coding_exception('Unable to find the allocation library ' . $allocationlib);}$classname = 'workshop_' . $method . '_allocator';return new $classname($this);}/*** @return moodle_url of this workshop's view page*/public function view_url() {global $CFG;return new moodle_url('/mod/workshop/view.php', array('id' => $this->cm->id));}/*** @return moodle_url of the page for editing this workshop's grading form*/public function editform_url() {global $CFG;return new moodle_url('/mod/workshop/editform.php', array('cmid' => $this->cm->id));}/*** @return moodle_url of the page for previewing this workshop's grading form*/public function previewform_url() {global $CFG;return new moodle_url('/mod/workshop/editformpreview.php', array('cmid' => $this->cm->id));}/*** @param int $assessmentid The ID of assessment record* @return moodle_url of the assessment page*/public function assess_url($assessmentid) {global $CFG;$assessmentid = clean_param($assessmentid, PARAM_INT);return new moodle_url('/mod/workshop/assessment.php', array('asid' => $assessmentid));}/*** @param int $assessmentid The ID of assessment record* @return moodle_url of the example assessment page*/public function exassess_url($assessmentid) {global $CFG;$assessmentid = clean_param($assessmentid, PARAM_INT);return new moodle_url('/mod/workshop/exassessment.php', array('asid' => $assessmentid));}/*** @return moodle_url of the page to view a submission, defaults to the own one*/public function submission_url($id=null) {global $CFG;return new moodle_url('/mod/workshop/submission.php', array('cmid' => $this->cm->id, 'id' => $id));}/*** @param int $id example submission id* @return moodle_url of the page to view an example submission*/public function exsubmission_url($id) {global $CFG;return new moodle_url('/mod/workshop/exsubmission.php', array('cmid' => $this->cm->id, 'id' => $id));}/*** @param int $sid submission id* @param array $aid of int assessment ids* @return moodle_url of the page to compare assessments of the given submission*/public function compare_url($sid, array $aids) {global $CFG;$url = new moodle_url('/mod/workshop/compare.php', array('cmid' => $this->cm->id, 'sid' => $sid));$i = 0;foreach ($aids as $aid) {$url->param("aid{$i}", $aid);$i++;}return $url;}/*** @param int $sid submission id* @param int $aid assessment id* @return moodle_url of the page to compare the reference assessments of the given example submission*/public function excompare_url($sid, $aid) {global $CFG;return new moodle_url('/mod/workshop/excompare.php', array('cmid' => $this->cm->id, 'sid' => $sid, 'aid' => $aid));}/*** @return moodle_url of the mod_edit form*/public function updatemod_url() {global $CFG;return new moodle_url('/course/modedit.php', array('update' => $this->cm->id, 'return' => 1));}/*** @param string $method allocation method* @return moodle_url to the allocation page*/public function allocation_url($method=null) {global $CFG;$params = array('cmid' => $this->cm->id);if (!empty($method)) {$params['method'] = $method;}return new moodle_url('/mod/workshop/allocation.php', $params);}/*** @param int $phasecode The internal phase code* @return moodle_url of the script to change the current phase to $phasecode*/public function switchphase_url($phasecode) {global $CFG;$phasecode = clean_param($phasecode, PARAM_INT);return new moodle_url('/mod/workshop/switchphase.php', array('cmid' => $this->cm->id, 'phase' => $phasecode));}/*** @return moodle_url to the aggregation page*/public function aggregate_url() {global $CFG;return new moodle_url('/mod/workshop/aggregate.php', array('cmid' => $this->cm->id));}/*** @return moodle_url of this workshop's toolbox page*/public function toolbox_url($tool) {global $CFG;return new moodle_url('/mod/workshop/toolbox.php', array('id' => $this->cm->id, 'tool' => $tool));}/*** Workshop wrapper around {@see add_to_log()}* @deprecated since 2.7 Please use the provided event classes for logging actions.** @param string $action to be logged* @param moodle_url $url absolute url as returned by {@see workshop::submission_url()} and friends* @param mixed $info additional info, usually id in a table* @param bool $return true to return the arguments for add_to_log.* @return void|array array of arguments for add_to_log if $return is true*/public function log($action, moodle_url $url = null, $info = null, $return = false) {debugging('The log method is now deprecated, please use event classes instead', DEBUG_DEVELOPER);if (is_null($url)) {$url = $this->view_url();}if (is_null($info)) {$info = $this->id;}$logurl = $this->log_convert_url($url);$args = array($this->course->id, 'workshop', $action, $logurl, $info, $this->cm->id);if ($return) {return $args;}call_user_func_array('add_to_log', $args);}/*** Is the given user allowed to create their submission?** @param int $userid* @return bool*/public function creating_submission_allowed($userid) {$now = time();$ignoredeadlines = has_capability('mod/workshop:ignoredeadlines', $this->context, $userid);if ($this->latesubmissions) {if ($this->phase != self::PHASE_SUBMISSION and $this->phase != self::PHASE_ASSESSMENT) {// late submissions are allowed in the submission and assessment phase onlyreturn false;}if (!$ignoredeadlines and !empty($this->submissionstart) and $this->submissionstart > $now) {// late submissions are not allowed before the submission startreturn false;}return true;} else {if ($this->phase != self::PHASE_SUBMISSION) {// submissions are allowed during the submission phase onlyreturn false;}if (!$ignoredeadlines and !empty($this->submissionstart) and $this->submissionstart > $now) {// if enabled, submitting is not allowed before the date/time defined in the mod_formreturn false;}if (!$ignoredeadlines and !empty($this->submissionend) and $now > $this->submissionend ) {// if enabled, submitting is not allowed after the date/time defined in the mod_form unless late submission is allowedreturn false;}return true;}}/*** Is the given user allowed to modify their existing submission?** @param int $userid* @return bool*/public function modifying_submission_allowed($userid) {$now = time();$ignoredeadlines = has_capability('mod/workshop:ignoredeadlines', $this->context, $userid);if ($this->phase != self::PHASE_SUBMISSION) {// submissions can be edited during the submission phase onlyreturn false;}if (!$ignoredeadlines and !empty($this->submissionstart) and $this->submissionstart > $now) {// if enabled, re-submitting is not allowed before the date/time defined in the mod_formreturn false;}if (!$ignoredeadlines and !empty($this->submissionend) and $now > $this->submissionend) {// if enabled, re-submitting is not allowed after the date/time defined in the mod_form even if late submission is allowedreturn false;}return true;}/*** Is the given reviewer allowed to create/edit their assessments?** @param int $userid* @return bool*/public function assessing_allowed($userid) {if ($this->phase != self::PHASE_ASSESSMENT) {// assessing is allowed in the assessment phase only, unless the user is a teacher// providing additional assessment during the evaluation phaseif ($this->phase != self::PHASE_EVALUATION or !has_capability('mod/workshop:overridegrades', $this->context, $userid)) {return false;}}$now = time();$ignoredeadlines = has_capability('mod/workshop:ignoredeadlines', $this->context, $userid);if (!$ignoredeadlines and !empty($this->assessmentstart) and $this->assessmentstart > $now) {// if enabled, assessing is not allowed before the date/time defined in the mod_formreturn false;}if (!$ignoredeadlines and !empty($this->assessmentend) and $now > $this->assessmentend) {// if enabled, assessing is not allowed after the date/time defined in the mod_formreturn false;}// here we go, assessing is allowedreturn true;}/*** Are reviewers allowed to create/edit their assessments of the example submissions?** Returns null if example submissions are not enabled in this workshop. Otherwise returns* true or false. Note this does not check other conditions like the number of already* assessed examples, examples mode etc.** @return null|bool*/public function assessing_examples_allowed() {if (empty($this->useexamples)) {return null;}if (self::EXAMPLES_VOLUNTARY == $this->examplesmode) {return true;}if (self::EXAMPLES_BEFORE_SUBMISSION == $this->examplesmode and self::PHASE_SUBMISSION == $this->phase) {return true;}if (self::EXAMPLES_BEFORE_ASSESSMENT == $this->examplesmode and self::PHASE_ASSESSMENT == $this->phase) {return true;}return false;}/*** Are the peer-reviews available to the authors?** @return bool*/public function assessments_available() {return $this->phase == self::PHASE_CLOSED;}/*** Switch to a new workshop phase** Modifies the underlying database record. You should terminate the script shortly after calling this.** @param int $newphase new phase code* @return bool true if success, false otherwise*/public function switch_phase($newphase) {global $DB;$known = $this->available_phases_list();if (!isset($known[$newphase])) {return false;}if (self::PHASE_CLOSED == $newphase) {// push the grades into the gradebook$workshop = new stdclass();foreach ($this as $property => $value) {$workshop->{$property} = $value;}$workshop->course = $this->course->id;$workshop->cmidnumber = $this->cm->id;$workshop->modname = 'workshop';workshop_update_grades($workshop);}$DB->set_field('workshop', 'phase', $newphase, array('id' => $this->id));$this->phase = $newphase;$eventdata = array('objectid' => $this->id,'context' => $this->context,'other' => array('workshopphase' => $this->phase));$event = \mod_workshop\event\phase_switched::create($eventdata);$event->trigger();return true;}/*** Saves a raw grade for submission as calculated from the assessment form fields** @param array $assessmentid assessment record id, must exists* @param mixed $grade raw percentual grade from 0.00000 to 100.00000* @return false|float the saved grade*/public function set_peer_grade($assessmentid, $grade) {global $DB;if (is_null($grade)) {return false;}$data = new stdclass();$data->id = $assessmentid;$data->grade = $grade;$data->timemodified = time();$DB->update_record('workshop_assessments', $data);return $grade;}/*** Prepares data object with all workshop grades to be rendered** @param int $userid the user we are preparing the report for* @param int $groupid if non-zero, prepare the report for the given group only* @param int $page the current page (for the pagination)* @param int $perpage participants per page (for the pagination)* @param string $sortby lastname|firstname|submissiontitle|submissiongrade|gradinggrade* @param string $sorthow ASC|DESC* @return stdclass data for the renderer*/public function prepare_grading_report_data($userid, $groupid, $page, $perpage, $sortby, $sorthow) {global $DB;$canviewall = has_capability('mod/workshop:viewallassessments', $this->context, $userid);$isparticipant = $this->is_participant($userid);if (!$canviewall and !$isparticipant) {// who the hell is this?return array();}if (!in_array($sortby, array('lastname', 'firstname', 'submissiontitle', 'submissionmodified','submissiongrade', 'gradinggrade'))) {$sortby = 'lastname';}if (!($sorthow === 'ASC' or $sorthow === 'DESC')) {$sorthow = 'ASC';}// get the list of user ids to be displayedif ($canviewall) {$participants = $this->get_participants(false, $groupid);} else {// this is an ordinary workshop participant (aka student) - display the report just for him/her$participants = array($userid => (object)array('id' => $userid));}// we will need to know the number of all records later for the pagination purposes$numofparticipants = count($participants);if ($numofparticipants > 0) {// load all fields which can be used for sorting and paginate the recordslist($participantids, $params) = $DB->get_in_or_equal(array_keys($participants), SQL_PARAMS_NAMED);$params['workshopid1'] = $this->id;$params['workshopid2'] = $this->id;$sqlsort = array();$sqlsortfields = array($sortby => $sorthow) + array('lastname' => 'ASC', 'firstname' => 'ASC', 'u.id' => 'ASC');foreach ($sqlsortfields as $sqlsortfieldname => $sqlsortfieldhow) {$sqlsort[] = $sqlsortfieldname . ' ' . $sqlsortfieldhow;}$sqlsort = implode(',', $sqlsort);$userfieldsapi = \core_user\fields::for_userpic();$picturefields = $userfieldsapi->get_sql('u', false, '', 'userid', false)->selects;$sql = "SELECT $picturefields, s.title AS submissiontitle, s.timemodified AS submissionmodified,s.grade AS submissiongrade, ag.gradinggradeFROM {user} uLEFT JOIN {workshop_submissions} s ON (s.authorid = u.id AND s.workshopid = :workshopid1 AND s.example = 0)LEFT JOIN {workshop_aggregations} ag ON (ag.userid = u.id AND ag.workshopid = :workshopid2)WHERE u.id $participantidsORDER BY $sqlsort";$participants = $DB->get_records_sql($sql, $params, $page * $perpage, $perpage);} else {$participants = array();}// this will hold the information needed to display user names and pictures$userinfo = array();// get the user details for all participants to display$additionalnames = \core_user\fields::get_name_fields();foreach ($participants as $participant) {if (!isset($userinfo[$participant->userid])) {$userinfo[$participant->userid] = new stdclass();$userinfo[$participant->userid]->id = $participant->userid;$userinfo[$participant->userid]->picture = $participant->picture;$userinfo[$participant->userid]->imagealt = $participant->imagealt;$userinfo[$participant->userid]->email = $participant->email;foreach ($additionalnames as $addname) {$userinfo[$participant->userid]->$addname = $participant->$addname;}}}// load the submissions details$submissions = $this->get_submissions(array_keys($participants));// get the user details for all moderators (teachers) that have overridden a submission gradeforeach ($submissions as $submission) {if (!isset($userinfo[$submission->gradeoverby])) {$userinfo[$submission->gradeoverby] = new stdclass();$userinfo[$submission->gradeoverby]->id = $submission->gradeoverby;$userinfo[$submission->gradeoverby]->picture = $submission->overpicture;$userinfo[$submission->gradeoverby]->imagealt = $submission->overimagealt;$userinfo[$submission->gradeoverby]->email = $submission->overemail;foreach ($additionalnames as $addname) {$temp = 'over' . $addname;$userinfo[$submission->gradeoverby]->$addname = $submission->$temp;}}}// get the user details for all reviewers of the displayed participants$reviewers = array();if ($submissions) {list($submissionids, $params) = $DB->get_in_or_equal(array_keys($submissions), SQL_PARAMS_NAMED);list($sort, $sortparams) = users_order_by_sql('r');$userfieldsapi = \core_user\fields::for_userpic();$picturefields = $userfieldsapi->get_sql('r', false, '', 'reviewerid', false)->selects;$sql = "SELECT a.id AS assessmentid, a.submissionid, a.grade, a.gradinggrade, a.gradinggradeover, a.weight,$picturefields, s.id AS submissionid, s.authoridFROM {workshop_assessments} aJOIN {user} r ON (a.reviewerid = r.id)JOIN {workshop_submissions} s ON (a.submissionid = s.id AND s.example = 0)WHERE a.submissionid $submissionidsORDER BY a.weight DESC, $sort";$reviewers = $DB->get_records_sql($sql, array_merge($params, $sortparams));foreach ($reviewers as $reviewer) {if (!isset($userinfo[$reviewer->reviewerid])) {$userinfo[$reviewer->reviewerid] = new stdclass();$userinfo[$reviewer->reviewerid]->id = $reviewer->reviewerid;$userinfo[$reviewer->reviewerid]->picture = $reviewer->picture;$userinfo[$reviewer->reviewerid]->imagealt = $reviewer->imagealt;$userinfo[$reviewer->reviewerid]->email = $reviewer->email;foreach ($additionalnames as $addname) {$userinfo[$reviewer->reviewerid]->$addname = $reviewer->$addname;}}}}// get the user details for all reviewees of the displayed participants$reviewees = array();if ($participants) {list($participantids, $params) = $DB->get_in_or_equal(array_keys($participants), SQL_PARAMS_NAMED);list($sort, $sortparams) = users_order_by_sql('e');$params['workshopid'] = $this->id;$userfieldsapi = \core_user\fields::for_userpic();$picturefields = $userfieldsapi->get_sql('e', false, '', 'authorid', false)->selects;$sql = "SELECT a.id AS assessmentid, a.submissionid, a.grade, a.gradinggrade, a.gradinggradeover, a.reviewerid, a.weight,s.id AS submissionid, $picturefieldsFROM {user} uJOIN {workshop_assessments} a ON (a.reviewerid = u.id)JOIN {workshop_submissions} s ON (a.submissionid = s.id AND s.example = 0)JOIN {user} e ON (s.authorid = e.id)WHERE u.id $participantids AND s.workshopid = :workshopidORDER BY a.weight DESC, $sort";$reviewees = $DB->get_records_sql($sql, array_merge($params, $sortparams));foreach ($reviewees as $reviewee) {if (!isset($userinfo[$reviewee->authorid])) {$userinfo[$reviewee->authorid] = new stdclass();$userinfo[$reviewee->authorid]->id = $reviewee->authorid;$userinfo[$reviewee->authorid]->picture = $reviewee->picture;$userinfo[$reviewee->authorid]->imagealt = $reviewee->imagealt;$userinfo[$reviewee->authorid]->email = $reviewee->email;foreach ($additionalnames as $addname) {$userinfo[$reviewee->authorid]->$addname = $reviewee->$addname;}}}}// finally populate the object to be rendered$grades = $participants;foreach ($participants as $participant) {// set up default (null) values$grades[$participant->userid]->submissionid = null;$grades[$participant->userid]->submissiontitle = null;$grades[$participant->userid]->submissiongrade = null;$grades[$participant->userid]->submissiongradeover = null;$grades[$participant->userid]->submissiongradeoverby = null;$grades[$participant->userid]->submissionpublished = null;$grades[$participant->userid]->reviewedby = array();$grades[$participant->userid]->reviewerof = array();}unset($participants);unset($participant);foreach ($submissions as $submission) {$grades[$submission->authorid]->submissionid = $submission->id;$grades[$submission->authorid]->submissiontitle = $submission->title;$grades[$submission->authorid]->submissiongrade = $this->real_grade($submission->grade);$grades[$submission->authorid]->submissiongradeover = $this->real_grade($submission->gradeover);$grades[$submission->authorid]->submissiongradeoverby = $submission->gradeoverby;$grades[$submission->authorid]->submissionpublished = $submission->published;}unset($submissions);unset($submission);foreach($reviewers as $reviewer) {$info = new stdclass();$info->userid = $reviewer->reviewerid;$info->assessmentid = $reviewer->assessmentid;$info->submissionid = $reviewer->submissionid;$info->grade = $this->real_grade($reviewer->grade);$info->gradinggrade = $this->real_grading_grade($reviewer->gradinggrade);$info->gradinggradeover = $this->real_grading_grade($reviewer->gradinggradeover);$info->weight = $reviewer->weight;$grades[$reviewer->authorid]->reviewedby[$reviewer->reviewerid] = $info;}unset($reviewers);unset($reviewer);foreach($reviewees as $reviewee) {$info = new stdclass();$info->userid = $reviewee->authorid;$info->assessmentid = $reviewee->assessmentid;$info->submissionid = $reviewee->submissionid;$info->grade = $this->real_grade($reviewee->grade);$info->gradinggrade = $this->real_grading_grade($reviewee->gradinggrade);$info->gradinggradeover = $this->real_grading_grade($reviewee->gradinggradeover);$info->weight = $reviewee->weight;$grades[$reviewee->reviewerid]->reviewerof[$reviewee->authorid] = $info;}unset($reviewees);unset($reviewee);foreach ($grades as $grade) {$grade->gradinggrade = $this->real_grading_grade($grade->gradinggrade);}$data = new stdclass();$data->grades = $grades;$data->userinfo = $userinfo;$data->totalcount = $numofparticipants;$data->maxgrade = $this->real_grade(100);$data->maxgradinggrade = $this->real_grading_grade(100);return $data;}/*** Calculates the real value of a grade** @param float $value percentual value from 0 to 100* @param float $max the maximal grade* @return string*/public function real_grade_value($value, $max) {$localized = true;if (is_null($value) or $value === '') {return null;} elseif ($max == 0) {return 0;} else {return format_float($max * $value / 100, $this->gradedecimals, $localized);}}/*** Calculates the raw (percentual) value from a real grade** This is used in cases when a user wants to give a grade such as 12 of 20 and we need to save* this value in a raw percentual form into DB* @param float $value given grade* @param float $max the maximal grade* @return float suitable to be stored as numeric(10,5)*/public function raw_grade_value($value, $max) {if (is_null($value) or $value === '') {return null;}if ($max == 0 or $value < 0) {return 0;}$p = $value / $max * 100;if ($p > 100) {return $max;}return grade_floatval($p);}/*** Calculates the real value of grade for submission** @param float $value percentual value from 0 to 100* @return string*/public function real_grade($value) {return $this->real_grade_value($value, $this->grade);}/*** Calculates the real value of grade for assessment** @param float $value percentual value from 0 to 100* @return string*/public function real_grading_grade($value) {return $this->real_grade_value($value, $this->gradinggrade);}/*** Sets the given grades and received grading grades to null** This does not clear the information about how the peers filled the assessment forms, but* clears the calculated grades in workshop_assessments. Therefore reviewers have to re-assess* the allocated submissions.** @return void*/public function clear_assessments() {global $DB;$submissions = $this->get_submissions();if (empty($submissions)) {// no money, no lovereturn;}$submissions = array_keys($submissions);list($sql, $params) = $DB->get_in_or_equal($submissions, SQL_PARAMS_NAMED);$sql = "submissionid $sql";$DB->set_field_select('workshop_assessments', 'grade', null, $sql, $params);$DB->set_field_select('workshop_assessments', 'gradinggrade', null, $sql, $params);}/*** Sets the grades for submission to null** @param null|int|array $restrict If null, update all authors, otherwise update just grades for the given author(s)* @return void*/public function clear_submission_grades($restrict=null) {global $DB;$sql = "workshopid = :workshopid AND example = 0";$params = array('workshopid' => $this->id);if (is_null($restrict)) {// update all users - no more conditions} elseif (!empty($restrict)) {list($usql, $uparams) = $DB->get_in_or_equal($restrict, SQL_PARAMS_NAMED);$sql .= " AND authorid $usql";$params = array_merge($params, $uparams);} else {throw new coding_exception('Empty value is not a valid parameter here');}$DB->set_field_select('workshop_submissions', 'grade', null, $sql, $params);}/*** Calculates grades for submission for the given participant(s) and updates it in the database** @param null|int|array $restrict If null, update all authors, otherwise update just grades for the given author(s)* @return void*/public function aggregate_submission_grades($restrict=null) {global $DB;// fetch a recordset with all assessments to process$sql = 'SELECT s.id AS submissionid, s.grade AS submissiongrade,a.weight, a.gradeFROM {workshop_submissions} sLEFT JOIN {workshop_assessments} a ON (a.submissionid = s.id)WHERE s.example=0 AND s.workshopid=:workshopid'; // to be cont.$params = array('workshopid' => $this->id);if (is_null($restrict)) {// update all users - no more conditions} elseif (!empty($restrict)) {list($usql, $uparams) = $DB->get_in_or_equal($restrict, SQL_PARAMS_NAMED);$sql .= " AND s.authorid $usql";$params = array_merge($params, $uparams);} else {throw new coding_exception('Empty value is not a valid parameter here');}$sql .= ' ORDER BY s.id'; // this is important for bulk processing$rs = $DB->get_recordset_sql($sql, $params);$batch = array(); // will contain a set of all assessments of a single submission$previous = null; // a previous record in the recordsetforeach ($rs as $current) {if (is_null($previous)) {// we are processing the very first record in the recordset$previous = $current;}if ($current->submissionid == $previous->submissionid) {// we are still processing the current submission$batch[] = $current;} else {// process all the assessments of a sigle submission$this->aggregate_submission_grades_process($batch);// and then start to process another submission$batch = array($current);$previous = $current;}}// do not forget to process the last batch!$this->aggregate_submission_grades_process($batch);$rs->close();}/*** Sets the aggregated grades for assessment to null** @param null|int|array $restrict If null, update all reviewers, otherwise update just grades for the given reviewer(s)* @return void*/public function clear_grading_grades($restrict=null) {global $DB;$sql = "workshopid = :workshopid";$params = array('workshopid' => $this->id);if (is_null($restrict)) {// update all users - no more conditions} elseif (!empty($restrict)) {list($usql, $uparams) = $DB->get_in_or_equal($restrict, SQL_PARAMS_NAMED);$sql .= " AND userid $usql";$params = array_merge($params, $uparams);} else {throw new coding_exception('Empty value is not a valid parameter here');}$DB->set_field_select('workshop_aggregations', 'gradinggrade', null, $sql, $params);}/*** Calculates grades for assessment for the given participant(s)** Grade for assessment is calculated as a simple mean of all grading grades calculated by the grading evaluator.* The assessment weight is not taken into account here.** @param null|int|array $restrict If null, update all reviewers, otherwise update just grades for the given reviewer(s)* @return void*/public function aggregate_grading_grades($restrict=null) {global $DB;// fetch a recordset with all assessments to process$sql = 'SELECT a.reviewerid, a.gradinggrade, a.gradinggradeover,ag.id AS aggregationid, ag.gradinggrade AS aggregatedgradeFROM {workshop_assessments} aINNER JOIN {workshop_submissions} s ON (a.submissionid = s.id)LEFT JOIN {workshop_aggregations} ag ON (ag.userid = a.reviewerid AND ag.workshopid = s.workshopid)WHERE s.example=0 AND s.workshopid=:workshopid'; // to be cont.$params = array('workshopid' => $this->id);if (is_null($restrict)) {// update all users - no more conditions} elseif (!empty($restrict)) {list($usql, $uparams) = $DB->get_in_or_equal($restrict, SQL_PARAMS_NAMED);$sql .= " AND a.reviewerid $usql";$params = array_merge($params, $uparams);} else {throw new coding_exception('Empty value is not a valid parameter here');}$sql .= ' ORDER BY a.reviewerid'; // this is important for bulk processing$rs = $DB->get_recordset_sql($sql, $params);$batch = array(); // will contain a set of all assessments of a single submission$previous = null; // a previous record in the recordsetforeach ($rs as $current) {if (is_null($previous)) {// we are processing the very first record in the recordset$previous = $current;}if ($current->reviewerid == $previous->reviewerid) {// we are still processing the current reviewer$batch[] = $current;} else {// process all the assessments of a sigle submission$this->aggregate_grading_grades_process($batch);// and then start to process another reviewer$batch = array($current);$previous = $current;}}// do not forget to process the last batch!$this->aggregate_grading_grades_process($batch);$rs->close();}/*** Returns the mform the teachers use to put a feedback for the reviewer** @param mixed moodle_url|null $actionurl* @param stdClass $assessment* @param array $options editable, editableweight, overridablegradinggrade* @return workshop_feedbackreviewer_form*/public function get_feedbackreviewer_form($actionurl, stdclass $assessment, $options=array()) {global $CFG;require_once(__DIR__ . '/feedbackreviewer_form.php');$current = new stdclass();$current->asid = $assessment->id;$current->weight = $assessment->weight;$current->gradinggrade = $this->real_grading_grade($assessment->gradinggrade);$current->gradinggradeover = $this->real_grading_grade($assessment->gradinggradeover);$current->feedbackreviewer = $assessment->feedbackreviewer;$current->feedbackreviewerformat = $assessment->feedbackreviewerformat;if (is_null($current->gradinggrade)) {$current->gradinggrade = get_string('nullgrade', 'workshop');}if (!isset($options['editable'])) {$editable = true; // by default} else {$editable = (bool)$options['editable'];}// prepare wysiwyg editor$current = file_prepare_standard_editor($current, 'feedbackreviewer', array());return new workshop_feedbackreviewer_form($actionurl,array('workshop' => $this, 'current' => $current, 'editoropts' => array(), 'options' => $options),'post', '', null, $editable);}/*** Returns the mform the teachers use to put a feedback for the author on their submission** @mixed moodle_url|null $actionurl* @param stdClass $submission* @param array $options editable* @return workshop_feedbackauthor_form*/public function get_feedbackauthor_form($actionurl, stdclass $submission, $options=array()) {global $CFG;require_once(__DIR__ . '/feedbackauthor_form.php');$current = new stdclass();$current->submissionid = $submission->id;$current->published = $submission->published;$current->grade = $this->real_grade($submission->grade);$current->gradeover = $this->real_grade($submission->gradeover);$current->feedbackauthor = $submission->feedbackauthor;$current->feedbackauthorformat = $submission->feedbackauthorformat;if (is_null($current->grade)) {$current->grade = get_string('nullgrade', 'workshop');}if (!isset($options['editable'])) {$editable = true; // by default} else {$editable = (bool)$options['editable'];}// prepare wysiwyg editor$current = file_prepare_standard_editor($current, 'feedbackauthor', array());return new workshop_feedbackauthor_form($actionurl,array('workshop' => $this, 'current' => $current, 'editoropts' => array(), 'options' => $options),'post', '', null, $editable);}/*** Returns the information about the user's grades as they are stored in the gradebook** The submission grade is returned for users with the capability mod/workshop:submit and the* assessment grade is returned for users with the capability mod/workshop:peerassess. Unless the* user has the capability to view hidden grades, grades must be visible to be returned. Null* grades are not returned. If none grade is to be returned, this method returns false.** @param int $userid the user's id* @return workshop_final_grades|false*/public function get_gradebook_grades($userid) {global $CFG;require_once($CFG->libdir.'/gradelib.php');if (empty($userid)) {throw new coding_exception('User id expected, empty value given.');}// Read data via the Gradebook API$gradebook = grade_get_grades($this->course->id, 'mod', 'workshop', $this->id, $userid);$grades = new workshop_final_grades();if (has_capability('mod/workshop:submit', $this->context, $userid)) {if (!empty($gradebook->items[0]->grades)) {$submissiongrade = reset($gradebook->items[0]->grades);if (!is_null($submissiongrade->grade)) {if (!$submissiongrade->hidden or has_capability('moodle/grade:viewhidden', $this->context, $userid)) {$grades->submissiongrade = $submissiongrade;}}}}if (has_capability('mod/workshop:peerassess', $this->context, $userid)) {if (!empty($gradebook->items[1]->grades)) {$assessmentgrade = reset($gradebook->items[1]->grades);if (!is_null($assessmentgrade->grade)) {if (!$assessmentgrade->hidden or has_capability('moodle/grade:viewhidden', $this->context, $userid)) {$grades->assessmentgrade = $assessmentgrade;}}}}if (!is_null($grades->submissiongrade) or !is_null($grades->assessmentgrade)) {return $grades;}return false;}/*** Return the editor options for the submission content field.** @return array*/public function submission_content_options() {global $CFG;require_once($CFG->dirroot.'/repository/lib.php');return array('trusttext' => true,'subdirs' => false,'maxfiles' => $this->nattachments,'maxbytes' => $this->maxbytes,'context' => $this->context,'return_types' => FILE_INTERNAL | FILE_EXTERNAL,);}/*** Return the filemanager options for the submission attachments field.** @return array*/public function submission_attachment_options() {global $CFG;require_once($CFG->dirroot.'/repository/lib.php');$options = array('subdirs' => true,'maxfiles' => $this->nattachments,'maxbytes' => $this->maxbytes,'return_types' => FILE_INTERNAL | FILE_CONTROLLED_LINK,);$filetypesutil = new \core_form\filetypes_util();$options['accepted_types'] = $filetypesutil->normalize_file_types($this->submissionfiletypes);return $options;}/*** Return the editor options for the overall feedback for the author.** @return array*/public function overall_feedback_content_options() {global $CFG;require_once($CFG->dirroot.'/repository/lib.php');return array('subdirs' => 0,'maxbytes' => $this->overallfeedbackmaxbytes,'maxfiles' => $this->overallfeedbackfiles,'changeformat' => 1,'context' => $this->context,'return_types' => FILE_INTERNAL,);}/*** Return the filemanager options for the overall feedback for the author.** @return array*/public function overall_feedback_attachment_options() {global $CFG;require_once($CFG->dirroot.'/repository/lib.php');$options = array('subdirs' => 1,'maxbytes' => $this->overallfeedbackmaxbytes,'maxfiles' => $this->overallfeedbackfiles,'return_types' => FILE_INTERNAL | FILE_CONTROLLED_LINK,);$filetypesutil = new \core_form\filetypes_util();$options['accepted_types'] = $filetypesutil->normalize_file_types($this->overallfeedbackfiletypes);return $options;}/*** Performs the reset of this workshop instance.** @param stdClass $data The actual course reset settings.* @return array List of results, each being array[(string)component, (string)item, (string)error]*/public function reset_userdata(stdClass $data) {$componentstr = get_string('pluginname', 'workshop').': '.format_string($this->name);$status = array();if (!empty($data->reset_workshop_assessments) or !empty($data->reset_workshop_submissions)) {// Reset all data related to assessments, including assessments of// example submissions.$result = $this->reset_userdata_assessments($data);if ($result === true) {$status[] = array('component' => $componentstr,'item' => get_string('resetassessments', 'mod_workshop'),'error' => false,);} else {$status[] = array('component' => $componentstr,'item' => get_string('resetassessments', 'mod_workshop'),'error' => $result,);}}if (!empty($data->reset_workshop_submissions)) {// Reset all remaining data related to submissions.$result = $this->reset_userdata_submissions($data);if ($result === true) {$status[] = array('component' => $componentstr,'item' => get_string('resetsubmissions', 'mod_workshop'),'error' => false,);} else {$status[] = array('component' => $componentstr,'item' => get_string('resetsubmissions', 'mod_workshop'),'error' => $result,);}}if (!empty($data->reset_workshop_phase)) {// Do not use the {@link workshop::switch_phase()} here, we do not// want to trigger events.$this->reset_phase();$status[] = array('component' => $componentstr,'item' => get_string('resetsubmissions', 'mod_workshop'),'error' => false,);}return $status;}/*** Check if the current user can access the other user's group.** This is typically used for teacher roles that have permissions like* 'view all submissions'. Even with such a permission granted, we have to* check the workshop activity group mode.** If the workshop is not in a group mode, or if it is in the visible group* mode, this method returns true. This is consistent with how the* {@link groups_get_activity_allowed_groups()} behaves.** If the workshop is in a separate group mode, the current user has to* have the 'access all groups' permission, or share at least one* accessible group with the other user.** @param int $otheruserid The ID of the other user, e.g. the author of a submission.* @return bool False if the current user cannot access the other user's group.*/public function check_group_membership($otheruserid) {global $USER;if (groups_get_activity_groupmode($this->cm) != SEPARATEGROUPS) {// The workshop is not in a group mode, or it is in a visible group mode.return true;} else if (has_capability('moodle/site:accessallgroups', $this->context)) {// The current user can access all groups.return true;} else {$thisusersgroups = groups_get_all_groups($this->course->id, $USER->id, $this->cm->groupingid, 'g.id');$otherusersgroups = groups_get_all_groups($this->course->id, $otheruserid, $this->cm->groupingid, 'g.id');$commongroups = array_intersect_key($thisusersgroups, $otherusersgroups);if (empty($commongroups)) {// The current user has no group common with the other user.return false;} else {// The current user has a group common with the other user.return true;}}}/*** Check whether the given user has assessed all his required examples before submission.** @param int $userid the user to check* @return bool false if there are examples missing assessment, true otherwise.* @since Moodle 3.4*/public function check_examples_assessed_before_submission($userid) {if ($this->useexamples and $this->examplesmode == self::EXAMPLES_BEFORE_SUBMISSIONand !has_capability('mod/workshop:manageexamples', $this->context)) {// Check that all required examples have been assessed by the user.$examples = $this->get_examples_for_reviewer($userid);foreach ($examples as $exampleid => $example) {if (is_null($example->assessmentid)) {$examples[$exampleid]->assessmentid = $this->add_allocation($example, $userid, 0);}if (is_null($example->grade)) {return false;}}}return true;}/*** Check that all required examples have been assessed by the given user.** @param stdClass $userid the user (reviewer) to check* @return mixed bool|state false and notice code if there are examples missing assessment, true otherwise.* @since Moodle 3.4*/public function check_examples_assessed_before_assessment($userid) {if ($this->useexamples and $this->examplesmode == self::EXAMPLES_BEFORE_ASSESSMENTand !has_capability('mod/workshop:manageexamples', $this->context)) {// The reviewer must have submitted their own submission.$reviewersubmission = $this->get_submission_by_author($userid);if (!$reviewersubmission) {// No money, no love.return array(false, 'exampleneedsubmission');} else {$examples = $this->get_examples_for_reviewer($userid);foreach ($examples as $exampleid => $example) {if (is_null($example->grade)) {return array(false, 'exampleneedassessed');}}}}return array(true, null);}/*** Trigger module viewed event and set the module viewed for completion.** @since Moodle 3.4*/public function set_module_viewed() {global $CFG;require_once($CFG->libdir . '/completionlib.php');// Mark viewed.$completion = new completion_info($this->course);$completion->set_module_viewed($this->cm);$eventdata = array();$eventdata['objectid'] = $this->id;$eventdata['context'] = $this->context;// Trigger module viewed event.$event = \mod_workshop\event\course_module_viewed::create($eventdata);$event->add_record_snapshot('course', $this->course);$event->add_record_snapshot('workshop', $this->dbrecord);$event->add_record_snapshot('course_modules', $this->cm);$event->trigger();}/*** Validates the submission form or WS data.** @param array $data the data to be validated* @return array the validation errors (if any)* @since Moodle 3.4*/public function validate_submission_data($data) {global $DB, $USER;$errors = array();if (empty($data['id']) and empty($data['example'])) {// Make sure there is no submission saved meanwhile from another browser window.$sql = "SELECT COUNT(s.id)FROM {workshop_submissions} sJOIN {workshop} w ON (s.workshopid = w.id)JOIN {course_modules} cm ON (w.id = cm.instance)JOIN {modules} m ON (m.name = 'workshop' AND m.id = cm.module)WHERE cm.id = ? AND s.authorid = ? AND s.example = 0";if ($DB->count_records_sql($sql, array($data['cmid'], $USER->id))) {$errors['title'] = get_string('err_multiplesubmissions', 'mod_workshop');}}// Get the workshop record by id or cmid, depending on whether we're creating or editing a submission.if (empty($data['workshopid'])) {$workshop = $DB->get_record_select('workshop', 'id = (SELECT instance FROM {course_modules} WHERE id = ?)',[$data['cmid']]);} else {$workshop = $DB->get_record('workshop', ['id' => $data['workshopid']]);}if (isset($data['attachment_filemanager'])) {$getfiles = file_get_drafarea_files($data['attachment_filemanager']);$attachments = $getfiles->list;} else {$attachments = array();}if ($workshop->submissiontypefile == WORKSHOP_SUBMISSION_TYPE_REQUIRED) {if (empty($attachments)) {$errors['attachment_filemanager'] = get_string('err_required', 'form');}} else if ($workshop->submissiontypefile == WORKSHOP_SUBMISSION_TYPE_DISABLED && !empty($data['attachment_filemanager'])) {$errors['attachment_filemanager'] = get_string('submissiontypedisabled', 'mod_workshop');}if ($workshop->submissiontypetext == WORKSHOP_SUBMISSION_TYPE_REQUIRED && html_is_blank($data['content_editor']['text'])) {$errors['content_editor'] = get_string('err_required', 'form');} else if ($workshop->submissiontypetext == WORKSHOP_SUBMISSION_TYPE_DISABLED && !empty($data['content_editor']['text'])) {$errors['content_editor'] = get_string('submissiontypedisabled', 'mod_workshop');}// If neither type is explicitly required, one or the other must be submitted.if ($workshop->submissiontypetext != WORKSHOP_SUBMISSION_TYPE_REQUIRED&& $workshop->submissiontypefile != WORKSHOP_SUBMISSION_TYPE_REQUIRED&& empty($attachments) && html_is_blank($data['content_editor']['text'])) {$errors['content_editor'] = get_string('submissionrequiredcontent', 'mod_workshop');$errors['attachment_filemanager'] = get_string('submissionrequiredfile', 'mod_workshop');}return $errors;}/*** Adds or updates a submission.** @param stdClass $submission The submissin data (via form or via WS).* @return the new or updated submission id.* @since Moodle 3.4*/public function edit_submission($submission) {global $USER, $DB;if ($submission->example == 0) {// This was used just for validation, it must be set to zero when dealing with normal submissions.unset($submission->example);} else {throw new coding_exception('Invalid submission form data value: example');}$timenow = time();if (is_null($submission->id)) {$submission->workshopid = $this->id;$submission->example = 0;$submission->authorid = $USER->id;$submission->timecreated = $timenow;$submission->feedbackauthorformat = editors_get_preferred_format();}$submission->timemodified = $timenow;$submission->title = trim($submission->title);$submission->content = ''; // Updated later.$submission->contentformat = FORMAT_HTML; // Updated later.$submission->contenttrust = 0; // Updated later.$submission->late = 0x0; // Bit mask.if (!empty($this->submissionend) and ($this->submissionend < time())) {$submission->late = $submission->late | 0x1;}if ($this->phase == self::PHASE_ASSESSMENT) {$submission->late = $submission->late | 0x2;}// Event information.$params = array('context' => $this->context,'courseid' => $this->course->id,'other' => array('submissiontitle' => $submission->title));$logdata = null;if (is_null($submission->id)) {$submission->id = $DB->insert_record('workshop_submissions', $submission);$params['objectid'] = $submission->id;$event = \mod_workshop\event\submission_created::create($params);$event->trigger();} else {if (empty($submission->id) or empty($submission->id) or ($submission->id != $submission->id)) {throw new moodle_exception('err_submissionid', 'workshop');}}$params['objectid'] = $submission->id;// Save and relink embedded images and save attachments.if ($this->submissiontypetext != WORKSHOP_SUBMISSION_TYPE_DISABLED) {$submission = file_postupdate_standard_editor($submission, 'content', $this->submission_content_options(),$this->context, 'mod_workshop', 'submission_content', $submission->id);}$submission = file_postupdate_standard_filemanager($submission, 'attachment', $this->submission_attachment_options(),$this->context, 'mod_workshop', 'submission_attachment', $submission->id);if (empty($submission->attachment)) {// Explicit cast to zero integer.$submission->attachment = 0;}// Store the updated values or re-save the new submission (re-saving needed because URLs are now rewritten).$DB->update_record('workshop_submissions', $submission);$event = \mod_workshop\event\submission_updated::create($params);$event->add_record_snapshot('workshop', $this->dbrecord);$event->trigger();// Send submitted content for plagiarism detection.$fs = get_file_storage();$files = $fs->get_area_files($this->context->id, 'mod_workshop', 'submission_attachment', $submission->id);$params['other']['content'] = $submission->content;$params['other']['pathnamehashes'] = array_keys($files);$event = \mod_workshop\event\assessable_uploaded::create($params);$event->trigger();return $submission->id;}/*** Helper method for validating if the current user can view the given assessment.** @param stdClass $assessment assessment object* @param stdClass $submission submission object* @return void* @throws moodle_exception* @since Moodle 3.4*/public function check_view_assessment($assessment, $submission) {global $USER;$isauthor = $submission->authorid == $USER->id;$isreviewer = $assessment->reviewerid == $USER->id;$canviewallassessments = has_capability('mod/workshop:viewallassessments', $this->context);$canviewallsubmissions = has_capability('mod/workshop:viewallsubmissions', $this->context);$canviewallsubmissions = $canviewallsubmissions && $this->check_group_membership($submission->authorid);if (!$isreviewer and !$isauthor and !($canviewallassessments and $canviewallsubmissions)) {throw new \moodle_exception('nopermissions', 'error', $this->view_url(), 'view this assessment');}if ($isauthor and !$isreviewer and !$canviewallassessments and $this->phase != self::PHASE_CLOSED) {// Authors can see assessments of their work at the end of workshop only.throw new \moodle_exception('nopermissions', 'error', $this->view_url(),'view assessment of own work before workshop is closed');}}/*** Helper method for validating if the current user can edit the given assessment.** @param stdClass $assessment assessment object* @param stdClass $submission submission object* @return void* @throws moodle_exception* @since Moodle 3.4*/public function check_edit_assessment($assessment, $submission) {global $USER;$this->check_view_assessment($assessment, $submission);// Further checks.$isreviewer = ($USER->id == $assessment->reviewerid);$assessmenteditable = $isreviewer && $this->assessing_allowed($USER->id);if (!$assessmenteditable) {throw new moodle_exception('nopermissions', 'error', '', 'edit assessments');}list($assessed, $notice) = $this->check_examples_assessed_before_assessment($assessment->reviewerid);if (!$assessed) {throw new moodle_exception($notice, 'mod_workshop');}}/*** Adds information to an allocated assessment (function used the first time a review is done or when updating an existing one).** @param stdClass $assessment the assessment* @param stdClass $submission the submission* @param stdClass $data the assessment data to be added or Updated* @param stdClass $strategy the strategy instance* @return float|null Raw percentual grade (0.00000 to 100.00000) for submission* @since Moodle 3.4*/public function edit_assessment($assessment, $submission, $data, $strategy) {global $DB;$cansetassessmentweight = has_capability('mod/workshop:allocate', $this->context);// Let the grading strategy subplugin save its data.$rawgrade = $strategy->save_assessment($assessment, $data);// Store the data managed by the workshop core.$coredata = (object)array('id' => $assessment->id);if (isset($data->feedbackauthor_editor)) {$coredata->feedbackauthor_editor = $data->feedbackauthor_editor;$coredata = file_postupdate_standard_editor($coredata, 'feedbackauthor', $this->overall_feedback_content_options(),$this->context, 'mod_workshop', 'overallfeedback_content', $assessment->id);unset($coredata->feedbackauthor_editor);}if (isset($data->feedbackauthorattachment_filemanager)) {$coredata->feedbackauthorattachment_filemanager = $data->feedbackauthorattachment_filemanager;$coredata = file_postupdate_standard_filemanager($coredata, 'feedbackauthorattachment',$this->overall_feedback_attachment_options(), $this->context, 'mod_workshop', 'overallfeedback_attachment',$assessment->id);unset($coredata->feedbackauthorattachment_filemanager);if (empty($coredata->feedbackauthorattachment)) {$coredata->feedbackauthorattachment = 0;}}if (isset($data->weight) and $cansetassessmentweight) {$coredata->weight = $data->weight;}// Update the assessment data if there is something other than just the 'id'.if (count((array)$coredata) > 1 ) {$DB->update_record('workshop_assessments', $coredata);$params = array('relateduserid' => $submission->authorid,'objectid' => $assessment->id,'context' => $this->context,'other' => array('workshopid' => $this->id,'submissionid' => $assessment->submissionid));if (is_null($assessment->grade)) {// All workshop_assessments are created when allocations are made. The create event is of more use located here.$event = \mod_workshop\event\submission_assessed::create($params);$event->trigger();} else {$params['other']['grade'] = $assessment->grade;$event = \mod_workshop\event\submission_reassessed::create($params);$event->trigger();}}return $rawgrade;}/*** Evaluates an assessment.** @param stdClass $assessment the assessment* @param stdClass $data the assessment data to be updated* @param bool $cansetassessmentweight whether the user can change the assessment weight* @param bool $canoverridegrades whether the user can override the assessment grades* @return void* @since Moodle 3.4*/public function evaluate_assessment($assessment, $data, $cansetassessmentweight, $canoverridegrades) {global $DB, $USER;$data = file_postupdate_standard_editor($data, 'feedbackreviewer', array(), $this->context);$record = new stdclass();$record->id = $assessment->id;if ($cansetassessmentweight) {$record->weight = $data->weight;}if ($canoverridegrades) {$record->gradinggradeover = $this->raw_grade_value($data->gradinggradeover, $this->gradinggrade);$record->gradinggradeoverby = $USER->id;$record->feedbackreviewer = $data->feedbackreviewer;$record->feedbackreviewerformat = $data->feedbackreviewerformat;}$DB->update_record('workshop_assessments', $record);}/*** Trigger submission viewed event.** @param stdClass $submission submission object* @since Moodle 3.4*/public function set_submission_viewed($submission) {$params = array('objectid' => $submission->id,'context' => $this->context,'courseid' => $this->course->id,'relateduserid' => $submission->authorid,'other' => array('workshopid' => $this->id));$event = \mod_workshop\event\submission_viewed::create($params);$event->trigger();}/*** Evaluates a submission.** @param stdClass $submission the submission* @param stdClass $data the submission data to be updated* @param bool $canpublish whether the user can publish the submission* @param bool $canoverride whether the user can override the submission grade* @return void* @since Moodle 3.4*/public function evaluate_submission($submission, $data, $canpublish, $canoverride) {global $DB, $USER;$data = file_postupdate_standard_editor($data, 'feedbackauthor', array(), $this->context);$record = new stdclass();$record->id = $submission->id;if ($canoverride) {$record->gradeover = $this->raw_grade_value($data->gradeover, $this->grade);$record->gradeoverby = $USER->id;$record->feedbackauthor = $data->feedbackauthor;$record->feedbackauthorformat = $data->feedbackauthorformat;}if ($canpublish) {$record->published = !empty($data->published);}$DB->update_record('workshop_submissions', $record);}/*** Get the initial first name.** @return string|null initial of first name we are currently filtering by.*/public function get_initial_first(): ?string {if (empty($this->initialbarprefs['i_first'])) {return null;}return $this->initialbarprefs['i_first'];}/*** Get the initial last name.** @return string|null initial of last name we are currently filtering by.*/public function get_initial_last(): ?string {if (empty($this->initialbarprefs['i_last'])) {return null;}return $this->initialbarprefs['i_last'];}/*** Init method for initial bars.* @return void*/public function init_initial_bar(): void {global $SESSION;if ($this->phase === self::PHASE_SETUP) {return;}$ifirst = optional_param('ifirst', null, PARAM_NOTAGS);$ilast = optional_param('ilast', null, PARAM_NOTAGS);if (empty($SESSION->mod_workshop->initialbarprefs['id-'.$this->context->id])) {$SESSION->mod_workshop = new stdClass();$SESSION->mod_workshop->initialbarprefs['id-'.$this->context->id] = [];}if (!empty($SESSION->mod_workshop->initialbarprefs['id-'.$this->context->id]['i_first'])) {$this->initialbarprefs['i_first'] = $SESSION->mod_workshop->initialbarprefs['id-'.$this->context->id]['i_first'];}if (!empty($SESSION->mod_workshop->initialbarprefs['id-'.$this->context->id]['i_last'])) {$this->initialbarprefs['i_last'] = $SESSION->mod_workshop->initialbarprefs['id-'.$this->context->id]['i_last'];}if (!is_null($ifirst)) {$this->initialbarprefs['i_first'] = $ifirst;$SESSION->mod_workshop->initialbarprefs['id-'.$this->context->id]['i_first'] = $ifirst;}if (!is_null($ilast)) {$this->initialbarprefs['i_last'] = $ilast;$SESSION->mod_workshop->initialbarprefs['id-'.$this->context->id]['i_last'] = $ilast;}}////////////////////////////////////////////////////////////////////////////////// Internal methods (implementation details) ///////////////////////////////////////////////////////////////////////////////////*** Given an array of all assessments of a single submission, calculates the final grade for this submission** This calculates the weighted mean of the passed assessment grades. If, however, the submission grade* was overridden by a teacher, the gradeover value is returned and the rest of grades are ignored.** @param array $assessments of stdclass(->submissionid ->submissiongrade ->gradeover ->weight ->grade)* @return void*/protected function aggregate_submission_grades_process(array $assessments) {global $DB;$submissionid = null; // the id of the submission being processed$current = null; // the grade currently saved in database$finalgrade = null; // the new grade to be calculated$sumgrades = 0;$sumweights = 0;foreach ($assessments as $assessment) {if (is_null($submissionid)) {// the id is the same in all records, fetch it during the first loop cycle$submissionid = $assessment->submissionid;}if (is_null($current)) {// the currently saved grade is the same in all records, fetch it during the first loop cycle$current = $assessment->submissiongrade;}if (is_null($assessment->grade)) {// this was not assessed yetcontinue;}if ($assessment->weight == 0) {// this does not influence the calculationcontinue;}$sumgrades += $assessment->grade * $assessment->weight;$sumweights += $assessment->weight;}if ($sumweights > 0 and is_null($finalgrade)) {$finalgrade = grade_floatval($sumgrades / $sumweights);}// check if the new final grade differs from the one stored in the databaseif (grade_floats_different($finalgrade, $current)) {// we need to save new calculation into the database$record = new stdclass();$record->id = $submissionid;$record->grade = $finalgrade;$record->timegraded = time();$DB->update_record('workshop_submissions', $record);}}/*** Given an array of all assessments done by a single reviewer, calculates the final grading grade** This calculates the simple mean of the passed grading grades. If, however, the grading grade* was overridden by a teacher, the gradinggradeover value is returned and the rest of grades are ignored.** @param array $assessments of stdclass(->reviewerid ->gradinggrade ->gradinggradeover ->aggregationid ->aggregatedgrade)* @param null|int $timegraded explicit timestamp of the aggregation, defaults to the current time* @return void*/protected function aggregate_grading_grades_process(array $assessments, $timegraded = null) {global $DB;$reviewerid = null; // the id of the reviewer being processed$current = null; // the gradinggrade currently saved in database$finalgrade = null; // the new grade to be calculated$agid = null; // aggregation id$sumgrades = 0;$count = 0;if (is_null($timegraded)) {$timegraded = time();}foreach ($assessments as $assessment) {if (is_null($reviewerid)) {// the id is the same in all records, fetch it during the first loop cycle$reviewerid = $assessment->reviewerid;}if (is_null($agid)) {// the id is the same in all records, fetch it during the first loop cycle$agid = $assessment->aggregationid;}if (is_null($current)) {// the currently saved grade is the same in all records, fetch it during the first loop cycle$current = $assessment->aggregatedgrade;}if (!is_null($assessment->gradinggradeover)) {// the grading grade for this assessment is overridden by a teacher$sumgrades += $assessment->gradinggradeover;$count++;} else {if (!is_null($assessment->gradinggrade)) {$sumgrades += $assessment->gradinggrade;$count++;}}}if ($count > 0) {$finalgrade = grade_floatval($sumgrades / $count);}// Event information.$params = array('context' => $this->context,'courseid' => $this->course->id,'relateduserid' => $reviewerid);// check if the new final grade differs from the one stored in the databaseif (grade_floats_different($finalgrade, $current)) {$params['other'] = array('currentgrade' => $current,'finalgrade' => $finalgrade);// we need to save new calculation into the databaseif (is_null($agid)) {// no aggregation record yet$record = new stdclass();$record->workshopid = $this->id;$record->userid = $reviewerid;$record->gradinggrade = $finalgrade;$record->timegraded = $timegraded;$record->id = $DB->insert_record('workshop_aggregations', $record);$params['objectid'] = $record->id;$event = \mod_workshop\event\assessment_evaluated::create($params);$event->trigger();} else {$record = new stdclass();$record->id = $agid;$record->gradinggrade = $finalgrade;$record->timegraded = $timegraded;$DB->update_record('workshop_aggregations', $record);$params['objectid'] = $agid;$event = \mod_workshop\event\assessment_reevaluated::create($params);$event->trigger();}}}/*** Returns SQL to fetch all enrolled users with the given capability in the current workshop** The returned array consists of string $sql and the $params array. Note that the $sql can be* empty if a grouping is selected and it has no groups.** The list is automatically restricted according to any availability restrictions* that apply to user lists (e.g. group, grouping restrictions).** @param string $capability the name of the capability* @param bool $musthavesubmission ff true, return only users who have already submitted* @param int $groupid 0 means ignore groups, any other value limits the result by group id* @return array of (string)sql, (array)params*/protected function get_users_with_capability_sql($capability, $musthavesubmission, $groupid) {global $CFG;/** @var int static counter used to generate unique parameter holders */static $inc = 0;$inc++;// If the caller requests all groups and we are using a selected grouping,// recursively call this function for each group in the grouping (this is// needed because get_enrolled_sql only supports a single group).if (empty($groupid) and $this->cm->groupingid) {$groupingid = $this->cm->groupingid;$groupinggroupids = array_keys(groups_get_all_groups($this->cm->course, 0, $this->cm->groupingid, 'g.id'));$sql = array();$params = array();foreach ($groupinggroupids as $groupinggroupid) {if ($groupinggroupid > 0) { // just in case in order not to fall into the endless looplist($gsql, $gparams) = $this->get_users_with_capability_sql($capability, $musthavesubmission, $groupinggroupid);$sql[] = $gsql;$params = array_merge($params, $gparams);}}$sql = implode(PHP_EOL." UNION ".PHP_EOL, $sql);return array($sql, $params);}list($esql, $params) = get_enrolled_sql($this->context, $capability, $groupid, true);$userfieldsapi = \core_user\fields::for_userpic();$userfields = $userfieldsapi->get_sql('u', false, '', '', false)->selects;$sql = "SELECT $userfieldsFROM {user} uJOIN ($esql) je ON (je.id = u.id AND u.deleted = 0) ";if ($musthavesubmission) {$sql .= " JOIN {workshop_submissions} ws ON (ws.authorid = u.id AND ws.example = 0 AND ws.workshopid = :workshopid{$inc}) ";$params['workshopid'.$inc] = $this->id;}// If the activity is restricted so that only certain users should appear// in user lists, integrate this into the same SQL.$info = new \core_availability\info_module($this->cm);list ($listsql, $listparams) = $info->get_user_list_sql(false);if ($listsql) {$sql .= " JOIN ($listsql) restricted ON restricted.id = u.id ";$params = array_merge($params, $listparams);}return array($sql, $params);}/*** Returns SQL to fetch all enrolled users with the first name or last name.** @return array*/protected function get_users_with_initial_filtering_sql_where(): array {global $DB;$conditions = [];$params = [];$ifirst = $this->get_initial_first();$ilast = $this->get_initial_last();if ($ifirst) {$conditions[] = $DB->sql_like('LOWER(tmp.firstname)', ':i_first' , false, false);$params['i_first'] = $DB->sql_like_escape($ifirst) . '%';}if ($ilast) {$conditions[] = $DB->sql_like('LOWER(tmp.lastname)', ':i_last' , false, false);$params['i_last'] = $DB->sql_like_escape($ilast) . '%';}return [implode(" AND ", $conditions), $params];}/*** Returns SQL statement that can be used to fetch all actively enrolled participants in the workshop** @param bool $musthavesubmission if true, return only users who have already submitted* @param int $groupid 0 means ignore groups, any other value limits the result by group id* @return array of (string)sql, (array)params*/protected function get_participants_sql($musthavesubmission=false, $groupid=0) {list($sql1, $params1) = $this->get_users_with_capability_sql('mod/workshop:submit', $musthavesubmission, $groupid);list($sql2, $params2) = $this->get_users_with_capability_sql('mod/workshop:peerassess', $musthavesubmission, $groupid);if (empty($sql1) or empty($sql2)) {if (empty($sql1) and empty($sql2)) {return array('', array());} else if (empty($sql1)) {$sql = $sql2;$params = $params2;} else {$sql = $sql1;$params = $params1;}} else {$sql = $sql1.PHP_EOL." UNION ".PHP_EOL.$sql2;$params = array_merge($params1, $params2);}return array($sql, $params);}/*** @return array of available workshop phases*/protected function available_phases_list() {return array(self::PHASE_SETUP => true,self::PHASE_SUBMISSION => true,self::PHASE_ASSESSMENT => true,self::PHASE_EVALUATION => true,self::PHASE_CLOSED => true,);}/*** Converts absolute URL to relative URL needed by {@see add_to_log()}** @param moodle_url $url absolute URL* @return string*/protected function log_convert_url(moodle_url $fullurl) {static $baseurl;if (!isset($baseurl)) {$baseurl = new moodle_url('/mod/workshop/');$baseurl = $baseurl->out();}return substr($fullurl->out(), strlen($baseurl));}/*** Removes all user data related to assessments (including allocations).** This includes assessments of example submissions as long as they are not* referential assessments.** @param stdClass $data The actual course reset settings.* @return bool|string True on success, error message otherwise.*/protected function reset_userdata_assessments(stdClass $data) {global $DB;$sql = "SELECT a.idFROM {workshop_assessments} aJOIN {workshop_submissions} s ON (a.submissionid = s.id)WHERE s.workshopid = :workshopidAND (s.example = 0 OR (s.example = 1 AND a.weight = 0))";$assessments = $DB->get_records_sql($sql, array('workshopid' => $this->id));$this->delete_assessment(array_keys($assessments));$DB->delete_records('workshop_aggregations', array('workshopid' => $this->id));return true;}/*** Removes all user data related to participants' submissions.** @param stdClass $data The actual course reset settings.* @return bool|string True on success, error message otherwise.*/protected function reset_userdata_submissions(stdClass $data) {global $DB;$submissions = $this->get_submissions();foreach ($submissions as $submission) {$this->delete_submission($submission);}return true;}/*** Hard set the workshop phase to the setup one.*/protected function reset_phase() {global $DB;$DB->set_field('workshop', 'phase', self::PHASE_SETUP, array('id' => $this->id));$this->phase = self::PHASE_SETUP;}}////////////////////////////////////////////////////////////////////////////////// Renderable components/////////////////////////////////////////////////////////////////////////////////*** Represents the user planner tool** Planner contains list of phases. Each phase contains list of tasks. Task is a simple object with* title, link and completed (true/false/null logic).*/class workshop_user_plan implements renderable {/** @var int id of the user this plan is for */public $userid;/** @var workshop */public $workshop;/** @var array of (stdclass)tasks */public $phases = array();/** @var null|array of example submissions to be assessed by the planner owner */protected $examples = null;/*** Prepare an individual workshop plan for the given user.** @param workshop $workshop instance* @param int $userid whom the plan is prepared for*/public function __construct(workshop $workshop, $userid) {global $DB;$this->workshop = $workshop;$this->userid = $userid;//---------------------------------------------------------// * SETUP | submission | assessment | evaluation | closed//---------------------------------------------------------$phase = new stdclass();$phase->title = get_string('phasesetup', 'workshop');$phase->tasks = array();if (has_capability('moodle/course:manageactivities', $workshop->context, $userid)) {$task = new stdclass();$task->title = get_string('taskintro', 'workshop');$task->link = $workshop->updatemod_url();$task->completed = !(trim($workshop->intro) == '');$phase->tasks['intro'] = $task;}if (has_capability('moodle/course:manageactivities', $workshop->context, $userid)) {$task = new stdclass();$task->title = get_string('taskinstructauthors', 'workshop');$task->link = $workshop->updatemod_url();$task->completed = !(trim($workshop->instructauthors) == '');$phase->tasks['instructauthors'] = $task;}if (has_capability('mod/workshop:editdimensions', $workshop->context, $userid)) {$task = new stdclass();$task->title = get_string('editassessmentform', 'workshop');$task->link = $workshop->editform_url();if ($workshop->grading_strategy_instance()->form_ready()) {$task->completed = true;} elseif ($workshop->phase > workshop::PHASE_SETUP) {$task->completed = false;}$phase->tasks['editform'] = $task;}if ($workshop->useexamples and has_capability('mod/workshop:manageexamples', $workshop->context, $userid)) {$task = new stdclass();$task->title = get_string('prepareexamples', 'workshop');if ($DB->count_records('workshop_submissions', array('example' => 1, 'workshopid' => $workshop->id)) > 0) {$task->completed = true;} elseif ($workshop->phase > workshop::PHASE_SETUP) {$task->completed = false;}$phase->tasks['prepareexamples'] = $task;}if (empty($phase->tasks) and $workshop->phase == workshop::PHASE_SETUP) {// if we are in the setup phase and there is no task (typical for students), let us// display some explanation what is going on$task = new stdclass();$task->title = get_string('undersetup', 'workshop');$task->completed = 'info';$phase->tasks['setupinfo'] = $task;}$this->phases[workshop::PHASE_SETUP] = $phase;//---------------------------------------------------------// setup | * SUBMISSION | assessment | evaluation | closed//---------------------------------------------------------$phase = new stdclass();$phase->title = get_string('phasesubmission', 'workshop');$phase->tasks = array();if (has_capability('moodle/course:manageactivities', $workshop->context, $userid)) {$task = new stdclass();$task->title = get_string('taskinstructreviewers', 'workshop');$task->link = $workshop->updatemod_url();if (trim($workshop->instructreviewers)) {$task->completed = true;} elseif ($workshop->phase >= workshop::PHASE_ASSESSMENT) {$task->completed = false;}$phase->tasks['instructreviewers'] = $task;}if ($workshop->useexamples and $workshop->examplesmode == workshop::EXAMPLES_BEFORE_SUBMISSIONand has_capability('mod/workshop:submit', $workshop->context, $userid, false)and !has_capability('mod/workshop:manageexamples', $workshop->context, $userid)) {$task = new stdclass();$task->title = get_string('exampleassesstask', 'workshop');$examples = $this->get_examples();$a = new stdclass();$a->expected = count($examples);$a->assessed = 0;foreach ($examples as $exampleid => $example) {if (!is_null($example->grade)) {$a->assessed++;}}$task->details = get_string('exampleassesstaskdetails', 'workshop', $a);if ($a->assessed == $a->expected) {$task->completed = true;} elseif ($workshop->phase >= workshop::PHASE_ASSESSMENT) {$task->completed = false;}$phase->tasks['examples'] = $task;}if (has_capability('mod/workshop:submit', $workshop->context, $userid, false)) {$task = new stdclass();$task->title = get_string('tasksubmit', 'workshop');$task->link = $workshop->submission_url();if ($DB->record_exists('workshop_submissions', array('workshopid'=>$workshop->id, 'example'=>0, 'authorid'=>$userid))) {$task->completed = true;} elseif ($workshop->phase >= workshop::PHASE_ASSESSMENT) {$task->completed = false;} else {$task->completed = null; // still has a chance to submit}$phase->tasks['submit'] = $task;}if (has_capability('mod/workshop:allocate', $workshop->context, $userid)) {if ($workshop->phaseswitchassessment) {$task = new stdClass();$allocator = $DB->get_record('workshopallocation_scheduled', array('workshopid' => $workshop->id));if (empty($allocator)) {$task->completed = false;} else if ($allocator->enabled and is_null($allocator->resultstatus)) {$task->completed = true;} else if ($workshop->submissionend > time()) {$task->completed = null;} else {$task->completed = false;}$task->title = get_string('setup', 'workshopallocation_scheduled');$task->link = $workshop->allocation_url('scheduled');$phase->tasks['allocatescheduled'] = $task;}$task = new stdclass();$task->title = get_string('allocate', 'workshop');$task->link = $workshop->allocation_url();$numofauthors = $workshop->count_potential_authors(false);$numofsubmissions = $DB->count_records('workshop_submissions', array('workshopid'=>$workshop->id, 'example'=>0));$sql = 'SELECT COUNT(s.id) AS nonallocatedFROM {workshop_submissions} sLEFT JOIN {workshop_assessments} a ON (a.submissionid=s.id)WHERE s.workshopid = :workshopid AND s.example=0 AND a.submissionid IS NULL';$params['workshopid'] = $workshop->id;$numnonallocated = $DB->count_records_sql($sql, $params);if ($numofsubmissions == 0) {$task->completed = null;} elseif ($numnonallocated == 0) {$task->completed = true;} elseif ($workshop->phase > workshop::PHASE_SUBMISSION) {$task->completed = false;} else {$task->completed = null; // still has a chance to allocate}$a = new stdclass();$a->expected = $numofauthors;$a->submitted = $numofsubmissions;$a->allocate = $numnonallocated;$task->details = get_string('allocatedetails', 'workshop', $a);unset($a);$phase->tasks['allocate'] = $task;if ($numofsubmissions < $numofauthors and $workshop->phase >= workshop::PHASE_SUBMISSION) {$task = new stdclass();$task->title = get_string('someuserswosubmission', 'workshop');$task->completed = 'info';$phase->tasks['allocateinfo'] = $task;}}if ($workshop->submissionstart) {$task = new stdclass();$task->title = get_string('submissionstartdatetime', 'workshop', workshop::timestamp_formats($workshop->submissionstart));$task->completed = 'info';$phase->tasks['submissionstartdatetime'] = $task;}if ($workshop->submissionend) {$task = new stdclass();$task->title = get_string('submissionenddatetime', 'workshop', workshop::timestamp_formats($workshop->submissionend));$task->completed = 'info';$phase->tasks['submissionenddatetime'] = $task;}if (($workshop->submissionstart < time()) and $workshop->latesubmissions) {// If submission deadline has passed and late submissions are allowed, only display 'latesubmissionsallowed' text to// users (students) who have not submitted and users(teachers, admins) who can switch pahase..if (has_capability('mod/workshop:switchphase', $workshop->context, $userid) ||(!$workshop->get_submission_by_author($userid) && $workshop->submissionend < time())) {$task = new stdclass();$task->title = get_string('latesubmissionsallowed', 'workshop');$task->completed = 'info';$phase->tasks['latesubmissionsallowed'] = $task;}}if (isset($phase->tasks['submissionstartdatetime']) or isset($phase->tasks['submissionenddatetime'])) {if (has_capability('mod/workshop:ignoredeadlines', $workshop->context, $userid)) {$task = new stdclass();$task->title = get_string('deadlinesignored', 'workshop');$task->completed = 'info';$phase->tasks['deadlinesignored'] = $task;}}$this->phases[workshop::PHASE_SUBMISSION] = $phase;//---------------------------------------------------------// setup | submission | * ASSESSMENT | evaluation | closed//---------------------------------------------------------$phase = new stdclass();$phase->title = get_string('phaseassessment', 'workshop');$phase->tasks = array();$phase->isreviewer = has_capability('mod/workshop:peerassess', $workshop->context, $userid);if ($workshop->phase == workshop::PHASE_SUBMISSION and $workshop->phaseswitchassessmentand has_capability('mod/workshop:switchphase', $workshop->context, $userid)) {$task = new stdClass();$task->title = get_string('switchphase30auto', 'mod_workshop', workshop::timestamp_formats($workshop->submissionend));$task->completed = 'info';$phase->tasks['autoswitchinfo'] = $task;}if ($workshop->useexamples and $workshop->examplesmode == workshop::EXAMPLES_BEFORE_ASSESSMENTand $phase->isreviewer and !has_capability('mod/workshop:manageexamples', $workshop->context, $userid)) {$task = new stdclass();$task->title = get_string('exampleassesstask', 'workshop');$examples = $workshop->get_examples_for_reviewer($userid);$a = new stdclass();$a->expected = count($examples);$a->assessed = 0;foreach ($examples as $exampleid => $example) {if (!is_null($example->grade)) {$a->assessed++;}}$task->details = get_string('exampleassesstaskdetails', 'workshop', $a);if ($a->assessed == $a->expected) {$task->completed = true;} elseif ($workshop->phase > workshop::PHASE_ASSESSMENT) {$task->completed = false;}$phase->tasks['examples'] = $task;}if (empty($phase->tasks['examples']) or !empty($phase->tasks['examples']->completed)) {$phase->assessments = $workshop->get_assessments_by_reviewer($userid);$numofpeers = 0; // number of allocated peer-assessments$numofpeerstodo = 0; // number of peer-assessments to do$numofself = 0; // number of allocated self-assessments - should be 0 or 1$numofselftodo = 0; // number of self-assessments to do - should be 0 or 1foreach ($phase->assessments as $a) {if ($a->authorid == $userid) {$numofself++;if (is_null($a->grade)) {$numofselftodo++;}} else {$numofpeers++;if (is_null($a->grade)) {$numofpeerstodo++;}}}unset($a);if ($numofpeers) {$task = new stdclass();if ($numofpeerstodo == 0) {$task->completed = true;} elseif ($workshop->phase > workshop::PHASE_ASSESSMENT) {$task->completed = false;}$a = new stdclass();$a->total = $numofpeers;$a->todo = $numofpeerstodo;$task->title = get_string('taskassesspeers', 'workshop');$task->details = get_string('taskassesspeersdetails', 'workshop', $a);unset($a);$phase->tasks['assesspeers'] = $task;}if ($workshop->useselfassessment and $numofself) {$task = new stdclass();if ($numofselftodo == 0) {$task->completed = true;} elseif ($workshop->phase > workshop::PHASE_ASSESSMENT) {$task->completed = false;}$task->title = get_string('taskassessself', 'workshop');$phase->tasks['assessself'] = $task;}}if ($workshop->assessmentstart) {$task = new stdclass();$task->title = get_string('assessmentstartdatetime', 'workshop', workshop::timestamp_formats($workshop->assessmentstart));$task->completed = 'info';$phase->tasks['assessmentstartdatetime'] = $task;}if ($workshop->assessmentend) {$task = new stdclass();$task->title = get_string('assessmentenddatetime', 'workshop', workshop::timestamp_formats($workshop->assessmentend));$task->completed = 'info';$phase->tasks['assessmentenddatetime'] = $task;}if (isset($phase->tasks['assessmentstartdatetime']) or isset($phase->tasks['assessmentenddatetime'])) {if (has_capability('mod/workshop:ignoredeadlines', $workshop->context, $userid)) {$task = new stdclass();$task->title = get_string('deadlinesignored', 'workshop');$task->completed = 'info';$phase->tasks['deadlinesignored'] = $task;}}$this->phases[workshop::PHASE_ASSESSMENT] = $phase;//---------------------------------------------------------// setup | submission | assessment | * EVALUATION | closed//---------------------------------------------------------$phase = new stdclass();$phase->title = get_string('phaseevaluation', 'workshop');$phase->tasks = array();if (has_capability('mod/workshop:overridegrades', $workshop->context)) {$expected = $workshop->count_potential_authors(false);$calculated = $DB->count_records_select('workshop_submissions','workshopid = ? AND (grade IS NOT NULL OR gradeover IS NOT NULL)', array($workshop->id));$task = new stdclass();$task->title = get_string('calculatesubmissiongrades', 'workshop');$a = new stdclass();$a->expected = $expected;$a->calculated = $calculated;$task->details = get_string('calculatesubmissiongradesdetails', 'workshop', $a);if ($calculated >= $expected) {$task->completed = true;} elseif ($workshop->phase > workshop::PHASE_EVALUATION) {$task->completed = false;}$phase->tasks['calculatesubmissiongrade'] = $task;$expected = $workshop->count_potential_reviewers(false);$calculated = $DB->count_records_select('workshop_aggregations','workshopid = ? AND gradinggrade IS NOT NULL', array($workshop->id));$task = new stdclass();$task->title = get_string('calculategradinggrades', 'workshop');$a = new stdclass();$a->expected = $expected;$a->calculated = $calculated;$task->details = get_string('calculategradinggradesdetails', 'workshop', $a);if ($calculated >= $expected) {$task->completed = true;} elseif ($workshop->phase > workshop::PHASE_EVALUATION) {$task->completed = false;}$phase->tasks['calculategradinggrade'] = $task;} elseif ($workshop->phase == workshop::PHASE_EVALUATION) {$task = new stdclass();$task->title = get_string('evaluategradeswait', 'workshop');$task->completed = 'info';$phase->tasks['evaluateinfo'] = $task;}if (has_capability('moodle/course:manageactivities', $workshop->context, $userid)) {$task = new stdclass();$task->title = get_string('taskconclusion', 'workshop');$task->link = $workshop->updatemod_url();if (trim($workshop->conclusion)) {$task->completed = true;} elseif ($workshop->phase >= workshop::PHASE_EVALUATION) {$task->completed = false;}$phase->tasks['conclusion'] = $task;}$this->phases[workshop::PHASE_EVALUATION] = $phase;//---------------------------------------------------------// setup | submission | assessment | evaluation | * CLOSED//---------------------------------------------------------$phase = new stdclass();$phase->title = get_string('phaseclosed', 'workshop');$phase->tasks = array();$this->phases[workshop::PHASE_CLOSED] = $phase;// Polish data, set default values if not done explicitlyforeach ($this->phases as $phasecode => $phase) {$phase->title = isset($phase->title) ? $phase->title : '';$phase->tasks = isset($phase->tasks) ? $phase->tasks : array();if ($phasecode == $workshop->phase) {$phase->active = true;} else {$phase->active = false;}if (!isset($phase->actions)) {$phase->actions = array();}foreach ($phase->tasks as $taskcode => $task) {$task->title = isset($task->title) ? $task->title : '';$task->link = isset($task->link) ? $task->link : null;$task->details = isset($task->details) ? $task->details : '';$task->completed = isset($task->completed) ? $task->completed : null;}}// Add phase switching actions.if (has_capability('mod/workshop:switchphase', $workshop->context, $userid)) {$nextphases = array(workshop::PHASE_SETUP => workshop::PHASE_SUBMISSION,workshop::PHASE_SUBMISSION => workshop::PHASE_ASSESSMENT,workshop::PHASE_ASSESSMENT => workshop::PHASE_EVALUATION,workshop::PHASE_EVALUATION => workshop::PHASE_CLOSED,);foreach ($this->phases as $phasecode => $phase) {if ($phase->active) {if (isset($nextphases[$workshop->phase])) {$task = new stdClass();$task->title = get_string('switchphasenext', 'mod_workshop');$task->link = $workshop->switchphase_url($nextphases[$workshop->phase]);$task->details = '';$task->completed = null;$phase->tasks['switchtonextphase'] = $task;}} else {$action = new stdclass();$action->type = 'switchphase';$action->url = $workshop->switchphase_url($phasecode);$phase->actions[] = $action;}}}}/*** Returns example submissions to be assessed by the owner of the planner** This is here to cache the DB query because the same list is needed later in view.php** @see workshop::get_examples_for_reviewer() for the format of returned value* @return array*/public function get_examples() {if (is_null($this->examples)) {$this->examples = $this->workshop->get_examples_for_reviewer($this->userid);}return $this->examples;}}/*** Common base class for submissions and example submissions rendering** Subclasses of this class convert raw submission record from* workshop_submissions table (as returned by {@see workshop::get_submission_by_id()}* for example) into renderable objects.*/abstract class workshop_submission_base {/** @var bool is the submission anonymous (i.e. contains author information) */protected $anonymous;/* @var array of columns from workshop_submissions that are assigned as properties */protected $fields = array();/** @var workshop */protected $workshop;/*** Copies the properties of the given database record into properties of $this instance** @param workshop $workshop* @param stdClass $submission full record* @param bool $showauthor show the author-related information* @param array $options additional properties*/public function __construct(workshop $workshop, stdClass $submission, $showauthor = false) {$this->workshop = $workshop;foreach ($this->fields as $field) {if (!property_exists($submission, $field)) {throw new coding_exception('Submission record must provide public property ' . $field);}if (!property_exists($this, $field)) {throw new coding_exception('Renderable component must accept public property ' . $field);}$this->{$field} = $submission->{$field};}if ($showauthor) {$this->anonymous = false;} else {$this->anonymize();}}/*** Unsets all author-related properties so that the renderer does not have access to them** Usually this is called by the contructor but can be called explicitely, too.*/public function anonymize() {$authorfields = explode(',', implode(',', \core_user\fields::get_picture_fields()));foreach ($authorfields as $field) {$prefixedusernamefield = 'author' . $field;unset($this->{$prefixedusernamefield});}$this->anonymous = true;}/*** Does the submission object contain author-related information?** @return null|boolean*/public function is_anonymous() {return $this->anonymous;}}/*** Renderable object containing a basic set of information needed to display the submission summary** @see workshop_renderer::render_workshop_submission_summary*/class workshop_submission_summary extends workshop_submission_base implements renderable {/** @var int */public $id;/** @var string */public $title;/** @var string graded|notgraded */public $status;/** @var int */public $timecreated;/** @var int */public $timemodified;/** @var int */public $authorid;/** @var string */public $authorfirstname;/** @var string */public $authorlastname;/** @var string */public $authorfirstnamephonetic;/** @var string */public $authorlastnamephonetic;/** @var string */public $authormiddlename;/** @var string */public $authoralternatename;/** @var int */public $authorpicture;/** @var string */public $authorimagealt;/** @var string */public $authoremail;/** @var moodle_url to display submission */public $url;/*** @var array of columns from workshop_submissions that are assigned as properties* of instances of this class*/protected $fields = array('id', 'title', 'timecreated', 'timemodified','authorid', 'authorfirstname', 'authorlastname', 'authorfirstnamephonetic', 'authorlastnamephonetic','authormiddlename', 'authoralternatename', 'authorpicture','authorimagealt', 'authoremail');}/*** Renderable object containing all the information needed to display the submission** @see workshop_renderer::render_workshop_submission()*/class workshop_submission extends workshop_submission_summary implements renderable {/** @var string */public $content;/** @var int */public $contentformat;/** @var bool */public $contenttrust;/** @var array */public $attachment;/*** @var array of columns from workshop_submissions that are assigned as properties* of instances of this class*/protected $fields = array('id', 'title', 'timecreated', 'timemodified', 'content', 'contentformat', 'contenttrust','attachment', 'authorid', 'authorfirstname', 'authorlastname', 'authorfirstnamephonetic', 'authorlastnamephonetic','authormiddlename', 'authoralternatename', 'authorpicture', 'authorimagealt', 'authoremail');}/*** Renderable object containing a basic set of information needed to display the example submission summary** @see workshop::prepare_example_summary()* @see workshop_renderer::render_workshop_example_submission_summary()*/class workshop_example_submission_summary extends workshop_submission_base implements renderable {/** @var int */public $id;/** @var string */public $title;/** @var string graded|notgraded */public $status;/** @var stdClass */public $gradeinfo;/** @var moodle_url */public $url;/** @var moodle_url */public $editurl;/** @var string */public $assesslabel;/** @var moodle_url */public $assessurl;/** @var bool must be set explicitly by the caller */public $editable = false;/*** @var array of columns from workshop_submissions that are assigned as properties* of instances of this class*/protected $fields = array('id', 'title');/*** Example submissions are always anonymous** @return true*/public function is_anonymous() {return true;}}/*** Renderable object containing all the information needed to display the example submission** @see workshop_renderer::render_workshop_example_submission()*/class workshop_example_submission extends workshop_example_submission_summary implements renderable {/** @var string */public $content;/** @var int */public $contentformat;/** @var bool */public $contenttrust;/** @var array */public $attachment;/*** @var array of columns from workshop_submissions that are assigned as properties* of instances of this class*/protected $fields = array('id', 'title', 'content', 'contentformat', 'contenttrust', 'attachment');}/*** Common base class for assessments rendering** Subclasses of this class convert raw assessment record from* workshop_assessments table (as returned by {@see workshop::get_assessment_by_id()}* for example) into renderable objects.*/abstract class workshop_assessment_base {/** @var string the optional title of the assessment */public $title = '';/** @var workshop_assessment_form $form as returned by {@link workshop_strategy::get_assessment_form()} */public $form;/** @var moodle_url */public $url;/** @var float|null the real received grade */public $realgrade = null;/** @var float the real maximum grade */public $maxgrade;/** @var stdClass|null reviewer user info */public $reviewer = null;/** @var stdClass|null assessed submission's author user info */public $author = null;/** @var array of actions */public $actions = array();/* @var array of columns that are assigned as properties */protected $fields = array();/** @var workshop */public $workshop;/*** Copies the properties of the given database record into properties of $this instance** The $options keys are: showreviewer, showauthor* @param workshop $workshop* @param stdClass $assessment full record* @param array $options additional properties*/public function __construct(workshop $workshop, stdClass $record, array $options = array()) {$this->workshop = $workshop;$this->validate_raw_record($record);foreach ($this->fields as $field) {if (!property_exists($record, $field)) {throw new coding_exception('Assessment record must provide public property ' . $field);}if (!property_exists($this, $field)) {throw new coding_exception('Renderable component must accept public property ' . $field);}$this->{$field} = $record->{$field};}if (!empty($options['showreviewer'])) {$this->reviewer = user_picture::unalias($record, null, 'revieweridx', 'reviewer');}if (!empty($options['showauthor'])) {$this->author = user_picture::unalias($record, null, 'authorid', 'author');}}/*** Adds a new action** @param moodle_url $url action URL* @param string $label action label* @param string $method get|post*/public function add_action(moodle_url $url, $label, $method = 'get') {$action = new stdClass();$action->url = $url;$action->label = $label;$action->method = $method;$this->actions[] = $action;}/*** Makes sure that we can cook the renderable component from the passed raw database record** @param stdClass $assessment full assessment record* @throws coding_exception if the caller passed unexpected data*/protected function validate_raw_record(stdClass $record) {// nothing to do here}}/*** Represents a rendarable full assessment*/class workshop_assessment extends workshop_assessment_base implements renderable {/** @var int */public $id;/** @var int */public $submissionid;/** @var int */public $weight;/** @var int */public $timecreated;/** @var int */public $timemodified;/** @var float */public $grade;/** @var float */public $gradinggrade;/** @var float */public $gradinggradeover;/** @var string */public $feedbackauthor;/** @var int */public $feedbackauthorformat;/** @var int */public $feedbackauthorattachment;/** @var array */protected $fields = array('id', 'submissionid', 'weight', 'timecreated','timemodified', 'grade', 'gradinggrade', 'gradinggradeover', 'feedbackauthor','feedbackauthorformat', 'feedbackauthorattachment');/*** Format the overall feedback text content** False is returned if the overall feedback feature is disabled. Null is returned* if the overall feedback content has not been found. Otherwise, string with* formatted feedback text is returned.** @return string|bool|null*/public function get_overall_feedback_content() {if ($this->workshop->overallfeedbackmode == 0) {return false;}if (trim($this->feedbackauthor) === '') {return null;}$content = file_rewrite_pluginfile_urls($this->feedbackauthor, 'pluginfile.php', $this->workshop->context->id,'mod_workshop', 'overallfeedback_content', $this->id);$content = format_text($content, $this->feedbackauthorformat,array('overflowdiv' => true, 'context' => $this->workshop->context));return $content;}/*** Prepares the list of overall feedback attachments** Returns false if overall feedback attachments are not allowed. Otherwise returns* list of attachments (may be empty).** @return bool|array of stdClass*/public function get_overall_feedback_attachments() {if ($this->workshop->overallfeedbackmode == 0) {return false;}if ($this->workshop->overallfeedbackfiles == 0) {return false;}if (empty($this->feedbackauthorattachment)) {return array();}$attachments = array();$fs = get_file_storage();$files = $fs->get_area_files($this->workshop->context->id, 'mod_workshop', 'overallfeedback_attachment', $this->id);foreach ($files as $file) {if ($file->is_directory()) {continue;}$filepath = $file->get_filepath();$filename = $file->get_filename();$fileurl = moodle_url::make_pluginfile_url($this->workshop->context->id, 'mod_workshop','overallfeedback_attachment', $this->id, $filepath, $filename, true);$previewurl = new moodle_url(moodle_url::make_pluginfile_url($this->workshop->context->id, 'mod_workshop','overallfeedback_attachment', $this->id, $filepath, $filename, false), array('preview' => 'bigthumb'));$attachments[] = (object)array('filepath' => $filepath,'filename' => $filename,'fileurl' => $fileurl,'previewurl' => $previewurl,'mimetype' => $file->get_mimetype(),);}return $attachments;}}/*** Represents a renderable training assessment of an example submission*/class workshop_example_assessment extends workshop_assessment implements renderable {/*** @see parent::validate_raw_record()*/protected function validate_raw_record(stdClass $record) {if ($record->weight != 0) {throw new coding_exception('Invalid weight of example submission assessment');}parent::validate_raw_record($record);}}/*** Represents a renderable reference assessment of an example submission*/class workshop_example_reference_assessment extends workshop_assessment implements renderable {/*** @see parent::validate_raw_record()*/protected function validate_raw_record(stdClass $record) {if ($record->weight != 1) {throw new coding_exception('Invalid weight of the reference example submission assessment');}parent::validate_raw_record($record);}}/*** Renderable message to be displayed to the user** Message can contain an optional action link with a label that is supposed to be rendered* as a button or a link.** @see workshop::renderer::render_workshop_message()*/class workshop_message implements renderable {const TYPE_INFO = 10;const TYPE_OK = 20;const TYPE_ERROR = 30;/** @var string */protected $text = '';/** @var int */protected $type = self::TYPE_INFO;/** @var moodle_url */protected $actionurl = null;/** @var string */protected $actionlabel = '';/*** @param string $text short text to be displayed* @param string $type optional message type info|ok|error*/public function __construct($text = null, $type = self::TYPE_INFO) {$this->set_text($text);$this->set_type($type);}/*** Sets the message text** @param string $text short text to be displayed*/public function set_text($text) {$this->text = $text;}/*** Sets the message type** @param int $type*/public function set_type($type = self::TYPE_INFO) {if (in_array($type, array(self::TYPE_OK, self::TYPE_ERROR, self::TYPE_INFO))) {$this->type = $type;} else {throw new coding_exception('Unknown message type.');}}/*** Sets the optional message action** @param moodle_url $url to follow on action* @param string $label action label*/public function set_action(moodle_url $url, $label) {$this->actionurl = $url;$this->actionlabel = $label;}/*** Returns message text with HTML tags quoted** @return string*/public function get_message() {return s($this->text);}/*** Returns message type** @return int*/public function get_type() {return $this->type;}/*** Returns action URL** @return moodle_url|null*/public function get_action_url() {return $this->actionurl;}/*** Returns action label** @return string*/public function get_action_label() {return $this->actionlabel;}}/*** Renderable component containing all the data needed to display the grading report*/class workshop_grading_report implements renderable {/** @var stdClass returned by {@see workshop::prepare_grading_report_data()} */protected $data;/** @var stdClass rendering options */protected $options;/*** Grades in $data must be already rounded to the set number of decimals or must be null* (in which later case, the [mod_workshop,nullgrade] string shall be displayed)** @param stdClass $data prepared by {@link workshop::prepare_grading_report_data()}* @param stdClass $options display options (showauthornames, showreviewernames, sortby, sorthow, showsubmissiongrade, showgradinggrade)*/public function __construct(stdClass $data, stdClass $options) {$this->data = $data;$this->options = $options;}/*** @return stdClass grading report data*/public function get_data() {return $this->data;}/*** @return stdClass rendering options*/public function get_options() {return $this->options;}/*** Prepare the data to be exported to a external system via Web Services.** This function applies extra capabilities checks.* @return stdClass the data ready for external systems*/public function export_data_for_external() {$data = $this->get_data();$options = $this->get_options();foreach ($data->grades as $reportdata) {// If we are in submission phase ignore the following data.if ($options->workshopphase == workshop::PHASE_SUBMISSION) {unset($reportdata->submissiongrade);unset($reportdata->gradinggrade);unset($reportdata->submissiongradeover);unset($reportdata->submissiongradeoverby);unset($reportdata->submissionpublished);unset($reportdata->reviewedby);unset($reportdata->reviewerof);continue;}if (!$options->showsubmissiongrade) {unset($reportdata->submissiongrade);unset($reportdata->submissiongradeover);}if (!$options->showgradinggrade and $tr == 0) {unset($reportdata->gradinggrade);}if (!$options->showreviewernames) {foreach ($reportdata->reviewedby as $reviewedby) {$reviewedby->userid = 0;}}if (!$options->showauthornames) {foreach ($reportdata->reviewerof as $reviewerof) {$reviewerof->userid = 0;}}}return $data;}}/*** Base class for renderable feedback for author and feedback for reviewer*/abstract class workshop_feedback {/** @var stdClass the user info */protected $provider = null;/** @var string the feedback text */protected $content = null;/** @var int format of the feedback text */protected $format = null;/*** @return stdClass the user info*/public function get_provider() {if (is_null($this->provider)) {throw new coding_exception('Feedback provider not set');}return $this->provider;}/*** @return string the feedback text*/public function get_content() {if (is_null($this->content)) {throw new coding_exception('Feedback content not set');}return $this->content;}/*** @return int format of the feedback text*/public function get_format() {if (is_null($this->format)) {throw new coding_exception('Feedback text format not set');}return $this->format;}}/*** Renderable feedback for the author of submission*/class workshop_feedback_author extends workshop_feedback implements renderable {/*** Extracts feedback from the given submission record** @param stdClass $submission record as returned by {@see self::get_submission_by_id()}*/public function __construct(stdClass $submission) {$this->provider = user_picture::unalias($submission, null, 'gradeoverbyx', 'gradeoverby');$this->content = $submission->feedbackauthor;$this->format = $submission->feedbackauthorformat;}}/*** Renderable feedback for the reviewer*/class workshop_feedback_reviewer extends workshop_feedback implements renderable {/*** Extracts feedback from the given assessment record** @param stdClass $assessment record as returned by eg {@see self::get_assessment_by_id()}*/public function __construct(stdClass $assessment) {$this->provider = user_picture::unalias($assessment, null, 'gradinggradeoverbyx', 'overby');$this->content = $assessment->feedbackreviewer;$this->format = $assessment->feedbackreviewerformat;}}/*** Holds the final grades for the activity as are stored in the gradebook*/class workshop_final_grades implements renderable {/** @var object the info from the gradebook about the grade for submission */public $submissiongrade = null;/** @var object the infor from the gradebook about the grade for assessment */public $assessmentgrade = null;}