loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.26, 2003/09/22 20:05:20	version 1.27, 2003/09/22 21:05:15
Line 58 sub real_handler {	Line 58 sub real_handler {

# Send header, don't cache this page	# Send header, don't cache this page
if ($ENV{'browser.mathml'}) {	if ($ENV{'browser.mathml'}) {
&Apache::loncommon::content_type($r,'text/xml');	&Apache::loncommon::content_type($r, 'text/xml');
} else {	} else {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r, 'text/html');
}	}
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
Line 148 HEADER	Line 148 HEADER
}	}
$totalParts += $curRes->weight($part);	$totalParts += $curRes->weight($part);
} else {	} else {
my $status = $curRes->getCompletionStatus($part);	my $status = $curRes->simpleStatus($part);
my $thisright = 0;	my $thisright = 0;
$partsCount++;	$partsCount++;
if ($status == $curRes->CORRECT \|\|	if ($status == $curRes->CORRECT \|\|
$status == $curRes->CORRECT_BY_OVERRIDE \|\|	$status == $curRes->INCORRECT \|\|
$status == $curRes->ANSWER_SUBMITTED) {	$status == $curRes->ATTEMPTED) {
$partsRight++;	$partsRight++;
$totalRight++;	$totalRight++;
$thisright = 1;	$thisright = 1;