version 1.14, 2002/10/21 00:15:13
|
version 1.15, 2002/10/22 16:27:39
|
Line 340 sub StudentReport {
|
Line 340 sub StudentReport {
|
$spacesNeeded -= 3; |
$spacesNeeded -= 3; |
$Str .= (' 'x$spacesNeeded); |
$Str .= (' 'x$spacesNeeded); |
|
|
my $outputProblemsCorrect = sprintf("%3d", $cache->{$name.':'.$sequence. |
# my $outputProblemsCorrect = sprintf("%3d", $cache->{$name.':'.$sequence. |
':problemsCorrect'}); |
# ':problemsCorrect'}); |
|
|
# my $outputProblemsCorrect = sprintf("%2d/%2d ", $cache->{$name.':'.$sequence. |
my $outputProblemsCorrect = sprintf("%2d/%2d", $cache->{$name.':'.$sequence. |
# ':problemsCorrect'}, |
':problemsCorrect'}, |
# $characterCount); |
$characterCount); |
if($hasData eq 'true') { |
if($hasData eq 'true') { |
$Str .= '<font color="#007700">'.$outputProblemsCorrect.'</font>'; |
$Str .= '<font color="#007700">'.$outputProblemsCorrect.'</font>'; |
$hasFinalData = 'true'; |
$hasFinalData = 'true'; |
} else { |
} else { |
$Str .= '<font color="#007700"> </font>'; |
$Str .= '<font color="#007700"> </font>'; |
} |
} |
$Str .= $spacing; |
$Str .= $spacing; |
} |
} |