--- loncom/interface/statistics/lonstudentassessment.pm 2002/09/01 06:23:19 1.11 +++ loncom/interface/statistics/lonstudentassessment.pm 2002/10/21 00:15:13 1.14 @@ -1,12 +1,11 @@ # The LearningOnline Network with CAPA # (Publication Handler # -# $Id: lonstudentassessment.pm,v 1.11 2002/09/01 06:23:19 stredwic Exp $ +# $Id: lonstudentassessment.pm,v 1.14 2002/10/21 00:15:13 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 @@ -341,8 +340,12 @@ 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'; @@ -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; }