loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.22.2.1, 2003/09/23 01:52:57	version 1.22.2.2, 2003/09/23 22:42:26
Line 136 HEADER	Line 136 HEADER
my $stack = $iterator->getStack();	my $stack = $iterator->getStack();

for my $part (@{$parts}) {	for my $part (@{$parts}) {
if ($curRes->getCompletionStatus($part) == $curRes->EXCUSED()) {	my $completionStatus = $curRes->getCompletionStatus($part);
	my $dateStatus = $curRes->getDateStatus($part);
	if ($completionStatus == $curRes->EXCUSED()) {
next;	next;
}	}
if ($showPoints) {	if ($showPoints) {
my $score = $curRes->weight($part) * $curRes->awarded($part);	my $score;
	# If we're not telling status and the answer date isn't
	# passed yet
	if (($curRes->problemstatus($part) eq 'no') &&
	($dateStatus != $curRes->ANSWER_OPEN)) {
	$score = 0;
	} else {
	$score = $curRes->weight($part) *
	$curRes->awarded($part);
	}

$partsRight += $score;	$partsRight += $score;
$totalRight += $score;	$totalRight += $score;
$partsCount += $curRes->weight($part);	$partsCount += $curRes->weight($part);
Line 160 HEADER	Line 172 HEADER
$thisright = 1;	$thisright = 1;
}	}

my $dateStatus = $curRes->getDateStatus($part);
$totalParts++;	$totalParts++;
if ($curRes->opendate($part) < $now) {	if ($curRes->opendate($part) < $now) {
$totalPossible++;	$totalPossible++;