[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.117 and 1.118

version 1.117, 2005/03/10 17:33:58 version 1.118, 2005/03/11 20:26:32
Line 177  sub BuildStudentAssessmentPage { Line 177  sub BuildStudentAssessmentPage {
     my $initialize     = \&html_initialize;      my $initialize     = \&html_initialize;
     my $output_student = \&html_outputstudent;      my $output_student = \&html_outputstudent;
     my $finish         = \&html_finish;      my $finish         = \&html_finish;
     &Apache::lonnet::logthis('got here! 1');  
     #      #
     if ($output_mode eq 'excel') {      if ($output_mode eq 'excel') {
         $initialize     = \&excel_initialize;          $initialize     = \&excel_initialize;
Line 189  sub BuildStudentAssessmentPage { Line 188  sub BuildStudentAssessmentPage {
         $finish         = \&csv_finish;          $finish         = \&csv_finish;
     }      }
     #      #
     &Apache::lonnet::logthis('got here! 2');  
     if($c->aborted()) {  return ; }      if($c->aborted()) {  return ; }
     #      #
     # Determine which students we want to look at      # Determine which students we want to look at
Line 214  sub BuildStudentAssessmentPage { Line 212  sub BuildStudentAssessmentPage {
     #      #
     # Call the initialize routine selected above      # Call the initialize routine selected above
     $initialize->($r);      $initialize->($r);
     &Apache::lonnet::logthis('got here! 3');  
     foreach my $student (@Students) {      foreach my $student (@Students) {
         if($c->aborted()) {           if($c->aborted()) { 
             $finish->($r);              $finish->($r);
Line 683  sub html_initialize { Line 680  sub html_initialize {
                 # Use 1 digit for a space                  # Use 1 digit for a space
                 $width{$symb}->{'width_sum'} += 1;                              $width{$symb}->{'width_sum'} += 1;            
             }              }
     $total_count += $width{$symb}->{'num_assess_parts'};      $total_count += &count_parts($navmap,$seq);
             # Use 3 digits for the sum              # Use 3 digits for the sum
             $width{$symb}->{'width_sum'} += 3;              $width{$symb}->{'width_sum'} += 3;
         }          }
Line 763  sub html_outputstudent { Line 760  sub html_outputstudent {
     my $studentstats;      my $studentstats;
     my $PerformanceStr = '';      my $PerformanceStr = '';
     foreach my $seq (@sequences) {      foreach my $seq (@sequences) {
         &Apache::lonnet::logthis('computing student data for '.$seq->compTitle);          my $symb = $seq->symb;
         my ($performance,$performance_length,$score,$seq_max,$rawdata);          my ($performance,$performance_length,$score,$seq_max,$rawdata);
         if ($chosen_output->{'tries'}) {          if ($chosen_output->{'tries'}) {
             ($performance,$performance_length,$score,$seq_max,$rawdata) =              ($performance,$performance_length,$score,$seq_max,$rawdata) =
Line 775  sub html_outputstudent { Line 772  sub html_outputstudent {
                                                  $navmap,$seq,$show_links);                                                   $navmap,$seq,$show_links);
         }          }
         my $ratio='';          my $ratio='';
         if ($chosen_output->{'every_problem'}) {          if ($chosen_output->{'every_problem'} && 
               $chosen_output->{'sequence_sum'}) {
             $ratio .= ' ';              $ratio .= ' ';
         }          }
         if ($chosen_output->{'sequence_sum'} && $score ne ' ') {          if ($chosen_output->{'sequence_sum'} && $score ne ' ') {
Line 795  sub html_outputstudent { Line 793  sub html_outputstudent {
             $performance = '';              $performance = '';
     $performance_length=0;      $performance_length=0;
         }          }
         $performance .= ' 'x($width{$seq->symb}->{'width_total'} -          $performance .= ' 'x($width{$symb}->{'width_total'} -
                              $performance_length -                               $performance_length -
                              $width{$seq->symb}->{'width_sum'}).                               $width{$symb}->{'width_sum'}).
             $ratio;              $ratio;
         #          #
         $Str .= $performance.$padding;          $Str .= $performance.$padding;
         #          #
         $studentstats->{$seq->symb}->{'score'}= $score;          $studentstats->{$symb}->{'score'}= $score;
         $studentstats->{$seq->symb}->{'max'}  = $seq_max;          $studentstats->{$symb}->{'max'}  = $seq_max;
     }      }
     #      #
     # Total it up and store the statistics info.      # Total it up and store the statistics info.
Removed from v.1.117  
changed lines
  Added in v.1.118

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