[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.51 and 1.53

version 1.51, 2003/06/02 18:28:37 version 1.53, 2003/06/07 14:45:41
Line 709  sub StudentAverageTotal { Line 709  sub StudentAverageTotal {
   
 sub SingleStudentTotal {  sub SingleStudentTotal {
     my $student = &Apache::lonstatistics::current_student();      my $student = &Apache::lonstatistics::current_student();
     my $Str = "<h3>Summary Table For ".$student->{'username'}.'@'.      my $Str = "<h3>Summary table for ".$student->{'fullname'}." ".
         $student->{'domain'}."</h3>\n";          $student->{'username'}.'@'.$student->{'domain'}."</h3>\n";
     $Str .= '<table border=2 cellspacing="1">'."\n";      $Str .= '<table border=2 cellspacing="1">'."\n";
     $Str .=       $Str .= 
         "<tr><th>Sequence or Folder</th><th>Score</th><th>Maximum</th></tr>\n";          "<tr><th>Sequence or Folder</th><th>Score</th><th>Maximum</th></tr>\n";
Line 1089  sub csv_initialize{ Line 1089  sub csv_initialize{
             $Str .= '"",'; # first row empty on the student fields              $Str .= '"",'; # first row empty on the student fields
             $Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';              $Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';
         } elsif ($show eq 'all') {          } elsif ($show eq 'all') {
             $Str .= '"'.&Apache::loncommon::csv_translate($field).'",';              $Str  .= '"",';
               $Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';
         }          }
     }      }
     foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {      foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
Line 1103  sub csv_initialize{ Line 1104  sub csv_initialize{
         } elsif ($show eq 'all') {          } elsif ($show eq 'all') {
             $Str  .= '"'.&Apache::loncommon::csv_translate($seq->{'title'}).              $Str  .= '"'.&Apache::loncommon::csv_translate($seq->{'title'}).
                 '",';                  '",';
             $Str .= '"",'x($seq->{'num_assess_parts'}-1);              $Str .= '"",'x($seq->{'num_assess_parts'}-1+2);
             $Str .= '"score","total possible",';              foreach my $res (@{$seq->{'contents'}}) {
                   foreach my $part (@{$res->{'parts'}}) {
                       $Str2 .= '"'.&Apache::loncommon::csv_translate($res->{'title'}.', Part '.$part).'",';
                   }
               }
               $Str2 .= '"score","total possible",';
         }          }
     }      }
     chop($Str);      chop($Str);
Removed from v.1.51  
changed lines
  Added in v.1.53

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