version 1.10, 2002/08/31 19:25:39
|
version 1.14, 2002/10/21 00:15:13
|
Line 6
|
Line 6
|
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
# |
# |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
# |
|
# LON-CAPA is free software; you can redistribute it and/or modify |
# LON-CAPA is free software; you can redistribute it and/or modify |
# it under the terms of the GNU General Public License as published by |
# it under the terms of the GNU General Public License as published by |
# the Free Software Foundation; either version 2 of the License, or |
# the Free Software Foundation; either version 2 of the License, or |
Line 50 sub BuildStudentAssessmentPage {
|
Line 49 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 341 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. |
|
# ':problemsCorrect'}, |
|
# $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'; |
Line 383 problems.
|
Line 386 problems.
|
|
|
sub CreateLegend { |
sub CreateLegend { |
my $Str = "<p><pre>". |
my $Str = "<p><pre>". |
"1..9: correct by student in 1..9 tries\n". |
" 1 correct by student in 1 try\n". |
" *: correct by student in more than 9 tries\n". |
" 7 correct by student in 7 tries\n". |
" +: correct by override\n". |
" * correct by student in more than 9 tries\n". |
" -: incorrect by override\n". |
" + correct by override\n". |
" .: incorrect attempted\n". |
" - incorrect by override\n". |
" #: ungraded attempted\n". |
" . incorrect attempted\n". |
" : not attempted\n". |
" # ungraded attempted\n". |
" x: excused". |
" not attempted (blank field)\n". |
|
" x excused". |
"</pre><p>"; |
"</pre><p>"; |
return $Str; |
return $Str; |
} |
} |