--- loncom/interface/statistics/lonstudentsubmissions.pm	2011/11/21 20:12:36	1.65
+++ loncom/interface/statistics/lonstudentsubmissions.pm	2012/03/20 17:52:23	1.67
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentsubmissions.pm,v 1.65 2011/11/21 20:12:36 raeburn Exp $
+# $Id: lonstudentsubmissions.pm,v 1.67 2012/03/20 17:52:23 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -330,7 +330,7 @@ sub prepare_html_output {
     my $student_column_count = scalar(@student_columns);
     $headers{'problem'} = qq{<th colspan="$student_column_count">\&nbsp;</th>};
     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
@@ -814,7 +814,17 @@ sub prepare_excel_output {
     my ($workbook,$filename,$format) = 
         &Apache::loncommon::create_workbook($r);
     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
     my $rows_output = 0;
@@ -827,13 +837,13 @@ sub prepare_excel_output {
     my $partid_row = $rows_output++;
     my $respid_row = $rows_output++;
     my $header_row = $rows_output++;
-    $worksheet->write($title_row ,0,'Problem Title',$format->{'bold'});
-    $worksheet->write($partid_row,0,'Part ID',$format->{'bold'});
-    $worksheet->write($respid_row,0,'Response ID',$format->{'bold'});
+    $worksheet->write($title_row ,0,&mt('Problem Title'),$format->{'bold'});
+    $worksheet->write($partid_row,0,&mt('Part ID'),$format->{'bold'});
+    $worksheet->write($respid_row,0,&mt('Response ID'),$format->{'bold'});
     # Student headers
     my @StudentColumns = &get_student_columns($show_named);
     foreach my $field (@StudentColumns) {
-        $worksheet->write($header_row,$cols_output++,ucfirst($field),
+        $worksheet->write($header_row,$cols_output++,&mt(ucfirst($field)),
                           $format->{'bold'});
     }
     # Problem headers
@@ -875,10 +885,7 @@ sub prepare_excel_output {
     }
     #
     # Populate the worksheet with the student data
-    my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
-        ($r,'Excel File Compilation Status',
-         'Excel File Compilation Progress', 
-         scalar(@$Students),'inline',undef,'Statistics','stats_status');
+    my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$Students));
     my $max_row = $rows_output;
     foreach my $student (@$Students) {
         last if ($c->aborted());
@@ -955,8 +962,7 @@ sub prepare_excel_output {
                 }
             }
         }
-        &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
-                                                 'last student');
+        &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student');
     }
     &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
     #
@@ -1069,10 +1075,7 @@ sub prepare_csv_output {
               &mt('Generating CSV report of student responses').'</h2>');
     #
     # Progress window
-    my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
-        ($r,'CSV File Compilation Status',
-         'CSV File Compilation Progress', 
-         scalar(@$students),'inline',undef,'Statistics','stats_status');
+    my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$students));
     
     $r->rflush();
     #
@@ -1222,8 +1225,7 @@ sub prepare_csv_output {
             print $outputfile $/;
         }
         undef(@rows);
-        &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
-                                                 'last student');
+        &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student');
     }
     close($outputfile);
     #
@@ -1347,12 +1349,6 @@ sub CreateInterface {
     $Str .= &Apache::loncommon::end_data_table_row();
     $Str .= &Apache::loncommon::end_data_table();
     #
-    $Str .= '<p><span class="LC_nobreak">'
-           .&mt('Status: [_1]',
-                    '<input type="text" name="stats_status"'
-                   .' size="60" value="" readonly="readonly" />')
-           .'</span></p>';
-    ##
     return $Str;
 }