--- loncom/interface/statistics/lonstudentassessment.pm 2002/08/31 19:25:39 1.10
+++ loncom/interface/statistics/lonstudentassessment.pm 2002/10/22 16:27:39 1.15
@@ -1,12 +1,11 @@
# The LearningOnline Network with CAPA
# (Publication Handler
#
-# $Id: lonstudentassessment.pm,v 1.10 2002/08/31 19:25:39 stredwic Exp $
+# $Id: lonstudentassessment.pm,v 1.15 2002/10/22 16:27:39 minaeibi Exp $
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
-#
# 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
# the Free Software Foundation; either version 2 of the License, or
@@ -50,7 +49,7 @@ sub BuildStudentAssessmentPage {
# $jr = $r;
my %cache;
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
-[5~ $r->print('Unable to tie database.');
+ $r->print('Unable to tie database.');
return;
}
@@ -341,13 +340,17 @@ sub StudentReport {
$spacesNeeded -= 3;
$Str .= (' 'x$spacesNeeded);
- my $outputProblemsCorrect = sprintf("%3d", $cache->{$name.':'.$sequence.
- ':problemsCorrect'});
+# my $outputProblemsCorrect = sprintf("%3d", $cache->{$name.':'.$sequence.
+# ':problemsCorrect'});
+
+ my $outputProblemsCorrect = sprintf("%2d/%2d", $cache->{$name.':'.$sequence.
+ ':problemsCorrect'},
+ $characterCount);
if($hasData eq 'true') {
$Str .= ''.$outputProblemsCorrect.'';
$hasFinalData = 'true';
} else {
- $Str .= ' ';
+ $Str .= ' ';
}
$Str .= $spacing;
}
@@ -383,14 +386,15 @@ problems.
sub CreateLegend {
my $Str = "".
- "1..9: correct by student in 1..9 tries\n".
- " *: correct by student in more than 9 tries\n".
- " +: correct by override\n".
- " -: incorrect by override\n".
- " .: incorrect attempted\n".
- " #: ungraded attempted\n".
- " : not attempted\n".
- " x: excused".
+ " 1 correct by student in 1 try\n".
+ " 7 correct by student in 7 tries\n".
+ " * correct by student in more than 9 tries\n".
+ " + correct by override\n".
+ " - incorrect by override\n".
+ " . incorrect attempted\n".
+ " # ungraded attempted\n".
+ " not attempted (blank field)\n".
+ " x excused".
"";
return $Str;
}