// Extra HTML to be added at the end of the form, used for javascript functions.

private $extrascript = "";

/**

* Defines forms elements

*/

public function definition() {

global $COURSE, $DB, $CFG, $USER;

$mform = $this->_form;

$instance = $this->_customdata;

// Exam id, in case we are in editing mode.

if ($this->_instance) {

$emarking = $DB->get_record('emarking', array(

'id' => $this->_instance));

$exam = $DB->get_record("emarking_exams", array(

"emarking" => $emarking->id));

$examfilename = get_string('pdffileupdate', 'mod_emarking');

} else {

$emarking = null;

$exam = null;

$examfilename = get_string('pdffile', 'mod_emarking');

}

// Verifies that the logo image set in settings is copied to regular filearea.

emarking_verify_logo();

// Calculates context for validating permissions.

// If we have the module available, we use it, otherwise we fallback to course.

$ctx = context_course::instance($COURSE->id);

// Numbers 1 to 100. Used in pages and min and max grades.

$numbers1to100 = $this->get_numbers_1_to_n(100);

// Numbers from 0 to 2 for extra exams and sheets.

$numbers1to3 = $this->get_numbers_1_to_n(3);

// Today.

$date = new DateTime();

$date->setTimestamp(usertime(time()));

// Expected pages for submissions.

$types = $this->get_types_available($emarking);

// MARKING TYPE.

$mform->addElement('select', 'type', get_string('markingtype', 'mod_emarking'), $types,

array(

"onchange" => "show_full_form()"));

$mform->addHelpButton('type', 'markingtype', 'mod_emarking');

$mform->setType('type', PARAM_INT);

// Upload types for submissions.

$uploadtypes = $this->get_upload_types_available($emarking);

// SUBMISSION UPLOAD TYPE.

$mform->addElement('select', 'uploadtype', get_string('uploadtype', 'mod_emarking'), $uploadtypes);

$mform->addHelpButton('uploadtype', 'uploadtype', 'mod_emarking');

$mform->setType('uploadtype', PARAM_INT);

$mform->setDefault('uploadtype', EMARKING_UPLOAD_QR);

// EXAM NAME.

$mform->addElement('text', 'name', get_string('name'), array(

'size' => '64'));

$mform->setType('name', PARAM_CLEAN);

$mform->addRule('name', null, 'required', null, 'client');

$mform->addRule('name', get_string('maximumchars', '', 255), 'maxlength', 255, 'client');

$mform->addHelpButton('name', 'examname', 'mod_emarking');

// PRINT CONFIGURATION.

$mform->addElement('header', 'print', get_string("print", "mod_emarking"));

// EXAM PDF FILE(S) OR PREVIOUSLY SENT EXAM.

// Check if there are any exams with no emarking activity associated.

$this->standard_intro_elements(get_string('examinfo', 'mod_emarking'));

$mform->addElement('hidden', 'exam', $exam ? $exam->id : 0);

$mform->setType('exam', PARAM_INT);

// If we are editing.

if (! $this->_instance || ($exam && $exam->status < EMARKING_EXAM_SENT_TO_PRINT)) {

$mform->addElement('filemanager', 'exam_files', $examfilename, null,

array(

'subdirs' => 0,

'maxbytes' => 0,

'maxfiles' => 10,

'accepted_types' => array(

'.pdf'),

'return_types' => FILE_INTERNAL));

$mform->setType('exam_files', PARAM_FILE);

$mform->addHelpButton('exam_files', 'pdffile', 'mod_emarking');

// Exam date.

$examdate = $this->get_exam_date($date);

$mform->addElement('date_time_selector', 'examdate', get_string('examdate', 'mod_emarking'),

array(

'startyear' => date('Y'),

'stopyear' => date('Y') + 1,

'step' => 5,

'defaulttime' => $examdate->getTimestamp(),

'optional' => false), $instance ['options']);

$mform->addHelpButton('examdate', 'examdate', 'mod_emarking');

if(! $this->_instance) {

// IMPORT ANSWERS AND RUBRIC FROM ANOTHER EMARKING ACTIVITY.

$importoptions = $DB->get_records_select_menu('emarking',

'course = :course AND type IN (' . EMARKING_TYPE_ON_SCREEN_MARKING . ')',

array('course'=>$COURSE->id), 'name ASC', 'id, name');

if($importoptions) {

$importoptions[0] = get_string('donotimport', 'mod_emarking');

$mform->addElement('select', 'importemarking', get_string('importemarking', 'mod_emarking'), $importoptions);

$mform->addHelpButton('importemarking', 'importemarking', 'mod_emarking');

$mform->setType('importemarking', PARAM_INT);

$mform->setDefault('importemarking', 0);

$mform->disabledIf('exam_files', 'importemarking', 'neq', 0);

}

}

} else if($emarking && ($emarking->type == EMARKING_TYPE_ON_SCREEN_MARKING ||

$emarking->type == EMARKING_TYPE_PRINT_ONLY ||

$emarking->type == EMARKING_TYPE_PRINT_SCAN)) {

$mform->addElement('hidden', 'examdate', $exam->examdate);

$mform->setType('examdate', PARAM_RAW);

// Add message explaining why they can't change files or dates anymore.

$mform->addElement('static', 'examdownloaded', get_string("pdffile", "mod_emarking"),

get_string("examalreadysent", "mod_emarking"));

}

// Comment for printing.

$mform->addElement('textarea', 'comment', get_string('comment', 'mod_emarking'),

array(

'rows' => 5,

'cols' => 100,

'class' => 'smalltext'));

$mform->addHelpButton('comment', 'comment', 'mod_emarking');

$mform->setDefault('comment', '');

$mform->setType('comment', PARAM_TEXT);

// Personalized header (using QR).

$mform->addElement('checkbox', 'headerqr', get_string('headerqr', 'mod_emarking'), null, array(

'onChange' => 'check_qr();'));

$mform->setType('headerqr', PARAM_BOOL);

$mform->addHelpButton('headerqr', 'headerqr', 'mod_emarking');

$mform->setDefault('headerqr', true);

// Print students list.

$mform->addElement('checkbox', 'printlist', get_string('printlist', 'mod_emarking'));

$mform->setType('printlist', PARAM_BOOL);

$mform->addHelpButton('printlist', 'printlist', 'mod_emarking');

$mform->setAdvanced('printlist');

$mform->setDefault('printlist', false);

// Extra sheets per student.

$mform->addElement('select', 'extrasheets', get_string('extrasheets', 'mod_emarking'), $numbers1to3, null);

$mform->addHelpButton('extrasheets', 'extrasheets', 'mod_emarking');

$mform->setAdvanced('extrasheets');

// Extra students.

$mform->addElement('select', 'extraexams', get_string('extraexams', 'mod_emarking'), $numbers1to3, null);

$mform->addHelpButton('extraexams', 'extraexams', 'mod_emarking');

$mform->setAdvanced('extraexams');

// Print double sided.

$mform->addElement('checkbox', 'printdoublesided', get_string('printdoublesided', 'mod_emarking'));

$mform->setType('printdoublesided', PARAM_BOOL);

$mform->addHelpButton('printdoublesided', 'printdoublesided', 'mod_emarking');

$mform->setDefault('printdoublesided', false);

$mform->setAdvanced('printdoublesided');

// Obtain parallel courses.

if ($parallelcheckboxes = $this->get_parallel_courses_checkboxes($mform)) {

// If there's any parallel course we add the multicourse option.

$mform->addGroup($parallelcheckboxes, 'multicourse', get_string('multicourse', 'mod_emarking'),

array(

'<br/>'), true);

$mform->addHelpButton('multicourse', 'multicourse', 'mod_emarking');

$mform->setAdvanced('multicourse');

$mform->addElement('button', 'selectall', get_string('selectall', 'mod_emarking'),

array(

'onClick' => 'selectAllCheckboxes(this.form,true);'));

$mform->setAdvanced('selectall');

$mform->addElement('button', 'deselectall', get_string('selectnone', 'mod_emarking'),

array(

'onClick' => 'selectAllCheckboxes(this.form,false);'));

$mform->setAdvanced('deselectall');

$this->extrascript .= "<script>function selectAllCheckboxes(form,checked) { " .

"for (var i = 0; i < form.elements.length; i++ ) { " .

" if (form.elements[i].type == 'checkbox' && form.elements[i].id.indexOf('multicourse') > 0) { " .

" form.elements[i].checked = checked; " . " } " . "} " . "}</script>";

}

$mform->addElement('hidden', 'action', 'uploadfile');

$mform->setType('action', PARAM_ALPHA);

// Enrolment methods to include in printing.

if ($enrolcheckboxes = $this->get_enrolment_checkboxes($mform)) {

$mform->addGroup($enrolcheckboxes, 'enrolments', get_string('includeenrolments', 'mod_emarking'),

array(

'<br/>'), true);

$mform->addHelpButton('enrolments', 'enrolments', 'mod_emarking');

$mform->setAdvanced("enrolments");

}

$mform->addElement('header', 'scan', get_string('scan', "mod_emarking"));

// Due date settings.

$mform->addElement('html', '<div id="scanisenabled">' . get_string('scanisenabled', 'mod_emarking') . '</div>');

$mform->addElement('html', '<div id="osmisenabled">' . get_string('osmisenabled', 'mod_emarking') . '</div>');

// MARKERS TRAINING.

$mform->addElement('header', 'markerstraining', get_string('type_markers_training', 'mod_emarking'));

$mform->setExpanded('markerstraining');

$delphidate = new DateTime();

$delphidate->setTimestamp(usertime(time()));

$delphidate->modify("+1 week");

// Delphi agreement date settings.

$mform->addElement('date_time_selector', 'firststagedate', get_string('firststagedate', 'mod_emarking'),

array(

'startyear' => date('Y'),

'stopyear' => date('Y') + 1,

'step' => 5,

'defaulttime' => $delphidate->getTimestamp(),

'optional' => false), null);

$mform->addHelpButton('firststagedate', 'firststagedate', 'mod_emarking');

$mform->disabledIf('firststagedate', 'type', 'neq', '2');

$delphidate->modify("+1 week");

// Delphi agreement date settings.

$mform->addElement('date_time_selector', 'secondstagedate', get_string('secondstagedate', 'mod_emarking'),

array(

'startyear' => date('Y'),

'stopyear' => date('Y') + 1,

'step' => 5,

'defaulttime' => $delphidate->getTimestamp(),

'optional' => false), null);

$mform->addHelpButton('secondstagedate', 'secondstagedate', 'mod_emarking');

$mform->disabledIf('secondstagedate', 'type', 'neq', '2');

// Expected pages for submissions.

$agreements = array(

"0" => get_string('agreementflexibility00', 'mod_emarking'),

"0.2" => get_string('agreementflexibility20', 'mod_emarking'),

"0.4" => get_string('agreementflexibility40', 'mod_emarking'));

// MARKING TYPE.

$mform->addElement('select', 'agreementflexibility', get_string('agreementflexibility', 'mod_emarking'), $agreements);

$mform->addHelpButton('agreementflexibility', 'agreementflexibility', 'mod_emarking');

$mform->setType('agreementflexibility', PARAM_INT);

$mform->addElement('header', 'osm', get_string('onscreenmarking', "mod_emarking"));

// Students can see peers answers.

$ynoptions = array(

0 => get_string('no'),

1 => get_string('yespeerisanonymous', 'mod_emarking'));

$mform->addElement('select', 'peervisibility', get_string('viewpeers', 'mod_emarking'), $ynoptions);

$mform->addHelpButton('peervisibility', 'viewpeers', 'mod_emarking');

$mform->setDefault('peervisibility', 0);

$mform->setType('peervisibility', PARAM_INT);

$mform->disabledIf('peervisibility', 'type', 'eq', '2');

// Expected pages for submissions.

$mform->addElement('hidden', 'totalpages', 0);

$mform->setType('totalpages', PARAM_INT);

// Anonymous eMarking setting.

$anonymousoptions = array(

EMARKING_ANON_STUDENT => get_string('studentanonymous_markervisible', 'mod_emarking'),

EMARKING_ANON_BOTH => get_string('studentanonymous_markeranonymous', 'mod_emarking'),

EMARKING_ANON_NONE => get_string('studentvisible_markervisible', 'mod_emarking'),

EMARKING_ANON_MARKER => get_string('studentvisible_markeranonymous', 'mod_emarking'));

$mform->addElement('select', 'anonymous', get_string('anonymous', 'mod_emarking'), $anonymousoptions);

$mform->addHelpButton('anonymous', 'anonymous', 'mod_emarking');

$mform->setDefault('anonymous', 0);

$mform->setType('anonymous', PARAM_INT);

// Justice perception eMarking setting.

$justiceoptions = array(

EMARKING_JUSTICE_DISABLED => get_string('justicedisabled', 'mod_emarking'),

EMARKING_JUSTICE_PER_SUBMISSION => get_string('justicepersubmission', 'mod_emarking'),

EMARKING_JUSTICE_PER_CRITERION => get_string('justicepercriterion', 'mod_emarking'));

$mform->addElement('select', 'justiceperception', get_string('justiceperception', 'mod_emarking'), $justiceoptions);

$mform->addHelpButton('justiceperception', 'justiceperception', 'mod_emarking');

$mform->setDefault('justiceperception', 0);

$mform->setType('justiceperception', PARAM_INT);

$mform->disabledIf('justiceperception', 'type', 'eq', '2');

// Feedback

$mform->addElement('text', 'keywords', get_string('keywords', 'mod_emarking'),

array(

'size' => '64'));

$mform->addHelpButton('keywords', 'keywords', 'mod_emarking');

$mform->setDefault('keywords', 'keyword1,keyword2,sentence1');

$mform->setType('keywords', PARAM_TEXT);

$mform->disabledIf('keywords', 'type', 'eq', '2');

$mform->addElement('checkbox', 'linkrubric', get_string('linkrubric', 'mod_emarking'));

$mform->addHelpButton('linkrubric', 'linkrubric', 'mod_emarking');

$mform->addElement('checkbox', 'collaborativefeatures', get_string('collaborativefeatures', 'mod_emarking'));

$mform->addHelpButton('collaborativefeatures', 'collaborativefeatures', 'mod_emarking');

// Answer key

$mform->addElement('filepicker', 'answerkeyfile', get_string('answerkeyfile', 'mod_emarking'), null,

array('accepted_types' => array('.pdf')));

$mform->setAdvanced('answerkeyfile');

// Custom marks.

$mform->addElement('textarea', 'custommarks', get_string('specificmarks', 'mod_emarking'),

array(

'rows' => 5,

'cols' => 100,

'class' => 'smalltext'));

$mform->addHelpButton('custommarks', 'specificmarks', 'mod_emarking');

$mform->setDefault('custommarks', '');

$mform->setType('custommarks', PARAM_TEXT);

$mform->setAdvanced('custommarks');

// Due date settings.

$mform->addElement('checkbox', 'enableduedate', get_string('enableduedate', 'mod_emarking'));

$mform->setAdvanced('enableduedate');

$mform->addElement('date_time_selector', 'markingduedate', get_string('markingduedate', 'mod_emarking'),

array(

'startyear' => date('Y'),

'stopyear' => date('Y') + 1,

'step' => 5,

'defaulttime' => $date->getTimestamp(),

'optional' => false), null);

$mform->addHelpButton('markingduedate', 'markingduedate', 'mod_emarking');

$mform->setAdvanced('markingduedate');

$mform->disabledIf('markingduedate', 'enableduedate');

// Regrade settings, dates and enabling.

$mform->addElement('checkbox', 'regraderestrictdates', get_string('regraderestrictdates', 'mod_emarking'));

$mform->addHelpButton('regraderestrictdates', 'regraderestrictdates', 'mod_emarking');

$mform->setAdvanced('regraderestrictdates');

$mform->addElement('date_time_selector', 'regradesopendate', get_string('regradesopendate', 'mod_emarking'),

array(

'startyear' => date('Y'),

'stopyear' => date('Y') + 1,

'step' => 5,

'defaulttime' => $date->getTimestamp(),

'optional' => false), null);

$mform->addHelpButton('regradesopendate', 'regradesopendate', 'mod_emarking');

$mform->setAdvanced('regradesopendate');

$mform->disabledIf('regradesopendate', 'regraderestrictdates');

$date->modify('+2 months');

$mform->addElement('date_time_selector', 'regradesclosedate', get_string('regradesclosedate', 'mod_emarking'),

array(

'startyear' => date('Y'),

'stopyear' => date('Y') + 1,

'step' => 5,

'defaulttime' => $date->getTimestamp(),

'optional' => false), null);

$mform->addHelpButton('regradesclosedate', 'regradesclosedate', 'mod_emarking');

$mform->setAdvanced('regradesclosedate');

$mform->disabledIf('regradesclosedate', 'regraderestrictdates');

// Get all users with permission to grade in emarking.

$chkmarkers = $this->get_markers_checkboxes($mform, $ctx);

if ($chkmarkers) {

// Due date settings.

$mform->addElement("static", "qualitycontroldescription", get_string("qualitycontrol", "mod_emarking"),

get_string("qualitycontroldescription", "mod_emarking"));

$mform->setAdvanced('qualitycontroldescription');

$mform->addElement('checkbox', 'qualitycontrol', get_string('enablequalitycontrol', 'mod_emarking'));

$mform->addHelpButton('qualitycontrol', 'enablequalitycontrol', 'mod_emarking');

$mform->setAdvanced('qualitycontrol');

$mform->disabledIf('qualitycontrol', 'type', 'eq', '2');

// Add markers group as checkboxes.

$mform->addGroup($chkmarkers, 'markers', get_string('markersqualitycontrol', 'mod_emarking'),

array(

'<br />'), false);

$mform->addHelpButton('markers', 'markersqualitycontrol', 'mod_emarking');

$mform->setType('markers', PARAM_INT);

$mform->disabledIf('markers', 'qualitycontrol');

$mform->setAdvanced('markers');

$mform->disabledIf('markers', 'type', 'eq', '2');

}

// Add standard grading elements.

$mform->addElement('header', 'modstandardgrade', get_string('grade'));

// If supports grades and grades arent being handled via ratings.

$mform->addElement('select', 'grademin', get_string('grademin', 'grades'), $numbers1to100);

$mform->setDefault('grademin', 1);

$mform->addElement('select', 'grade', get_string('grademax', 'grades'), $numbers1to100);

$mform->setDefault('grade', 7);

if (count($this->current->_advancedgradingdata ['areas']) == 1) {

// If there is just one gradable area (most cases), display just the selector

// without its name to make UI simplier.

$areadata = reset($this->current->_advancedgradingdata ['areas']);

$areaname = key($this->current->_advancedgradingdata ['areas']);

// Regrade settings, dates and enabling.

$mform->addElement('hidden', 'advancedgradingmethod_' . $areaname, 'rubric');

$mform->setType('advancedgradingmethod_' . $areaname, PARAM_ALPHA);

} else {

throw new Exception("The emarking module should not define more than one grading area");

}

$mform->addElement('select', 'gradecat', get_string('gradecategoryonmodform', 'grades'),

grade_get_categories_menu($COURSE->id, $this->_outcomesused));

$mform->addHelpButton('gradecat', 'gradecategoryonmodform', 'grades');

$mform->setAdvanced('gradecat');

$mform->disabledIf('gradecat', 'type', 'eq', '2');

// Regrade settings, dates and enabling.

$mform->addElement('checkbox', 'adjustslope', get_string('adjustslope', 'mod_emarking'));

$mform->addHelpButton('adjustslope', 'adjustslope', 'mod_emarking');

$mform->setAdvanced('adjustslope');

$mform->disabledIf('adjustslope', 'type', 'eq', '2');

$mform->addElement('text', 'adjustslopegrade', get_string('adjustslopegrade', 'mod_emarking'),

array(

'size' => '5'));

$mform->setType('adjustslopegrade', PARAM_FLOAT);

$mform->setDefault('adjustslopegrade', 0);

$mform->addHelpButton('adjustslopegrade', 'adjustslopegrade', 'mod_emarking');

$mform->disabledIf('adjustslopegrade', 'adjustslope');

$mform->setAdvanced('adjustslopegrade');

$mform->disabledIf('adjustslopegrade', 'type', 'eq', '2');

$mform->addElement('text', 'adjustslopescore', get_string('adjustslopescore', 'mod_emarking'),

array(

'size' => '5'));

$mform->setType('adjustslopescore', PARAM_FLOAT);

$mform->setDefault('adjustslopescore', 0);

$mform->addHelpButton('adjustslopescore', 'adjustslopescore', 'mod_emarking');

$mform->disabledIf('adjustslopescore', 'adjustslope');

$mform->setAdvanced('adjustslopescore');

$mform->disabledIf('adjustslopescore', 'type', 'eq', '2');

// Add standard elements, common to all modules.

$this->standard_coursemodule_elements();

// Regrade settings, dates and enabling.

$mform->addElement('hidden', 'heartbeatenabled', true);

$mform->setType('heartbeatenabled', PARAM_BOOL);

$mform->addElement('hidden', 'downloadrubricpdf', true);

$mform->setType('downloadrubricpdf', PARAM_BOOL);

// If we are in editing mode we can not change the type anymore.

if ($this->_instance) {

$mform->freeze($this->get_elements_to_freeze($emarking, $exam, $mform));

}

// Add standard buttons, common to all modules.

$this->add_action_buttons();

}

public function data_preprocessing(&$defaultvalues) {

global $DB, $CFG;

parent::data_preprocessing($defaultvalues);

if (isset($_COOKIE ["emarking_headerqr"])) {

$defaultvalues ["headerqr"] = $_COOKIE ["emarking_headerqr"];

}

if (isset($_COOKIE ["emarking_exam_defaults"]) && $json = json_decode($_COOKIE ["emarking_exam_defaults"])) {

$defaultvalues ["headerqr"] = $json->headerqr;

$defaultvalues ["printrandom"] = $json->printrandom;

$defaultvalues ["printlist"] = $json->printlist;

$defaultvalues ["extrasheets"] = $json->extrasheets;

$defaultvalues ["extraexams"] = $json->extraexams;

$defaultvalues ["usebackside"] = $json->usebackside;

$defaultvalues ["enrolments"] = $json->enrolments;

}

$defaultvalues ["visible"] = 0;

if ($this->_instance) {

$markers = $DB->get_records('emarking_markers', array(

'emarking' => $this->_instance));

foreach ($markers as $marker) {

$defaultvalues ['marker-' . $marker->marker] = 1;

}

if($exam = $DB->get_record("emarking_exams", array(

"emarking" => $this->_instance))) {

$defaultvalues ["examdate"] = $exam->examdate;

$defaultvalues ["printlist"] = $exam->printlist;

$defaultvalues ["printdoublesided"] = $exam->usebackside;

$defaultvalues ["headerqr"] = $exam->headerqr;

$defaultvalues ["comment"] = $exam->comment;

$defaultvalues ["extrasheets"] = $exam->extrasheets;

$defaultvalues ["extraexams"] = $exam->extraexams;

// If we are editing, we use the previous enrolments.

$enrolincludes = explode(",", $exam->enrolments);

} else {

$enrolincludes = array();

}

} else if (isset($CFG->emarking_enrolincludes)) {

$enrolincludes = explode(",", $CFG->emarking_enrolincludes);

} else {

$enrolincludes = array();

}

// We set the default enrolments to use the previous ones or the default ones.

$enrolavailables = $this->get_available_enrolments();

foreach ($enrolincludes as $enroldefault) {

if (in_array($enroldefault, $enrolavailables)) {

$defaultvalues ["enrolments[$enroldefault]"] = true;

}

}

}

public function validation($data, $files) {

global $CFG, $COURSE, $USER, $DB;

require_once ($CFG->dirroot . "/mod/emarking/print/locallib.php");

// Calculates context for validating permissions.

// If we have the module available, we use it, otherwise we fallback to course.

$ctx = context_course::instance($COURSE->id);

$errors = array();

// Verify that we have enough markers.

if ($data ['type'] == EMARKING_TYPE_MARKER_TRAINING) {

// Get all users with permission to grade in emarking.

$markers = get_enrolled_users($ctx, 'mod/emarking:grade');

$totalmarkers = 0;

foreach ($markers as $marker) {

if (has_capability('mod/emarking:supervisegrading', $ctx, $marker)) {

continue;

}

$totalmarkers ++;

}

if ($totalmarkers < 2) {

$errors ['type'] = get_string('notenoughmarkersfortraining', 'mod_emarking');

return $errors;

}

return $errors;

}

if ($data ['type'] == EMARKING_TYPE_PEER_REVIEW) {

// Get all users with permission to grade in emarking.

$totalstudents = emarking_get_students_count_for_printing($COURSE->id);

if ($totalstudents < 2) {

$errors ['type'] = get_string('notenoughstudenstforpeerreview', 'mod_emarking');

return $errors;

}

}

if ($data ['type'] == EMARKING_TYPE_ON_SCREEN_MARKING || $data ['type'] == EMARKING_TYPE_PEER_REVIEW || $data ['type'] == EMARKING_TYPE_PRINT_SCAN) {

// Get all users with permission to grade in emarking.

if (! isset($data ['headerqr'])) {

$errors ['headerqr'] = get_string('headerqrrequired', 'mod_emarking');

return $errors;

}

}

$errors = array_merge($errors, $this->get_exam_date_errors($data));

$errors = array_merge($errors, $this->get_upload_files_errors($data));

$errors = array_merge($errors, $this->get_grades_errors($data));

$errors = array_merge($errors, $this->get_slope_errors($data));

$errors = array_merge($errors, $this->get_regrade_dates_errors($data));

$errors = array_merge($errors, $this->get_custom_marks_errors($data));

$errors = array_merge($errors, $this->get_markers_errors($data, $ctx));

return $errors;

}

private function get_elements_to_freeze($emarking, $exam, $mform) {

$freeze = array();

if ($emarking->type == EMARKING_TYPE_ON_SCREEN_MARKING) {

$freeze [] = 'qualitycontrol';

}

if ($exam && $exam->status >= EMARKING_EXAM_SENT_TO_PRINT) {

$freeze [] = 'printlist';

$freeze [] = 'printdoublesided';

$freeze [] = 'headerqr';

$freeze [] = 'extrasheets';

$freeze [] = 'extraexams';

$freeze [] = 'enrolments';

$freeze [] = 'name';

$freeze [] = 'comment';

if ($mform->elementExists('multicourse')) {

$freeze [] = 'multicourse';

}

if ($mform->elementExists('examdate')) {

$freeze [] = 'examdate';

}

if ($mform->elementExists('exam_files')) {

$freeze [] = 'exam_files';

}

}

return $freeze;

}

private function get_available_enrolments() {

global $COURSE;

// Enrolment methods to include in printing.

$enrolavailables = array();

$enrolments = enrol_get_instances($COURSE->id, true);

foreach ($enrolments as $enrolment) {

if (! in_array($enrolment->enrol, $enrolavailables)) {

$enrolavailables [] = $enrolment->enrol;

}

}

return $enrolavailables;

}

public function display() {

parent::display();

echo "<script>

function check_qr() {

var e = document.getElementById('id_headerqr');

var f = document.getElementById('id_printdoublesided');

var g = document.getElementById('id_type');

if(!e || !f || !g) {

return;

}

var type = e.options[e.selectedIndex].value;

var qrchecked = e.checked;

var doublesidechecked = f.checked;

if(type == '1' && !qrchecked) {

alert('Personalized header is required for On Screen Marking');

document.getElementById('id_headerqr').checked = true;

}

}

function show_full_form() {

var e = document.getElementById('id_type');

if(!e) {

return;

}

var strUser = e.options[e.selectedIndex].value;

console.log(strUser);

// Print only.

if (strUser == '0') {

document.getElementById('id_print').style.display = 'block';

document.getElementById('id_scan').style.display = 'none';

document.getElementById('id_osm').style.display = 'none';

document.getElementById('id_markerstraining').style.display = 'none';

document.getElementById('id_modstandardgrade').style.display = 'none';

document.getElementById('fitem_id_uploadtype').style.display = 'none';

document.getElementById('fitem_id_importemarking').style.display = 'none';

document.getElementById('id_modstandardelshdr').style.display = 'block';

} else if (strUser == '1') {

// On Screen Marking.

document.getElementById('id_print').style.display = 'block';

document.getElementById('id_scan').style.display = 'block';

document.getElementById('scanisenabled').style.display = 'none';

document.getElementById('osmisenabled').style.display = 'block';

document.getElementById('id_osm').style.display = 'block';

document.getElementById('id_markerstraining').style.display = 'none';

document.getElementById('id_modstandardgrade').style.display = 'block';

document.getElementById('id_modstandardelshdr').style.display = 'block';

document.getElementById('id_headerqr').checked = true;

document.getElementById('fitem_id_uploadtype').style.display = 'block';

document.getElementById('fitem_id_importemarking').style.display = 'block';

} else if(strUser == '2') {

// Markers training.

document.getElementById('id_print').style.display = 'none';

document.getElementById('id_scan').style.display = 'none';

document.getElementById('id_osm').style.display = 'block';

document.getElementById('fitem_id_peervisibility').style.display = 'none';

document.getElementById('fitem_id_justiceperception').style.display = 'none';

document.getElementById('fitem_id_qualitycontrol').style.display = 'none';

document.getElementById('fgroup_id_markers').style.display = 'none';

document.getElementById('fitem_id_enableduedate').style.display = 'none';

document.getElementById('fitem_id_markingduedate').style.display = 'none';

document.getElementById('fitem_id_regraderestrictdates').style.display = 'none';

document.getElementById('fitem_id_regradesopendate').style.display = 'none';

document.getElementById('fitem_id_regradesclosedate').style.display = 'none';

document.getElementById('id_markerstraining').style.display = 'block';

document.getElementById('id_modstandardgrade').style.display = 'none';

document.getElementById('fitem_id_uploadtype').style.display = 'none';

document.getElementById('id_modstandardelshdr').style.display = 'block';

document.getElementById('fitem_id_importemarking').style.display = 'block';

} else if(strUser == '4') {

// Peer review.

document.getElementById('id_print').style.display = 'block';

document.getElementById('id_scan').style.display = 'none';

document.getElementById('id_osm').style.display = 'block';

document.getElementById('fitem_id_peervisibility').style.display = 'none';

document.getElementById('fitem_id_justiceperception').style.display = 'none';

document.getElementById('fitem_id_qualitycontrol').style.display = 'none';

document.getElementById('fgroup_id_markers').style.display = 'none';

document.getElementById('fitem_id_enableduedate').style.display = 'block';

document.getElementById('fitem_id_markingduedate').style.display = 'none';

document.getElementById('fitem_id_regraderestrictdates').style.display = 'none';

document.getElementById('fitem_id_regradesopendate').style.display = 'none';

document.getElementById('fitem_id_regradesclosedate').style.display = 'none';

document.getElementById('id_markerstraining').style.display = 'none';

document.getElementById('id_modstandardgrade').style.display = 'none';

document.getElementById('id_modstandardelshdr').style.display = 'block';

document.getElementById('fitem_id_uploadtype').style.display = 'block';

document.getElementById('fitem_id_importemarking').style.display = 'block';

} else if(strUser == '5') {

// Print and scan.

document.getElementById('id_print').style.display = 'block';

document.getElementById('id_scan').style.display = 'block';

document.getElementById('scanisenabled').style.display = 'block';

document.getElementById('osmisenabled').style.display = 'none';

document.getElementById('id_osm').style.display = 'none';

document.getElementById('id_markerstraining').style.display = 'none';

document.getElementById('id_modstandardgrade').style.display = 'none';

document.getElementById('id_modstandardelshdr').style.display = 'block';

document.getElementById('fitem_id_uploadtype').style.display = 'none';

document.getElementById('fitem_id_importemarking').style.display = 'none';

} else {

console.log('Invalid type value ' + strUser);

document.getElementById('id_print').style.display = 'none';

document.getElementById('id_scan').style.display = 'none';

document.getElementById('id_osm').style.display = 'none';

document.getElementById('id_modstandardgrade').style.display = 'none';

document.getElementById('id_modstandardelshdr').style.display = 'none';

document.getElementById('fitem_id_uploadtype').style.display = 'none';

document.getElementById('fitem_id_importemarking').style.display = 'none';

}

document.getElementById('fitem_id_introeditor').style.display = 'none';

document.getElementById('id_submitbutton2').style.display = 'none';

}

show_full_form();

</script>";

echo $this->extrascript;

}

private function get_types_available($emarking) {

$types = emarking_types_array(true);

// If emarking is null then return an empty all values

if (! $emarking) {

unset($types [EMARKING_TYPE_STUDENT_TRAINING]);

return $types;

} else if ($emarking->type == EMARKING_TYPE_PRINT_ONLY || $emarking->type == EMARKING_TYPE_PRINT_SCAN ||

$emarking->type == EMARKING_TYPE_ON_SCREEN_MARKING) {

unset($types [EMARKING_TYPE_MARKER_TRAINING]);

unset($types [EMARKING_TYPE_PEER_REVIEW]);

unset($types [EMARKING_TYPE_STUDENT_TRAINING]);

} else if ($emarking->type == EMARKING_TYPE_MARKER_TRAINING) {

$types = array();

$types [EMARKING_TYPE_MARKER_TRAINING] = get_string('type_markers_training', 'mod_emarking');

} else if ($emarking->type == EMARKING_TYPE_PEER_REVIEW) {

$types = array();

$types [EMARKING_TYPE_PEER_REVIEW] = get_string('type_peer_review', 'mod_emarking');

}

return $types;

}

private function get_upload_types_available($emarking) {

$types = emarking_uploadtypes_array(true);

// If emarking is null then return an empty all values

if (!$emarking) {

return $types;

} else if ($emarking->type == EMARKING_TYPE_MARKER_TRAINING || $emarking->type == EMARKING_TYPE_PRINT_ONLY || $emarking->type == EMARKING_TYPE_PRINT_SCAN) {

$types = array();

$types [EMARKING_UPLOAD_QR] = get_string('uploadtype_qr', 'mod_emarking');

}

return $types;

}

private function get_exam_date($date) {

$examdate = new DateTime();

$examdate->setTimestamp(usertime(time()));

$examdate->modify('+2 days');

$examdate->modify('+10 minutes');

$examw = date("w", $date->getTimestamp());

// Sundays and saturdays shouldn't be selected by default.

if ($examw == 0) {

$examdate->modify('+1 days');

} else if ($examw == 6) {

$examdate->modify('+2 days');

}

return $examdate;

}

private function get_exam_date_errors($data) {

global $CFG;

$errors = array();

if(!isset($data ['examdate'])) {

$a = new stdClass();

$a->mindays = 2;

$errors ['examdate'] = get_string('examdateinvalid', 'mod_emarking', $a);

return $errors;

}

// The exam date comes from the date selector.

$examdate = new DateTime();

$examdate->setTimestamp(usertime($data ['examdate']));

// Day of week from 0 Sunday to 6 Saturday.

$examw = date("w", $examdate->getTimestamp());

// Hour of the day un 00 to 23 format.

$examh = date("H", $examdate->getTimestamp());

// We have a minimum difference otherwise we wouldn't be in this part of the code.

if (isset($CFG->emarking_minimumdaysbeforeprinting) && $CFG->emarking_minimumdaysbeforeprinting > 0) {

$mindiff = intval($CFG->emarking_minimumdaysbeforeprinting);

} else {

return $errors;

}

// Sundays are forbidden, saturdays from 6am to 4pm TODO: Move this settings to eMarking settings.

if ($examw == 0 || ($examw == 6 && ($examh < 6 || $examh > 16))) {

$errors ['examdate'] = get_string('examdateinvaliddayofweek', 'mod_emarking');

}

// User date. Important because the user sees a date selector based on her timezone settings, not the server's.

$date = usertime(time());

// Today is the date according to the user's timezone.

$today = new DateTime();

$today->setTimestamp($date);

// If today is saturday or sunday, demand for a bigger difference.

$todayw = date("w", $today->getTimestamp());

$todayw = $todayw ? $todayw : 7;

if ($todayw > 5) {

$mindiff += $todayw - 5;

}

// DateInterval calculated with diff.

$diff = $today->diff($examdate, false);

// The difference using the invert from DateInterval so we know it is in the past.

$realdiff = $diff->days * ($diff->invert ? - 1 : 1);

// If the difference is not enough, show an error.

if ($realdiff < $mindiff) {

$a = new stdClass();

$a->mindays = $mindiff;

$errors ['examdate'] = get_string('examdateinvalid', 'mod_emarking', $a);

}

return $errors;

}

/**

* Validates the uploaded file

* @param unknown $data

* @return multitype:Ambigous <string, lang_string> |multitype:string Ambigous <string, lang_string>

*/

private function get_upload_files_errors($data) {

global $USER, $COURSE;

$errors = array();

$importemarking = isset($data['importemarking']) && $data['importemarking'] > 0;

if(!$this->_instance && $data['type'] == EMARKING_TYPE_PEER_REVIEW && $importemarking) {

return $errors;

}

// We get the draftid from the form.

$draftid = file_get_submitted_draft_itemid('exam_files');

$usercontext = context_user::instance($USER->id);

$fs = get_file_storage();

$files = $fs->get_area_files($usercontext->id, 'user', 'draft', $draftid);

$tempdir = emarking_get_temp_dir_path($COURSE->id);

emarking_initialize_directory($tempdir, true);

$numpagesprevious = - 1;

$exampdfs = array();

foreach ($files as $uploadedfile) {

if($uploadedfile->is_directory()) {

continue;

}

if ($uploadedfile->get_mimetype() !== 'application/pdf') {

$errors ['exam_files'] = get_string('invalidfilenotpdf', 'mod_emarking') . '_' . $uploadedfile->get_mimetype() . '_' . $uploadedfile->get_filename();

return $errors;

}

$filename = $uploadedfile->get_filename();

$filename = emarking_clean_filename($filename);

$newfilename = $tempdir . '/' . $filename;

$pdffile = emarking_get_path_from_hash($tempdir, $uploadedfile->get_pathnamehash());

// Executes pdftk burst to get all pages separated.

$numpages = emarking_pdf_count_pages($newfilename, $tempdir, false);

if (! is_numeric($numpages) || $numpages < 1) {

$errors ['exam_files'] = get_string('invalidpdfnopages', 'mod_emarking');

return $errors;

}

if ($numpagesprevious >= 0 && $numpagesprevious != $numpages) {

$errors ['exam_files'] = get_string('invalidpdfnumpagesforms', 'mod_emarking');

return $errors;

}

$exampdfs [] = array(

'pathname' => $pdffile,

'filename' => $filename);

}

if (count($exampdfs) == 0 && $data['exam'] == 0) {

$errors ['exam_files'] = get_string('filerequiredtosendnewprintorder', 'mod_emarking');

return $errors;

}

return $errors;

}

/**

* Validates the answer key file

* @param unknown $data

* @return multitype:Ambigous <string, lang_string> |multitype:string Ambigous <string, lang_string>

*/

private function get_answerkey_file_errors($data) {

global $USER, $COURSE;

$errors = array();

// We get the draftid from the form.

$draftid = file_get_submitted_draft_itemid('answerkeyfile');

$usercontext = context_user::instance($USER->id);

$fs = get_file_storage();

$files = $fs->get_area_files($usercontext->id, 'user', 'draft', $draftid);

$tempdir = emarking_get_temp_dir_path($COURSE->id);

emarking_initialize_directory($tempdir, true);

$numpagesprevious = - 1;

$exampdfs = array();

foreach ($files as $uploadedfile) {

if($uploadedfile->is_directory()) {

continue;

}

if ($uploadedfile->get_mimetype() !== 'application/pdf') {

$errors ['exam_files'] = get_string('invalidfilenotpdf', 'mod_emarking') . '_' . $uploadedfile->get_mimetype() . '_' . $uploadedfile->get_filename();

return $errors;

}

$filename = $uploadedfile->get_filename();

$filename = emarking_clean_filename($filename);

$newfilename = $tempdir . '/' . $filename;

$pdffile = emarking_get_path_from_hash($tempdir, $uploadedfile->get_pathnamehash());

// Executes pdftk burst to get all pages separated.

$numpages = emarking_pdf_count_pages($newfilename, $tempdir, false);

if (! is_numeric($numpages) || $numpages < 1) {

$errors ['exam_files'] = get_string('invalidpdfnopages', 'mod_emarking');

return $errors;

}

if ($numpagesprevious >= 0 && $numpagesprevious != $numpages) {

$errors ['exam_files'] = get_string('invalidpdfnumpagesforms', 'mod_emarking');

return $errors;

}

$exampdfs [] = array(

'pathname' => $pdffile,

'filename' => $filename);

}

if (count($exampdfs) == 0 && $data['exam'] == 0) {

$errors ['exam_files'] = get_string('filerequiredtosendnewprintorder', 'mod_emarking');

return $errors;

}

return $errors;

}

private function get_grades_errors($data) {

$errors = array();

$grademin = $data ['grademin'];

$grademax = $data ['grade'];

// Make sure the minimum score is not greater than the maximum score.

if ($grademin >= $grademax) {

$errors ['grademin'] = get_string('gradescheck', 'mod_emarking');

$errors ['grade'] = get_string('gradescheck', 'mod_emarking');

}

return $errors;

}

private function get_slope_errors($data) {

$errors = array();

// Validate the adjusted slope.

$adjustslope = isset($data ['adjustslope']) ? $data ['adjustslope'] : false;

$adjustslopescore = isset($data ['adjustslopescore']) ? $data ['adjustslopescore'] : 0;

$adjustslopegrade = isset($data ['adjustslopegrade']) ? $data ['adjustslopegrade'] : 0;

// If we are adjusting the slope.

if ($adjustslope) {

// Make sure the grade is greater than the minimum grade.

if ($adjustslopegrade <= $grademin) {

$errors ['adjustslopegrade'] = get_string('adjustslopegrademustbegreaterthanmin', 'mod_emarking');

}

// Make sure the grade is lower than the maximum grade.

if ($adjustslopegrade > $grademax) {

$errors ['adjustslopegrade'] = get_string('adjustslopegrademustbelowerthanmax', 'mod_emarking');

}

// And that the score for adjusting is greater than 0.

if ($adjustslopescore <= 0) {

$errors ['adjustslopescore'] = get_string('adjustslopescoregreaterthanzero', 'mod_emarking');

}

}

return $errors;

}

private function get_regrade_dates_errors($data) {

$errors = array();

$regradesopendate = $data ['regradesopendate'];

$regradesclosedate = $data ['regradesclosedate'];

// Validate regrade dates.

if ($regradesopendate > $regradesclosedate) {

$errors ['regradesopendate'] = get_string('verifyregradedate', 'mod_emarking');

$errors ['regradesclosedate'] = get_string('verifyregradedate', 'mod_emarking');

}

return $errors;

}

private function get_custom_marks_errors($data) {

$errors = array();

// Validate custom marks.

$custommarks = isset($data ['custommarks']) ? $data ['custommarks'] : '';

$custommarks = str_replace('\r\n', '\n', $custommarks);

if (strlen($custommarks) > 0) {

$parts = explode("\n", $custommarks);

$linenumber = 0;

foreach ($parts as $line) {

$linenumber ++;

if (strlen(trim($line)) == 0) {

continue;

}

$subparts = explode("#", $line);

if (count($subparts) != 2) {

if (! isset($errors ['custommarks'])) {

$errors ['custommarks'] = get_string('invalidcustommarks', 'mod_emarking');

}

$errors ['custommarks'] .= "$linenumber ";

}

}

}

return $errors;

}

private function get_markers_errors($data, $context) {

$errors = array();

$qualitycontrol = isset($data ['enablequalitycontrol']) ? $data ['enablequalitycontrol'] : false;

if ($data ['type'] == EMARKING_TYPE_ON_SCREEN_MARKING && $qualitycontrol) {

// Get all users with permission to grade in emarking.

$markers = get_enrolled_users($context, 'mod/emarking:grade');

$totalmarkers = 0;

foreach ($markers as $marker) {

if (isset($data ['marker-' . $marker->id])) {

$totalmarkers ++;

}

}

if ($totalmarkers == 0) {

$errors ['markers'] = get_string('notenoughmarkersforqualitycontrol', 'mod_emarking');

}

}

return $errors;

}

private function get_numbers_1_to_n($n) {

$numbers1toN = array();

for ($j = 0; $j <= $n; $j ++) {

$numbers1toN [$j] = $j;

}

return $numbers1toN;

}

private function get_parallel_courses_checkboxes($mform) {

global $COURSE;

if ($parallelcourses = emarking_get_parallel_courses($COURSE)) {

// Add a checkbox for each parallel course.

$checkboxes = array();

foreach ($parallelcourses as $course) {

$checkbox = $mform->createElement('checkbox', $course->shortname, null, $course->fullname, 'checked');

$checkboxes [] = $checkbox;

}

return $checkboxes;

} else {

return false;

}

}

private function get_enrolment_checkboxes($mform) {

$enrolcheckboxes = array();

$enrolavailables = $this->get_available_enrolments();

foreach ($enrolavailables as $enrolment) {

$enrolcheckboxes [] = $mform->createElement('checkbox', $enrolment, null,

get_string('enrol' . $enrolment, 'mod_emarking'), 'checked');

}