[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.33 and 1.34

version 1.33, 2003/03/04 14:21:36 version 1.34, 2003/03/04 16:10:09
Line 587  sub excel_initialize { Line 587  sub excel_initialize {
     }      }
     $excel_sheet = $excel_workbook->addworksheet($sheetname);      $excel_sheet = $excel_workbook->addworksheet($sheetname);
     #      #
       # Put the course description in the header
       $excel_sheet->write($rows_output,$cols_output++,
                      $ENV{'course.'.$ENV{'request.course.id'}.'.description'});
       $cols_output += 3;
       #
       # Put a description of the sections listed
       my $sectionstring = '';
       my @Sections = @Apache::lonstatistics::SelectedSections;
       if (scalar(@Sections) > 1) {
           if (scalar(@Sections) > 2) {
               my $last = pop(@Sections);
               $sectionstring = "Sections ".join(', ',@Sections).', and '.$last;
           } else {
               $sectionstring = "Sections ".join(' and ',@Sections);
           }
       } else {
           if ($Sections[0] eq 'all') {
               $sectionstring = "All sections";
           } else {
               $sectionstring = "Section ".$Sections[0];
           }
       }
       $excel_sheet->write($rows_output,$cols_output++,$sectionstring);
       $cols_output += scalar(@Sections);
       #
       # Put the date in there too
       $excel_sheet->write($rows_output,$cols_output++,
                           'Compiled on '.localtime(time));
       #
       $rows_output++;
       #
     # Add the student headers      # Add the student headers
       $cols_output = 0;
     foreach my $field (&get_student_fields_to_show()) {      foreach my $field (&get_student_fields_to_show()) {
         $excel_sheet->write(1,$cols_output++,$field);          $excel_sheet->write($rows_output,$cols_output++,$field);
     }      }
     #      #
     # Add the Sequence Headers      # Add the Sequence Headers
     foreach my $seq (&get_sequences_to_show) {      foreach my $seq (&get_sequences_to_show) {
         $excel_sheet->write(0,$cols_output,$seq->{'title'});          $excel_sheet->write($rows_output,$cols_output,$seq->{'title'});
         if ($show eq 'totals') {          if ($show eq 'totals') {
             $excel_sheet->write(1,$cols_output,'score');              $excel_sheet->write($rows_output+1,$cols_output,'score');
             $excel_sheet->write(1,$cols_output+1,'maximum');              $excel_sheet->write($rows_output+1,$cols_output+1,'maximum');
             $cols_output += 2;              $cols_output += 2;
         } else {          } else {
             $cols_output++;              $cols_output++;
Line 606  sub excel_initialize { Line 638  sub excel_initialize {
     #      #
     # Bookkeeping      # Bookkeeping
     if ($show eq 'totals') {      if ($show eq 'totals') {
         $rows_output = 2;          $rows_output += 2;
     } else {      } else {
         $rows_output = 1;          $rows_output += 1;
     }      }
     #      #
     # Let the user know what we are doing      # Let the user know what we are doing
Line 681  sub excel_outputstudent { Line 713  sub excel_outputstudent {
         $r->print($num_students.' out of '.          $r->print($num_students.' out of '.
                   (scalar(@Apache::lonstatistics::Students)).                    (scalar(@Apache::lonstatistics::Students)).
                   " students processed.  ".                    " students processed.  ".
                   $time_est." remain.  <br />\n");                    $time_est." remain.  Elapsed: ".(time - $start_time).
                     "<br />\n");
         $r->rflush();          $r->rflush();
     }      }
     return;      return;
Removed from v.1.33  
changed lines
  Added in v.1.34

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