loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.20, 2003/06/25 19:29:43	version 1.21, 2003/07/17 14:31:17
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 = $ENV{'course.'.$ENV{'request.course.id'}.'.grading'} eq 'standard';	my $showPoints = 1;
	if (defined($ENV{'course.'.$ENV{'request.course.id'}.'.grading'}) &&
	$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 135 HEADER	Line 139 HEADER
my $stack = $iterator->getStack();	my $stack = $iterator->getStack();

for my $part (@{$parts}) {	for my $part (@{$parts}) {
	if ($curRes->getCompletionStatus($part) == $curRes->EXCUSED()) {
	next;
	}
if ($showPoints) {	if ($showPoints) {
my $score = $curRes->weight($part) * $curRes->awarded($part);	my $score = $curRes->weight($part) * $curRes->awarded($part);
$partsRight += $score;	$partsRight += $score;
Line 151 HEADER	Line 158 HEADER
$partsCount++;	$partsCount++;
if ($status == $curRes->CORRECT \|\|	if ($status == $curRes->CORRECT \|\|
$status == $curRes->CORRECT_BY_OVERRIDE \|\|	$status == $curRes->CORRECT_BY_OVERRIDE \|\|
$status == $curRes->EXCUSED \|\|
$status == $curRes->ANSWER_SUBMITTED) {	$status == $curRes->ANSWER_SUBMITTED) {
$partsRight++;	$partsRight++;
$totalRight++;	$totalRight++;