--- loncom/interface/statistics/longradinganalysis.pm 2008/10/23 09:07:51 1.9 +++ 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.9 2008/10/23 09:07:51 bisitz 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'); } @@ -310,7 +307,7 @@ sub create_interface { $str .= ''.&mt('Sections').''; $str .= ''.&mt('Groups').''; $str .= ''.&mt('Access Status').''; - $str .= ''.&mt('Output as [_1]',$output_selector).''; + $str .= ''.&mt('[_1]Output as[_2] [_3]','',$output_selector,'').''; $str .= ''."\n"; ## ## @@ -327,12 +324,6 @@ sub create_interface { $str .= ''; # $str .= ''; - ## - $str .= ''; $str .= ''; ## ##