[BACK]Return to lonstudentassessment.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonstudentassessment.pm between versions 1.12 and 1.14

version 1.12, 2002/09/22 18:24:45 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 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".
                 "   7  correct by student in 7 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 (blank field)\n".
       "   x  excused".        "   x  excused".
               "</pre><p>";                 "</pre><p>"; 
     return $Str;      return $Str;
Removed from v.1.12  
changed lines
  Added in v.1.14

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>