--- loncom/interface/statistics/lonproblemanalysis.pm 2010/01/14 17:20:51 1.138
+++ 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.138 2010/01/14 17:20:51 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);
@@ -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'};
@@ -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();