loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.131 and 1.147

version 1.131, 2008/10/23 09:07:51	version 1.147, 2020/11/10 19:28:32
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 =
&Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status');	&Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status');
$r->rflush();	$r->rflush();
#	#
my $problem_types = '(option\|radiobutton\|numerical)';	my $problem_types = &analyzable_types();
if (exists($env{'form.problemchoice'}) &&	if (exists($env{'form.problemchoice'}) &&
! exists($env{'form.SelectAnother'})) {	! exists($env{'form.SelectAnother'})) {
foreach my $button (@SubmitButtons) {	foreach my $button (@SubmitButtons) {
Line 111 sub BuildProblemAnalysisPage {	Line 118 sub BuildProblemAnalysisPage {
$r->rflush();	$r->rflush();
#	#
# Determine which problem we are to analyze	# Determine which problem we are to analyze
my $current_problem = &Apache::lonstathelpers::get_target_from_id	my ($navmap,$current_problem) = &get_current_problem(); # need to retrieve $navmap
($env{'form.problemchoice'});	# to support $resource->* calls
#	# for src and compTitle (below)
my ($navmap,$prev,$curr,$next) =
&Apache::lonstathelpers::get_prev_curr_next($current_problem,
$problem_types,
'response',
);
if (exists($env{'form.PrevProblemAnalysis'}) && defined($prev)) {
$current_problem = $prev;
} elsif (exists($env{'form.NextProblemAnalysis'}) && defined($next)) {
$current_problem = $next;
} else {
$current_problem = $curr;
}
#	#
# Store the current problem choice and send it out in the form	# Store the current problem choice and send it out in the form
$env{'form.problemchoice'} =	$env{'form.problemchoice'} =
Line 139 sub BuildProblemAnalysisPage {	Line 134 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 160 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 179 sub BuildProblemAnalysisPage {	Line 181 sub BuildProblemAnalysisPage {
}	}
}	}

	sub analyzable_types {
	return '(option\|radiobutton\|numerical)';
	}

	sub get_current_problem {
	my ($problem_types) = @_;
	my $current_problem = &Apache::lonstathelpers::get_target_from_id
	($env{'form.problemchoice'});
	my ($navmap,$prev,$curr,$next) =
	&Apache::lonstathelpers::get_prev_curr_next($current_problem,
	$problem_types,
	'response');
	if (exists($env{'form.PrevProblemAnalysis'}) && ($prev ne '')) {
	$current_problem = $prev;
	} elsif (exists($env{'form.NextProblemAnalysis'}) && ($next ne '')) {
	$current_problem = $next;
	} else {
	$current_problem = $curr;
	}
	return ($navmap,$current_problem);
	}

#########################################################	#########################################################
#########################################################	#########################################################
##	##
Line 214 sub numerical_response_analysis {	Line 238 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 258 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 306 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 410 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 486 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 646 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 680 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 858 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 874 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 891 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 933 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 982 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 1050 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 1120 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 1185 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 1254 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 1272 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 1352 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 1384 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 1427 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 1443 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 1510 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 1571 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 1593 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">&nbsp</td></tr>'.$/;	$table.= '<tr><td colspan="4"> </td></tr>'.$/;
}	}
$table .= '</table>';	$table .= '</table>';
#	#
Line 1547 sub OR_Foil_Time_Analysis {	Line 1604 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 1643 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 1658 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 1694 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 1796 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 1820 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 1860 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 1922 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 1947 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 1985 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 .= '<span class="LC_nobreak"><label>'
.&mt('Status: [_1]',
'<input type="text" name="stats_status"'
.' size="60" value="" readonly="readonly" />')
.'</label></span>';
$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;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.131
changed lines
	Added in v.1.147