[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.13 and 1.16

version 1.13, 2002/09/22 18:33:01 version 1.16, 2002/10/23 21:04:26
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 165  sub BuildStudentAssessmentPage { Line 164  sub BuildStudentAssessmentPage {
             untie(%cache);              untie(%cache);
         }          }
     }      }
   
   
       $r->print(&StudentReport(\%cache, "AvgTotal", $spacing, $sequenceKeys));
       $r->print("\n");
       $r->rflush();
       untie(%cache);
   
   
     $r->print('</pre>'."\n");      $r->print('</pre>'."\n");
     if($selected == 0) {      if($selected == 0) {
  $Str .= '<h3><font color=blue>WARNING: ';   $Str .= '<h3><font color=blue>WARNING: ';
Line 341  sub StudentReport { Line 348  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';
         } else {          } else {
             $Str .= '<font color="#007700">   </font>';              $Str .= '<font color="#007700">     </font>';
         }          }
         $Str .= $spacing;          $Str .= $spacing;
     }      }
Removed from v.1.13  
changed lines
  Added in v.1.16

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