version 1.117, 2005/03/11 21:14:41
|
version 1.121, 2005/04/19 13:59:34
|
Line 27
|
Line 27
|
package Apache::lonproblemanalysis; |
package Apache::lonproblemanalysis; |
|
|
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::loncoursedata(); |
use Apache::loncoursedata(); |
Line 73 sub BuildProblemAnalysisPage {
|
Line 73 sub BuildProblemAnalysisPage {
|
# |
# |
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 selected</h2>'); |
$r->print('<h2>There are no students in the sections selected</h2>'); |
} |
} |
# |
# |
Line 82 sub BuildProblemAnalysisPage {
|
Line 82 sub BuildProblemAnalysisPage {
|
$r->rflush(); |
$r->rflush(); |
# |
# |
my $problem_types = '(option|radiobutton|numerical)'; |
my $problem_types = '(option|radiobutton|numerical)'; |
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) { |
if ($button->{'name'} eq 'break') { |
if ($button->{'name'} eq 'break') { |
$r->print("<br />\n"); |
$r->print("<br />\n"); |
Line 105 sub BuildProblemAnalysisPage {
|
Line 105 sub BuildProblemAnalysisPage {
|
# |
# |
# Determine which problem we are to analyze |
# Determine which problem we are to analyze |
my $current_problem = &Apache::lonstathelpers::get_target_from_id |
my $current_problem = &Apache::lonstathelpers::get_target_from_id |
($ENV{'form.problemchoice'}); |
($env{'form.problemchoice'}); |
# |
# |
my ($navmap,$prev,$curr,$next) = |
my ($navmap,$prev,$curr,$next) = |
&Apache::lonstathelpers::get_prev_curr_next($current_problem, |
&Apache::lonstathelpers::get_prev_curr_next($current_problem, |
$problem_types, |
$problem_types, |
'response', |
'response', |
); |
); |
if (exists($ENV{'form.PrevProblemAnalysis'}) && defined($prev)) { |
if (exists($env{'form.PrevProblemAnalysis'}) && defined($prev)) { |
$current_problem = $prev; |
$current_problem = $prev; |
} elsif (exists($ENV{'form.NextProblemAnalysis'}) && defined($next)) { |
} elsif (exists($env{'form.NextProblemAnalysis'}) && defined($next)) { |
$current_problem = $next; |
$current_problem = $next; |
} else { |
} else { |
$current_problem = $curr; |
$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'} = |
&Apache::lonstathelpers::make_target_id($current_problem); |
&Apache::lonstathelpers::make_target_id($current_problem); |
$r->print('<input type="hidden" name="problemchoice" value="'. |
$r->print('<input type="hidden" name="problemchoice" value="'. |
$ENV{'form.problemchoice'}.'" />'); |
$env{'form.problemchoice'}.'" />'); |
# |
# |
if (! defined($current_problem->{'resource'})) { |
if (! defined($current_problem->{'resource'})) { |
$r->print('resource is undefined'); |
$r->print('resource is undefined'); |
Line 132 sub BuildProblemAnalysisPage {
|
Line 132 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>'); |
if ($ENV{'form.show_prob'} eq 'true') { |
$r->print('<h4>'.&Apache::lonstatistics::section_and_enrollment_description().'</h4>'); |
|
if ($env{'form.show_prob'} eq 'true') { |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
} |
} |
$r->rflush(); |
$r->rflush(); |
Line 158 sub BuildProblemAnalysisPage {
|
Line 159 sub BuildProblemAnalysisPage {
|
} |
} |
$r->print('<hr />'); |
$r->print('<hr />'); |
} else { |
} else { |
$r->print('<input type="submit" name="ProblemAnalysis" value="'. |
my $submit_button = '<input type="submit" '. |
&mt('Analyze Problem').'" />'); |
'name="ProblemAnalysis" value="'. |
|
&mt('Analyze Problem').'" />'; |
|
$r->print($submit_button); |
$r->print(' 'x5); |
$r->print(' 'x5); |
$r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>'); |
$r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>'); |
$r->print(&Apache::lonstathelpers::problem_selector($problem_types)); |
$r->print(&Apache::lonstathelpers::problem_selector($problem_types, |
|
$submit_button)); |
} |
} |
} |
} |
|
|
Line 177 sub numerical_response_analysis {
|
Line 181 sub numerical_response_analysis {
|
my ($r,$problem,$problem_analysis,$students) = @_; |
my ($r,$problem,$problem_analysis,$students) = @_; |
my $c = $r->connection(); |
my $c = $r->connection(); |
# |
# |
if ($ENV{'form.AnalyzeOver'} !~ /^(tries|time)$/) { |
if ($env{'form.AnalyzeOver'} !~ /^(tries|time)$/) { |
$r->print('Bad request'); |
$r->print('Bad request'); |
} |
} |
# |
# |
Line 186 sub numerical_response_analysis {
|
Line 190 sub numerical_response_analysis {
|
$problem->{'respid'}); |
$problem->{'respid'}); |
# Gather student data |
# Gather student data |
my $response_data = &Apache::loncoursedata::get_response_data |
my $response_data = &Apache::loncoursedata::get_response_data |
(\@Apache::lonstatistics::SelectedSections, |
([&Apache::lonstatistics::get_selected_sections()], |
$Apache::lonstatistics::enrollment_status, |
$Apache::lonstatistics::enrollment_status, |
$resource->symb,$respid); |
$resource->symb,$respid); |
# |
# |
Line 206 sub numerical_response_analysis {
|
Line 210 sub numerical_response_analysis {
|
return; |
return; |
} |
} |
my $analysis_html = '<table>'; |
my $analysis_html = '<table>'; |
for (my $plot_num = 1;$plot_num<=$ENV{'form.NumPlots'};$plot_num++) { |
for (my $plot_num = 1;$plot_num<=$env{'form.NumPlots'};$plot_num++) { |
my $restriction_function; |
my $restriction_function; |
my $header_message; |
my $header_message; |
my $stats_message; |
my $stats_message; |
my $post_message; # passed through &mt sooner rather than later |
my $post_message; # passed through &mt sooner rather than later |
my $no_data_message; |
my $no_data_message; |
my @extra_data; |
my @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)}; |
$header_message = 'Attempt [_1]'; |
$header_message = 'Attempt [_1]'; |
$stats_message = |
$stats_message = |
Line 481 sub numerical_classify_responses {
|
Line 485 sub numerical_classify_responses {
|
if ($stats{'max_abs'} < $abs_high) { |
if ($stats{'max_abs'} < $abs_high) { |
$stats{'max_abs'} = $abs_high; |
$stats{'max_abs'} = $abs_high; |
} |
} |
my $low_percent = 100 * abs($abs_low / $subm{'correct'}); |
my $low_percent; |
my $high_percent = 100 * abs($abs_high / $subm{'correct'}); |
my $high_percent; |
|
if (defined($subm{'correct'}) && $subm{'correct'} != 0) { |
|
$low_percent = 100 * abs($abs_low / $subm{'correct'}); |
|
$high_percent = 100 * abs($abs_high / $subm{'correct'}); |
|
} |
if (! defined($stats{'min_percent'}) || |
if (! defined($stats{'min_percent'}) || |
$stats{'min_percent'} > $low_percent) { |
$stats{'min_percent'} > $low_percent) { |
$stats{'min_percent'} = $low_percent; |
$stats{'min_percent'} = $low_percent; |
Line 530 sub numerical_classify_responses {
|
Line 538 sub numerical_classify_responses {
|
} |
} |
} |
} |
} |
} |
|
$stats{'correct_count'} |= 0; |
|
$stats{'incorrect_count'} |= 0; |
$stats{'students'}=scalar(keys(%students)); |
$stats{'students'}=scalar(keys(%students)); |
return (\%submission_data,\%stats); |
return (\%submission_data,\%stats); |
} |
} |
Line 736 sub circle {
|
Line 746 sub circle {
|
sub radio_response_analysis { |
sub radio_response_analysis { |
my ($r,$problem,$problem_analysis,$students) = @_; |
my ($r,$problem,$problem_analysis,$students) = @_; |
# |
# |
if ($ENV{'form.AnalyzeOver'} !~ /^(tries|time)$/) { |
if ($env{'form.AnalyzeOver'} !~ /^(tries|time)$/) { |
$r->print('Bad request'); |
$r->print('Bad request'); |
} |
} |
# |
# |
Line 765 sub radio_response_analysis {
|
Line 775 sub radio_response_analysis {
|
$analysis_html .= $table; |
$analysis_html .= $table; |
# Gather student data |
# Gather student data |
my $response_data = &Apache::loncoursedata::get_response_data |
my $response_data = &Apache::loncoursedata::get_response_data |
(\@Apache::lonstatistics::SelectedSections, |
([&Apache::lonstatistics::get_selected_sections()], |
$Apache::lonstatistics::enrollment_status, |
$Apache::lonstatistics::enrollment_status, |
$resource->symb,$respid); |
$resource->symb,$respid); |
my $correct; # either a hash reference or a scalar |
my $correct; # either a hash reference or a scalar |
Line 797 sub radio_response_analysis {
|
Line 807 sub radio_response_analysis {
|
} |
} |
# |
# |
$analysis_html.='<table>'; |
$analysis_html.='<table>'; |
for (my $plot_num = 1;$plot_num<=$ENV{'form.NumPlots'};$plot_num++) { |
for (my $plot_num = 1;$plot_num<=$env{'form.NumPlots'};$plot_num++) { |
# classify data ->correct foil -> selected foil |
# classify data ->correct foil -> selected foil |
my ($restriction_function, |
my ($restriction_function, |
$correct_foil_title,$incorrect_foil_title, |
$correct_foil_title,$incorrect_foil_title, |
$pre_graph_text,$post_graph_text, |
$pre_graph_text,$post_graph_text, |
$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 = 'Attempt '.$plot_num; |
$incorrect_foil_title = 'Attempt '.$plot_num; |
$incorrect_foil_title = 'Attempt '.$plot_num; |
Line 811 sub radio_response_analysis {
|
Line 821 sub radio_response_analysis {
|
'Attempt [_1], [_2] submissions, [_3] correct, [_4] incorrect'; |
'Attempt [_1], [_2] submissions, [_3] correct, [_4] incorrect'; |
$post_graph_text = ''; |
$post_graph_text = ''; |
$no_data_text = 'No data exists for attempt [_1]'; |
$no_data_text = 'No data exists for attempt [_1]'; |
} elsif ($ENV{'form.AnalyzeOver'} eq 'time') { |
} elsif ($env{'form.AnalyzeOver'} eq 'time') { |
my $starttime = &Apache::lonhtmlcommon::get_date_from_form |
my $starttime = &Apache::lonhtmlcommon::get_date_from_form |
('startdate_'.$plot_num); |
('startdate_'.$plot_num); |
my $endtime = &Apache::lonhtmlcommon::get_date_from_form |
my $endtime = &Apache::lonhtmlcommon::get_date_from_form |
Line 881 sub radio_response_analysis {
|
Line 891 sub radio_response_analysis {
|
$choice_plot ne '' || |
$choice_plot ne '' || |
$stacked_plot ne '') { |
$stacked_plot ne '') { |
my $correct = $foil_choice_data->{'_correct'}; |
my $correct = $foil_choice_data->{'_correct'}; |
if (! defined($correct) || $correct eq '') { |
$correct |= 0; |
$correct = 0; |
my $incorrect = $foil_choice_data->{'_count'}-$correct; |
} |
|
my $incorrect = |
|
$analysis_html.= '<tr><td colspan="4" align="center">'. |
$analysis_html.= '<tr><td colspan="4" align="center">'. |
'<font size="+1">'. |
'<font size="+1">'. |
&mt($pre_graph_text, |
&mt($pre_graph_text, |
$plot_num,$foil_choice_data->{'_count'}, |
$plot_num,$foil_choice_data->{'_count'}, |
$correct, |
$correct, |
$foil_choice_data->{'_count'}-$correct, |
$incorrect, |
$foil_choice_data->{'_students'}, |
$foil_choice_data->{'_students'}, |
@extra_data). |
@extra_data). |
'</td></tr>'.$/; |
'</td></tr>'.$/; |
Line 935 sub ensure_start_end_times {
|
Line 943 sub ensure_start_end_times {
|
(localtime($last - $sec_in_day*($plot_num-1)))[3..5]; |
(localtime($last - $sec_in_day*($plot_num-1)))[3..5]; |
$start = &Time::Local::timelocal(0,0,0,$sday,$smon,$syear); |
$start = &Time::Local::timelocal(0,0,0,$sday,$smon,$syear); |
$end = $start + $sec_in_day; |
$end = $start + $sec_in_day; |
if ($plot_num == $ENV{'form.NumPlots'}) { |
if ($plot_num == $env{'form.NumPlots'}) { |
$start = $first; |
$start = $first; |
} |
} |
} |
} |
Line 1172 sub OptionResponseAnalysis {
|
Line 1180 sub OptionResponseAnalysis {
|
$problem->{'respid'}); |
$problem->{'respid'}); |
# Note: part data is not needed. |
# Note: part data is not needed. |
my $PerformanceData = &Apache::loncoursedata::get_response_data |
my $PerformanceData = &Apache::loncoursedata::get_response_data |
(\@Apache::lonstatistics::SelectedSections, |
([&Apache::lonstatistics::get_selected_sections()], |
$Apache::lonstatistics::enrollment_status, |
$Apache::lonstatistics::enrollment_status, |
$resource->symb,$respid); |
$resource->symb,$respid); |
if (! defined($PerformanceData) || |
if (! defined($PerformanceData) || |
Line 1182 sub OptionResponseAnalysis {
|
Line 1190 sub OptionResponseAnalysis {
|
'</h2>'); |
'</h2>'); |
} else { |
} else { |
$r->rflush(); |
$r->rflush(); |
if ($ENV{'form.AnalyzeOver'} eq 'tries') { |
if ($env{'form.AnalyzeOver'} eq 'tries') { |
my $analysis_html = &OR_tries_analysis($r, |
my $analysis_html = &OR_tries_analysis($r, |
$PerformanceData, |
$PerformanceData, |
$problem_data); |
$problem_data); |
$r->print($analysis_html); |
$r->print($analysis_html); |
$r->rflush(); |
$r->rflush(); |
} elsif ($ENV{'form.AnalyzeOver'} eq 'time') { |
} elsif ($env{'form.AnalyzeOver'} eq 'time') { |
my $analysis_html = &OR_time_analysis($PerformanceData, |
my $analysis_html = &OR_time_analysis($PerformanceData, |
$problem_data); |
$problem_data); |
$r->print($analysis_html); |
$r->print($analysis_html); |
Line 1210 sub OptionResponseAnalysis {
|
Line 1218 sub OptionResponseAnalysis {
|
sub OR_tries_analysis { |
sub OR_tries_analysis { |
my ($r,$PerformanceData,$ORdata) = @_; |
my ($r,$PerformanceData,$ORdata) = @_; |
my $mintries = 1; |
my $mintries = 1; |
my $maxtries = $ENV{'form.NumPlots'}; |
my $maxtries = $env{'form.NumPlots'}; |
my ($table,$Foils,$Concepts) = &build_foil_index($ORdata); |
my ($table,$Foils,$Concepts) = &build_foil_index($ORdata); |
if (! defined($Concepts)) { |
if (! defined($Concepts)) { |
$Concepts = []; |
$Concepts = []; |
Line 1308 sub OR_tries_analysis {
|
Line 1316 sub OR_tries_analysis {
|
# Create Foil Plots |
# Create Foil Plots |
my $data_count = $response_data{'_total'}->[$try]; |
my $data_count = $response_data{'_total'}->[$try]; |
my $correct = $response_data{'_correct'}->[$try]; |
my $correct = $response_data{'_correct'}->[$try]; |
if (! defined($correct)) { $correct = 0; } |
$correct |= 0; |
my @Datasets; |
my @Datasets; |
foreach my $option ('_correct',@{$ORdata->{'_Options'}}) { |
foreach my $option ('_correct',@{$ORdata->{'_Options'}}) { |
next if (! exists($foil_plot[$try]->{$option})); |
next if (! exists($foil_plot[$try]->{$option})); |
Line 1420 sub OR_time_analysis {
|
Line 1428 sub OR_time_analysis {
|
'</h3>'.$table; |
'</h3>'.$table; |
} |
} |
# |
# |
my $num_plots = $ENV{'form.NumPlots'}; |
my $num_plots = $env{'form.NumPlots'}; |
my $num_data = scalar(@$performance_data)-1; |
my $num_data = scalar(@$performance_data)-1; |
# |
# |
my $current_index; |
my $current_index; |
Line 1471 sub OR_time_analysis {
|
Line 1479 sub OR_time_analysis {
|
## |
## |
my ($processed_time_data,$correct,$data_count,$student_count) = |
my ($processed_time_data,$correct,$data_count,$student_count) = |
&OR_time_process_data($performance_data,$begin_index,$end_index); |
&OR_time_process_data($performance_data,$begin_index,$end_index); |
|
$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('[_1] submissions from [_2] students, [_3] correct, [_4] incorrect', |
Line 1802 sub build_foil_key {
|
Line 1811 sub build_foil_key {
|
sub CreateInterface { |
sub CreateInterface { |
## |
## |
## Environment variable initialization |
## Environment variable initialization |
if (! exists$ENV{'form.AnalyzeOver'}) { |
if (! exists($env{'form.AnalyzeOver'})) { |
$ENV{'form.AnalyzeOver'} = 'tries'; |
$env{'form.AnalyzeOver'} = 'tries'; |
} |
} |
## |
## |
## Build the menu |
## Build the menu |
Line 1832 sub CreateInterface {
|
Line 1841 sub CreateInterface {
|
## |
## |
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 '; |
} |
} |
$showprob_checkbox.= ' />'; |
$showprob_checkbox.= ' />'; |
Line 1842 sub CreateInterface {
|
Line 1851 sub CreateInterface {
|
## |
## |
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 '; |
} |
} |
$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 ' 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 .= '<nobr><label>'. |
Line 1859 sub CreateInterface {
|
Line 1868 sub CreateInterface {
|
'</label></nobr><br />'.$/; |
'</label></nobr><br />'.$/; |
## |
## |
my $numplots_selector = '<select name="NumPlots">'; |
my $numplots_selector = '<select name="NumPlots">'; |
if (! exists($ENV{'form.NumPlots'}) |
if (! exists($env{'form.NumPlots'}) |
|| $ENV{'form.NumPlots'} < 1 |
|| $env{'form.NumPlots'} < 1 |
|| $ENV{'form.NumPlots'} > 20) { |
|| $env{'form.NumPlots'} > 20) { |
$ENV{'form.NumPlots'} = 5; |
$env{'form.NumPlots'} = 5; |
} |
} |
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 '; } |
$numplots_selector .= '>'.$i.'</option>'; |
$numplots_selector .= '>'.$i.'</option>'; |
} |
} |
$numplots_selector .= '</select></nobr><br />'; |
$numplots_selector .= '</select></nobr><br />'; |