[BACK]Return to lonstudentsubmissions.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.66 and 1.67

version 1.66, 2011/12/21 21:25:51 version 1.67, 2012/03/20 17:52:23
Line 330  sub prepare_html_output { Line 330  sub prepare_html_output {
     my $student_column_count = scalar(@student_columns);      my $student_column_count = scalar(@student_columns);
     $headers{'problem'} = qq{<th colspan="$student_column_count">\&nbsp;</th>};      $headers{'problem'} = qq{<th colspan="$student_column_count">\&nbsp;</th>};
     foreach my $field (@student_columns) {      foreach my $field (@student_columns) {
         $headers{'student'}.= '<th>'.ucfirst($field).'</th>';          $headers{'student'}.= '<th>'.&mt(ucfirst($field)).'</th>';
     }      }
     #      #
     # we put the headers into the %headers hash      # we put the headers into the %headers hash
Line 814  sub prepare_excel_output { Line 814  sub prepare_excel_output {
     my ($workbook,$filename,$format) =       my ($workbook,$filename,$format) = 
         &Apache::loncommon::create_workbook($r);          &Apache::loncommon::create_workbook($r);
     return if (! defined($workbook));      return if (! defined($workbook));
     my $worksheet  = $workbook->addworksheet('Student Submission Data');  
       # Worksheet name
       # The length of a worksheet name in Excel 95 is limited to 31 characters.
       # Let's make sure to not exceed the maximum length in the translation files.
       # Otherwise, no Excel file would be created.
       my $worksheetname = &mt('Student Submission Data');
       if (length($worksheetname) > 31) {
           # nice way to cut off too long name
           $worksheetname = substr($worksheetname,0,28,).'...';
       }
       my $worksheet  = $workbook->addworksheet($worksheetname);
     #      #
     # Add headers to the worksheet      # Add headers to the worksheet
     my $rows_output = 0;      my $rows_output = 0;
Line 827  sub prepare_excel_output { Line 837  sub prepare_excel_output {
     my $partid_row = $rows_output++;      my $partid_row = $rows_output++;
     my $respid_row = $rows_output++;      my $respid_row = $rows_output++;
     my $header_row = $rows_output++;      my $header_row = $rows_output++;
     $worksheet->write($title_row ,0,'Problem Title',$format->{'bold'});      $worksheet->write($title_row ,0,&mt('Problem Title'),$format->{'bold'});
     $worksheet->write($partid_row,0,'Part ID',$format->{'bold'});      $worksheet->write($partid_row,0,&mt('Part ID'),$format->{'bold'});
     $worksheet->write($respid_row,0,'Response ID',$format->{'bold'});      $worksheet->write($respid_row,0,&mt('Response ID'),$format->{'bold'});
     # Student headers      # Student headers
     my @StudentColumns = &get_student_columns($show_named);      my @StudentColumns = &get_student_columns($show_named);
     foreach my $field (@StudentColumns) {      foreach my $field (@StudentColumns) {
         $worksheet->write($header_row,$cols_output++,ucfirst($field),          $worksheet->write($header_row,$cols_output++,&mt(ucfirst($field)),
                           $format->{'bold'});                            $format->{'bold'});
     }      }
     # Problem headers      # Problem headers
Removed from v.1.66  
changed lines
  Added in v.1.67

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