--- loncom/interface/lonquickgrades.pm 2003/06/25 18:46:09 1.18
+++ loncom/interface/lonquickgrades.pm 2003/06/25 19:29:43 1.20
@@ -84,20 +84,15 @@ sub real_handler {
my $title = $showPoints ? "Quick Points Display" : "Quick Completed Problems Display";
$r->print(&Apache::loncommon::bodytag($title, '', ''));
- if ($showPoints) {
- $r->print(<
This may take a few moments to display.
"); + $r->print("This may take a few moments to display."); $r->rflush(); @@ -135,7 +130,6 @@ HEADER { # Get number of correct, incorrect parts my $parts = $curRes->parts(); - $totalParts += $curRes->countParts(); my $partsRight = 0; my $partsCount = 0; my $stack = $iterator->getStack(); @@ -145,11 +139,12 @@ HEADER my $score = $curRes->weight($part) * $curRes->awarded($part); $partsRight += $score; $totalRight += $score; - $partsCount += $curRes->weight(); + $partsCount += $curRes->weight($part); if ($curRes->opendate($part) < $now) { - $totalPossible += $curRes->weight(); + $totalPossible += $curRes->weight($part); } + $totalParts += $curRes->weight($part); } else { my $status = $curRes->getCompletionStatus($part); my $thisright = 0; @@ -164,6 +159,7 @@ HEADER } my $dateStatus = $curRes->getDateStatus($part); + $totalParts++; if ($curRes->opendate($part) < $now) { $totalPossible++; } @@ -171,9 +167,8 @@ HEADER } if ($depth == 1) { # in top-level only - $topLevelParts += scalar(@{$parts}); + $topLevelParts += $partsCount; $topLevelRight += $partsRight; - $r->print($curRes->compTitle() . 'Sequence | '); - $r->print('Done / Total |
Folder | '); + $title = $showPoints ? "Points Scored" : "Done"; + $r->print("$title / Total |