[BACK]Return to lonquickgrades.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonquickgrades.pm between versions 1.18 and 1.19

version 1.18, 2003/06/25 18:46:09 version 1.19, 2003/06/25 19:01:23
Line 135  HEADER Line 135  HEADER
         {          {
             # Get number of correct, incorrect parts              # Get number of correct, incorrect parts
             my $parts = $curRes->parts();              my $parts = $curRes->parts();
             $totalParts += $curRes->countParts();  
             my $partsRight = 0;              my $partsRight = 0;
     my $partsCount = 0;      my $partsCount = 0;
             my $stack = $iterator->getStack();              my $stack = $iterator->getStack();
Line 145  HEADER Line 144  HEADER
     my $score = $curRes->weight($part) * $curRes->awarded($part);      my $score = $curRes->weight($part) * $curRes->awarded($part);
     $partsRight += $score;      $partsRight += $score;
     $totalRight += $score;      $totalRight += $score;
     $partsCount += $curRes->weight();      $partsCount += $curRes->weight($part);
   
     if ($curRes->opendate($part) < $now) {      if ($curRes->opendate($part) < $now) {
  $totalPossible += $curRes->weight();   $totalPossible += $curRes->weight();
     }      }
       $totalParts += $curRes->weight($part);
  } else {   } else {
     my $status = $curRes->getCompletionStatus($part);      my $status = $curRes->getCompletionStatus($part);
     my $thisright = 0;      my $thisright = 0;
Line 164  HEADER Line 164  HEADER
     }      }
           
     my $dateStatus = $curRes->getDateStatus($part);      my $dateStatus = $curRes->getDateStatus($part);
       $totalParts++;
     if ($curRes->opendate($part) < $now) {      if ($curRes->opendate($part) < $now) {
  $totalPossible++;   $totalPossible++;
     }      }
Line 171  HEADER Line 172  HEADER
             }              }
   
             if ($depth == 1) { # in top-level only              if ($depth == 1) { # in top-level only
  $topLevelParts += scalar(@{$parts});   $topLevelParts += $partsCount;
  $topLevelRight += $partsRight;   $topLevelRight += $partsRight;
  $r->print($curRes->compTitle() . '<br>');   $r->print($curRes->compTitle() . '<br>');
     }      }
Removed from v.1.18  
changed lines
  Added in v.1.19

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>