version 1.11, 2002/09/01 06:23:19
|
version 1.12, 2002/09/22 18:24:45
|
Line 383 problems.
|
Line 383 problems.
|
|
|
sub CreateLegend { |
sub CreateLegend { |
my $Str = "<p><pre>". |
my $Str = "<p><pre>". |
"1..9: correct by student in 1..9 tries\n". |
"1..9 correct by student in 1..9 tries\n". |
" *: correct by student in more than 9 tries\n". |
" * correct by student in more than 9 tries\n". |
" +: correct by override\n". |
" + correct by override\n". |
" -: incorrect by override\n". |
" - incorrect by override\n". |
" .: incorrect attempted\n". |
" . incorrect attempted\n". |
" #: ungraded attempted\n". |
" # ungraded attempted\n". |
" : not attempted\n". |
" not attempted\n". |
" x: excused". |
" x excused". |
"</pre><p>"; |
"</pre><p>"; |
return $Str; |
return $Str; |
} |
} |