version 1.60, 2004/01/19 21:31:08
|
version 1.64, 2004/02/02 19:32:11
|
Line 76 sub BuildProblemAnalysisPage {
|
Line 76 sub BuildProblemAnalysisPage {
|
# |
# |
&Apache::lonstatistics::PrepareClasslist(); |
&Apache::lonstatistics::PrepareClasslist(); |
# |
# |
$r->print('<h2>'.&mt('Option Response Problem Analysis').'</h2>'); |
$r->print('<h2>'.&mt('Detailed Problem Analysis').'</h2>'); |
$r->print(&CreateInterface()); |
$r->print(&CreateInterface()); |
# |
# |
my @Students = @Apache::lonstatistics::Students; |
my @Students = @Apache::lonstatistics::Students; |
Line 115 sub BuildProblemAnalysisPage {
|
Line 115 sub BuildProblemAnalysisPage {
|
$r->rflush(); |
$r->rflush(); |
# |
# |
# Determine which problem we are to analyze |
# Determine which problem we are to analyze |
my $current_problem = &get_target_from_id($ENV{'form.problemchoice'}); |
my $current_problem = &Apache::lonstathelpers::get_target_from_id |
|
($ENV{'form.problemchoice'}); |
# |
# |
my ($prev,$curr,$next) = &get_prev_curr_next($current_problem); |
my ($prev,$curr,$next) = |
|
&Apache::lonstathelpers::get_prev_curr_next($current_problem, |
|
'(option|radiobutton)', |
|
'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)) { |
Line 127 sub BuildProblemAnalysisPage {
|
Line 132 sub BuildProblemAnalysisPage {
|
} |
} |
# |
# |
# 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'} = &make_target_id($current_problem); |
$ENV{'form.problemchoice'} = |
|
&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'}.'" />'); |
# |
# |
Line 161 sub BuildProblemAnalysisPage {
|
Line 167 sub BuildProblemAnalysisPage {
|
&mt('Analyze Problem').'" />'); |
&mt('Analyze Problem').'" />'); |
$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(&ProblemSelector()); |
$r->print(&Apache::lonstathelpers::ProblemSelector |
|
('(option|radiobutton)')); |
} |
} |
} |
} |
|
|
Line 294 sub RR_Tries_Foil_Analysis {
|
Line 301 sub RR_Tries_Foil_Analysis {
|
'Percent Choosing', |
'Percent Choosing', |
100, |
100, |
['#33ff00','#ff3300'], |
['#33ff00','#ff3300'], |
|
undef, |
\@PlotData_Correct, |
\@PlotData_Correct, |
\@PlotData_Incorrect); |
\@PlotData_Incorrect); |
} |
} |
Line 486 sub OR_Tries_Foil_Analysis {
|
Line 494 sub OR_Tries_Foil_Analysis {
|
} |
} |
my $correctgraph = &Apache::loncommon::DrawBarGraph |
my $correctgraph = &Apache::loncommon::DrawBarGraph |
($title,'Foil Number','Percent Correct', |
($title,'Foil Number','Percent Correct', |
100,$plotcolors,$Datasets[0]); |
100,$plotcolors,undef,$Datasets[0]); |
$analysis_html.= '<tr><td>'.$correctgraph.'</td>'; |
$analysis_html.= '<tr><td>'.$correctgraph.'</td>'; |
## |
## |
## |
## |
Line 505 sub OR_Tries_Foil_Analysis {
|
Line 513 sub OR_Tries_Foil_Analysis {
|
$title = 'Attempt '.$i.', '.$count; |
$title = 'Attempt '.$i.', '.$count; |
my $incorrectgraph = &Apache::loncommon::DrawBarGraph |
my $incorrectgraph = &Apache::loncommon::DrawBarGraph |
($title,'Foil Number','% Option Chosen Incorrectly', |
($title,'Foil Number','% Option Chosen Incorrectly', |
100,$plotcolors,@Datasets); |
100,$plotcolors,undef,@Datasets); |
$analysis_html.= '<td>'.$incorrectgraph.'</td>'; |
$analysis_html.= '<td>'.$incorrectgraph.'</td>'; |
$analysis_html.= '<td>'.$foilkey."<td></tr>\n"; |
$analysis_html.= '<td>'.$foilkey."<td></tr>\n"; |
} |
} |
Line 572 sub OR_Tries_Concept_Analysis {
|
Line 580 sub OR_Tries_Concept_Analysis {
|
$title = 'Attempt '.$i.', '.$count; |
$title = 'Attempt '.$i.', '.$count; |
my $graphlink = &Apache::loncommon::DrawBarGraph |
my $graphlink = &Apache::loncommon::DrawBarGraph |
($title,'Concept Number','Percent Correct', |
($title,'Concept Number','Percent Correct', |
100,$plotcolors,$PlotData[$i]->{'_correct'}); |
100,$plotcolors,undef,$PlotData[$i]->{'_correct'}); |
$analysis_html.= '<tr><td>'.$graphlink."</td></tr>\n"; |
$analysis_html.= '<tr><td>'.$graphlink."</td></tr>\n"; |
} |
} |
$analysis_html .= "</table>\n"; |
$analysis_html .= "</table>\n"; |
Line 737 sub OR_Foil_Time_Analysis {
|
Line 745 sub OR_Foil_Time_Analysis {
|
'Percent Correct', |
'Percent Correct', |
100, |
100, |
$plotcolors, |
$plotcolors, |
|
undef, |
$Plotdata[0]); |
$Plotdata[0]); |
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; |
Line 754 sub OR_Foil_Time_Analysis {
|
Line 763 sub OR_Foil_Time_Analysis {
|
'Incorrect Option Choice', |
'Incorrect Option Choice', |
100, |
100, |
$plotcolors, |
$plotcolors, |
|
undef, |
@Plotdata); |
@Plotdata); |
$analysis_html.='<tr>'. |
$analysis_html.='<tr>'. |
'<td>'.$correctplot.'</td>'. |
'<td>'.$correctplot.'</td>'. |
Line 818 sub OR_Concept_Time_Analysis {
|
Line 828 sub OR_Concept_Time_Analysis {
|
'Percent Correct', |
'Percent Correct', |
100, |
100, |
$plotcolors, |
$plotcolors, |
|
undef, |
\@Plotdata); |
\@Plotdata); |
$analysis_html.='<tr>'. |
$analysis_html.='<tr>'. |
'<td>'.$correctplot.'</td>'. |
'<td>'.$correctplot.'</td>'. |
Line 1306 sub build_foil_index {
|
Line 1317 sub build_foil_index {
|
if (@Concepts > 1) { |
if (@Concepts > 1) { |
$table .= '<tr>'. |
$table .= '<tr>'. |
'<td>'.$conceptindex.'</td>'. |
'<td>'.$conceptindex.'</td>'. |
'<td>'.$concept->{'name'}.'</td>'. |
'<td>'.&HTML::Entities::encode($concept->{'name'}).'</td>'. |
'<td>'.$foilindex++.'</td>'. |
'<td>'.$foilindex++.'</td>'. |
'<td>'.$Foildata{$firstfoil}->{'name'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).'</td>'. |
'<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'text'}).'</td>'. |
'<td>'.$Foildata{$firstfoil}->{'value'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'}).'</td>'. |
"</tr>\n"; |
"</tr>\n"; |
} else { |
} else { |
$table .= '<tr>'. |
$table .= '<tr>'. |
'<td>'.$foilindex++.'</td>'. |
'<td>'.$foilindex++.'</td>'. |
'<td>'.$Foildata{$firstfoil}->{'name'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).'</td>'. |
'<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'text'}).'</td>'. |
'<td>'.$Foildata{$firstfoil}->{'value'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'}).'</td>'. |
"</tr>\n"; |
"</tr>\n"; |
} |
} |
foreach my $foilid (@FoilsInConcept) { |
foreach my $foilid (@FoilsInConcept) { |
Line 1326 sub build_foil_index {
|
Line 1337 sub build_foil_index {
|
'<td></td>'. |
'<td></td>'. |
'<td></td>'. |
'<td></td>'. |
'<td>'.$foilindex.'</td>'. |
'<td>'.$foilindex.'</td>'. |
'<td>'.$Foildata{$foilid}->{'name'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).'</td>'. |
'<td>'.$Foildata{$foilid}->{'text'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'text'}).'</td>'. |
'<td>'.$Foildata{$foilid}->{'value'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'}).'</td>'. |
"</tr>\n"; |
"</tr>\n"; |
} else { |
} else { |
$table .= '<tr>'. |
$table .= '<tr>'. |
'<td>'.$foilindex.'</td>'. |
'<td>'.$foilindex.'</td>'. |
'<td>'.$Foildata{$foilid}->{'name'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).'</td>'. |
'<td>'.$Foildata{$foilid}->{'text'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'text'}).'</td>'. |
'<td>'.$Foildata{$foilid}->{'value'}.'</td>'. |
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'}).'</td>'. |
"</tr>\n"; |
"</tr>\n"; |
} |
} |
} continue { |
} continue { |
Line 1360 sub build_option_index {
|
Line 1371 sub build_option_index {
|
'<tr>'. |
'<tr>'. |
'<td bgcolor="'.$plotcolors->[$optionindex++].'">'. |
'<td bgcolor="'.$plotcolors->[$optionindex++].'">'. |
(' 'x4).'</td>'. |
(' 'x4).'</td>'. |
'<td>'.$option.'</td>'. |
'<td>'.&HTML::Entities::encode($option).'</td>'. |
"</tr>\n"); |
"</tr>\n"); |
} |
} |
shift(@Rows); # Throw away 'correct option chosen' color |
shift(@Rows); # Throw away 'correct option chosen' color |
Line 1477 sub CreateInterface {
|
Line 1488 sub CreateInterface {
|
return $Str; |
return $Str; |
} |
} |
|
|
sub ProblemSelector { |
|
my $Str; |
|
$Str = "\n<table>\n"; |
|
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
|
next if ($seq->{'num_assess'}<1); |
|
my $seq_str = ''; |
|
foreach my $res (@{$seq->{'contents'}}) { |
|
next if ($res->{'type'} ne 'assessment'); |
|
foreach my $part (@{$res->{'parts'}}) { |
|
my $partdata = $res->{'partdata'}->{$part}; |
|
# &Apache::lonnet::logthis('----------------'); |
|
# while (my ($k,$v)=each(%$partdata)) { |
|
# if (ref($v) eq 'ARRAY') { |
|
# &Apache::lonnet::logthis($k.' = '.join(',',@$v)); |
|
# } else { |
|
# &Apache::lonnet::logthis($k.' = '.$v); |
|
# } |
|
# } |
|
if ((! exists($partdata->{'option'}) || |
|
$partdata->{'option'} == 0 ) && |
|
(! exists($partdata->{'radiobutton'}) || |
|
$partdata->{'radiobutton'} == 0)) { |
|
next; |
|
} |
|
for (my $i=0;$i<scalar(@{$partdata->{'ResponseTypes'}});$i++){ |
|
my $respid = $partdata->{'ResponseIds'}->[$i]; |
|
my $resptype = $partdata->{'ResponseTypes'}->[$i]; |
|
# if ($resptype eq 'option' ){ |
|
if ($resptype eq 'option' || $resptype eq 'radiobutton') { |
|
my $value = &make_target_id({symb=>$res->{'symb'}, |
|
part=>$part, |
|
respid=>$respid, |
|
resptype=>$resptype}); |
|
my $checked = ''; |
|
if ($ENV{'form.problemchoice'} eq $value) { |
|
$checked = 'checked '; |
|
} |
|
my $title = $res->{'title'}; |
|
if (! defined($title) || $title eq '') { |
|
($title) = ($res->{'src'} =~ m:/([^/]*)$:); |
|
} |
|
$seq_str .= '<tr><td>'. |
|
'<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'. |
|
'</td><td>'. |
|
$resptype.'</td><td>'. |
|
'<a href="'.$res->{'src'}.'">'.$title.'</a> '; |
|
# '<a href="'.$res->{'src'}.'">'.$resptype.' '.$res->{'title'}.'</a> '; |
|
if ($partdata->{'option'} > 1) { |
|
$seq_str .= &mt('response').' '.$respid; |
|
} |
|
$seq_str .= "</td></tr>\n"; |
|
} |
|
} |
|
} |
|
} |
|
if ($seq_str ne '') { |
|
$Str .= '<tr><td> </td><td colspan="2"><b>'.$seq->{'title'}.'</b></td>'. |
|
"</tr>\n".$seq_str; |
|
} |
|
} |
|
$Str .= "</table>\n"; |
|
return $Str; |
|
} |
|
|
|
######################################################### |
|
######################################################### |
|
## |
|
## Misc functions |
|
## |
|
######################################################### |
|
######################################################### |
|
sub get_problem_symb { |
|
my $problemstring = shift(); |
|
my ($symb,$partid,$respid,$resptype) = split(':',$problemstring); |
|
return ({ symb => $symb, |
|
part => $partid, |
|
respid => $respid, |
|
type => $resptype } ); |
|
} |
|
|
|
sub get_resource_from_symb { |
|
my ($symb) = @_; |
|
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
|
foreach my $res (@{$seq->{'contents'}}) { |
|
if ($res->{'symb'} eq $symb) { |
|
return $res; |
|
} |
|
} |
|
} |
|
return undef; |
|
} |
|
|
|
sub get_prev_curr_next { |
|
my ($target) = @_; |
|
# |
|
# Build an array with the data we need to search through |
|
my @Resource; |
|
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
|
foreach my $res (@{$seq->{'contents'}}) { |
|
next if ($res->{'type'} ne 'assessment'); |
|
foreach my $part (@{$res->{'parts'}}) { |
|
my $partdata = $res->{'partdata'}->{$part}; |
|
for (my $i=0;$i<scalar(@{$partdata->{'ResponseTypes'}});$i++){ |
|
my $respid = $partdata->{'ResponseIds'}->[$i]; |
|
my $resptype = $partdata->{'ResponseTypes'}->[$i]; |
|
next if ($resptype ne 'option' && |
|
$resptype ne 'radiobutton'); |
|
push (@Resource, |
|
{ symb => $res->{symb}, |
|
part => $part, |
|
respid => $partdata->{'ResponseIds'}->[$i], |
|
resource => $res, |
|
resptype => $resptype |
|
} ); |
|
} |
|
} |
|
} |
|
} |
|
# |
|
# |
|
# Get the index of the current situation |
|
my $curr_idx; |
|
for ($curr_idx=0;$curr_idx<$#Resource;$curr_idx++) { |
|
my $curr_item = $Resource[$curr_idx]; |
|
last if ($curr_item->{'symb'} eq $target->{'symb'} && |
|
$curr_item->{'part'} eq $target->{'part'} && |
|
$curr_item->{'respid'} eq $target->{'respid'} && |
|
$curr_item->{'resptype'} eq $target->{'resptype'}); |
|
} |
|
my $curr_item = $Resource[$curr_idx]; |
|
if ($curr_item->{'symb'} ne $target->{'symb'} || |
|
$curr_item->{'part'} ne $target->{'part'} || |
|
$curr_item->{'respid'} ne $target->{'respid'} || |
|
$curr_item->{'resptype'} ne $target->{'resptype'}){ |
|
# bogus symb - return nothing |
|
return (undef,undef,undef); |
|
} |
|
# |
|
# Now just pick up the data we need |
|
my ($prev,$curr,$next); |
|
if ($curr_idx == 0) { |
|
$prev = undef; |
|
$curr = $Resource[$curr_idx ]; |
|
$next = $Resource[$curr_idx+1]; |
|
} elsif ($curr_idx == $#Resource) { |
|
$prev = $Resource[$curr_idx-1]; |
|
$curr = $Resource[$curr_idx ]; |
|
$next = undef; |
|
} else { |
|
$prev = $Resource[$curr_idx-1]; |
|
$curr = $Resource[$curr_idx ]; |
|
$next = $Resource[$curr_idx+1]; |
|
} |
|
return ($prev,$curr,$next); |
|
} |
|
|
|
sub make_target_id { |
|
my ($target) = @_; |
|
my $id = &Apache::lonnet::escape($target->{'symb'}).':'. |
|
&Apache::lonnet::escape($target->{'part'}).':'. |
|
&Apache::lonnet::escape($target->{'respid'}).':'. |
|
&Apache::lonnet::escape($target->{'resptype'}); |
|
return $id; |
|
} |
|
|
|
sub get_target_from_id { |
|
my ($id) = @_; |
|
my ($symb,$part,$respid,$resptype) = split(':',$id); |
|
return ({ symb =>&Apache::lonnet::unescape($symb), |
|
part =>&Apache::lonnet::unescape($part), |
|
respid =>&Apache::lonnet::unescape($respid), |
|
resptype =>&Apache::lonnet::unescape($resptype)}); |
|
} |
|
|
|
######################################################### |
######################################################### |
######################################################### |
######################################################### |
## |
## |