function get_contribution_per_marker($cmid, $emarkingid)
{
    global $DB;
    $context = context_module::instance($cmid);
    list($gradingmanager, $gradingmethod) = emarking_validate_rubric($context);
    $rubriccontroller = $gradingmanager->get_controller($gradingmethod);
    $definition = $rubriccontroller->get_definition();
    // Calculates the number of criteria for this evaluation
    $numcriteria = 0;
    if ($rubriccriteria = $rubriccontroller->get_definition()) {
        $numcriteria = count($rubriccriteria->rubric_criteria);
    }
    $totalsubmissions = get_totalsubmissions($cmid, $emarkingid);
    $sqlcontributorstats = "SELECT\n\t\tec.markerid,\n\t\tCONCAT(u.firstname , ' ', u.lastname) AS markername,\n\t\tCOUNT(distinct ec.id) AS comments\n        FROM {emarking_submission} AS s\n        INNER JOIN {emarking} AS e ON (s.emarking=e.id)\n\t\tINNER JOIN {course_modules} AS cm ON (e.id=cm.instance AND e.id=?)\n        INNER JOIN {context} AS c ON (s.status>=10 AND cm.id = c.instanceid )\n        INNER JOIN {grading_areas} AS ar ON (c.id = ar.contextid)\n        INNER JOIN {grading_definitions} AS d ON (ar.id = d.areaid)\n        INNER JOIN {grading_instances} AS i ON (d.id=i.definitionid)\n        INNER JOIN {gradingform_rubric_fillings} AS f ON (i.id=f.instanceid)\n        INNER JOIN {gradingform_rubric_levels} AS b ON (b.id = f.levelid)\n        INNER JOIN {gradingform_rubric_criteria} AS a ON (a.id = f.criterionid)\n        INNER JOIN {emarking_comment} as ec ON (b.id = ec.levelid)\n        INNER JOIN {user} as u ON (ec.markerid = u.id)\n\t\tGROUP BY ec.markerid";
    $markingstatstotalcontribution = $DB->get_records_sql($sqlcontributorstats, array($emarkingid));
    $contributioners = array();
    $contributions = array();
    foreach ($markingstatstotalcontribution as $contributioner) {
        $contributions[] = array("contrib" => round($contributioner->comments * 100 / ($totalsubmissions * $numcriteria), 2));
    }
    return $contributions;
}

}
// Page navigation and URL settings
$PAGE->set_url($urlemarking);
$PAGE->set_context($context);
$PAGE->set_course($course);
$PAGE->set_pagelayout('incourse');
$PAGE->set_cm($cm);
$PAGE->set_heading($emarking->name);
$PAGE->set_title(get_string('emarking', 'mod_emarking'));
$PAGE->navbar->add(get_string('emarking', 'mod_emarking'));
// Show header and heading
echo $OUTPUT->header();
echo $OUTPUT->heading_with_help(get_string('emarking', 'mod_emarking'), 'annotatesubmission', 'mod_emarking');
// Navigation tabs
echo $OUTPUT->tabtree(emarking_tabs($context, $cm, $emarking), "mark");
list($gradingmanager, $gradingmethod) = emarking_validate_rubric($context);
// User filter checking capabilities. If user can not grade, then she can not
// see other users
$userfilter = 'WHERE 1=1 ';
if (!has_capability('mod/emarking:grade', $context)) {
    $userfilter .= 'AND ue.userid = ' . $USER->id;
}
// As we have a rubric we can get the controller
$rubriccontroller = $gradingmanager->get_controller($gradingmethod);
if (!$rubriccontroller instanceof gradingform_rubric_controller) {
    print_error(get_string('invalidrubric', 'mod_emarking'));
}
// Calculates the number of criteria for this evaluation
$numcriteria = 0;
$rubricscores = $rubriccontroller->get_min_max_score();
$levels = array();

echo $OUTPUT->header();
// Heading and tabs if we are within a course module.
echo $OUTPUT->heading($emarking->name);
// Navigation tabs.
$tabname = $scan ? "scanlist" : "mark";
echo $OUTPUT->tabtree(emarking_tabs($context, $cm, $emarking), $tabname);
// Reassign peers if everything is ok with it.
if ($reassignpeers && $usercangrade && $issupervisor && $numdraftsgrading == 0) {
    if (emarking_assign_peers($emarking)) {
        echo $OUTPUT->notification(get_string('transactionsuccessfull', 'mod_emarking'), 'notifysuccess');
    } else {
        echo $OUTPUT->notification(get_string('fatalerror', 'mod_emarking'), 'notifyproblem');
    }
}
// Get rubric instance.
list($gradingmanager, $gradingmethod, $rubriccriteria, $rubriccontroller) = emarking_validate_rubric($context, $emarking->type == EMARKING_TYPE_MARKER_TRAINING || $emarking->type == EMARKING_TYPE_PEER_REVIEW, !$scan);
// Show rubric creation button.
// User filter checking capabilities. If user can not grade, then she can not.
// see other users.
$userfilter = 'WHERE 1=1 ';
if (!$usercangrade) {
    $userfilter .= 'AND (u.id = ' . $USER->id . ' OR NM.answerkey = ' . EMARKING_ANSWERKEY_ACCEPTED . ')';
} else {
    if ($emarking->type == EMARKING_TYPE_MARKER_TRAINING && !is_siteadmin($USER->id) && !$issupervisor) {
        $userfilter .= 'AND um.id = ' . $USER->id;
    } else {
        if ($emarking->type == EMARKING_TYPE_PEER_REVIEW && !$issupervisor && !is_siteadmin($USER->id)) {
            $userfilter .= 'AND (um.id = ' . $USER->id . ' OR u.id = ' . $USER->id . ')';
        }
    }
}

$PAGE->set_pagelayout('incourse');
$PAGE->set_title(get_string('emarking', 'mod_emarking'));
$PAGE->navbar->add(get_string('markers', 'mod_emarking'));
// Verify capability for security issues.
if (!has_capability('mod/emarking:assignmarkers', $context)) {
    $item = array('context' => $context, 'objectid' => $emarking->id);
    // Add to Moodle log so some auditing can be done.
    \mod_emarking\event\unauthorizedaccess_attempted::create($item)->trigger();
    print_error(get_string('invalidaccess', 'mod_emarking'));
}
echo $OUTPUT->header();
// Heading and tabs if we are within a course module.
echo $OUTPUT->heading($emarking->name);
echo $OUTPUT->tabtree(emarking_tabs($context, $cm, $emarking), "markers");
// Get rubric instance.
list($gradingmanager, $gradingmethod, $definition) = emarking_validate_rubric($context, false, false);
$mformmarkers = new emarking_markers_form(null, array('context' => $context, 'criteria' => $definition->rubric_criteria, 'id' => $cm->id, 'totalpages' => $exam->totalpages, 'emarking' => $emarking, "action" => "addmarkers"));
if ($mformmarkers->get_data()) {
    $newmarkers = process_mform($mformmarkers, "addmarkers", $emarking);
}
if ($action === 'deletemarkers') {
    $DB->delete_records('emarking_marker_criterion', array('emarking' => $emarking->id, 'criterion' => $criterion->id));
    echo $OUTPUT->notification(get_string("transactionsuccessfull", "mod_emarking"), 'notifysuccess');
} else {
    if ($action === 'deletesinglemarker') {
        $DB->delete_records('emarking_marker_criterion', array('emarking' => $emarking->id, 'marker' => $markerid, 'criterion' => $criterion->id));
        echo $OUTPUT->notification(get_string("transactionsuccessfull", "mod_emarking"), 'notifysuccess');
    }
}
$nummarkerscriteria = $DB->count_records("emarking_marker_criterion", array("emarking" => $emarking->id));
$markercriteria = $DB->get_recordset_sql("\n        SELECT\n        id,\n        description,\n        GROUP_CONCAT(uid) AS markers,\n        sortorder\n    FROM (\n    SELECT\n        c.id,\n        c.description,\n        c.sortorder,\n        u.id as uid\n    FROM {gradingform_rubric_criteria} c\n    LEFT JOIN {emarking_marker_criterion} mc ON (c.definitionid = :definition AND mc.emarking = :emarking AND c.id = mc.criterion)\n    LEFT JOIN {user} u ON (mc.marker = u.id)\n    WHERE c.definitionid = :definition2\n    ORDER BY c.id ASC, u.lastname ASC) T\n    GROUP BY id", array("definition" => $definition->id, "definition2" => $definition->id, "emarking" => $emarking->id));

// Page settings (URL, breadcrumbs and title).
$PAGE->set_context($context);
$PAGE->set_course($course);
$PAGE->set_cm($cm);
$PAGE->set_url($url);
$PAGE->set_pagelayout('incourse');
echo $OUTPUT->header();
echo $OUTPUT->heading($emarking->name);
// Print eMarking tabs.
echo $OUTPUT->tabtree(emarking_tabs($context, $cm, $emarking), "justicereport");
if ($issupervisor && $emarking->type == EMARKING_TYPE_ON_SCREEN_MARKING && $emarking->justiceperception) {
    $csvurl = new moodle_url('justice.php', array('id' => $cm->id, 'exportcsv' => 'justice'));
    echo $OUTPUT->single_button($csvurl, get_string('exporttoexcel', 'mod_emarking'));
}
// Get rubric instance.
list($gradingmanager, $gradingmethod, $definition, $rubriccontroller) = emarking_validate_rubric($context, true, true);
// Calculates the number of criteria for this evaluation.
$numcriteria = count($definition->rubric_criteria);
$emarkingids = '' . $emarking->id;
$studentsanswered = $DB->get_records_sql("\nSELECT\n\ts.emarking,\n\te.course,\n    c.shortname,\n    c.fullname,\n\tCOUNT(DISTINCT s.student) AS total,\n\tCOUNT(DISTINCT p.id) AS answered\nFROM {emarking_submission} s\nINNER JOIN {emarking_draft} d ON (d.qualitycontrol = 0 AND d.submissionid = s.id\n        AND s.emarking in ({$emarkingids}) AND d.status >= :status)\nINNER JOIN {emarking} e ON (s.emarking = e.id)\nINNER JOIN {course} c ON (e.course = c.id)\nLEFT JOIN {emarking_perception} p ON (p.submission = s.id)\nGROUP BY s.emarking", array("status" => EMARKING_STATUS_PUBLISHED));
foreach ($studentsanswered as $section) {
    $pending = $section->total - $section->answered;
    $datatable[$section->emarking] = "['Status', 'Students'],\n    ['Answered', {$section->answered}],\n    ['Not yet', {$pending}]\n    ";
}
if ($emarking->justiceperception == EMARKING_JUSTICE_PER_CRITERION) {
    $sqljustice = "\n            SELECT  'of' as name,\n            pc.criterion,\n            c.description,\n            pc.overall_fairness AS level,\n            COUNT(DISTINCT s.student) as total\nFROM {emarking_perception} p\nINNER JOIN {emarking_submission} s ON (s.emarking = :emarkingid AND p.submission = s.id)\nINNER JOIN {emarking_draft} d ON (d.submissionid = s.id AND d.qualitycontrol = 0 AND d.status >= :status)\nINNER JOIN {emarking_perception_criteria} pc ON (p.id = pc.perception)\nINNER JOIN {gradingform_rubric_criteria} c ON (pc.criterion = c.id)\nGROUP BY pc.criterion, pc.overall_fairness\n        UNION ALL\n            SELECT 'er' as name,\n            pc.criterion,\n            c.description,\n            pc.expectation_reality AS level,\n            COUNT(DISTINCT s.student) as total\nFROM {emarking_perception} p\nINNER JOIN {emarking_submission} s ON (s.emarking = :emarkingid2 AND p.submission = s.id)\nINNER JOIN {emarking_draft} d ON (d.submissionid = s.id AND d.qualitycontrol = 0 AND d.status >= :status2)\nINNER JOIN {emarking_perception_criteria} pc ON (p.id = pc.perception)\nINNER JOIN {gradingform_rubric_criteria} c ON (pc.criterion = c.id)\nGROUP BY pc.criterion, pc.expectation_reality";
} else {
    $sqljustice = "\n            SELECT 'of' as name,\n            overall_fairness AS level,\n            COUNT(DISTINCT s.student) as total\nFROM {emarking_perception} p\nINNER JOIN {emarking_submission} s ON (s.emarking = :emarkingid AND p.submission = s.id)\nINNER JOIN {emarking_draft} d ON (d.submissionid = s.id AND d.qualitycontrol = 0 AND d.status >= :status)\nGROUP BY overall_fairness\n        UNION ALL\n            SELECT 'er' as name,\n            expectation_reality AS level,\n            COUNT(DISTINCT s.student) as total\nFROM {emarking_perception} p\nINNER JOIN {emarking_submission} s ON (s.emarking = :emarkingid2 AND p.submission = s.id)\nINNER JOIN {emarking_draft} d ON (d.submissionid = s.id AND d.qualitycontrol = 0 AND d.status >= :status2)\nGROUP BY expectation_reality";
}
$justiceperception = $DB->get_recordset_sql($sqljustice, array('status' => EMARKING_STATUS_PUBLISHED, 'status2' => EMARKING_STATUS_PUBLISHED, 'emarkingid' => $emarking->id, 'emarkingid2' => $emarking->id));
$fairnessdata = array();

$definition = $controller->get_definition();
$totalsubmissions = $DB->count_records_sql("\n\t\tSELECT COUNT(e.id) AS total\n\t\tFROM {emarking_submission} AS e\n\t\tWHERE e.emarking = :emarkingid AND e.grade >= 0 AND e.status >= " . EMARKING_STATUS_RESPONDED, array('emarkingid' => $emarking->id));
if (!$totalsubmissions || $totalsubmissions == 0) {
    echo $OUTPUT->notification(get_string('nosubmissionsgraded', 'mod_emarking'), 'notifyproblem');
    echo $OUTPUT->footer();
    die;
}
$emarkingsform = new emarking_comparativereport_form(null, array('course' => $course, 'cm' => $cm));
$emarkingsform->display();
if ($emarkingsform->get_data()) {
    // Get the emarking activity to compare this one to
    $emarking2 = $DB->get_record('emarking', array('id' => $emarkingsform->get_data()->emarking2));
    // Get rubric definition for second activity
    $cm2 = get_coursemodule_from_instance('emarking', $emarking2->id);
    $context2 = context_module::instance($cm2->id);
    list($gradingmanager2, $gradingmethod2) = emarking_validate_rubric($context2, false, false);
    if ($gradingmethod2 == null) {
        echo $OUTPUT->notification(get_string('rubrcismustbeidentical', 'mod_emarking'), 'notifyproblem');
        echo $OUTPUT->footer();
        die;
    }
    $controller2 = $gradingmanager2->get_controller($gradingmethod2);
    $definition2 = $controller2->get_definition();
    $criteria = array_values($definition->rubric_criteria);
    $criteria2 = array_values($definition2->rubric_criteria);
    $problems = false;
    for ($i = 0; $i < count($criteria); $i++) {
        if ($criteria[$i]['description'] !== $criteria2[$i]['description']) {
            $problems = true;
            break;
            $levels = array_values($criteria[$i]['levels']);

<?php

$results = array();
// Get rubric instance
list($gradingmanager, $gradingmethod, $notification, $button_rubric) = emarking_validate_rubric($context);
// As we have a rubric we can get the controller
$rubriccontroller = $gradingmanager->get_controller($gradingmethod);
if (!$rubriccontroller instanceof gradingform_rubric_controller) {
    print_error(get_string('invalidrubric', 'mod_emarking'));
}
$definition = $rubriccontroller->get_definition();
$results['rubricname'] = $definition->name;
$results['criteria'] = array();
foreach ($definition->rubric_criteria as $criterion) {
    $results['criteria'][] = array('id' => $criterion['id'], 'description' => $criterion['description']);
}
// Generate markers list
$results['markers'] = array();
$indices = array();
// Get all users with permission to grade in emarking
$markers = get_enrolled_users($context, 'mod/emarking:grade');
// Add all users to markers list, we set criterion to 0
$i = 0;
foreach ($markers as $marker) {
    $results['markers'][] = array('id' => $marker->id, 'fullname' => $marker->firstname . ' ' . $marker->lastname, 'criteria' => array());
    $indices[$marker->id] = $i;
    $i++;
}
// We get previous configuration of criteria for markers and set accordingly
$markerscriteria = $DB->get_records('emarking_marker_criterion', array('emarking' => $emarking->id));
foreach ($markerscriteria as $markercriterion) {

    }
}
// Show header and heading
echo $OUTPUT->header();
// Heading and tabs if we are within a course module
echo $OUTPUT->heading($emarking->name);
// If we come from a redirect when scan or osm was just enabled we show a confirmation message
if ($enabled) {
    $message = $enabled == EMARKING_TYPE_PRINT_SCAN ? get_string("scanwasenabled", "mod_emarking") : get_string("osmwasenabled", "mod_emarking");
    echo $OUTPUT->notification($message, 'notifysuccess');
}
// Navigation tabs
$tabname = $scan ? "scanlist" : "mark";
echo $OUTPUT->tabtree(emarking_tabs($context, $cm, $emarking), $tabname);
// Get rubric instance
list($gradingmanager, $gradingmethod) = emarking_validate_rubric($context, $emarking->type == EMARKING_TYPE_MARKER_TRAINING, !$scan);
// User filter checking capabilities. If user can not grade, then she can not
// see other users
$userfilter = 'WHERE 1=1 ';
if (!$usercangrade) {
    $userfilter .= 'AND u.id = ' . $USER->id;
} else {
    if ($emarking->type == EMARKING_TYPE_MARKER_TRAINING && !is_siteadmin($USER->id) && !$issupervisor) {
        $userfilter .= 'AND um.id = ' . $USER->id;
    }
}
$qcfilter = ' AND d.qualitycontrol = 0';
if ($emarking->qualitycontrol && ($DB->count_records('emarking_markers', array('emarking' => $emarking->id, 'marker' => $USER->id, 'qualitycontrol' => 1)) > 0 || is_siteadmin($USER))) {
    $qcfilter = '';
}
// Default variables for the number of criteria for this evaluation

$PAGE->requires->jquery_plugin('ui');
$PAGE->requires->jquery_plugin('ui-css');
// Show header and heading
echo $OUTPUT->header();
// Heading and tabs if we are within a course module
echo $OUTPUT->heading($emarking->name);
// If we come from a redirect when scan or osm was just enabled we show a confirmation message
if ($enabled) {
    $message = $enabled == EMARKING_TYPE_PRINT_SCAN ? get_string("scanwasenabled", "mod_emarking") : get_string("osmwasenabled", "mod_emarking");
    echo $OUTPUT->notification($message, 'notifysuccess');
}
// Navigation tabs
$tabname = $scan ? "scanlist" : "mark";
echo $OUTPUT->tabtree(emarking_tabs($context, $cm, $emarking), $tabname);
// Get rubric instance
list($gradingmanager, $gradingmethod) = emarking_validate_rubric($context, false, !$scan);
// User filter checking capabilities. If user can not grade, then she can not
// see other users
$userfilter = 'WHERE 1=1 ';
if (!$usercangrade) {
    $userfilter .= 'AND u.id = ' . $USER->id;
} else {
    if ($emarking->type == EMARKING_TYPE_MARKER_TRAINING && !is_siteadmin($USER->id) && !$issupervisor) {
        $userfilter .= 'AND um.id = ' . $USER->id;
    }
}
$qcfilter = ' AND d.qualitycontrol = 0';
if ($emarking->qualitycontrol && ($DB->count_records('emarking_markers', array('emarking' => $emarking->id, 'marker' => $USER->id, 'qualitycontrol' => 1)) > 0 || is_siteadmin($USER))) {
    $qcfilter = '';
}
// Default variables for the number of criteria for this evaluation

/**
 *
 * @param unknown $context
 * @param unknown $emarking
 * @return Ambigous <multitype:multitype: NULL , multitype:NULL >
 */
function emarking_get_markers_configuration($context, $emarking)
{
    global $DB;
    // Initially we have empty results.
    $results = array();
    // Get rubric instance.
    list($gradingmanager, $gradingmethod, $definition) = emarking_validate_rubric($context, false, false);
    $results['rubricname'] = $definition->name;
    $results['criteria'] = array();
    foreach ($definition->rubric_criteria as $criterion) {
        $results['criteria'][] = array('id' => $criterion['id'], 'description' => $criterion['description']);
    }
    // Generate markers list.
    $results['markers'] = array();
    $indices = array();
    // Get all users with permission to grade in emarking.
    $markers = get_enrolled_users($context, 'mod/emarking:grade');
    // Add all users to markers list, we set criterion to 0.
    $i = 0;
    foreach ($markers as $marker) {
        $results['markers'][] = array('id' => $marker->id, 'fullname' => $marker->firstname . ' ' . $marker->lastname, 'criteria' => array());
        $indices[$marker->id] = $i;
        $i++;
    }
    // We get previous configuration of criteria for markers and set accordingly.
    $markerscriteria = $DB->get_records('emarking_marker_criterion', array('emarking' => $emarking->id));
    foreach ($markerscriteria as $markercriterion) {
        $results['markers'][$indices[$markercriterion->marker]]['criteria'][] = array('id' => $markercriterion->criterion);
    }
    // Generate pages list.
    $results['pages'] = array();
    $indices = array();
    // We create a list of pages according to the total pages configured for emarking.
    // All pages are set to criterion 0.
    for ($i = 1; $i <= $emarking->totalpages; $i++) {
        $results['pages'][] = array('page' => $i, 'criteria' => array());
    }
    // We load previous configuration of page criterion assignments.
    $pagescriteria = $DB->get_records('emarking_page_criterion', array('emarking' => $emarking->id));
    foreach ($pagescriteria as $pagecriterion) {
        $results['pages'][$pagecriterion->page - 1]['criteria'][] = array('id' => $pagecriterion->criterion);
    }
    return $results;
}

/**
 * Matches the rubrics from two emarking activities making sure it has the same
 * criteria (two criteria are equal if their description are equal).
 *
 * @param unknown $emarkingsrc
 * @param unknown $emarkingdst
 * @param unknown $context
 * @throws moodle_exception
 * @return multitype:unknown
 */
function emarking_match_rubrics($emarkingsrc, $emarkingdst, $copyrubric = false)
{
    global $DB;
    $cmsrc = get_coursemodule_from_instance('emarking', $emarkingsrc->id);
    $cmdst = get_coursemodule_from_instance('emarking', $emarkingdst->id);
    $contextsrc = context_module::instance($cmsrc->id);
    $contextdst = context_module::instance($cmdst->id);
    list($gradingmanagersrc, $gradingmethodsrc, $definitionsrc, $rubriccontrollersrc) = emarking_validate_rubric($contextsrc, false, false);
    list($gradingmanagerdst, $gradingmethoddst, $definitiondst, $rubriccontrollerdst) = emarking_validate_rubric($contextdst, false, false);
    if ($copyrubric) {
        if (!$rubriccontrollerdst) {
            $method = $gradingmanagerdst->get_active_method();
            $rubriccontrollerdst = $gradingmanagerdst->get_controller($method);
        }
        if ($rubriccontrollerdst->get_definition()) {
            $rubriccontrollerdst->delete_definition();
        }
        $rubriccontrollerdst->update_definition($rubriccontrollersrc->get_definition_copy($rubriccontrollerdst));
        $DB->set_field('grading_definitions', 'timecopied', time(), array('id' => $definitionsrc->id));
        list($gradingmanagerdst, $gradingmethoddst, $definitiondst, $rubriccontrollerdst) = emarking_validate_rubric($contextdst, false, false);
    }
    if (!$definitionsrc || !$definitiondst) {
        throw new moodle_exception("Invalid rubrics for copying, destination emarking doesn't have a rubric and you didn't selected to copy it.");
    }
    $criteriasrc = $definitionsrc->rubric_criteria;
    $criteriadst = $definitiondst->rubric_criteria;
    if (count($criteriasrc) != count($criteriadst)) {
        throw new moodle_exception("Invalid rubric for copying, they don't have the same number of criteria");
    }
    $criteriaitems = array();
    foreach ($criteriasrc as $criterionsrc) {
        foreach ($criteriadst as $criteriondst) {
            if ($criterionsrc['description'] === $criteriondst['description']) {
                $criteriaitems[$criterionsrc['id']] = $criteriondst['id'];
            }
        }
    }
    if (count($criteriaitems) != count($criteriadst)) {
        throw new moodle_exception("Not every criterion name matches in both source and destination emarking activities.");
    }
    return $criteriaitems;
}