version 1.130, 2007/01/04 02:44:07
|
version 1.145, 2014/02/03 18:50:58
|
Line 31 use Apache::lonnet;
|
Line 31 use Apache::lonnet;
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::loncoursedata(); |
use Apache::loncoursedata(); |
|
use Apache::lonquickgrades(); |
use Apache::lonstatistics; |
use Apache::lonstatistics; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonstathelpers(); |
use Apache::lonstathelpers(); |
Line 73 sub BuildProblemAnalysisPage {
|
Line 74 sub BuildProblemAnalysisPage {
|
# |
# |
&Apache::lonstatistics::PrepareClasslist(); |
&Apache::lonstatistics::PrepareClasslist(); |
# |
# |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Detailed Problem Analysis')); |
|
&Apache::lonquickgrades::startGradeScreen($r,'statistics'); |
|
|
$r->print(&CreateInterface()); |
$r->print(&CreateInterface()); |
# |
# |
my @Students = @Apache::lonstatistics::Students; |
my @Students = @Apache::lonstatistics::Students; |
# |
# |
if (@Students < 1 && exists($env{'form.firstrun'})) { |
if (@Students < 1 && exists($env{'form.firstrun'})) { |
$r->print('<h2>There are no students in the sections/groups selected</h2>'); |
$r->print('<div class="LC_warning">' |
|
.&mt('There are no students in the sections/groups selected.') |
|
.'</div>' |
|
); |
} |
} |
# |
# |
my @CacheButtonHTML = |
my @CacheButtonHTML = |
Line 139 sub BuildProblemAnalysisPage {
|
Line 146 sub BuildProblemAnalysisPage {
|
my $resource = $current_problem->{'resource'}; |
my $resource = $current_problem->{'resource'}; |
$r->print('<h1>'.$resource->compTitle.'</h1>'); |
$r->print('<h1>'.$resource->compTitle.'</h1>'); |
$r->print('<h3>'.$resource->src.'</h3>'); |
$r->print('<h3>'.$resource->src.'</h3>'); |
$r->print('<h4>'.&Apache::lonstatistics::section_and_enrollment_description().'</h4>'); |
$r->print('<p>'.&Apache::lonstatistics::section_and_enrollment_description().'</p>'); |
if ($env{'form.show_prob'} eq 'true') { |
if ($env{'form.show_prob'} eq 'true') { |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print('<hr />' |
|
.&Apache::lonstathelpers::render_resource($resource) |
|
.'<hr />' |
|
); |
} |
} |
$r->rflush(); |
$r->rflush(); |
if (@Students) { |
if (@Students) { |
Line 162 sub BuildProblemAnalysisPage {
|
Line 172 sub BuildProblemAnalysisPage {
|
&numerical_response_analysis($r,$current_problem, |
&numerical_response_analysis($r,$current_problem, |
$problem_data,\@Students); |
$problem_data,\@Students); |
} else { |
} else { |
$r->print('<h2>Analysis of '.$current_problem->{'resptype'}.' is not supported</h2>'); |
$r->print('<div class="LC_warning">' |
|
.&mt('Analysis of [_1] is not supported.' |
|
,$current_problem->{'resptype'}) |
|
.'</div>' |
|
); |
} |
} |
} |
} |
} |
} |
Line 214 sub numerical_response_analysis {
|
Line 228 sub numerical_response_analysis {
|
} |
} |
# |
# |
if (ref($response_data) ne 'ARRAY') { |
if (ref($response_data) ne 'ARRAY') { |
$r->print('<h2>'. |
$r->print('<div class="LC_warning">' |
&mt('There is no submission data for this resource'). |
.&mt('There is no submission data for this resource.') |
'</h2>'); |
.'</div>' |
|
); |
return; |
return; |
} |
} |
my $analysis_html = '<table>'; |
my $analysis_html = '<table>'; |
Line 233 sub numerical_response_analysis {
|
Line 248 sub numerical_response_analysis {
|
$stats_message = |
$stats_message = |
'[_1] submissions, [_2] correct, [_3] incorrect'; |
'[_1] submissions, [_2] correct, [_3] incorrect'; |
$post_message = ''; |
$post_message = ''; |
$no_data_message = 'No data exists for attempt [_1]'; |
$no_data_message = 'No data exists for attempt [_1].'; |
} else { |
} else { |
my $starttime = &Apache::lonhtmlcommon::get_date_from_form |
my $starttime = &Apache::lonhtmlcommon::get_date_from_form |
('startdate_'.$plot_num); |
('startdate_'.$plot_num); |
Line 281 sub numerical_response_analysis {
|
Line 296 sub numerical_response_analysis {
|
$restriction_function); |
$restriction_function); |
if ($stats->{'submission_count'} == 0) { |
if ($stats->{'submission_count'} == 0) { |
$analysis_html.= |
$analysis_html.= |
'<tr><td colspan="2"><font size="+1"><b>'. |
'<tr><td colspan="2"><div class="LC_warning">'. |
&mt($no_data_message,$plot_num,@extra_data). |
&mt($no_data_message,$plot_num,@extra_data). |
'</b></font></td></tr>'; |
'</div></td></tr>'; |
} else { |
} else { |
$analysis_html.= |
$analysis_html.= |
'<tr><td colspan="2" align="center"><font size="+1"><b>'. |
'<tr><td colspan="2" align="center"><font size="+1"><b>'. |
Line 385 sub numerical_plot_percent {
|
Line 400 sub numerical_plot_percent {
|
if ($max <$_) { $max = $_; last; } |
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 @labels = (1..scalar(@bins)-1); |
my $graph = &Apache::loncommon::DrawBarGraph |
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, |
$max,['#33FF00','#FF3300'],\@labels,\@plot_correct,\@plot_incorrect, |
{xskip=>1}); |
{xskip=>1}); |
# |
# |
Line 458 sub numerical_plot_differences {
|
Line 476 sub numerical_plot_differences {
|
if ($max <$_) { $max = $_; last; } |
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 @labels = (1..scalar(@bins)-1); |
my $graph = &Apache::loncommon::DrawBarGraph |
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, |
$max,['#33FF00','#FF3300'],\@labels,\@plot_correct,\@plot_incorrect, |
{xskip=>1}); |
{xskip=>1}); |
# |
# |
Line 615 sub numerical_determine_answers {
|
Line 636 sub numerical_determine_answers {
|
my ($r,$resource,$partid,$respid,$students)=@_; |
my ($r,$resource,$partid,$respid,$students)=@_; |
my $c = $r->connection(); |
my $c = $r->connection(); |
# |
# |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$students)); |
($r,'Student Answer Compilation Status', |
|
'Student Answer Compilation Progress', scalar(@$students), |
|
'inline',undef,'Statistics','stats_status'); |
|
# |
# |
# Read in the cache (if it exists) before we start timing things. |
# Read in the cache (if it exists) before we start timing things. |
&Apache::lonstathelpers::ensure_proper_cache($resource->{'symb'}); |
&Apache::lonstathelpers::ensure_proper_cache($resource->{'symb'}); |
Line 652 sub numerical_determine_answers {
|
Line 670 sub numerical_determine_answers {
|
} |
} |
$answers{$correct->{$sname.':'.$sdom}{'answer'}}++; |
$answers{$correct->{$sname.':'.$sdom}{'answer'}}++; |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&mt('last student')); |
'last student'); |
} |
} |
&Apache::lonstathelpers::write_analysis_cache(); |
&Apache::lonstathelpers::write_analysis_cache(); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
Line 830 sub radio_response_analysis {
|
Line 848 sub radio_response_analysis {
|
} |
} |
# |
# |
if (! defined($response_data) || ref($response_data) ne 'ARRAY' ) { |
if (! defined($response_data) || ref($response_data) ne 'ARRAY' ) { |
$analysis_html = '<h2>'. |
$analysis_html = '<div class="LC_warning">' |
&mt('There is no submission data for this resource'). |
.&mt('There is no submission data for this resource.') |
'</h2>'; |
.'</div>'; |
$r->print($analysis_html); |
$r->print($analysis_html); |
return; |
return; |
} |
} |
Line 846 sub radio_response_analysis {
|
Line 864 sub radio_response_analysis {
|
$no_data_text,@extra_data); |
$no_data_text,@extra_data); |
if ($env{'form.AnalyzeOver'} eq 'tries') { |
if ($env{'form.AnalyzeOver'} eq 'tries') { |
$restriction_function = sub {($_[0]->{'tries'} == $plot_num?1:0)}; |
$restriction_function = sub {($_[0]->{'tries'} == $plot_num?1:0)}; |
$correct_foil_title = 'Attempt '.$plot_num; |
$correct_foil_title = &mt('Attempt [_1]',$plot_num); |
$incorrect_foil_title = 'Attempt '.$plot_num; |
$incorrect_foil_title = &mt('Attempt [_1]',$plot_num); |
$pre_graph_text = |
$pre_graph_text = |
'Attempt [_1], [_2] submissions, [_3] correct, [_4] incorrect'; |
'Attempt [_1], [_2] submissions, [_3] correct, [_4] incorrect'; |
$post_graph_text = ''; |
$post_graph_text = ''; |
Line 863 sub radio_response_analysis {
|
Line 881 sub radio_response_analysis {
|
&get_time_from_row($response_data->[-1]), |
&get_time_from_row($response_data->[-1]), |
$plot_num); |
$plot_num); |
$pre_graph_text = |
$pre_graph_text = |
'Data from [_6] to [_7]<br /> [_2] submissions from [_5] students, [_3] correct, [_4] incorrect'; |
'Data from [_6] to [_7]' |
|
.'<br />' |
|
.'[_2] submissions from [_5] students, [_3] correct, [_4] incorrect'; |
$extra_data[0] = &Apache::lonlocal::locallocaltime($starttime); |
$extra_data[0] = &Apache::lonlocal::locallocaltime($starttime); |
$extra_data[1] = &Apache::lonlocal::locallocaltime($endtime); |
$extra_data[1] = &Apache::lonlocal::locallocaltime($endtime); |
# |
# |
Line 903 sub radio_response_analysis {
|
Line 923 sub radio_response_analysis {
|
# Concept Plot |
# Concept Plot |
my $concept_plot = ''; |
my $concept_plot = ''; |
if (scalar(@$concepts) > 1) { |
if (scalar(@$concepts) > 1) { |
|
my $title = &mt('Correct Concepts'); |
$concept_plot = &RR_concept_plot($concepts,$foil_choice_data, |
$concept_plot = &RR_concept_plot($concepts,$foil_choice_data, |
'Correct Concepts'); |
$title); |
} |
} |
# % Choosing plot |
# % Choosing plot |
my $choice_plot = &RR_create_percent_selected_plot |
my $choice_plot = &RR_create_percent_selected_plot |
Line 951 sub radio_response_analysis {
|
Line 972 sub radio_response_analysis {
|
} |
} |
} elsif ($no_data_text ne '') { |
} elsif ($no_data_text ne '') { |
$analysis_html.='<tr><td colspan="4" align="center">'. |
$analysis_html.='<tr><td colspan="4" align="center">'. |
|
'<div class="LC_warning">'. |
&mt($no_data_text, |
&mt($no_data_text, |
$plot_num,$foil_choice_data->{'_count'}, |
$plot_num,$foil_choice_data->{'_count'}, |
$correct, |
$correct, |
$foil_choice_data->{'_count'}-$correct, |
$foil_choice_data->{'_count'}-$correct, |
@extra_data); |
@extra_data). |
|
'</div>'; |
if (defined($post_graph_text)) { |
if (defined($post_graph_text)) { |
$analysis_html.='<br />'.$post_graph_text; |
$analysis_html.='<br />'.$post_graph_text; |
} |
} |
Line 1017 sub RR_concept_plot {
|
Line 1040 sub RR_concept_plot {
|
for (my $i=0;$i<=$#correct;$i++) { |
for (my $i=0;$i<=$#correct;$i++) { |
$correct[$i] = sprintf('%0f',$correct[$i]/$total*100); |
$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, |
my $plot= &Apache::loncommon::DrawBarGraph($title, |
$xlabel, |
$xlabel, |
'Percent Choosing', |
$ylabel, |
100, |
100, |
['#33ff00','#ff3300'], |
['#33ff00','#ff3300'], |
undef, |
undef, |
Line 1086 sub RR_create_percent_selected_plot {
|
Line 1110 sub RR_create_percent_selected_plot {
|
@labels = (1 .. scalar(@correct)); |
@labels = (1 .. scalar(@correct)); |
} |
} |
# |
# |
my $xlabel = 'foil chosen'; |
my $xlabel = &mt('foil chosen'); |
|
my $ylabel = &mt('Percent Choosing'); |
my $plot= &Apache::loncommon::DrawBarGraph($title, |
my $plot= &Apache::loncommon::DrawBarGraph($title, |
$xlabel, |
$xlabel, |
'Percent Choosing', |
$ylabel, |
100, |
100, |
['#33ff00','#ff3300'], |
['#33ff00','#ff3300'], |
\@labels, |
\@labels, |
Line 1150 sub RR_create_stacked_selection_plot {
|
Line 1175 sub RR_create_stacked_selection_plot {
|
push(@empty_row,0); |
push(@empty_row,0); |
} |
} |
# |
# |
|
my $xlabel = &mt('Correct Foil'); |
|
my $ylabel = &mt('foils chosen Incorrectly'); |
my $graph = &Apache::loncommon::DrawBarGraph |
my $graph = &Apache::loncommon::DrawBarGraph |
($title,'Correct Foil','foils chosen Incorrectly', |
($title,$xlabel,$ylabel, |
100,$plotcolors,\@labels,\@empty_row,@dataset); |
100,$plotcolors,\@labels,\@empty_row,@dataset); |
return ($graph,\%count_per_foil); |
return ($graph,\%count_per_foil); |
} |
} |
Line 1217 sub OptionResponseAnalysis {
|
Line 1244 sub OptionResponseAnalysis {
|
$resource->symb,$respid); |
$resource->symb,$respid); |
if (! defined($PerformanceData) || |
if (! defined($PerformanceData) || |
ref($PerformanceData) ne 'ARRAY' ) { |
ref($PerformanceData) ne 'ARRAY' ) { |
$r->print('<h2>'. |
$r->print('<div class="LC_warning">' |
&mt('There is no student data for this problem.'). |
.&mt('There is no student data for this problem.') |
'</h2>'); |
.'</div>' |
|
); |
} else { |
} else { |
$r->rflush(); |
$r->rflush(); |
if ($env{'form.AnalyzeOver'} eq 'tries') { |
if ($env{'form.AnalyzeOver'} eq 'tries') { |
Line 1234 sub OptionResponseAnalysis {
|
Line 1262 sub OptionResponseAnalysis {
|
$r->print($analysis_html); |
$r->print($analysis_html); |
$r->rflush(); |
$r->rflush(); |
} else { |
} else { |
$r->print('<h2>'. |
$r->print('<div class="LC_warning">' |
&mt('The analysis you have selected is '. |
.&mt('The analysis you have selected is not supported at this time.') |
'not supported at this time'). |
.'</div>' |
'</h2>'); |
); |
} |
} |
} |
} |
} |
} |
Line 1314 sub OR_tries_analysis {
|
Line 1342 sub OR_tries_analysis {
|
if (! defined($response_data{'_total'}->[$try]) || |
if (! defined($response_data{'_total'}->[$try]) || |
$response_data{'_total'}->[$try] == 0) { |
$response_data{'_total'}->[$try] == 0) { |
if ($try > 1) { |
if ($try > 1) { |
$analysis_html.= '<tr><td align="center" colspan="4"><b>'. |
$analysis_html.= '<tr><td colspan="4">' |
&mt('None of the selected students attempted the problem more than [_1] times.',$try-1). |
.'<div class="LC_info">' |
'</b></td></tr>'; |
.&mt('None of the selected students attempted the problem more than [quant,_1,time].' |
|
,$try-1) |
|
.'</div>' |
|
.'</td></tr>'; |
} else { |
} else { |
$analysis_html.= '<tr><td colspan="4" align="center"><b>'. |
$analysis_html.= '<tr><td colspan="4">' |
&mt('None of the selected students have attempted the problem').'</b></td></tr>'; |
.'<div class="LC_info">' |
|
.&mt('None of the selected students have attempted the problem.') |
|
.'</div>' |
|
.'</td></tr>'; |
} |
} |
last; |
last; |
} |
} |
Line 1340 sub OR_tries_analysis {
|
Line 1374 sub OR_tries_analysis {
|
} |
} |
} |
} |
# |
# |
|
my %lt = &Apache::lonlocal::texthash( |
|
'title' => 'Correct Concepts', |
|
'xlabel' => 'Concept Number', |
|
'ylabel' => 'Percent Correct'); |
$concept_graph = &Apache::loncommon::DrawBarGraph |
$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}); |
100,$plotcolors,undef,\@concept_plot_data,{xskip=>1}); |
} |
} |
# |
# |
Line 1379 sub OR_tries_analysis {
|
Line 1417 sub OR_tries_analysis {
|
push(@Labels,''); |
push(@Labels,''); |
} |
} |
# |
# |
|
my %lt = &Apache::lonlocal::texthash( |
|
'title' => 'Correct Statements', |
|
'xlabel' => 'Statement', |
|
'ylabel' => '% Answered Correct'); |
my $correct_graph = &Apache::loncommon::DrawBarGraph |
my $correct_graph = &Apache::loncommon::DrawBarGraph |
('Correct Statements','Statement','% Answered Correct', |
($lt{'title'},$lt{'xlabel'},$lt{'ylabel'}, |
100,$plotcolors,\@Labels,$Datasets[0],{xskip=>1}); |
100,$plotcolors,\@Labels,$Datasets[0],{xskip=>1}); |
|
|
# |
# |
Line 1391 sub OR_tries_analysis {
|
Line 1433 sub OR_tries_analysis {
|
} |
} |
my $count = $response_data{'_total'}->[$try] - |
my $count = $response_data{'_total'}->[$try] - |
$response_data{'_correct'}->[$try]; |
$response_data{'_correct'}->[$try]; |
|
%lt = &Apache::lonlocal::texthash( |
|
'title' => 'Incorrect Statements', |
|
'xlabel' => 'Statement', |
|
'ylabel' => '% Chosen Incorrectly'); |
my $incorrect_graph = &Apache::loncommon::DrawBarGraph |
my $incorrect_graph = &Apache::loncommon::DrawBarGraph |
('Incorrect Statements','Statement','% Chosen Incorrectly', |
($lt{'title'},$lt{'xlabel'},$lt{'ylabel'}, |
100,$plotcolors,\@Labels,@Datasets,{xskip=>1}); |
100,$plotcolors,\@Labels,@Datasets,{xskip=>1}); |
$analysis_html.= |
$analysis_html.= |
'<tr><td colspan="4" align="center">'. |
'<tr><td colspan="4" align="center">'. |
Line 1454 sub OR_time_analysis {
|
Line 1500 sub OR_time_analysis {
|
if (defined($Concepts)) { $num_concepts = scalar(@$Concepts); } |
if (defined($Concepts)) { $num_concepts = scalar(@$Concepts); } |
# |
# |
if ($num_concepts < 2) { |
if ($num_concepts < 2) { |
$table = '<h3>'. |
$table = '<p class="LC_info">'. |
&mt('Not enough data for concept analysis. '. |
&mt('Not enough data for concept analysis.'. |
'Performing Foil Analysis'). |
' Performing Foil Analysis instead.'). |
'</h3>'.$table; |
'</p>'. |
|
$table; |
} |
} |
# |
# |
my $num_plots = $env{'form.NumPlots'}; |
my $num_plots = $env{'form.NumPlots'}; |
Line 1514 sub OR_time_analysis {
|
Line 1561 sub OR_time_analysis {
|
$correct |= 0; |
$correct |= 0; |
## |
## |
$table .= '<tr><td colspan="4" align="center"><font size="+1">'. |
$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). |
$data_count,$student_count,$correct,$data_count-$correct). |
'</font></td></tr>'.$/; |
'</font></td></tr>'.$/; |
my $concept_correct_plot = ''; |
my $concept_correct_plot = ''; |
Line 1536 sub OR_time_analysis {
|
Line 1583 sub OR_time_analysis {
|
$table .= '<tr><td colspan="4" align="center">'. |
$table .= '<tr><td colspan="4" align="center">'. |
&mt('Start time: [_1]',$startdateform).'<br />'. |
&mt('Start time: [_1]',$startdateform).'<br />'. |
&mt('End time: [_1]',$enddateform).'</td></tr>'.$/; |
&mt('End time: [_1]',$enddateform).'</td></tr>'.$/; |
$table.= '<tr><td colspan="4"> </td></tr>'.$/; |
$table.= '<tr><td colspan="4"> </td></tr>'.$/; |
} |
} |
$table .= '</table>'; |
$table .= '</table>'; |
# |
# |
Line 1547 sub OR_Foil_Time_Analysis {
|
Line 1594 sub OR_Foil_Time_Analysis {
|
my ($processed_time_data,$correct,$data_count,$student_count, |
my ($processed_time_data,$correct,$data_count,$student_count, |
$ORdata,$Foils,$Concepts) = @_; |
$ORdata,$Foils,$Concepts) = @_; |
if ($data_count <= 0) { |
if ($data_count <= 0) { |
return ('<h2>'.&mt('There is no data to plot').'</h2>',''); |
return ('<div class="LC_warning">' |
|
.&mt('There is no data to plot.') |
|
.'</div>' |
|
,'' |
|
); |
} |
} |
my $analysis_html; |
my $analysis_html; |
my @plotdata; |
my @plotdata; |
Line 1582 sub OR_Foil_Time_Analysis {
|
Line 1633 sub OR_Foil_Time_Analysis {
|
} |
} |
# |
# |
# Create the plot |
# Create the plot |
my $correct_plot = &Apache::loncommon::DrawBarGraph('Correct Statements', |
my %lt = &Apache::lonlocal::texthash( |
'Statement Number', |
'title' => 'Correct Statements', |
'Percent Correct', |
'xlabel' => 'Statement Number', |
|
'ylabel' => 'Percent Correct'); |
|
my $correct_plot = &Apache::loncommon::DrawBarGraph($lt{'title'}, |
|
$lt{'xlabel'}, |
|
$lt{'ylabel'}, |
100, |
100, |
$plotcolors, |
$plotcolors, |
undef, |
undef, |
Line 1593 sub OR_Foil_Time_Analysis {
|
Line 1648 sub OR_Foil_Time_Analysis {
|
for (my $j=0; $j< scalar(@{$plotdata[0]});$j++) { |
for (my $j=0; $j< scalar(@{$plotdata[0]});$j++) { |
$plotdata[0]->[$j]=0; |
$plotdata[0]->[$j]=0; |
} |
} |
|
%lt = &Apache::lonlocal::texthash( |
|
'title' => 'Incorrect Statements', |
|
'xlabel' => 'Statement Number', |
|
'ylabel' => 'Incorrect Option Choice'); |
my $incorrect_plot = |
my $incorrect_plot = |
&Apache::loncommon::DrawBarGraph('Incorrect Statements', |
&Apache::loncommon::DrawBarGraph($lt{'title'}, |
'Statement Number', |
$lt{'xlabel'}, |
'Incorrect Option Choice', |
$lt{'ylabel'}, |
100, |
100, |
$plotcolors, |
$plotcolors, |
undef, |
undef, |
Line 1625 sub OR_Concept_Time_Analysis {
|
Line 1684 sub OR_Concept_Time_Analysis {
|
} |
} |
# |
# |
# Create the plot |
# Create the plot |
return &Apache::loncommon::DrawBarGraph('Correct Concepts', |
my %lt = &Apache::lonlocal::texthash( |
'Concept Number', |
'title' => 'Correct Concepts', |
'Percent Correct', |
'xlabel' => 'Concept Number', |
|
'ylabel' => 'Percent Correct'); |
|
return &Apache::loncommon::DrawBarGraph($lt{'title'}, |
|
$lt{'xlabel'}, |
|
$lt{'ylabel'}, |
100, |
100, |
$plotcolors, |
$plotcolors, |
undef, |
undef, |
Line 1723 sub build_foil_index {
|
Line 1786 sub build_foil_index {
|
} |
} |
# |
# |
# Build up the table of row labels. |
# Build up the table of row labels. |
my $table = '<table border="1" >'."\n"; |
my $table = &Apache::loncommon::start_data_table(); |
if (@Concepts > 1) { |
if (@Concepts > 1) { |
$table .= '<tr>'. |
$table .= &Apache::loncommon::start_data_table_header_row(). |
'<th>'.&mt('Concept Number').'</th>'. |
'<th>'.&mt('Concept Number').'</th>'. |
'<th>'.&mt('Concept').'</th>'. |
'<th>'.&mt('Concept').'</th>'. |
'<th>'.&mt('Foil Number').'</th>'. |
'<th>'.&mt('Foil Number').'</th>'. |
'<th>'.&mt('Foil Name').'</th>'. |
'<th>'.&mt('Foil Name').'</th>'. |
'<th>'.&mt('Foil Text').'</th>'. |
'<th>'.&mt('Foil Text').'</th>'. |
'<th>'.&mt('Correct Value').'</th>'. |
'<th>'.&mt('Correct Value').'</th>'. |
"</tr>\n"; |
&Apache::loncommon::end_data_table_header_row(); |
} else { |
} else { |
$table .= '<tr>'. |
$table .= &Apache::loncommon::start_data_table_header_row(). |
'<th>'.&mt('Foil Number').'</th>'. |
'<th>'.&mt('Foil Number').'</th>'. |
'<th>'.&mt('Foil Name').'</th>'. |
'<th>'.&mt('Foil Name').'</th>'. |
'<th>'.&mt('Foil Text').'</th>'. |
'<th>'.&mt('Foil Text').'</th>'. |
'<th>'.&mt('Correct Value').'</th>'. |
'<th>'.&mt('Correct Value').'</th>'. |
"</tr>\n"; |
&Apache::loncommon::end_data_table_header_row(); |
} |
} |
my $conceptindex = 1; |
my $conceptindex = 1; |
my $foilindex = 1; |
my $foilindex = 1; |
Line 1747 sub build_foil_index {
|
Line 1810 sub build_foil_index {
|
my @FoilsInConcept = @{$concept->{'foils'}}; |
my @FoilsInConcept = @{$concept->{'foils'}}; |
my $firstfoil = shift(@FoilsInConcept); |
my $firstfoil = shift(@FoilsInConcept); |
if (@Concepts > 1) { |
if (@Concepts > 1) { |
$table .= '<tr>'. |
$table .= &Apache::loncommon::start_data_table_row(). |
'<td>'.$conceptindex.'</td>'. |
'<td>'.$conceptindex.'</td>'. |
'<td>'.&HTML::Entities::encode($concept->{'name'},'<>&"').'</td>'. |
'<td>'.&HTML::Entities::encode($concept->{'name'},'<>&"').'</td>'. |
'<td>'.$foilindex++.'</td>'. |
'<td>'.$foilindex++.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').'</td>'. |
'<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'. |
'<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'},'<>&"').'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'},'<>&"').'</td>'. |
"</tr>\n"; |
&Apache::loncommon::end_data_table_row(); |
} else { |
} else { |
$table .= '<tr>'. |
$table .= &Apache::loncommon::start_data_table_row(). |
'<td>'.$foilindex++.'</td>'. |
'<td>'.$foilindex++.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').'</td>'. |
'<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'. |
'<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'},'<>&"').'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'},'<>&"').'</td>'. |
"</tr>\n"; |
&Apache::loncommon::end_data_table_row(); |
} |
} |
foreach my $foilid (@FoilsInConcept) { |
foreach my $foilid (@FoilsInConcept) { |
if (@Concepts > 1) { |
if (@Concepts > 1) { |
$table .= '<tr>'. |
$table .= &Apache::loncommon::start_data_table_row(). |
'<td></td>'. |
'<td></td>'. |
'<td></td>'. |
'<td></td>'. |
'<td>'.$foilindex.'</td>'. |
'<td>'.$foilindex.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').'</td>'. |
'<td>'.$Foildata{$foilid}->{'text'}.'</td>'. |
'<td>'.$Foildata{$foilid}->{'text'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'},'<>&"').'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'},'<>&"').'</td>'. |
"</tr>\n"; |
&Apache::loncommon::end_data_table_row(); |
} else { |
} else { |
$table .= '<tr>'. |
$table .= &Apache::loncommon::start_data_table_row(). |
'<td>'.$foilindex.'</td>'. |
'<td>'.$foilindex.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').'</td>'. |
'<td>'.$Foildata{$foilid}->{'text'}.'</td>'. |
'<td>'.$Foildata{$foilid}->{'text'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'},'<>&"').'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'},'<>&"').'</td>'. |
"</tr>\n"; |
&Apache::loncommon::end_data_table_row(); |
} |
} |
} continue { |
} continue { |
$foilindex++; |
$foilindex++; |
Line 1787 sub build_foil_index {
|
Line 1850 sub build_foil_index {
|
} continue { |
} continue { |
$conceptindex++; |
$conceptindex++; |
} |
} |
$table .= "</table>\n"; |
$table .= &Apache::loncommon::end_data_table(); |
# |
# |
# Build option index with color stuff |
# Build option index with color stuff |
return ($table,\@Foils,\@Concepts); |
return ($table,\@Foils,\@Concepts); |
Line 1849 sub CreateInterface {
|
Line 1912 sub CreateInterface {
|
## |
## |
## Build the menu |
## Build the menu |
my $Str = ''; |
my $Str = ''; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Detailed Problem Analysis'); |
$Str .= '<p>'; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= &Apache::loncommon::start_data_table(); |
$Str .= '<tr>'; |
$Str .= &Apache::loncommon::start_data_table_header_row(); |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<th>'.&mt('Sections').'</th>'; |
$Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>'; |
$Str .= '<th>'.&mt('Groups').'</th>'; |
$Str .= '<td align="center"><b>'.&mt('Access Status').'</b></td>'; |
$Str .= '<th>'.&mt('Access Status').'</th>'; |
$Str .= '<td align="center"> </td>'; |
$Str .= '<th>'.&mt('Options').'</th>'; |
$Str .= '</tr>'."\n"; |
$Str .= &Apache::loncommon::end_data_table_header_row(); |
## |
## |
## |
## |
$Str .= '<tr><td align="center">'."\n"; |
$Str .= &Apache::loncommon::start_data_table_row(); |
|
$Str .= '<td align="center">'."\n"; |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= '</td>'; |
$Str .= '</td>'; |
# |
# |
Line 1873 sub CreateInterface {
|
Line 1937 sub CreateInterface {
|
# |
# |
## |
## |
## |
## |
$Str .= '<td>'; |
$Str .= '<td valign="top">'; |
## |
## |
my $showprob_checkbox = |
my $showprob_checkbox = |
'<input type="checkbox" name="show_prob" value="true" '; |
'<input type="checkbox" name="show_prob" value="true"'; |
if ($env{'form.show_prob'} eq 'true') { |
if ($env{'form.show_prob'} eq 'true') { |
$showprob_checkbox .= 'checked '; |
$showprob_checkbox .= ' checked="checked"'; |
} |
} |
$showprob_checkbox.= ' />'; |
$showprob_checkbox.= ' />'; |
$Str.= '<nobr><label>'. |
$Str.= '<span class="LC_nobreak"><label>'. |
&mt('Show problem [_1]',$showprob_checkbox). |
$showprob_checkbox.' '.&mt('Show problem'). |
'</label></nobr><br />'; |
'</label></span><br />'; |
## |
## |
my $analyze_selector = '<select name="AnalyzeOver" >'; |
my $analyze_selector = '<select name="AnalyzeOver" >'; |
$analyze_selector .= '<option value="tries" '; |
$analyze_selector .= '<option value="tries" '; |
if (! exists($env{'form.AnalyzeOver'}) || |
if (! exists($env{'form.AnalyzeOver'}) || |
$env{'form.AnalyzeOver'} eq 'tries'){ |
$env{'form.AnalyzeOver'} eq 'tries'){ |
# Default to tries |
# Default to tries |
$analyze_selector .= ' selected '; |
$analyze_selector .= 'selected="selected"'; |
} |
} |
$analyze_selector .= '>'.&mt('Tries').'</option>'; |
$analyze_selector .= '>'.&mt('Tries').'</option>'; |
$analyze_selector .= '<option value="time" '; |
$analyze_selector .= '<option value="time"'; |
$analyze_selector .= ' selected ' if ($env{'form.AnalyzeOver'} eq 'time'); |
$analyze_selector .= ' selected="selected"' if ($env{'form.AnalyzeOver'} eq 'time'); |
$analyze_selector .= '>'.&mt('Time').'</option>'; |
$analyze_selector .= '>'.&mt('Time').'</option>'; |
$analyze_selector .= '</select>'; |
$analyze_selector .= '</select>'; |
$Str .= '<nobr><label>'. |
$Str .= '<span class="LC_nobreak"><label>'. |
&mt('Analyze Over [_1] [_2]', |
&mt('Analyze Over [_1] [_2]', |
$analyze_selector, |
$analyze_selector, |
&Apache::loncommon::help_open_topic('Analysis_Analyze_Over')). |
&Apache::loncommon::help_open_topic('Analysis_Analyze_Over')). |
'</label></nobr><br />'.$/; |
'</label></span><br />'.$/; |
## |
## |
my $numplots_selector = '<select name="NumPlots">'; |
my $numplots_selector = '<select name="NumPlots">'; |
if (! exists($env{'form.NumPlots'}) |
if (! exists($env{'form.NumPlots'}) |
Line 1911 sub CreateInterface {
|
Line 1975 sub CreateInterface {
|
} |
} |
foreach my $i (1,2,3,4,5,6,7,8,10,15,20) { |
foreach my $i (1,2,3,4,5,6,7,8,10,15,20) { |
$numplots_selector .= '<option value="'.$i.'" '; |
$numplots_selector .= '<option value="'.$i.'" '; |
if ($env{'form.NumPlots'} == $i) { $numplots_selector.=' selected '; } |
if ($env{'form.NumPlots'} == $i) { $numplots_selector.=' selected="selected" '; } |
$numplots_selector .= '>'.$i.'</option>'; |
$numplots_selector .= '>'.$i.'</option>'; |
} |
} |
$numplots_selector .= '</select></nobr><br />'; |
$numplots_selector .= '</select>'; |
$Str .= '<nobr><label>'.&mt('Number of Plots [_1]',$numplots_selector). |
$Str .= '<span class="LC_nobreak"><label>'.&mt('Number of Plots [_1]',$numplots_selector). |
'</label></nobr>'; |
'</label></span><br />'; |
## |
## |
$Str .= '<nobr><label>'.&mt('Status: [_1]', |
|
'<input type="text" '. |
|
'name="stats_status" size="60" value="" />' |
|
). |
|
'</label></nobr>'; |
|
$Str .= '</td>'; |
$Str .= '</td>'; |
## |
## |
## |
## |
$Str .= '</tr>'."\n"; |
$Str .= &Apache::loncommon::end_data_table_row(); |
$Str .= '</table>'."\n"; |
$Str .= &Apache::loncommon::end_data_table(); |
|
$Str .= '<p class="LC_nobreak"><label>' |
|
.&mt('Status: [_1]', |
|
'<input type="text" name="stats_status"' |
|
.' size="60" value="" readonly="readonly" />') |
|
.'</label></p>'; |
|
$Str .= '</p>'; |
return $Str; |
return $Str; |
} |
} |
|
|