loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.21, 2003/07/17 14:31:17	version 1.22.2.1, 2003/09/23 01:52:57
Line 63 sub real_handler {	Line 63 sub real_handler {
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;

my $showPoints = 1;	my $showPoints =
if (defined($ENV{'course.'.$ENV{'request.course.id'}.'.grading'}) &&	$ENV{'course.'.$ENV{'request.course.id'}.'.grading'} eq 'standard';
$ENV{'course.'.$ENV{'request.course.id'}.'.grading'} ne 'standard') {
$showPoints = 0;
}

# Create the nav map	# Create the nav map
my $navmap = Apache::lonnavmaps::navmap->new(	my $navmap = Apache::lonnavmaps::navmap->new(
Line 153 HEADER	Line 150 HEADER
}	}
$totalParts += $curRes->weight($part);	$totalParts += $curRes->weight($part);
} else {	} else {
my $status = $curRes->getCompletionStatus($part);	my $status = $curRes->status($part);
my $thisright = 0;	my $thisright = 0;
$partsCount++;	$partsCount++;
if ($status == $curRes->CORRECT \|\|	if ($status == $curRes->CORRECT \|\|
$status == $curRes->CORRECT_BY_OVERRIDE \|\|	$status == $curRes->EXCUSED) {
$status == $curRes->ANSWER_SUBMITTED) {
$partsRight++;	$partsRight++;
$totalRight++;	$totalRight++;
$thisright = 1;	$thisright = 1;