loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.30, 2003/11/21 18:21:02	version 1.33, 2004/12/11 23:33:05
Line 150 HEADER	Line 150 HEADER
# it's an "attempted" point	# it's an "attempted" point
if ($curRes->problemstatus($part) eq 'no' &&	if ($curRes->problemstatus($part) eq 'no' &&
($dateStatus != $curRes->ANSWER_OPEN)) {	($dateStatus != $curRes->ANSWER_OPEN)) {
$partsAttempted += $curRes->weight($part);	my $status = $curRes->simpleStatus($part);
$totalAttempted += $partsAttempted;	if ($status == $curRes->ATTEMPTED) {
	$partsAttempted += $curRes->weight($part);
	$totalAttempted += $partsAttempted;
	}
} else {	} else {
$score = $curRes->weight($part) * $curRes->awarded($part);	$score = $curRes->weight($part) * $curRes->awarded($part);
}	}
Line 167 HEADER	Line 170 HEADER
my $status = $curRes->simpleStatus($part);	my $status = $curRes->simpleStatus($part);
my $thisright = 0;	my $thisright = 0;
$partsCount++;	$partsCount++;
if ($status == $curRes->CORRECT \|\|	if ($status == $curRes->CORRECT ) {
$status == $curRes->INCORRECT ) {
$partsRight++;	$partsRight++;
$totalRight++;	$totalRight++;
$thisright = 1;	$thisright = 1;
Line 283 HEADER	Line 285 HEADER

$r->print("</table></body></html>");	$r->print("</table></body></html>");

$navmap->untieHashes();

return OK;	return OK;
}	}