version 1.10, 2002/08/31 19:25:39
|
version 1.12, 2002/09/22 18:24:45
|
Line 50 sub BuildStudentAssessmentPage {
|
Line 50 sub BuildStudentAssessmentPage {
|
# $jr = $r; |
# $jr = $r; |
my %cache; |
my %cache; |
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
[5~ $r->print('<html><body>Unable to tie database.</body></html>'); |
$r->print('<html><body>Unable to tie database.</body></html>'); |
return; |
return; |
} |
} |
|
|
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; |
} |
} |