--- loncom/interface/statistics/lonproblemanalysis.pm 2008/12/11 14:55:27 1.133 +++ loncom/interface/statistics/lonproblemanalysis.pm 2012/12/17 03:52:30 1.142.2.2 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonproblemanalysis.pm,v 1.133 2008/12/11 14:55:27 bisitz Exp $ +# $Id: lonproblemanalysis.pm,v 1.142.2.2 2012/12/17 03:52:30 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -73,6 +73,8 @@ sub BuildProblemAnalysisPage { # &Apache::lonstatistics::PrepareClasslist(); # + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Detailed Problem Analysis')); + $r->print(&CreateInterface()); # my @Students = @Apache::lonstatistics::Students; @@ -142,7 +144,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 +628,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 +662,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 +1331,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) .'
' .''; @@ -1477,9 +1476,9 @@ sub OR_time_analysis { # if ($num_concepts < 2) { $table = '

'. - &mt('Not enough data for concept analysis. '. - 'Performing Foil Analysis'). - '

'.$table; + &mt('Not enough data for concept analysis.').' '. + &mt('Performing Foil Analysis'). + ''.$table; } # my $num_plots = $env{'form.NumPlots'}; @@ -1558,7 +1557,7 @@ sub OR_time_analysis { $table .= ''. &mt('Start time: [_1]',$startdateform).'
'. &mt('End time: [_1]',$enddateform).''.$/; - $table.= ' '.$/; + $table.= ' '.$/; } $table .= ''; # @@ -1875,7 +1874,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 +1899,16 @@ sub CreateInterface { # ## ## - $Str .= ''; + $Str .= ''; ## my $showprob_checkbox = - '
'; ## my $analyze_selector = '
'; + $numplots_selector .= ''; $Str .= ''; + '
'; ## $Str .= ''; ##