--- loncom/interface/statistics/lonproblemanalysis.pm 2008/12/12 10:01:30 1.135 +++ loncom/interface/statistics/lonproblemanalysis.pm 2012/05/03 11:21:33 1.142 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonproblemanalysis.pm,v 1.135 2008/12/12 10:01:30 bisitz Exp $ +# $Id: lonproblemanalysis.pm,v 1.142 2012/05/03 11:21:33 goltermann Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,6 +31,7 @@ use Apache::lonnet; use Apache::loncommon(); use Apache::lonhtmlcommon(); use Apache::loncoursedata(); +use Apache::lonquickgrades(); use Apache::lonstatistics; use Apache::lonlocal; use Apache::lonstathelpers(); @@ -73,6 +74,9 @@ sub BuildProblemAnalysisPage { # &Apache::lonstatistics::PrepareClasslist(); # + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Detailed Problem Analysis')); + &Apache::lonquickgrades::startGradeScreen($r,'statistics'); + $r->print(&CreateInterface()); # my @Students = @Apache::lonstatistics::Students; @@ -142,7 +146,7 @@ sub BuildProblemAnalysisPage { my $resource = $current_problem->{'resource'}; $r->print('

'.$resource->compTitle.'

'); $r->print('

'.$resource->src.'

'); - $r->print('

'.&Apache::lonstatistics::section_and_enrollment_description().'

'); + $r->print('

'.&Apache::lonstatistics::section_and_enrollment_description().'

'); if ($env{'form.show_prob'} eq 'true') { $r->print('
' .&Apache::lonstathelpers::render_resource($resource) @@ -626,10 +630,7 @@ sub numerical_determine_answers { my ($r,$resource,$partid,$respid,$students)=@_; my $c = $r->connection(); # - 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)); # # Read in the cache (if it exists) before we start timing things. &Apache::lonstathelpers::ensure_proper_cache($resource->{'symb'}); @@ -663,7 +664,7 @@ sub numerical_determine_answers { } $answers{$correct->{$sname.':'.$sdom}{'answer'}}++; &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, - &mt('last student')); + 'last student'); } &Apache::lonstathelpers::write_analysis_cache(); &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); @@ -1332,7 +1333,7 @@ sub OR_tries_analysis { if ($try > 1) { $analysis_html.= '' .'
' - .&mt('None of the selected students attempted the problem more than [_1] times.' + .&mt('None of the selected students attempted the problem more than [quant,_1,time].' ,$try-1) .'
' .''; @@ -1875,7 +1876,6 @@ sub CreateInterface { ## ## Build the menu my $Str = ''; - $Str .= &Apache::lonhtmlcommon::breadcrumbs('Detailed Problem Analysis'); $Str .= '

'; $Str .= &Apache::loncommon::start_data_table(); $Str .= &Apache::loncommon::start_data_table_header_row(); @@ -1901,16 +1901,16 @@ sub CreateInterface { # ## ## - $Str .= ''; + $Str .= ''; ## my $showprob_checkbox = - '
'; ## my $analyze_selector = '