--- loncom/interface/statistics/longradinganalysis.pm 2006/06/01 19:21:22 1.6 +++ loncom/interface/statistics/longradinganalysis.pm 2013/07/22 18:06:58 1.12 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: longradinganalysis.pm,v 1.6 2006/06/01 19:21:22 albertel Exp $ +# $Id: longradinganalysis.pm,v 1.12 2013/07/22 18:06:58 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -149,10 +149,7 @@ sub build_grading_analysis_page { sub task_analysis { my ($r,$problem,$students) = @_; - my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin - ($r,'Student Answer Compilation Status', - 'Student Answer Compilation Progress', scalar(@$students), - 'inline',undef,'Statistics','stats_status'); + my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$students)); my %graders; foreach my $student (@$students) { my $sname = $student->{'username'}; @@ -176,7 +173,7 @@ sub task_analysis { } &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, - &mt('last student')); + 'last student'); } @@ -197,7 +194,7 @@ sub task_analysis { } close($outputfile); $r->print('
'. - ''.&mt('Your csv file.')."\n"); + ''.&mt('Your CSV file.')."\n"); } elsif ($env{'form.output'} eq 'excel') { my ($excel_workbook,$excel_sheet,$filename,$format,$rows_output) = &init_excel_output($r); @@ -218,7 +215,7 @@ sub task_analysis { } else { $r->print(&Apache::loncommon::start_data_table()); $r->print(&Apache::loncommon::start_data_table_header_row(). - 'Name (username)Grades Assigned'. + ''.&mt('Name (username)').''.&mt('Grades Assigned').''. &Apache::loncommon::end_data_table_header_row() ); foreach my $line (@output) { $r->print(&Apache::loncommon::start_data_table_row(). @@ -309,8 +306,8 @@ sub create_interface { $str .= ''; $str .= ''.&mt('Sections').''; $str .= ''.&mt('Groups').''; - $str .= ''.&mt('Enrollment Status').''; - $str .= ''.&mt('Output as [_1]',$output_selector).''; + $str .= ''.&mt('Access Status').''; + $str .= ''.&mt('[_1]Output as[_2] [_3]','',$output_selector,'').''; $str .= ''."\n"; ## ## @@ -327,12 +324,6 @@ sub create_interface { $str .= ''; # $str .= ''; - ## - $str .= ''; $str .= ''; ## ##