--- loncom/interface/lonstatistics.pm 2010/08/04 01:56:02 1.153 +++ loncom/interface/lonstatistics.pm 2013/03/06 11:39:00 1.157 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstatistics.pm,v 1.153 2010/08/04 01:56:02 raeburn Exp $ +# $Id: lonstatistics.pm,v 1.157 2013/03/06 11:39:00 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -64,6 +64,7 @@ use Apache::lonpercentage; use Apache::lonstudentsubmissions(); use Apache::lonsurveyreports(); use Apache::longradinganalysis(); +use Apache::lonquickgrades(); use LONCAPA; # @@ -412,7 +413,7 @@ sub StudentDataSelect { last; } } - $Str .= ">all\n"; + $Str .= '>'.&mt('all')."\n"; # # Loop through the student data fields foreach my $item (@StudentDataOrder) { @@ -423,7 +424,7 @@ sub StudentDataSelect { last; } } - $Str .= '>'.$item."\n"; + $Str .= '>'.&mt($item)."\n"; } $Str .= "\n"; return $Str; @@ -690,7 +691,7 @@ sub DisplayClasslist { } $Str .= '

'.&mt('Select One Student').'

' - .'

'.&mt("Click on a student's name or username to view their chart").'

' + .'

'.&mt("Click on a student's name or username to view their chart.").'

' .&Apache::loncommon::start_data_table() .&Apache::loncommon::start_data_table_header_row(); foreach my $field (@Fields) { @@ -714,12 +715,16 @@ sub DisplayClasslist { $Str .= '&sort='.&escape($env{'form.sort'}); $Str .= '&SelectedStudent='; $Str .= &escape($sname).'">'; - $Str .= $student->{$field}.' '; + $Str .= $student->{$field}; $Str .= ''; } elsif ($field eq 'status') { $Str .= &mt($student->{$field}); } else { - $Str .= $student->{$field}; + if ($student->{$field} eq 'none') { + $Str .= &mt('none') + } else { + $Str .= $student->{$field}; + } } $Str .= ''; } @@ -838,15 +843,16 @@ ENDSTYLE bug=>'Statistics and Charts'}); if (! exists($env{'form.reportSelected'}) || $env{'form.reportSelected'} eq '') { - $r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page'). - &CreateMainMenu()); + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page')); + &Apache::lonquickgrades::startGradeScreen($r,'statistics'); + $r->print(&CreateMainMenu()); } else { # if (! &Apache::lonmysql::verify_sql_connection()) { my $serveradmin = $r->dir_config('lonAdmEMail'); - $r->print('

'. + $r->print('

'. &mt('Unable to connect to database!'). - '

'); + '

'); $r->print('

' .&mt('Please notify the server administrator [_1]', ,''.$serveradmin.'') @@ -926,6 +932,7 @@ ENDSTYLE # $r->print("\n"); } + &Apache::lonquickgrades::endGradeScreen($r); $r->print(&Apache::loncommon::end_page()); $r->rflush(); #