--- loncom/interface/statistics/lonproblemanalysis.pm 2004/01/28 14:53:34 1.62
+++ loncom/interface/statistics/lonproblemanalysis.pm 2004/02/13 18:25:57 1.66
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonproblemanalysis.pm,v 1.62 2004/01/28 14:53:34 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.66 2004/02/13 18:25:57 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -99,6 +99,7 @@ sub BuildProblemAnalysisPage {
}
$r->rflush();
#
+ my $problem_types = '(option|radiobutton|numerical)';
if (exists($ENV{'form.problemchoice'}) &&
! exists($ENV{'form.SelectAnother'})) {
foreach my $button (@SubmitButtons) {
@@ -120,8 +121,8 @@ sub BuildProblemAnalysisPage {
#
my ($prev,$curr,$next) =
&Apache::lonstathelpers::get_prev_curr_next($current_problem,
- '(option|radiobutton)',
- 'response',
+ $problem_types,
+ 'response',
);
if (exists($ENV{'form.PrevProblemAnalysis'}) && defined($prev)) {
$current_problem = $prev;
@@ -157,6 +158,9 @@ sub BuildProblemAnalysisPage {
&RadioResponseAnalysis($r,$current_problem,
$ProblemData,
\@Students);
+ } elsif ($current_problem->{'resptype'} eq 'numerical') {
+ &NumericalResponseAnalysis($r,$current_problem,
+ $ProblemData,\@Students);
} else {
$r->print('This analysis is not supported
');
}
@@ -168,10 +172,71 @@ sub BuildProblemAnalysisPage {
$r->print(' 'x5);
$r->print(''.&mt('Please select a problem to analyze').'
');
$r->print(&Apache::lonstathelpers::ProblemSelector
- ('(option|radiobutton)'));
+ ($problem_types));
}
}
+#########################################################
+#########################################################
+##
+## Numerical Response Routines
+##
+#########################################################
+#########################################################
+sub NumericalResponseAnalysis {
+ my ($r,$problem,$ProblemData,$Students) = @_;
+ my ($resource,$respid) = ($problem->{'resource'},
+ $problem->{'respid'});
+ my $analysis_html;
+ my $PerformanceData =
+ &Apache::loncoursedata::get_response_data
+ ($Students,$resource->{'symb'},$respid);
+ if (! defined($PerformanceData) ||
+ ref($PerformanceData) ne 'ARRAY' ) {
+ $analysis_html = ''.
+ &mt('There is no submission data for this resource').
+ '
';
+ $r->print($analysis_html);
+ return;
+ }
+ my $Answers = &GetStudentAnswers($r,$problem,$Students);
+
+ $r->print('This analysis is not yet supported
');
+}
+
+sub GetStudentAnswers {
+ my ($r,$problem,$Students) = @_;
+ my %Answers;
+ my ($resource,$partid,$respid) = ($problem->{'resource'},
+ $problem->{'part'},
+ $problem->{'respid'});
+ # Open progress window
+ my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
+ ($r,'Student Answer Compilation Status',
+ 'Student Answer Compilation Progress', scalar(@$Students));
+ $r->print("\n");
+ $r->rflush();
+ foreach my $student (@$Students) {
+ my $sname = $student->{'username'};
+ my $sdom = $student->{'domain'};
+ my $answer = analyze_problem_as_student($resource,
+ $sname,$sdom,
+ $partid,$respid);
+ $r->print(''.
+ '| '.$sname.' | '.
+ ''.$sdom.' | '.
+ ''.$answer.' | '.
+ '
'."\n");
+ &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
+ &mt('last student'));
+ $Answers{$sname.':'.$sdom}=$answer;
+ }
+ $r->print("
\n");
+ $r->rflush();
+ &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
+ # close progress window
+ return \%Answers;
+}
#########################################################
#########################################################
@@ -183,7 +248,7 @@ sub BuildProblemAnalysisPage {
sub RadioResponseAnalysis {
my ($r,$problem,$ProblemData,$Students) = @_;
my ($resource,$respid) = ($problem->{'resource'},
- $problem->{'respid'});
+ $problem->{'respid'});
my $analysis_html;
my $PerformanceData =
&Apache::loncoursedata::get_response_data
@@ -301,6 +366,7 @@ sub RR_Tries_Foil_Analysis {
'Percent Choosing',
100,
['#33ff00','#ff3300'],
+ undef,
\@PlotData_Correct,
\@PlotData_Incorrect);
}
@@ -493,7 +559,7 @@ sub OR_Tries_Foil_Analysis {
}
my $correctgraph = &Apache::loncommon::DrawBarGraph
($title,'Foil Number','Percent Correct',
- 100,$plotcolors,$Datasets[0]);
+ 100,$plotcolors,undef,$Datasets[0]);
$analysis_html.= '| '.$correctgraph.' | ';
##
##
@@ -512,7 +578,7 @@ sub OR_Tries_Foil_Analysis {
$title = 'Attempt '.$i.', '.$count;
my $incorrectgraph = &Apache::loncommon::DrawBarGraph
($title,'Foil Number','% Option Chosen Incorrectly',
- 100,$plotcolors,@Datasets);
+ 100,$plotcolors,undef,@Datasets);
$analysis_html.= ''.$incorrectgraph.' | ';
$analysis_html.= ''.$foilkey." | |
\n";
}
@@ -579,7 +645,7 @@ sub OR_Tries_Concept_Analysis {
$title = 'Attempt '.$i.', '.$count;
my $graphlink = &Apache::loncommon::DrawBarGraph
($title,'Concept Number','Percent Correct',
- 100,$plotcolors,$PlotData[$i]->{'_correct'});
+ 100,$plotcolors,undef,$PlotData[$i]->{'_correct'});
$analysis_html.= '| '.$graphlink." |
\n";
}
$analysis_html .= "\n";
@@ -744,6 +810,7 @@ sub OR_Foil_Time_Analysis {
'Percent Correct',
100,
$plotcolors,
+ undef,
$Plotdata[0]);
for (my $j=0; $j< scalar(@{$Plotdata[0]});$j++) {
$Plotdata[0]->[$j]=0;
@@ -761,6 +828,7 @@ sub OR_Foil_Time_Analysis {
'Incorrect Option Choice',
100,
$plotcolors,
+ undef,
@Plotdata);
$analysis_html.=''.
'| '.$correctplot.' | '.
@@ -825,6 +893,7 @@ sub OR_Concept_Time_Analysis {
'Percent Correct',
100,
$plotcolors,
+ undef,
\@Plotdata);
$analysis_html.='
'.
'| '.$correctplot.' | '.
@@ -1313,18 +1382,18 @@ sub build_foil_index {
if (@Concepts > 1) {
$table .= '
'.
'| '.$conceptindex.' | '.
- ''.$concept->{'name'}.' | '.
+ ''.&HTML::Entities::encode($concept->{'name'}).' | '.
''.$foilindex++.' | '.
- ''.$Foildata{$firstfoil}->{'name'}.' | '.
+ ''.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).' | '.
''.$Foildata{$firstfoil}->{'text'}.' | '.
- ''.$Foildata{$firstfoil}->{'value'}.' | '.
+ ''.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'}).' | '.
"
\n";
} else {
$table .= ''.
'| '.$foilindex++.' | '.
- ''.$Foildata{$firstfoil}->{'name'}.' | '.
+ ''.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).' | '.
''.$Foildata{$firstfoil}->{'text'}.' | '.
- ''.$Foildata{$firstfoil}->{'value'}.' | '.
+ ''.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'}).' | '.
"
\n";
}
foreach my $foilid (@FoilsInConcept) {
@@ -1333,16 +1402,16 @@ sub build_foil_index {
' | '.
' | '.
''.$foilindex.' | '.
- ''.$Foildata{$foilid}->{'name'}.' | '.
+ ''.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).' | '.
''.$Foildata{$foilid}->{'text'}.' | '.
- ''.$Foildata{$foilid}->{'value'}.' | '.
+ ''.&HTML::Entities::encode($Foildata{$foilid}->{'value'}).' | '.
"\n";
} else {
$table .= ''.
'| '.$foilindex.' | '.
- ''.$Foildata{$foilid}->{'name'}.' | '.
+ ''.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).' | '.
''.$Foildata{$foilid}->{'text'}.' | '.
- ''.$Foildata{$foilid}->{'value'}.' | '.
+ ''.&HTML::Entities::encode($Foildata{$foilid}->{'value'}).' | '.
"
\n";
}
} continue {
@@ -1367,7 +1436,7 @@ sub build_option_index {
''.
'| '.
(' 'x4).' | '.
- ''.$option.' | '.
+ ''.&HTML::Entities::encode($option).' | '.
"
\n");
}
shift(@Rows); # Throw away 'correct option chosen' color
@@ -1548,6 +1617,27 @@ sub Process_OR_Row {
return %RowData;
}
+
+sub analyze_problem_as_student {
+ my ($resource,$sname,$sdom,$partid,$respid) = @_;
+ my $url = $resource->{'src'};
+ my $symb = $resource->{'symb'};
+ my $courseid = $ENV{'request.course.id'};
+ my $Answ=&Apache::lonnet::ssi($url,('grade_target' => 'analyze',
+ 'grade_domain' => $sdom,
+ 'grade_username' => $sname,
+ 'grade_symb' => $symb,
+ 'grade_courseid' => $courseid));
+ (my $garbage,$Answ)=split(/_HASH_REF__/,$Answ,2);
+ my %Answer=&Apache::lonnet::str2hash($Answ);
+ my $key = $partid.'.'.$respid.'.answer';
+ my $student_answer = $Answer{$key}->[0];
+ if (! defined($student_answer)) {
+ $student_answer = $Answer{$key}->[1];
+ }
+ return ($student_answer);
+}
+
##
## get problem data and put it into a useful data structure.
## note: we must force each foil and option to not begin or end with
@@ -1562,6 +1652,17 @@ sub get_problem_data {
my %Partdata;
foreach my $part (@{$Answer{'parts'}}) {
while (my($key,$value) = each(%Answer)) {
+ #
+ # Logging code:
+ if (0) {
+ &Apache::lonnet::logthis($part.' got key "'.$key.'"');
+ if (ref($value) eq 'ARRAY') {
+ &Apache::lonnet::logthis(' '.join(',',@$value));
+ } else {
+ &Apache::lonnet::logthis(' '.$value);
+ }
+ }
+ # End of logging code
next if ($key !~ /^$part/);
$key =~ s/^$part\.//;
if (ref($value) eq 'ARRAY') {
@@ -1575,6 +1676,8 @@ sub get_problem_data {
$Partdata{$part}->{'_Foils'}->{$foil}->{'_Concept'}=
$concept;
}
+ } elsif ($key =~ /^(incorrect|answer|ans_low|ans_high)$/) {
+ $Partdata{$part}->{$key}=$value;
}
} else {
if ($key=~ /^foil\.text\.(.*)$/) {
@@ -1595,11 +1698,3 @@ sub get_problem_data {
1;
__END__
-
-#####
-# partdata{part}->{_Foils}->{foilid}->{'name'} = $
-# ->{'text'} = $
-# ->{'value'} = $
-# ->{'_Concept'} = $
-# partdata{part}->{_Options} = @
-# partdata{part}->{_Concepts} = @