version 1.14, 2003/06/13 19:11:56
|
version 1.15, 2003/06/18 19:31:38
|
Line 108 HEADER
|
Line 108 HEADER
|
|
|
my $totalParts = 0; my $totalPossible = 0; my $totalRight = 0; |
my $totalParts = 0; my $totalPossible = 0; my $totalRight = 0; |
my $now = time(); |
my $now = time(); |
|
my $topLevelParts = 0; my $topLevelRight = 0; |
|
|
# Pre-run: Count parts correct |
# Pre-run: Count parts correct |
while ( $depth > 0 ) { |
while ( $depth > 0 ) { |
Line 137 HEADER
|
Line 138 HEADER
|
$totalPossible++; |
$totalPossible++; |
} |
} |
} |
} |
|
|
|
if ($depth == 1) { # in top-level only |
|
$topLevelParts += scalar(@{$parts}); |
|
$topLevelRight += $partsRight; |
|
$r->print($curRes->compTitle() . '<br>'); |
|
} |
|
|
# Crawl down stack and record parts correct and total |
# Crawl down stack and record parts correct and total |
for my $res (@{$stack}) { |
for my $res (@{$stack}) { |
if (ref($res) && $res->is_map()) { |
if (ref($res) && $res->is_map()) { |
Line 164 HEADER
|
Line 171 HEADER
|
|
|
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">Done / Total</td><tr>' . "\n\n"); |
$r->print('<td align="center">Done / Total</td><tr>' . "\n\n"); |
Line 180 HEADER
|
Line 184 HEADER
|
my $correct = $curRes->{DATA}->{CHILD_CORRECT}; |
my $correct = $curRes->{DATA}->{CHILD_CORRECT}; |
my $total = $curRes->{DATA}->{CHILD_PARTS}; |
my $total = $curRes->{DATA}->{CHILD_PARTS}; |
|
|
$unaccountedTotal -= $total; |
|
$unaccountedCorrect -= $correct; |
|
|
|
if ($total > 0) { |
if ($total > 0) { |
my $ratio; |
my $ratio; |
$ratio = $correct / $total; |
$ratio = $correct / $total; |
my $color = mixColors(\@start, \@end, $ratio); |
my $color = mixColors(\@start, \@end, $ratio); |
$r->print("<tr><td bgcolor='$color'>"); |
$r->print("<tr><td bgcolor='$color'>"); |
|
|
for (my $i = 1; $i < $depth; $i++) { $r->print($indentString); } |
my $thisIndent = ''; |
|
for (my $i = 1; $i < $depth; $i++) { $thisIndent .= $indentString; } |
|
|
$r->print("$title</td>"); |
$r->print("$thisIndent$title</td>"); |
$r->print("<td align='center'>$correct / $total</td></tr>\n"); |
$r->print("<td valign='top'>$thisIndent<nobr>$correct / $total</nobr></td></tr>\n"); |
} |
} |
} |
} |
|
|
Line 200 HEADER
|
Line 202 HEADER
|
} |
} |
|
|
# If there were any problems at the top level, print an extra "catchall" |
# If there were any problems at the top level, print an extra "catchall" |
if ($unaccountedTotal > 0) { |
if ($topLevelParts > 0) { |
my $ratio = $unaccountedCorrect / $unaccountedTotal; |
my $ratio = $topLevelRight / $topLevelParts; |
my $color = mixColors(\@start, \@end, $ratio); |
my $color = mixColors(\@start, \@end, $ratio); |
$r->print("<tr><td bgcolor='$color'>"); |
$r->print("<tr><td bgcolor='$color'>"); |
$r->print("Problems Not Contained In A Folder</td><td align='center'>"); |
$r->print("Problems Not Contained In A Folder</td><td>"); |
$r->print("$unaccountedCorrect / $unaccountedTotal</td></tr>"); |
$r->print("$topLevelRight / $topLevelParts</td></tr>"); |
} |
} |
|
|
my $maxHelpLink = Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct"); |
my $maxHelpLink = Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct"); |