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

Diff for /loncom/interface/lonquickgrades.pm between versions 1.5 and 1.6

version 1.5, 2002/11/22 20:07:11 version 1.6, 2002/11/22 20:39:14
Line 156  sub real_handler { Line 156  sub real_handler {
   
     my $indentString = '     ';      my $indentString = '     ';
   
       my $unaccountedTotal = $totalParts;
       my $unaccountedCorrect = $totalRight;
   
     # Second pass: Print the maps.      # Second pass: Print the maps.
     $r->print('<table cellspacing="3" border="2"><tr><td align="center"><b>Sequence</b></td>');      $r->print('<table cellspacing="3" border="2"><tr><td align="center"><b>Sequence</b></td>');
     $r->print('<td align="center">Correct / Total</td><tr>' . "\n\n");      $r->print('<td align="center">Correct / Total</td><tr>' . "\n\n");
Line 176  sub real_handler { Line 179  sub real_handler {
             my $correct = $curRes->{DATA}->{CHILD_CORRECT};              my $correct = $curRes->{DATA}->{CHILD_CORRECT};
             my $total = $curRes->{DATA}->{CHILD_PARTS};              my $total = $curRes->{DATA}->{CHILD_PARTS};
   
             my $ratio;              $unaccountedTotal -= $total;
             $ratio = $total==0 ? 1 : $correct / $total;              $unaccountedCorrect -= $correct;
             my $color = mixColors(\@start, \@end, $ratio);  
             $r->print("<tr><td bgcolor='$color'>");  
               
             for (my $i = 1; $i < $depth; $i++) { $r->print($indentString); }  
   
             $r->print("<a href='$link'>$title</a></td>");              if ($total > 0) {
             $r->print("<td>$correct / $total</td></tr>\n");                  my $ratio;
                   $ratio = $correct / $total;
                   my $color = mixColors(\@start, \@end, $ratio);
                   $r->print("<tr><td bgcolor='$color'>");
                   
                   for (my $i = 1; $i < $depth; $i++) { $r->print($indentString); }
                   
                   $r->print("<a href='$link'>$title</a></td>");
                   $r->print("<td align='center'>$correct / $total</td></tr>\n");
               }
         }          }
   
         $curRes = $iterator->next();          $curRes = $iterator->next();
     }      }
   
       # If there were any problems at the top level, print an extra "catchall"
       if ($unaccountedTotal > 0) {
           my $ratio = $unaccountedCorrect / $unaccountedTotal;
           my $color = mixColors(\@start, \@end, $ratio);
           $r->print("<tr><td bgcolor='$color'>");
           $r->print("Problems Not Contained In Sequences</td><td align='center'>");
           $r->print("$unaccountedCorrect / $unaccountedTotal</td></tr>");
       }
   
     $r->print("\n</tr>\n\n");      my $maxHelpLink = Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct");
   
     $r->print("<tr><td colspan='2' align='right'>Total Parts Correct: <b>$totalRight</b><br>");      $r->print("<tr><td colspan='2' align='right'>Total Parts Correct: <b>$totalRight</b><br>");
     $r->print("Number Of Parts Possibly Correct: <b>$totalPossible</b><br>");      $r->print("Max Possible To Date $maxHelpLink: <b>$totalPossible</b><br>");
     $r->print("Total Parts In Course: <b>$totalParts</b></td></tr>\n\n");      $r->print("Total Parts In Course: <b>$totalParts</b></td></tr>\n\n");
   
   
Removed from v.1.5  
changed lines
  Added in v.1.6

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