PHP LTIX::gradeSend方法代码示例

function webauto_test_passed($grade, $url)
{
    global $USER, $OUTPUT;
    success_out("Test passed - congratulations");
    if ($USER->displayname === false || !isset($_SESSION['lti'])) {
        line_out('Not setup to return a grade..');
        return false;
    }
    $LTI = $_SESSION['lti'];
    $old_grade = isset($LTI['grade']) ? $LTI['grade'] : 0.0;
    if ($grade < $old_grade) {
        line_out('New grade is not higher than your previous grade=' . $old_grade);
        line_out('Sending your previous high score');
        $grade = $old_grade;
    }
    gradeUpdateJson(json_encode(array("url" => $url)));
    $debug_log = array();
    $retval = LTIX::gradeSend($grade, false, $debug_log);
    $OUTPUT->dumpDebugArray($debug_log);
    if ($retval == true) {
        $success = "Grade sent to server (" . $grade . ")";
    } else {
        if (is_string($retval)) {
            $failure = "Grade not sent: " . $retval;
        } else {
            echo "<pre>\n";
            var_dump($retval);
            echo "</pre>\n";
            $failure = "Internal error";
        }
    }
    if (strlen($success) > 0) {
        success_out($success);
        error_log($success);
    } else {
        if (strlen($failure) > 0) {
            error_out($failure);
            error_log($failure);
        } else {
            error_log("No status");
        }
    }
    return true;
}

use Tsugi\Util\LTI;
use Tsugi\Util\Caliper;
// Retrieve the launch data if present
$LTI = LTIX::requireData();
$p = $CFG->dbprefix;
$displayname = $USER->displayname;
if (isset($_POST['grade'])) {
    $gradetosend = $_POST['grade'] + 0.0;
    if ($gradetosend < 0.0 || $gradetosend > 1.0) {
        $_SESSION['error'] = "Grade out of range";
        header('Location: ' . addSession('index.php'));
        return;
    }
    // Use LTIX to send the grade back to the LMS.
    $debug_log = array();
    $retval = LTIX::gradeSend($gradetosend, false, $debug_log);
    $_SESSION['debug_log'] = $debug_log;
    if ($retval === true) {
        $_SESSION['success'] = "Grade {$gradetosend} sent to server.";
    } else {
        if (is_string($retval)) {
            $_SESSION['error'] = "Grade not sent: " . $retval;
        } else {
            echo "<pre>\n";
            var_dump($retval);
            echo "</pre>\n";
            die;
        }
    }
    // Redirect to ourself
    header('Location: ' . addSession('index.php'));

         } else {
             if ($server_grade > 0.0) {
                 $newrow['note'] .= ' Server grade retrieved.';
             } else {
                 $newrow['note'] .= ' Server grade checked.';
             }
         }
         $row['server_grade'] = $server_grade;
         $newrow['retrieved_at'] = $row['time_now'];
         $row['retrieved_at'] = $row['time_now'];
     }
     // Now check to see if we need to update the server_grade
     if ($row['server_grade'] < $row['grade']) {
         error_log("Patching server grade: " . session_id() . " result_id=" . $row['result_id'] . "\n" . "grade=" . $row['grade'] . " updated=" . $row['updated_at'] . "\n" . "server_grade=" . $row['server_grade'] . " retrieved=" . $row['retrieved_at']);
         $debug_log = array();
         $status = LTIX::gradeSend($row['grade'], $row, $debug_log);
         if ($status === true) {
             $newrow['note'] .= " Server grade updated.";
         } else {
             echo '<pre class="alert alert-danger">' . "\n";
             $msg = "result_id=" . $row['result_id'] . "\n" . "grade=" . $row['grade'] . " updated=" . $row['updated_at'] . "\n" . "server_grade=" . $row['server_grade'] . " retrieved=" . $row['retrieved_at'] . "\n" . "error=" . $server_grade;
             echo "Problem Updating Grade: " . session_safe_id() . " " . $msg;
             error_log("Problem Updating Grade: " . session_id() . "\n" . $msg . "\n" . "service=" . $row['service'] . " sourcedid=" . $row['sourcedid']);
             echo "\nProblem Retrieving Grade - Please take a screen shot of this page.\n";
             echo "</pre>\n";
             $newrow['note'] .= " Problem Updating Server Grade";
         }
     }
     $newrows[] = $newrow;
 }
 Table::pagedTable($newrows, $searchfields);

function webauto_test_passed($grade, $url)
{
    global $displayname;
    global $OUTPUT;
    success_out("Test passed - congratulations");
    if ($displayname === false || !isset($_SESSION['lti'])) {
        line_out('Not setup to return a grade..');
        exit;
    }
    if (!isset($_GET['grade'])) {
        line_out('Dry run - grade of (' . intval($grade * 100) . '%) was not sent.');
        exit;
    }
    gradeUpdateJson(json_encode(array("url" => $url)));
    $debug_log = array();
    $retval = LTIX::gradeSend($grade, false, $debug_log);
    $OUTPUT->dumpDebugArray($debug_log);
    if ($retval == true) {
        $success = "Grade sent to server (" . intval($grade * 100) . "%)";
    } else {
        if (is_string($retval)) {
            $failure = "Grade not sent: " . $retval;
        } else {
            echo "<pre>\n";
            var_dump($retval);
            echo "</pre>\n";
            $failure = "Internal error";
        }
    }
    if (strlen($success) > 0) {
        success_out($success);
        error_log($success);
    } else {
        if (strlen($failure) > 0) {
            error_out($failure);
            error_log($failure);
        } else {
            error_log("No status");
        }
    }
}

    $assn_json = json_decode($row['json']);
    $assn_id = $row['assn_id'];
}
if ($assn_id == false) {
    jsonError('This assignment is not yet set up');
    return;
}
// Compute the user's grade
$grade = computeGrade($assn_id, $assn_json, $user_id);
if ($grade <= 0) {
    jsonError('Nothing to grade for this user', $row);
    return;
}
// Lookup the result row if we are grading the non-current user
$result = false;
if ($user_id != $USER->id) {
    $result = lookupResult($LTI, $user_id);
}
// Send the grade
$debug_log = array();
$status = LTIX::gradeSend($grade, $result, $debug_log);
// This is the slow bit
if ($status === true) {
    if ($user_id != $USER->id) {
        jsonOutput(array("status" => $status, "debug" => $debug_log));
    } else {
        jsonOutput(array("status" => $status, "grade" => $grade, "debug" => $debug_log));
    }
} else {
    jsonError($status, $debug_log);
}

        header('Location: ' . addSession('student.php?user_id=' . $user_id));
    }
    return;
}
// Compute grade
$computed_grade = computeGrade($assn_id, $assn_json, $user_id);
// Does not cache
if (isset($_POST['resendSubmit'])) {
    $result = lookupResult($LTI, $user_id);
    // Does not cache
    // Force a resend
    $_SESSION['lti']['grade'] = -1;
    // Force a resend
    $result['grade'] = -1;
    $debug_log = array();
    $status = LTIX::gradeSend($computed_grade, $result, $debug_log);
    // This is the slow bit
    if ($status === true) {
        $_SESSION['success'] = 'Grade submitted to server';
    } else {
        error_log("Problem sending grade " . $status);
        $_SESSION['error'] = 'Error: ' . $status;
    }
    $_SESSION['debug_log'] = $debug_log;
    header('Location: ' . addSession('student.php?user_id=' . $user_id));
    return;
}
// Retrieve our grades...
$grades_received = retrieveSubmissionGrades($submit_id);
// Handle incoming post to delete a grade entry
if (isset($_POST['grade_id']) && isset($_POST['deleteGrade'])) {

    }
    unset($_SESSION['peer_submit_id']);
    $submit_id = $_POST['submit_id'] + 0;
    $stmt = $PDOX->queryReturnError("INSERT INTO {$p}peer_grade\n            (submit_id, user_id, points, note, created_at, updated_at)\n            VALUES ( :SID, :UID, :POINTS, :NOTE, NOW(), NOW())\n            ON DUPLICATE KEY UPDATE points = :POINTS, note = :NOTE, updated_at = NOW()", array(':SID' => $submit_id, ':UID' => $USER->id, ':POINTS' => $points, ':NOTE' => $_POST['note']));
    Cache::clear('peer_grade');
    if (!$stmt->success) {
        $_SESSION['error'] = $stmt->errorImplode;
        header('Location: ' . addSession($url_goback));
        return;
    }
    // Attempt to update the user's grade, may take a second..
    $grade = computeGrade($assn_id, $assn_json, $user_id);
    $_SESSION['success'] = 'Grade submitted';
    if ($grade > 0) {
        $result = lookupResult($LTI, $user_id);
        $status = LTIX::gradeSend($grade, $result);
        // This is the slow bit
        if ($status === true) {
            $_SESSION['success'] = 'Grade submitted to server';
        } else {
            error_log("Problem sending grade " . $status);
        }
    }
    header('Location: ' . addSession($url_goback));
    return;
}
unset($_SESSION['peer_submit_id']);
$submit_id = false;
$submit_json = null;
if ($user_id === false) {
    // Load the the 10 oldest ungraded submissions

 while ($row = $stmt->fetch(PDO::FETCH_ASSOC)) {
     $computed_grade = computeGrade($assn_id, $assn_json, $row['user_id']);
     $s2 = $PDOX->queryDie("UPDATE {$CFG->dbprefix}peer_submit SET regrade=1\n            WHERE submit_id = :SID", array(":SID" => $row['submit_id']));
     if ($row['grade'] >= $computed_grade) {
         echo htmlent_utf8($row['displayname']) . ' (' . htmlent_utf8($row['email']) . ') ';
         if ($row['grade'] > $computed_grade) {
             echo 'grade=' . $row['grade'] . ' computed=' . $computed_grade . " (unchanged)<br/>\n";
         } else {
             echo 'grade=' . $row['grade'] . " (matched)<br/>\n";
         }
         $unchanged++;
         continue;
     }
     $s2 = $PDOX->queryDie("UPDATE {$CFG->dbprefix}lti_result\n            SET grade=:GRA, updated_at=NOW()\n            WHERE result_id = :RID", array(":GRA" => $computed_grade, ":RID" => $row['result_id']));
     // Send the grade to the server
     $status = LTIX::gradeSend($computed_grade, $row);
     // This is the slow bit
     if ($status === true) {
         echo htmlent_utf8($row['displayname']) . ' (' . htmlent_utf8($row['email']) . ') ';
         echo "Grade {$computed_grade} submitted to server<br/>\n";
         $changed++;
     } else {
         echo '<pre class="alert alert-danger">' . "\n";
         $msg = "result_id=" . $row['result_id'] . "\n" . "grade=" . $row['grade'] . " computed_grade=" . $computed_grade . "\n" . "error=" . $status;
         echo_log("Problem Sending Grade: " . session_id() . "\n" . $msg . "\n" . "result_url=" . $row['result_url'] . " service_key=" . $row['service_key'] . " sourcedid=" . $row['sourcedid']);
         echo "</pre>\n";
         $OUTPUT->togglePre("Error sending grade", $LastPOXGradeResponse);
         flush();
         echo "Problem sending grade " . $status . "<br/>\n";
         $fail++;
         continue;