mirror of
https://github.com/moodle/moodle.git
synced 2025-01-19 14:27:22 +01:00
0468976c9a
The API was changed slightly so that has_capability now takes the
whole $context object (we almost always have it anyway)
The $kill thing was removed. If you want to assert a capability
then use:
require_capability('capname', $context);
with optional variables to modify the error message
Misc bugs here and there also removed and code tidied
1177 lines
52 KiB
PHP
1177 lines
52 KiB
PHP
<?php // $Id$
|
|
|
|
/*************************************************
|
|
ACTIONS handled are:
|
|
|
|
adminamendgradinggrading
|
|
adminconfirmdelete
|
|
admindelete
|
|
adminedit
|
|
adminlist
|
|
adminlistbystudent
|
|
assessresubmission
|
|
assesssubmission
|
|
displaygradingform
|
|
editelements (teachers only)
|
|
insertelements (for teachers)
|
|
listungradedstudentsubmissions (for teachers)
|
|
listungradedstudentassessments (for teachers)
|
|
listteachersubmissions
|
|
regradestudentassessments (for teachers)
|
|
teacherassessment (for teachers)
|
|
teachertable
|
|
updateassessment
|
|
updateteacherassessment
|
|
userconfirmdelete
|
|
userdelete
|
|
viewassessment
|
|
|
|
************************************************/
|
|
|
|
require_once("../../config.php");
|
|
require_once("lib.php");
|
|
require_once("locallib.php");
|
|
|
|
$id = required_param('id', PARAM_INT); // Course Module ID
|
|
$action = required_param('action', PARAM_ALPHA);
|
|
$aid = optional_param('aid', 0, PARAM_INT);
|
|
$sid = optional_param('sid', 0, PARAM_INT);
|
|
$userid = optional_param('userid', 0, PARAM_INT);
|
|
|
|
// get some esential stuff...
|
|
if (! $cm = get_coursemodule_from_id('exercise', $id)) {
|
|
error("Course Module ID was incorrect");
|
|
}
|
|
|
|
if (! $course = get_record("course", "id", $cm->course)) {
|
|
error("Course is misconfigured");
|
|
}
|
|
|
|
if (! $exercise = get_record("exercise", "id", $cm->instance)) {
|
|
error("Course module is incorrect");
|
|
}
|
|
|
|
exercise_add_custom_scales($exercise);
|
|
|
|
require_login($course->id, false, $cm);
|
|
|
|
$context = get_context_instance(CONTEXT_MODULE, $cm->id);
|
|
|
|
$strexercises = get_string("modulenameplural", "exercise");
|
|
$strexercise = get_string("modulename", "exercise");
|
|
$strassessments = get_string("assessments", "exercise");
|
|
|
|
// ... print the header and...
|
|
print_header_simple(format_string($exercise->name), "",
|
|
"<a href=\"index.php?id=$course->id\">$strexercises</a> ->
|
|
<a href=\"view.php?id=$cm->id\">".format_string($exercise->name,true)."</a> -> $strassessments",
|
|
"", "", true);
|
|
|
|
//...get the action
|
|
|
|
|
|
/******************* admin amend Grading Grade ************************************/
|
|
if ($action == 'adminamendgradinggrade' ) {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
if (empty($aid)) {
|
|
error("Admin Amend Grading grade: assessment id missing");
|
|
}
|
|
|
|
if (!$assessment = get_record("exercise_assessments", "id", $aid)) {
|
|
error("Amin Amend Grading grade: assessment not found");
|
|
}
|
|
print_heading(get_string("amend", "exercise")." ".get_string("gradeforstudentsassessment",
|
|
"exercise", $course->student));
|
|
echo "<form name=\"amendgrade\" method=\"post\" action=\"assessments.php\">\n";
|
|
echo "<input type=\"hidden\" name=\"aid\" value=\"$aid\" />\n";
|
|
echo "<input type=\"hidden\" name=\"action\" value=\"updategradinggrade\" />\n";
|
|
echo "<input type=\"hidden\" name=\"id\" value=\"$cm->id\" />\n";
|
|
echo "<table width=\"50%\" align=\"center\" border=\"1\" />\n";
|
|
echo "<tr><td align=\"right\"><b>".get_string("gradeforstudentsassessment", "exercise",
|
|
$course->student)." :</td><td>\n";
|
|
// set up coment scale
|
|
for ($i=$exercise->gradinggrade; $i>=0; $i--) {
|
|
$num[$i] = $i;
|
|
}
|
|
choose_from_menu($num, "gradinggrade",
|
|
number_format($exercise->gradinggrade * $assessment->gradinggrade / 100, 0), "");
|
|
echo "</td></tr>\n";
|
|
echo "<tr><td colspan=\"2\" align=\"center\">";
|
|
echo "<input type=\"submit\" value=\"".get_string("amend", "exercise")."\" />\n";
|
|
echo "</td></tr>\n";
|
|
echo "</table>\n";
|
|
echo "</center>";
|
|
echo "</form>\n";
|
|
}
|
|
|
|
|
|
/******************* admin confirm delete ************************************/
|
|
elseif ($action == 'adminconfirmdelete' ) {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
if (empty($aid)) {
|
|
error("Admin confirm delete: assessment id missing");
|
|
}
|
|
|
|
notice_yesno(get_string("confirmdeletionofthisitem","exercise", get_string("assessment", "exercise")),
|
|
"assessments.php?action=admindelete&id=$cm->id&aid=$aid",
|
|
"submissions.php?action=adminlist&id=$cm->id");
|
|
}
|
|
|
|
|
|
/******************* admin delete ************************************/
|
|
elseif ($action == 'admindelete' ) {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
if (empty($aid)) {
|
|
error("Admin delete: submission id missing");
|
|
}
|
|
|
|
print_string("deleting", "exercise");
|
|
// first delete all the associated records...
|
|
delete_records("exercise_grades", "assessmentid", $aid);
|
|
// ...now delete the assessment...
|
|
delete_records("exercise_assessments", "id", $aid);
|
|
|
|
print_continue("submissions.php?id=$cm->id&action=adminlist");
|
|
}
|
|
|
|
|
|
/*********************** admin list of asssessments (of a submission) (by teachers)**************/
|
|
elseif ($action == 'adminlist') {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
|
|
if (empty($sid)) {
|
|
error ("exercise asssessments: adminlist called with no sid");
|
|
}
|
|
$submission = get_record("exercise_submissions", "id", $sid);
|
|
exercise_print_assessments_for_admin($exercise, $submission);
|
|
print_continue("submissions.php?action=adminlist&id=$cm->id");
|
|
}
|
|
|
|
|
|
/****************** admin list of asssessments by a student (used by teachers only )******************/
|
|
elseif ($action == 'adminlistbystudent') {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
|
|
if (empty($userid)) {
|
|
error ("exercise asssessments: adminlistbystudent called with no userid");
|
|
}
|
|
$user = get_record("user", "id", $userid);
|
|
exercise_print_assessments_by_user_for_admin($exercise, $user);
|
|
print_continue("submissions.php?action=adminlist&id=$cm->id");
|
|
}
|
|
|
|
|
|
/****************** Assess resubmission (by teacher) ***************************/
|
|
elseif ($action == 'assessresubmission') {
|
|
|
|
if (empty($sid)) {
|
|
error ("exercise asssessments: assessresubmission called with no sid");
|
|
}
|
|
|
|
if (! $submission = get_record("exercise_submissions", "id", $sid)) {
|
|
error("Assess submission is misconfigured - no submission record!");
|
|
}
|
|
if (!$submissionowner = get_record("user", "id", $submission->userid)) {
|
|
error("Assess resubmission: user record not found");
|
|
}
|
|
|
|
// there can be an assessment record, if there isn't...
|
|
if (!$assessment = exercise_get_submission_assessment($submission, $USER)) {
|
|
if (!$submissions = exercise_get_user_submissions($exercise, $submissionowner)) {
|
|
error("Assess resubmission: submission records not found");
|
|
}
|
|
$lastone= '';
|
|
// just the last but one submission
|
|
foreach ($submissions as $submission) {
|
|
$prevsubmission = $lastone;
|
|
$lastone = $submission;
|
|
}
|
|
// get the teacher's assessment of the student's previous submission
|
|
if (!$prevassessment = exercise_get_submission_assessment($prevsubmission, $USER)) {
|
|
error("Assess resubmission: Previous assessment record not found");
|
|
}
|
|
// copy this assessment with comments...
|
|
$assessment = exercise_copy_assessment($prevassessment, $submission, true);
|
|
}
|
|
|
|
print_heading(get_string("thisisaresubmission", "exercise",
|
|
fullname($submissionowner)));
|
|
// show assessment and allow changes
|
|
exercise_print_assessment_form($exercise, $assessment, true, $_SERVER["HTTP_REFERER"]);
|
|
}
|
|
|
|
|
|
/****************** Assess submission (by teacher or student) ***************************/
|
|
elseif ($action == 'assesssubmission') {
|
|
|
|
if (empty($sid)) {
|
|
error ("exercise asssessments: assesssubmission called with no sid");
|
|
}
|
|
|
|
if (! $submission = get_record("exercise_submissions", "id", $sid)) {
|
|
error("Assess submission is misconfigured - no submission record!");
|
|
}
|
|
|
|
// there can be an assessment record (for teacher submissions), if there isn't...
|
|
if (!$assessment = exercise_get_submission_assessment($submission, $USER)) {
|
|
$yearfromnow = time() + 365 * 86400;
|
|
// ...create one and set timecreated way in the future, this is reset when record is updated
|
|
$assessment->exerciseid = $exercise->id;
|
|
$assessment->submissionid = $submission->id;
|
|
$assessment->userid = $USER->id;
|
|
$assessment->grade = -1; // set impossible grade
|
|
$assessment->timecreated = $yearfromnow;
|
|
$assessment->timegraded = 0;
|
|
if (!$assessment->id = insert_record("exercise_assessments", $assessment)) {
|
|
error("Could not insert exercise assessment!");
|
|
}
|
|
}
|
|
|
|
// show assessment and allow changes
|
|
exercise_print_assessment_form($exercise, $assessment, true, $_SERVER["HTTP_REFERER"]);
|
|
}
|
|
|
|
|
|
/****************** display grading form (viewed by student) *********************************/
|
|
elseif ($action == 'displaygradingform') {
|
|
|
|
print_heading_with_help(get_string("specimenassessmentform", "exercise"), "specimen", "exercise");
|
|
|
|
exercise_print_assessment_form($exercise); // called with no assessment
|
|
print_continue("view.php?id=$cm->id");
|
|
}
|
|
|
|
|
|
/****************** edit assessment elements (for teachers) ***********************/
|
|
elseif ($action == 'editelements') {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
|
|
$count = count_records("exercise_grades", "exerciseid", $exercise->id);
|
|
if ($exercise->phase > 1 and $count) {
|
|
notify(get_string("warningonamendingelements", "exercise"));
|
|
}
|
|
// set up heading, form and table
|
|
print_heading_with_help(get_string("editingassessmentelements", "exercise"), "elements", "exercise");
|
|
?>
|
|
<form name="form" method="post" action="assessments.php">
|
|
<input type="hidden" name="id" value="<?php echo $cm->id ?>" />
|
|
<input type="hidden" name="action" value="insertelements" />
|
|
<center><table cellpadding="5" border="1">
|
|
<?php
|
|
|
|
// get existing elements, if none set up appropriate default ones
|
|
if ($elementsraw = get_records("exercise_elements", "exerciseid", $exercise->id, "elementno ASC" )) {
|
|
foreach ($elementsraw as $element) {
|
|
$elements[] = $element; // to renumber index 0,1,2...
|
|
}
|
|
}
|
|
// check for missing elements (this happens either the first time round or when the number
|
|
// of elements is icreased)
|
|
for ($i=0; $i<$exercise->nelements; $i++) {
|
|
if (!isset($elements[$i])) {
|
|
$elements[$i]->description = '';
|
|
$elements[$i]->scale =0;
|
|
$elements[$i]->maxscore = 0;
|
|
$elements[$i]->weight = 11;
|
|
}
|
|
}
|
|
switch ($exercise->gradingstrategy) {
|
|
case 0: // no grading
|
|
for ($i=0; $i<$exercise->nelements; $i++) {
|
|
$iplus1 = $i+1;
|
|
echo "<tr valign=\"top\">\n";
|
|
echo " <td align=\"right\"><p><b>". get_string("element","exercise")." $iplus1:</b></td>\n";
|
|
echo "<td><textarea name=\"description[]\" rows=\"3\" cols=\"75\" wrap=\"virtual\">".
|
|
$elements[$i]->description."</textarea>\n";
|
|
echo " </td></tr>\n";
|
|
echo "<tr valign=\"top\">\n";
|
|
echo " <td colspan=\"2\"> </td>\n";
|
|
echo "</tr>\n";
|
|
}
|
|
break;
|
|
|
|
case 1: // accumulative grading
|
|
// set up scales name
|
|
foreach ($EXERCISE_SCALES as $KEY => $SCALE) {
|
|
$SCALES[] = $SCALE['name'];
|
|
}
|
|
|
|
for ($i=0; $i<$exercise->nelements; $i++) {
|
|
$iplus1 = $i+1;
|
|
echo "<tr valign=\"top\">\n";
|
|
echo " <td align=\"right\"><p><b>". get_string("element","exercise")." $iplus1:</b></td>\n";
|
|
echo "<td><textarea name=\"description[]\" rows=\"3\" cols=\"75\" wrap=\"virtual\">".
|
|
$elements[$i]->description."</textarea>\n";
|
|
echo " </td></tr>\n";
|
|
echo "<tr valign=\"top\">\n";
|
|
echo " <td align=\"right\"><p><b>". get_string("typeofscale", "exercise"). ":</b></p></td>\n";
|
|
echo "<td valign=\"top\">\n";
|
|
choose_from_menu($SCALES, "scale[]", $elements[$i]->scale, "");
|
|
if ($elements[$i]->weight == '') { // not set
|
|
$elements[$i]->weight = 11; // unity
|
|
}
|
|
echo "</tr>\n";
|
|
echo "<tr valign=\"top\"><td align=\"right\"><b>".get_string("elementweight", "exercise").
|
|
":</b></td><td>\n";
|
|
exercise_choose_from_menu($EXERCISE_EWEIGHTS, "weight[]", $elements[$i]->weight, "");
|
|
echo " </td>\n";
|
|
echo "</tr>\n";
|
|
echo "<tr valign=\"top\">\n";
|
|
echo " <td colspan=\"2\"> </td>\n";
|
|
echo "</tr>\n";
|
|
}
|
|
break;
|
|
|
|
case 2: // error banded grading
|
|
for ($i=0; $i<$exercise->nelements; $i++) {
|
|
$iplus1 = $i+1;
|
|
echo "<tr valign=\"top\">\n";
|
|
echo " <td align=\"right\"><p><b>". get_string("element","exercise")." $iplus1:</b></td>\n";
|
|
echo "<td><textarea name=\"description[$i]\" rows=\"3\" cols=\"75\" wrap=\"virtual\">".
|
|
$elements[$i]->description."</textarea>\n";
|
|
echo " </td></tr>\n";
|
|
if ($elements[$i]->weight == '') { // not set
|
|
$elements[$i]->weight = 11; // unity
|
|
}
|
|
echo "</tr>\n";
|
|
echo "<tr valign=\"top\"><td align=\"right\"><b>".get_string("elementweight", "exercise").
|
|
":</b></td><td>\n";
|
|
exercise_choose_from_menu($EXERCISE_EWEIGHTS, "weight[]", $elements[$i]->weight, "");
|
|
echo " </td>\n";
|
|
echo "</tr>\n";
|
|
echo "<tr valign=\"top\">\n";
|
|
echo " <td colspan=\"2\"> </td>\n";
|
|
echo "</tr>\n";
|
|
}
|
|
echo "</center></table><br />\n";
|
|
echo "<p><center><b>".get_string("gradetable","exercise")."</b></center>\n";
|
|
echo "<center><table cellpadding=\"5\" border=\"1\"><tr><td align=\"CENTER\">".
|
|
get_string("numberofnegativeresponses", "exercise");
|
|
echo "</td><td>". get_string("suggestedgrade", "exercise")."</td></tr>\n";
|
|
for ($j = $exercise->grade; $j >= 0; $j--) {
|
|
$numbers[$j] = $j;
|
|
}
|
|
for ($i=0; $i<=$exercise->nelements; $i++) {
|
|
echo "<tr><td align=\"CENTER\">$i</td><td align=\"CENTER\">";
|
|
if (!isset($elements[$i])) { // the "last one" will be!
|
|
$elements[$i]->description = "";
|
|
$elements[$i]->maxscore = 0;
|
|
}
|
|
choose_from_menu($numbers, "maxscore[$i]", $elements[$i]->maxscore, "");
|
|
echo "</td></tr>\n";
|
|
}
|
|
break;
|
|
|
|
case 3: // criterion grading
|
|
for ($j = $exercise->grade; $j >= 0; $j--) {
|
|
$numbers[$j] = $j;
|
|
}
|
|
for ($i=0; $i<$exercise->nelements; $i++) {
|
|
$iplus1 = $i+1;
|
|
echo "<tr valign=\"top\">\n";
|
|
|
|
echo " <td align=\"right\"><p><b>". get_string("criterion","exercise")." $iplus1:</b></td>\n";
|
|
echo "<td><textarea name=\"description[$i]\" rows=\"3\" cols=\"75\" wrap=\"virtual\">".
|
|
$elements[$i]->description."</textarea>\n";
|
|
echo " </td></tr>\n";
|
|
echo "<tr><td><b>". get_string("suggestedgrade", "exercise").":</b></td><td>\n";
|
|
choose_from_menu($numbers, "maxscore[$i]", $elements[$i]->maxscore, "");
|
|
echo "</td></tr>\n";
|
|
echo "<tr valign=\"top\">\n";
|
|
|
|
echo " <td colspan=\"2\"> </td>\n";
|
|
echo "</tr>\n";
|
|
}
|
|
break;
|
|
|
|
case 4: // rubric
|
|
for ($j = 100; $j >= 0; $j--) {
|
|
$numbers[$j] = $j;
|
|
}
|
|
if ($rubricsraw = get_records("exercise_rubrics", "exerciseid", $exercise->id)) {
|
|
foreach ($rubricsraw as $rubric) {
|
|
$rubrics[$rubric->elementno][$rubric->rubricno] = $rubric->description; // reindex 0,1,2...
|
|
}
|
|
}
|
|
for ($i=0; $i<$exercise->nelements; $i++) {
|
|
$iplus1 = $i+1;
|
|
echo "<tr valign=\"top\">\n";
|
|
echo " <td align=\"right\"><p><b>". get_string("element","exercise")." $iplus1:</b></td>\n";
|
|
echo "<td><textarea name=\"description[$i]\" rows=\"3\" cols=\"75\" wrap=\"virtual\">".
|
|
$elements[$i]->description."</textarea>\n";
|
|
echo " </td></tr>\n";
|
|
echo "<tr valign=\"top\"><td align=\"right\"><b>".get_string("elementweight", "exercise").
|
|
":</b></td><td>\n";
|
|
exercise_choose_from_menu($EXERCISE_EWEIGHTS, "weight[]", $elements[$i]->weight, "");
|
|
echo " </td>\n";
|
|
echo "</tr>\n";
|
|
|
|
for ($j=0; $j<5; $j++) {
|
|
$jplus1 = $j+1;
|
|
if (empty($rubrics[$i][$j])) {
|
|
$rubrics[$i][$j] = "";
|
|
}
|
|
echo "<tr valign=\"top\">\n";
|
|
echo " <td align=\"right\"><p><b>". get_string("grade")." $j:</b></td>\n";
|
|
echo "<td><textarea name=\"rubric[$i][$j]\" rows=\"3\" cols=\"75\" wrap=\"virtual\">".
|
|
$rubrics[$i][$j]."</textarea>\n";
|
|
echo " </td></tr>\n";
|
|
}
|
|
echo "<tr valign=\"top\">\n";
|
|
echo " <td colspan=\"2\"> </td>\n";
|
|
echo "</tr>\n";
|
|
}
|
|
break;
|
|
}
|
|
// close table and form
|
|
|
|
?>
|
|
</table><br />
|
|
<input type="submit" value="<?php print_string("savechanges") ?>" />
|
|
<input type="submit" name="cancel" value="<?php print_string("cancel") ?>" />
|
|
</center>
|
|
|
|
</form>
|
|
<?php
|
|
}
|
|
|
|
|
|
/****************** insert/update assignment elements (for teachers)***********************/
|
|
elseif ($action == 'insertelements') {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
|
|
$form = data_submitted();
|
|
|
|
// let's not fool around here, dump the junk!
|
|
delete_records("exercise_elements", "exerciseid", $exercise->id);
|
|
|
|
// determine wich type of grading
|
|
switch ($exercise->gradingstrategy) {
|
|
case 0: // no grading
|
|
// Insert all the elements that contain something
|
|
foreach ($form->description as $key => $description) {
|
|
if ($description) {
|
|
unset($element);
|
|
$element->description = $description;
|
|
$element->exerciseid = $exercise->id;
|
|
$element->elementno = clean_param($key, PARAM_INT);
|
|
if (!$element->id = insert_record("exercise_elements", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
}
|
|
}
|
|
break;
|
|
|
|
case 1: // accumulative grading
|
|
// Insert all the elements that contain something
|
|
foreach ($form->description as $key => $description) {
|
|
if ($description) {
|
|
unset($element);
|
|
$element->description = $description;
|
|
$element->exerciseid = $exercise->id;
|
|
$element->elementno = clean_param($key, PARAM_INT);
|
|
if (isset($form->scale[$key])) {
|
|
$element->scale = $form->scale[$key];
|
|
switch ($EXERCISE_SCALES[$form->scale[$key]]['type']) {
|
|
case 'radio' : $element->maxscore = $EXERCISE_SCALES[$form->scale[$key]]['size'] - 1;
|
|
break;
|
|
case 'selection' : $element->maxscore = $EXERCISE_SCALES[$form->scale[$key]]['size'];
|
|
break;
|
|
}
|
|
}
|
|
if (isset($form->weight[$key])) {
|
|
$element->weight = $form->weight[$key];
|
|
}
|
|
if (!$element->id = insert_record("exercise_elements", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
}
|
|
}
|
|
break;
|
|
|
|
case 2: // error banded grading...
|
|
case 3: // ...and criterion grading
|
|
// Insert all the elements that contain something, the number of descriptions is
|
|
// one less than the number of grades
|
|
foreach ($form->maxscore as $key => $themaxscore) {
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->elementno = clean_param($key, PARAM_INT);
|
|
$element->maxscore = $themaxscore;
|
|
if (isset($form->description[$key])) {
|
|
$element->description = $form->description[$key];
|
|
}
|
|
if (isset($form->weight[$key])) {
|
|
$element->weight = $form->weight[$key];
|
|
}
|
|
if (!$element->id = insert_record("exercise_elements", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
}
|
|
break;
|
|
|
|
case 4: // ...and criteria grading
|
|
// Insert all the elements that contain something
|
|
foreach ($form->description as $key => $description) {
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->elementno = clean_param($key, PARAM_INT);
|
|
$element->description = $description;
|
|
$element->weight = $form->weight[$key];
|
|
for ($j=0;$j<5;$j++) {
|
|
if (empty($form->rubric[$key][$j]))
|
|
break;
|
|
}
|
|
$element->maxscore = $j - 1;
|
|
if (!$element->id = insert_record("exercise_elements", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
}
|
|
// let's not fool around here, dump the junk!
|
|
delete_records("exercise_rubrics", "exerciseid", $exercise->id);
|
|
for ($i=0;$i<$exercise->nelements;$i++) {
|
|
for ($j=0;$j<5;$j++) {
|
|
unset($element);
|
|
if (empty($form->rubric[$i][$j])) { // OK to have an element with fewer than 5 items
|
|
break;
|
|
}
|
|
$element->exerciseid = $exercise->id;
|
|
$element->elementno = $i;
|
|
$element->rubricno = $j;
|
|
$element->description = $form->rubric[$i][$j];
|
|
if (!$element->id = insert_record("exercise_rubrics", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
}
|
|
}
|
|
break;
|
|
} // end of switch
|
|
redirect("view.php?id=$cm->id", get_string("savedok", "exercise"));
|
|
}
|
|
|
|
|
|
/****************** list assessments for grading (Student submissions)(by teachers)*********************/
|
|
elseif ($action == 'listungradedstudentsubmissions') {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
exercise_list_ungraded_assessments($exercise, "student");
|
|
print_continue("view.php?id=$cm->id");
|
|
}
|
|
|
|
|
|
/***************** list assessments for grading student assessments ( linked to the
|
|
******************Teacher's submissions) (by teachers)****/
|
|
elseif ($action == 'listungradedstudentassessments') {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
exercise_list_ungraded_assessments($exercise, "teacher");
|
|
print_continue("view.php?id=$cm->id");
|
|
}
|
|
|
|
|
|
/****************** list teacher submissions ***********************/
|
|
elseif ($action == 'listteachersubmissions') {
|
|
|
|
exercise_list_teacher_submissions($exercise, $USER);
|
|
print_continue("view.php?id=$cm->id");
|
|
}
|
|
|
|
|
|
/******************* regrade student assessments ************************************/
|
|
elseif ($action == 'regradestudentassessments' ) {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
// get all the student assessments
|
|
if ($assessments = exercise_get_teacher_submission_assessments($exercise)) {
|
|
foreach ($assessments as $studentassessment) {
|
|
if ($studentassessment->timegraded > 0) {
|
|
if (!$submissions = get_records_select("exercise_submissions",
|
|
"userid = $studentassessment->userid AND exerciseid = $exercise->id", "timecreated ASC")) {
|
|
error("Regrade student assessments: student submission not found");
|
|
}
|
|
foreach ($submissions as $submission) { // only the first one is relavant
|
|
if (!$teacherassessments = get_records("exercise_assessments", "submissionid",
|
|
$submission->id, "timecreated ASC")) {
|
|
error("Regrade student assessments: teacher assessment(s) not found");
|
|
}
|
|
foreach ($teacherassessments as $teacherassessment) { // only the first one is relavent
|
|
$newgrade = exercise_compare_assessments($exercise, $studentassessment, $teacherassessment);
|
|
set_field("exercise_assessments", "gradinggrade", $newgrade, "id", $studentassessment->id);
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
redirect("submissions.php?id=$cm->id&action=adminlist");
|
|
}
|
|
|
|
|
|
/****************** teacher assessment : grading of assessment and submission (from student) ************/
|
|
elseif ($action == 'teacherassessment') {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
|
|
if (empty($aid)) {
|
|
error("assessment id missing");
|
|
}
|
|
if (empty($sid)) {
|
|
error ("no sid");
|
|
}
|
|
if (!$assessment = get_record("exercise_assessments", "id", $aid)) {
|
|
error("Teacher assessment: User's assessment record not found");
|
|
}
|
|
if (!$submission = get_record("exercise_submissions", "id", $sid)) {
|
|
error("Teacher assessment: User's submission record not found");
|
|
}
|
|
exercise_print_teacher_assessment_form($exercise, $assessment, $submission, $_SERVER["HTTP_REFERER"]);
|
|
}
|
|
|
|
|
|
/****************** teacher table : show assessments by exercise and teacher ************/
|
|
elseif ($action == 'teachertable') {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
|
|
exercise_print_teacher_table($course);
|
|
print_continue("index.php?id=$course->id");
|
|
}
|
|
|
|
|
|
/****************** update assessment (by teacher or student) ***************************/
|
|
elseif ($action == 'updateassessment') {
|
|
|
|
$timenow = time();
|
|
$form = data_submitted();
|
|
|
|
if (empty($aid)) {
|
|
error("assessment id missing");
|
|
}
|
|
if (! $assessment = get_record("exercise_assessments", "id", $aid)) {
|
|
error("exercise assessment is misconfigured");
|
|
}
|
|
|
|
// first get the assignment elements for maxscores and weights...
|
|
if (!$elementsraw = get_records("exercise_elements", "exerciseid", $exercise->id, "elementno ASC")) {
|
|
print_string("noteonassignmentelements", "exercise");
|
|
}
|
|
else {
|
|
foreach ($elementsraw as $element) {
|
|
$elements[] = $element; // to renumber index 0,1,2...
|
|
}
|
|
}
|
|
|
|
// don't fiddle about, delete all the old and then add the new!
|
|
delete_records("exercise_grades", "assessmentid", $assessment->id);
|
|
|
|
//determine what kind of grading we have
|
|
switch ($exercise->gradingstrategy) {
|
|
case 0: // no grading
|
|
// Insert all the elements that contain something
|
|
foreach ($form->feedback as $key => $thefeedback) {
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = clean_param($key, PARAM_INT);
|
|
$element->feedback = clean_param($thefeedback, PARAM_CLEAN);
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
}
|
|
$grade = 0; // set to satisfy save to db
|
|
break;
|
|
|
|
case 1: // accumulative grading
|
|
// Insert all the elements that contain something
|
|
foreach ($form->grade as $key => $thegrade) {
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = clean_param($key, PARAM_INT);
|
|
$element->feedback = clean_param($form->feedback[$key], PARAM_CLEAN);
|
|
$element->grade = $thegrade;
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
}
|
|
// now work out the grade...
|
|
$rawgrade=0;
|
|
$totalweight=0;
|
|
foreach ($form->grade as $key => $grade) {
|
|
$maxscore = $elements[$key]->maxscore;
|
|
$weight = $EXERCISE_EWEIGHTS[$elements[$key]->weight];
|
|
if ($weight > 0) {
|
|
$totalweight += $weight;
|
|
}
|
|
$rawgrade += ($grade / $maxscore) * $weight;
|
|
// echo "\$key, \$maxscore, \$weight, \$totalweight, \$grade, \$rawgrade : $key, $maxscore, $weight, $totalweight, $grade, $rawgrade<br />";
|
|
}
|
|
$grade = 100.0 * ($rawgrade / $totalweight);
|
|
break;
|
|
|
|
case 2: // error banded graded
|
|
// Insert all the elements that contain something
|
|
$error = 0.0;
|
|
for ($i =0; $i < $exercise->nelements; $i++) {
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = $i;
|
|
$element->feedback = clean_param($form->feedback[$i], PARAM_CLEAN);
|
|
$element->grade = $form->grade[$i];
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
if (empty($form->grade[$i])){
|
|
$error += $EXERCISE_EWEIGHTS[$elements[$i]->weight];
|
|
}
|
|
}
|
|
// now save the adjustment
|
|
unset($element);
|
|
$i = $exercise->nelements;
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = $i;
|
|
$element->grade = $form->grade[$i];
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
$grade = ($elements[intval($error + 0.5)]->maxscore + $form->grade[$i])
|
|
* 100.0 / $exercise->grade;
|
|
// echo "<p><b>".get_string("weightederrorcount", "exercise", intval($error + 0.5)).
|
|
// " ".get_string("adjustment", "exercise").": ".$form->grade[$i]."</b>\n";
|
|
// check the grade for sanity!
|
|
if ($grade > 100.0) {
|
|
$grade = 100.0;
|
|
}
|
|
if ($grade < 0.0) {
|
|
$grade = 0.0;
|
|
}
|
|
break;
|
|
|
|
case 3: // criteria grading
|
|
// save in the selected criteria value in element zero,
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = 0;
|
|
$element->grade = $form->grade[0];
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
// now save the adjustment in element one
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = 1;
|
|
$element->grade = $form->grade[1];
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
$grade = ($elements[$form->grade[0]]->maxscore + $form->grade[1]) * 100 / $exercise->grade;
|
|
// check the grade for sanity!
|
|
if ($grade >100.0) {
|
|
$grade = 100.0;
|
|
}
|
|
if ($grade < 0.0) {
|
|
$grade = 0.0;
|
|
}
|
|
break;
|
|
|
|
case 4: // rubric grading (identical to accumulative grading)
|
|
// Insert all the elements that contain something
|
|
foreach ($form->grade as $key => $thegrade) {
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = clean_param($key, PARAM_INT);
|
|
$element->feedback = clean_param($form->feedback[$key], PARAM_CLEAN);
|
|
$element->grade = $thegrade;
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
}
|
|
// now work out the grade...
|
|
$rawgrade=0;
|
|
$totalweight=0;
|
|
foreach ($form->grade as $key => $grade) {
|
|
$maxscore = $elements[$key]->maxscore;
|
|
$weight = $EXERCISE_EWEIGHTS[$elements[$key]->weight];
|
|
if ($weight > 0) {
|
|
$totalweight += $weight;
|
|
}
|
|
$rawgrade += ($grade / $maxscore) * $weight;
|
|
}
|
|
$grade = 100.0 * ($rawgrade / $totalweight);
|
|
break;
|
|
|
|
} // end of switch
|
|
|
|
// update the time of the assessment record (may be re-edited)...
|
|
set_field("exercise_assessments", "timecreated", $timenow, "id", $assessment->id);
|
|
set_field("exercise_assessments", "grade", $grade, "id", $assessment->id);
|
|
// ...and clear any grading of this assessment (these assessments are never graded but...)
|
|
set_field("exercise_assessments", "timegraded", 0, "id", $assessment->id);
|
|
set_field("exercise_assessments", "gradinggrade", 0, "id", $assessment->id);
|
|
|
|
// any comment?
|
|
if (!empty($form->generalcomment)) {
|
|
set_field("exercise_assessments", "generalcomment", clean_param($form->generalcomment, PARAM_CLEAN), "id", $assessment->id);
|
|
}
|
|
|
|
// is user allowed to resubmit?
|
|
if (has_capability('mod/exercise:assess', $context)) {
|
|
if (!$submission = get_record("exercise_submissions", "id", $assessment->submissionid)) {
|
|
error ("Updateassessment: submission record not found");
|
|
}
|
|
if ($form->resubmit == 1) {
|
|
set_field("exercise_submissions", "resubmit", 1, "id", $submission->id);
|
|
}
|
|
else {
|
|
// clear resubmit flag
|
|
set_field("exercise_submissions", "resubmit", 0, "id", $submission->id);
|
|
}
|
|
}
|
|
|
|
add_to_log($course->id, "exercise", "assess", "view.php?id=$cm->id", "$assessment->id");
|
|
|
|
// set up return address
|
|
if (!$returnto = $form->returnto) {
|
|
$returnto = "view.php?id=$cm->id";
|
|
}
|
|
|
|
// show grade if grading strategy is not zero
|
|
if ($exercise->gradingstrategy) {
|
|
redirect($returnto, "<p align=\"center\"><b>".get_string("thegradeis", "exercise").": ".
|
|
number_format($grade * $exercise->grade / 100.0, 1)." (".get_string("maximumgrade").
|
|
" ".number_format($exercise->grade).")</b></p>", 1);
|
|
}
|
|
else {
|
|
redirect($returnto);
|
|
}
|
|
}
|
|
|
|
|
|
/****************** update teacher assessment (by teacher only) ***************************/
|
|
elseif ($action == 'updateteacherassessment') {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
|
|
$timenow = time();
|
|
$form = data_submitted();
|
|
|
|
// first do the (teacher's) assessment of the student's submission
|
|
if (! $submission = get_record("exercise_submissions", "id", $form->sid)) {
|
|
error("Update teacher assessment: student's submission record not found");
|
|
}
|
|
if (!$assessment = exercise_get_submission_assessment($submission, $USER)) {
|
|
error("Update teacher assessment: teacher's assessment record not found");
|
|
}
|
|
|
|
// first get the assignment elements for maxscores and weights...
|
|
if (!$elementsraw = get_records("exercise_elements", "exerciseid", $exercise->id, "elementno ASC")) {
|
|
print_string("noteonassignmentelements", "exercise");
|
|
}
|
|
else {
|
|
foreach ($elementsraw as $element) {
|
|
$elements[] = $element; // to renumber index 0,1,2...
|
|
}
|
|
}
|
|
|
|
// don't fiddle about, delete all the old and then add the new!
|
|
delete_records("exercise_grades", "assessmentid", $assessment->id);
|
|
|
|
//determine what kind of grading we have
|
|
switch ($exercise->gradingstrategy) {
|
|
case 0: // no grading
|
|
// Insert all the elements that contain something
|
|
foreach ($form->feedback as $key => $thefeedback) {
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = clean_param($key, PARAM_INT);
|
|
$element->feedback = clean_param($thefeedback, PARAM_CLEAN);
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
}
|
|
$grade = 0; // set to satisfy save to db
|
|
break;
|
|
|
|
case 1: // accumulative grading
|
|
// Insert all the elements that contain something
|
|
foreach ($form->grade as $key => $thegrade) {
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = clean_param($key, PARAM_INT);
|
|
$element->feedback = clean_param($form->feedback[$key], PARAM_CLEAN);
|
|
$element->grade = $thegrade;
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
}
|
|
// now work out the grade...
|
|
$rawgrade=0;
|
|
$totalweight=0;
|
|
foreach ($form->grade as $key => $grade) {
|
|
$maxscore = $elements[$key]->maxscore;
|
|
$weight = $EXERCISE_EWEIGHTS[$elements[$key]->weight];
|
|
if ($weight > 0) {
|
|
$totalweight += $weight;
|
|
}
|
|
$rawgrade += ($grade / $maxscore) * $weight;
|
|
// echo "\$key, \$maxscore, \$weight, \$totalweight, \$grade, \$rawgrade : $key, $maxscore, $weight, $totalweight, $grade, $rawgrade<br />";
|
|
}
|
|
$grade = 100.0 * ($rawgrade / $totalweight);
|
|
break;
|
|
|
|
case 2: // error banded graded
|
|
// Insert all the elements that contain something
|
|
$error = 0.0;
|
|
for ($i =0; $i < $exercise->nelements; $i++) {
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = $i;
|
|
$element->feedback = clean_param($form->feedback[$i], PARAM_CLEAN);
|
|
$element->grade = $form->grade[$i];
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
if (empty($form->grade[$i])){
|
|
$error += $EXERCISE_EWEIGHTS[$elements[$i]->weight];
|
|
}
|
|
}
|
|
// now save the adjustment
|
|
unset($element);
|
|
$i = $exercise->nelements;
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = $i;
|
|
$element->grade = $form->grade[$i];
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
$grade = ($elements[intval($error + 0.5)]->maxscore + $form->grade[$i]) * 100 / $exercise->grade;
|
|
echo "<p><b>".get_string("weightederrorcount", "exercise", intval($error + 0.5))."</b>\n";
|
|
break;
|
|
|
|
case 3: // criteria grading
|
|
// save in the selected criteria value in element zero,
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = 0;
|
|
$element->grade = $form->grade[0];
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
// now save the adjustment in element one
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = 1;
|
|
$element->grade = $form->grade[1];
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
$grade = ($elements[$form->grade[0]]->maxscore + $form->grade[1]) * 100 / $exercise->grade;
|
|
break;
|
|
|
|
case 4: // rubric grading (identical to accumulative grading)
|
|
// Insert all the elements that contain something
|
|
foreach ($form->grade as $key => $thegrade) {
|
|
unset($element);
|
|
$element->exerciseid = $exercise->id;
|
|
$element->assessmentid = $assessment->id;
|
|
$element->elementno = clean_param($key, PARAM_INT);
|
|
$element->feedback = clean_param($form->feedback[$key], PARAM_CLEAN);
|
|
$element->grade = $thegrade;
|
|
if (!$element->id = insert_record("exercise_grades", $element)) {
|
|
error("Could not insert exercise element!");
|
|
}
|
|
}
|
|
// now work out the grade...
|
|
$rawgrade=0;
|
|
$totalweight=0;
|
|
foreach ($form->grade as $key => $grade) {
|
|
$maxscore = $elements[$key]->maxscore;
|
|
$weight = $EXERCISE_EWEIGHTS[$elements[$key]->weight];
|
|
if ($weight > 0) {
|
|
$totalweight += $weight;
|
|
}
|
|
$rawgrade += ($grade / $maxscore) * $weight;
|
|
}
|
|
$grade = 100.0 * ($rawgrade / $totalweight);
|
|
break;
|
|
|
|
} // end of switch
|
|
|
|
// update the time of the assessment record (may be re-edited)...
|
|
set_field("exercise_assessments", "timecreated", $timenow, "id", $assessment->id);
|
|
set_field("exercise_assessments", "grade", $grade, "id", $assessment->id);
|
|
// ...and clear any grading of this assessment (never needed but...)
|
|
set_field("exercise_assessments", "timegraded", 0, "id", $assessment->id);
|
|
set_field("exercise_assessments", "gradinggrade", 0, "id", $assessment->id);
|
|
|
|
// any comment?
|
|
if (!empty($form->generalcomment)) {
|
|
set_field("exercise_assessments", "generalcomment", clean_param($form->generalcomment, PARAM_CLEAN), "id", $assessment->id);
|
|
}
|
|
|
|
// now calculate the (grading) grade of the student's assessment...
|
|
if (!$stassessment = get_record("exercise_assessments", "id", $form->said)) {
|
|
error("Update teacher assessment: student's assessment record not found");
|
|
}
|
|
$gradinggrade = exercise_compare_assessments($exercise, $assessment, $stassessment);
|
|
// ...and save the grade for the assessment
|
|
set_field("exercise_assessments", "gradinggrade", $gradinggrade, "id", $stassessment->id);
|
|
set_field("exercise_assessments", "timegraded", $timenow, "id", $stassessment->id);
|
|
set_field("exercise_assessments", "mailed", 0, "id", $stassessment->id);
|
|
echo "<centre><b>".get_string("savedok", "exercise")."</b></centre><br />\n";
|
|
|
|
add_to_log($course->id, "exercise", "grade", "view.php?id=$cm->id", "$stassessment->id");
|
|
|
|
// is user allowed to resubmit?
|
|
if ($form->resubmit == 1) {
|
|
set_field("exercise_submissions", "resubmit", 1, "id", $submission->id);
|
|
}
|
|
else {
|
|
// clear resubmit flag
|
|
set_field("exercise_submissions", "resubmit", 0, "id", $submission->id);
|
|
}
|
|
|
|
add_to_log($course->id, "exercise", "assess", "view.php?id=$cm->id", "$assessment->id");
|
|
|
|
// set up return address
|
|
if (!$returnto = $form->returnto) {
|
|
$returnto = "view.php?id=$cm->id";
|
|
}
|
|
|
|
// show grade if grading strategy is not zero
|
|
if ($exercise->gradingstrategy) {
|
|
redirect($returnto, "<p align=\"center\"><b>".get_string("gradeforstudentsassessment",
|
|
"exercise", $course->student).": ".number_format($gradinggrade * $exercise->gradinggrade / 100.0, 1).
|
|
" (".get_string("maximumgrade")." ".number_format($exercise->gradinggrade, 1).")</b></p><p><b>".
|
|
get_string("thegradeis", "exercise").": ".number_format($grade * $exercise->grade / 100.0, 1).
|
|
" (".get_string("maximumgrade")." ".number_format($exercise->grade, 1).")</b></p>");
|
|
}
|
|
else {
|
|
redirect($returnto);
|
|
}
|
|
}
|
|
|
|
|
|
/****************** update grading grade(by teacher) ***************************/
|
|
elseif ($action == 'updategradinggrade') {
|
|
|
|
if (!has_capability('mod/exercise:assess', $context)) {
|
|
error("Only teachers can look at this page");
|
|
}
|
|
|
|
if (empty($aid)) {
|
|
error("submission id missing");
|
|
}
|
|
// normalise gradinggrade
|
|
$gradinggrade = $_POST['gradinggrade'] * 100 / $exercise->gradinggrade;
|
|
if (!set_field("exercise_assessments", "gradinggrade", $gradinggrade, "id",
|
|
$aid)) {
|
|
error("Update grading grade: asseesment not updated");
|
|
}
|
|
redirect("submissions.php?id=$cm->id&action=adminlist", get_string("savedok", "exercise"), 1);
|
|
}
|
|
|
|
|
|
/****************** user confirm delete ************************************/
|
|
elseif ($action == 'userconfirmdelete' ) {
|
|
|
|
if (empty($aid)) {
|
|
error("User confirm delete: assessment id missing");
|
|
}
|
|
|
|
notice_yesno(get_string("confirmdeletionofthisitem","exercise", get_string("assessment", "exercise")),
|
|
"assessments.php?action=userdelete&id=$cm->id&aid=$aid", "view.php?id=$cm->id");
|
|
}
|
|
|
|
|
|
/****************** user delete ************************************/
|
|
elseif ($action == 'userdelete' ) {
|
|
|
|
if (empty($aid)) {
|
|
error("User delete: assessment id missing");
|
|
}
|
|
|
|
print_string("deleting", "exercise");
|
|
// first delete all the associated records...
|
|
delete_records("exercise_grades", "assessmentid", $aid);
|
|
// ...now delete the assessment...
|
|
delete_records("exercise_assessments", "id", $aid);
|
|
|
|
print_continue("view.php?id=$cm->id");
|
|
}
|
|
|
|
|
|
/****************** view assessment ***********************/
|
|
elseif ($action == 'viewassessment') {
|
|
|
|
if (empty($aid)) {
|
|
error("assessment id missing");
|
|
}
|
|
|
|
// get the assessment record
|
|
if (!$assessment = get_record("exercise_assessments", "id", $aid)) {
|
|
error("Assessment record not found");
|
|
}
|
|
|
|
// show assessment but don't allow changes
|
|
exercise_print_assessment_form($exercise, $assessment);
|
|
|
|
print_continue("view.php?id=$cm->id");
|
|
}
|
|
|
|
|
|
/*************** no man's land **************************************/
|
|
else {
|
|
error("Fatal Error: Unknown Action: ".$action."\n");
|
|
}
|
|
|
|
print_footer($course);
|
|
|
|
?>
|
|
|