[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.81 and 1.81.2.3

version 1.81, 2004/01/27 16:58:05 version 1.81.2.3, 2004/04/06 21:42:26
Line 163  sub BuildStudentAssessmentPage { Line 163  sub BuildStudentAssessmentPage {
     #      #
     $single_student_mode = 0;      $single_student_mode = 0;
     $single_student_mode = 1 if ($ENV{'form.SelectedStudent'});      $single_student_mode = 1 if ($ENV{'form.SelectedStudent'});
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                               ['selectstudent']);
     if ($ENV{'form.selectstudent'}) {      if ($ENV{'form.selectstudent'}) {
         &Apache::lonstatistics::DisplayClasslist($r);          &Apache::lonstatistics::DisplayClasslist($r);
         return;          return;
Line 990  END Line 992  END
     $cols_output = 0;      $cols_output = 0;
     $excel_sheet->write($rows_output++,$cols_output++,$datadescription);      $excel_sheet->write($rows_output++,$cols_output++,$datadescription);
     #      #
     if ($data eq 'tries' || $data eq 'scores') {  #    if ($data eq 'tries' || $data eq 'scores') {
         $rows_output++;          $rows_output+=2;
     }  #    }
     #      #
     # Add the student headers      # Add the student headers
     $cols_output = 0;      $cols_output = 0;
Line 1000  END Line 1002  END
         $excel_sheet->write($rows_output,$cols_output++,$field);          $excel_sheet->write($rows_output,$cols_output++,$field);
     }      }
     my $row_offset = 0;      my $row_offset = 0;
     if ($data eq 'tries' || $data eq 'scores') {  #    if ($data eq 'tries' || $data eq 'scores') {
         $row_offset = -1;          $row_offset = -1;
     }  #    }
     #      #
     # Add the remaining column headers      # Add the remaining column headers
     my $total_formula_string = '=0';      my $total_formula_string = '=0';
Line 1017  END Line 1019  END
             $seq->{'Excel:startcol'}=$cols_output;              $seq->{'Excel:startcol'}=$cols_output;
             # Put the names of the problems and parts into the sheet              # Put the names of the problems and parts into the sheet
             foreach my $res (@{$seq->{'contents'}}) {              foreach my $res (@{$seq->{'contents'}}) {
                 next if ($res->{'type'} ne 'assessment');                  if ($res->{'type'} ne 'assessment'  || 
                       ! exists($res->{'parts'})       ||
                       ref($res->{'parts'}) ne 'ARRAY' ||
                       scalar(@{$res->{'parts'}}) < 1) {
                       next;
                   }
                 if (scalar(@{$res->{'parts'}}) > 1) {                  if (scalar(@{$res->{'parts'}}) > 1) {
                     foreach my $part (@{$res->{'parts'}}) {                      foreach my $part (@{$res->{'parts'}}) {
                         $excel_sheet->write($rows_output,                          $excel_sheet->write($rows_output,
Line 1060  END Line 1067  END
     $total_formula = $excel_sheet->store_formula($total_formula_string);      $total_formula = $excel_sheet->store_formula($total_formula_string);
     #      #
     # Bookkeeping      # Bookkeeping
     if ($data eq 'sum and total' || $data eq 'parts correct total') {  #    if ($data eq 'sum and total' || $data eq 'parts correct total') {
         $rows_output += 2;  #        $rows_output += 1;
     } else {  #    } else {
         $rows_output += 1;          $rows_output += 1;
     }  #    }
     #      #
     # Output a row for MAX      # Output a row for MAX
     $cols_output = 0;      $cols_output = 0;
Removed from v.1.81  
changed lines
  Added in v.1.81.2.3

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