[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface/statistics lonproblemanalysis.pm
raeburn
raeburn at source.lon-capa.org
Mon Dec 30 09:19:58 EST 2013
raeburn Mon Dec 30 14:19:58 2013 EDT
Modified files: (Branch: version_2_11_X)
/loncom/interface/statistics lonproblemanalysis.pm
Log:
- For 2.11
- Backport 1.144.
-------------- next part --------------
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.142.2.2 loncom/interface/statistics/lonproblemanalysis.pm:1.142.2.3
--- loncom/interface/statistics/lonproblemanalysis.pm:1.142.2.2 Mon Dec 17 03:52:30 2012
+++ loncom/interface/statistics/lonproblemanalysis.pm Mon Dec 30 14:19:58 2013
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonproblemanalysis.pm,v 1.142.2.2 2012/12/17 03:52:30 raeburn Exp $
+# $Id: lonproblemanalysis.pm,v 1.142.2.3 2013/12/30 14:19:58 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -398,10 +398,13 @@
if ($max <$_) { $max = $_; last; }
}
#
- my $title = &mt('Percent Difference');
+ my %lt = &Apache::lonlocal::texthash(
+ 'title' => 'Percent Difference',
+ 'xlabel' => 'Percent Difference from Correct',
+ 'ylabel' => 'Percent of Answers');
my @labels = (1..scalar(@bins)-1);
my $graph = &Apache::loncommon::DrawBarGraph
- ($title,'Percent Difference from Correct','Percent of Answers',
+ ($lt{'title'},$lt{'xlabel'},$lt{'ylabel'},
$max,['#33FF00','#FF3300'],\@labels,\@plot_correct,\@plot_incorrect,
{xskip=>1});
#
@@ -471,10 +474,13 @@
if ($max <$_) { $max = $_; last; }
}
#
- my $title = &mt('Difference between submission and correct');
+ my %lt = &Apache::lonlocal::texthash(
+ 'title' => 'Difference between submission and correct',
+ 'xlabel' => 'Difference from Correct',
+ 'ylabel' => 'Percent of Answers');
my @labels = (1..scalar(@bins)-1);
my $graph = &Apache::loncommon::DrawBarGraph
- ($title,'Difference from Correct','Percent of Answers',
+ ($lt{'title'},$lt{'xlabel'},$lt{'ylabel'},
$max,['#33FF00','#FF3300'],\@labels,\@plot_correct,\@plot_incorrect,
{xskip=>1});
#
@@ -856,8 +862,8 @@
$no_data_text, at extra_data);
if ($env{'form.AnalyzeOver'} eq 'tries') {
$restriction_function = sub {($_[0]->{'tries'} == $plot_num?1:0)};
- $correct_foil_title = 'Attempt '.$plot_num;
- $incorrect_foil_title = 'Attempt '.$plot_num;
+ $correct_foil_title = &mt('Attempt [_1]',$plot_num);
+ $incorrect_foil_title = &mt('Attempt [_1]',$plot_num);
$pre_graph_text =
'Attempt [_1], [_2] submissions, [_3] correct, [_4] incorrect';
$post_graph_text = '';
@@ -915,8 +921,9 @@
# Concept Plot
my $concept_plot = '';
if (scalar(@$concepts) > 1) {
+ my $title = &mt('Correct Concepts');
$concept_plot = &RR_concept_plot($concepts,$foil_choice_data,
- 'Correct Concepts');
+ $title);
}
# % Choosing plot
my $choice_plot = &RR_create_percent_selected_plot
@@ -1031,10 +1038,11 @@
for (my $i=0;$i<=$#correct;$i++) {
$correct[$i] = sprintf('%0f',$correct[$i]/$total*100);
}
- my $xlabel = 'concept';
+ my $xlabel = &mt('concept');
+ my $ylabel = &mt('Percent Choosing');
my $plot= &Apache::loncommon::DrawBarGraph($title,
$xlabel,
- 'Percent Choosing',
+ $ylabel,
100,
['#33ff00','#ff3300'],
undef,
@@ -1100,10 +1108,11 @@
@labels = (1 .. scalar(@correct));
}
#
- my $xlabel = 'foil chosen';
+ my $xlabel = &mt('foil chosen');
+ my $ylabel = &mt('Percent Choosing');
my $plot= &Apache::loncommon::DrawBarGraph($title,
$xlabel,
- 'Percent Choosing',
+ $ylabel,
100,
['#33ff00','#ff3300'],
\@labels,
@@ -1164,8 +1173,10 @@
push(@empty_row,0);
}
#
+ my $xlabel = &mt('Correct Foil');
+ my $ylabel = &mt('foils chosen Incorrectly');
my $graph = &Apache::loncommon::DrawBarGraph
- ($title,'Correct Foil','foils chosen Incorrectly',
+ ($title,$xlabel,$ylabel,
100,$plotcolors,\@labels,\@empty_row, at dataset);
return ($graph,\%count_per_foil);
}
@@ -1361,8 +1372,12 @@
}
}
#
+ my %lt = &Apache::lonlocal::texthash(
+ 'title' => 'Correct Concepts',
+ 'xlabel' => 'Concept Number',
+ 'ylabel' => 'Percent Correct');
$concept_graph = &Apache::loncommon::DrawBarGraph
- ('Correct Concepts','Concept Number','Percent Correct',
+ ($lt{'title'},$lt{'xlabel'},$lt{'ylabel'},
100,$plotcolors,undef,\@concept_plot_data,{xskip=>1});
}
#
@@ -1400,8 +1415,12 @@
push(@Labels,'');
}
#
+ my %lt = &Apache::lonlocal::texthash(
+ 'title' => 'Correct Statements',
+ 'xlabel' => 'Statement',
+ 'ylabel' => '% Answered Correct');
my $correct_graph = &Apache::loncommon::DrawBarGraph
- ('Correct Statements','Statement','% Answered Correct',
+ ($lt{'title'},$lt{'xlabel'},$lt{'ylabel'},
100,$plotcolors,\@Labels,$Datasets[0],{xskip=>1});
#
@@ -1412,8 +1431,12 @@
}
my $count = $response_data{'_total'}->[$try] -
$response_data{'_correct'}->[$try];
+ %lt = &Apache::lonlocal::texthash(
+ 'title' => 'Incorrect Statements',
+ 'xlabel' => 'Statement',
+ 'ylabel' => '% Chosen Incorrectly');
my $incorrect_graph = &Apache::loncommon::DrawBarGraph
- ('Incorrect Statements','Statement','% Chosen Incorrectly',
+ ($lt{'title'},$lt{'xlabel'},$lt{'ylabel'},
100,$plotcolors,\@Labels, at Datasets,{xskip=>1});
$analysis_html.=
'<tr><td colspan="4" align="center">'.
@@ -1475,10 +1498,11 @@
if (defined($Concepts)) { $num_concepts = scalar(@$Concepts); }
#
if ($num_concepts < 2) {
- $table = '<h3>'.
- &mt('Not enough data for concept analysis.').' '.
- &mt('Performing Foil Analysis').
- '</h3>'.$table;
+ $table = '<p class="LC_info">'.
+ &mt('Not enough data for concept analysis.'.
+ ' Performing Foil Analysis instead.').
+ '</p>'.
+ $table;
}
#
my $num_plots = $env{'form.NumPlots'};
@@ -1535,7 +1559,7 @@
$correct |= 0;
##
$table .= '<tr><td colspan="4" align="center"><font size="+1">'.
- &mt('[_1] submissions from [_2] students, [_3] correct, [_4] incorrect',
+ &mt('[quant,_1,submission,submissions,No submissions] from [quant,_2,student], [_3] correct, [_4] incorrect',
$data_count,$student_count,$correct,$data_count-$correct).
'</font></td></tr>'.$/;
my $concept_correct_plot = '';
@@ -1607,9 +1631,13 @@
}
#
# Create the plot
- my $correct_plot = &Apache::loncommon::DrawBarGraph('Correct Statements',
- 'Statement Number',
- 'Percent Correct',
+ my %lt = &Apache::lonlocal::texthash(
+ 'title' => 'Correct Statements',
+ 'xlabel' => 'Statement Number',
+ 'ylabel' => 'Percent Correct');
+ my $correct_plot = &Apache::loncommon::DrawBarGraph($lt{'title'},
+ $lt{'xlabel'},
+ $lt{'ylabel'},
100,
$plotcolors,
undef,
@@ -1618,10 +1646,14 @@
for (my $j=0; $j< scalar(@{$plotdata[0]});$j++) {
$plotdata[0]->[$j]=0;
}
+ %lt = &Apache::lonlocal::texthash(
+ 'title' => 'Incorrect Statements',
+ 'xlabel' => 'Statement Number',
+ 'ylabel' => 'Incorrect Option Choice');
my $incorrect_plot =
- &Apache::loncommon::DrawBarGraph('Incorrect Statements',
- 'Statement Number',
- 'Incorrect Option Choice',
+ &Apache::loncommon::DrawBarGraph($lt{'title'},
+ $lt{'xlabel'},
+ $lt{'ylabel'},
100,
$plotcolors,
undef,
@@ -1650,9 +1682,13 @@
}
#
# Create the plot
- return &Apache::loncommon::DrawBarGraph('Correct Concepts',
- 'Concept Number',
- 'Percent Correct',
+ my %lt = &Apache::lonlocal::texthash(
+ 'title' => 'Correct Concepts',
+ 'xlabel' => 'Concept Number',
+ 'ylabel' => 'Percent Correct');
+ return &Apache::loncommon::DrawBarGraph($lt{'title'},
+ $lt{'xlabel'},
+ $lt{'ylabel'},
100,
$plotcolors,
undef,
More information about the LON-CAPA-cvs
mailing list