version 1.13, 2003/03/28 18:14:59
|
version 1.14, 2003/06/13 19:11:56
|
Line 107 HEADER
|
Line 107 HEADER
|
# the counts to the parent map.) |
# the counts to the parent map.) |
|
|
my $totalParts = 0; my $totalPossible = 0; my $totalRight = 0; |
my $totalParts = 0; my $totalPossible = 0; my $totalRight = 0; |
|
my $now = time(); |
|
|
# Pre-run: Count parts correct |
# Pre-run: Count parts correct |
while ( $depth > 0 ) { |
while ( $depth > 0 ) { |
Line 117 HEADER
|
Line 118 HEADER
|
{ |
{ |
# Get number of correct, incorrect parts |
# Get number of correct, incorrect parts |
my $parts = $curRes->parts(); |
my $parts = $curRes->parts(); |
if (scalar(@{$parts}) > 1) { shift @{$parts}; } # lose the first "0" |
$totalParts += $curRes->countParts(); |
$totalParts += scalar(@{$parts}); |
|
my $partsRight = 0; |
my $partsRight = 0; |
my $stack = $iterator->getStack(); |
my $stack = $iterator->getStack(); |
|
|
for my $part (@{$parts}) { |
for my $part (@{$parts}) { |
my $status = $curRes->getCompletionStatus($part); |
my $status = $curRes->getCompletionStatus($part); |
|
my $thisright = 0; |
if ($status == $curRes->CORRECT || $status == $curRes->CORRECT_BY_OVERRIDE |
if ($status == $curRes->CORRECT || $status == $curRes->CORRECT_BY_OVERRIDE |
|| $status == $curRes->EXCUSED) { |
|| $status == $curRes->EXCUSED || $status == $curRes->ANSWER_SUBMITTED) { |
$partsRight++; |
$partsRight++; |
$totalRight++; |
$totalRight++; |
|
$thisright = 1; |
} |
} |
|
|
my $dateStatus = $curRes->getDateStatus($part); |
my $dateStatus = $curRes->getDateStatus($part); |
if ($status != $curRes->OPEN_LATER) { |
if ($curRes->opendate($part) < $now) { |
$totalPossible++; |
$totalPossible++; |
} |
} |
} |
} |
Line 173 HEADER
|
Line 175 HEADER
|
if ($curRes == $iterator->END_MAP()) { $depth--; } |
if ($curRes == $iterator->END_MAP()) { $depth--; } |
|
|
if (ref($curRes) && $curRes->is_map()) { |
if (ref($curRes) && $curRes->is_map()) { |
my $stack = $iterator->getStack(); |
|
my $src = Apache::lonnavmaps::getLinkForResource($stack); |
|
my $srcHasQuestion = $src =~ /\?/; |
|
my $link = $src. |
|
($srcHasQuestion?'&':'?') . |
|
'symb='.&Apache::lonnet::escape($curRes->symb()). |
|
'"'; |
|
my $title = $curRes->compTitle(); |
my $title = $curRes->compTitle(); |
|
|
my $correct = $curRes->{DATA}->{CHILD_CORRECT}; |
my $correct = $curRes->{DATA}->{CHILD_CORRECT}; |
Line 196 HEADER
|
Line 191 HEADER
|
|
|
for (my $i = 1; $i < $depth; $i++) { $r->print($indentString); } |
for (my $i = 1; $i < $depth; $i++) { $r->print($indentString); } |
|
|
$r->print("<a href='$link'>$title</a></td>"); |
$r->print("$title</td>"); |
$r->print("<td align='center'>$correct / $total</td></tr>\n"); |
$r->print("<td align='center'>$correct / $total</td></tr>\n"); |
} |
} |
} |
} |
Line 209 HEADER
|
Line 204 HEADER
|
my $ratio = $unaccountedCorrect / $unaccountedTotal; |
my $ratio = $unaccountedCorrect / $unaccountedTotal; |
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 Sequences</td><td align='center'>"); |
$r->print("Problems Not Contained In A Folder</td><td align='center'>"); |
$r->print("$unaccountedCorrect / $unaccountedTotal</td></tr>"); |
$r->print("$unaccountedCorrect / $unaccountedTotal</td></tr>"); |
} |
} |
|
|