--- loncom/interface/statistics/lonproblemanalysis.pm 2011/01/17 00:19:41 1.140 +++ 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.140 2011/01/17 00:19:41 www Exp $ +# $Id: lonproblemanalysis.pm,v 1.142.2.2 2012/12/17 03:52:30 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,7 +31,6 @@ use Apache::lonnet; use Apache::loncommon(); use Apache::lonhtmlcommon(); use Apache::loncoursedata(); -use Apache::lonquickgrades(); use Apache::lonstatistics; use Apache::lonlocal; use Apache::lonstathelpers(); @@ -75,7 +74,6 @@ sub BuildProblemAnalysisPage { &Apache::lonstatistics::PrepareClasslist(); # $r->print(&Apache::lonhtmlcommon::breadcrumbs('Detailed Problem Analysis')); - &Apache::lonquickgrades::startGradeScreen($r,'statistics'); $r->print(&CreateInterface()); # @@ -146,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) @@ -630,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'}); @@ -1481,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'};