version 1.22, 2003/06/18 17:34:02
|
version 1.30, 2003/10/10 13:47:48
|
Line 24
|
Line 24
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Navigate problems for statistical reports |
|
# YEAR=2002 |
|
# 5/12,7/26,9/7,11/22 Behrouz Minaei |
|
# |
|
### |
|
|
|
package Apache::lonproblemanalysis; |
package Apache::lonproblemanalysis; |
|
|
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use GDBM_File; |
use Apache::loncoursedata(); |
|
use Apache::lonstatistics; |
my $jr; |
use Apache::lonlocal; |
|
|
sub BuildProblemAnalysisPage { |
sub BuildProblemAnalysisPage { |
my ($cacheDB, $r)=@_; |
my ($r,$c)=@_; |
|
$r->print('<h2>'.&mt('Option Response Problem Analysis').'</h2>'); |
my %cache; |
$r->print(&CreateInterface()); |
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
# |
$r->print('Unable to tie database.'); |
my @Students = @Apache::lonstatistics::Students; |
return; |
# |
} |
if (exists($ENV{'form.problemchoice'})) { |
|
$r->print('<hr />'); |
my $Ptr = ''; |
&Apache::lonstatistics::Gather_Full_Student_Data($r); |
$Ptr .= '<table border="0"><tbody>'; |
# |
$Ptr .= '<tr><td align="right"><b>Select Sections</b>'; |
my ($symb,$part,$resid) = &get_problem_symb( |
$Ptr .= '</td>'."\n"; |
&Apache::lonnet::unescape($ENV{'form.problemchoice'}) |
$Ptr .= '<td align="left">'."\n"; |
); |
my @sectionsSelected = split(':',$cache{'sectionsSelected'}); |
# |
my @sections = split(':',$cache{'sectionList'}); |
# my ($firsttime,$lasttime) = |
$Ptr .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
# &Apache::loncoursedata::get_timestamp_data($symb,$resid); |
$Ptr .= '</td></tr>'."\n"; |
# |
$Ptr .= '<tr><td align="right"><b>Intervals</b></td>'."\n"; |
my $resource = &get_resource_from_symb($symb); |
$Ptr .= '<td align="left">'; |
if (defined($resource)) { |
$Ptr .= &IntervalOptions($cache{'Interval'}); |
my %Data = &get_problem_data($resource->{'src'}); |
$Ptr .= '</td></tr></table><br>'; |
my $ORdata = $Data{$part.'.'.$resid}; |
$r->print($Ptr); |
## |
$r->rflush(); |
## Render the problem |
# $r->print($cache{'OptionResponses'}.'<br>'); |
my $base; |
$r->print(&OptionResponseTable($cache{'OptionResponses'}, \%cache, $r)); |
($base,undef) = ($resource->{'src'} =~ m|(.*/)[^/]*$|); |
|
$base = "http://".$ENV{'SERVER_NAME'}.$base; |
untie(%cache); |
my $rendered_problem = |
|
&Apache::lonnet::ssi_body($resource->{'src'}); |
return; |
$rendered_problem =~ s/<\s*form\s*/<nop /g; |
} |
$rendered_problem =~ s|(<\s*/form\s*>)|<\/nop>|g; |
|
$r->print('<table bgcolor="ffffff"><tr><td>'. |
sub BuildAnalyzePage { |
'<base href="'.$base.'" />'. |
my ($cacheDB, $students, $courseID,$r)=@_; |
$rendered_problem. |
|
'</td></tr></table>'); |
$jr = $r; |
## |
my $c = $r->connection; |
## Analyze the problem |
|
my $PerformanceData = |
my $Str = '</form>'; |
&Apache::loncoursedata::get_optionresponse_data |
my %cache; |
(\@Students,$symb,$resid); |
|
if (defined($PerformanceData) && |
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
ref($PerformanceData) eq 'ARRAY') { |
$Str .= 'Unable to tie database.'; |
if ($ENV{'form.AnalyzeBy'} eq 'Tries') { |
$r->print($Str); |
my $analysis_html = &DoTriesAnalysis($PerformanceData, |
return; |
$ORdata); |
} |
$r->print($analysis_html); |
|
# } elsif ($ENV{'form.AnalyzeBy'} eq 'Time') { |
# Remove students who don't have the proper section. |
# my $analysis_html = &DoTimeAnalysis($PerformanceData, |
my @sectionsSelected = split(':',$cache{'sectionsSelected'}); |
# $ORdata); |
|
# $r->print($analysis_html); |
my $studentCount = scalar @$students; |
} else { |
for(my $studentIndex=$studentCount-1; $studentIndex>=0; |
$r->print('<h2>'. |
$studentIndex--) { |
&mt('The analysis you have selected is '. |
my $value = $cache{$students->[$studentIndex].':section'}; |
'not supported at this time'). |
my $found = 0; |
'</h2>'); |
foreach (@sectionsSelected) { |
|
if($_ eq 'none') { |
|
if($value eq '' || !defined($value) || $value eq ' ') { |
|
$found = 1; |
|
last; |
|
} |
} |
} else { |
} else { |
if($value eq $_) { |
$r->print('<h2>'. |
$found = 1; |
&mt('There is no student data for this problem.'). |
last; |
'</h2>'); |
} |
|
} |
} |
|
} else { |
|
$r->print('resource is undefined'); |
} |
} |
if($found == 0) { |
$r->print('<hr />'); |
splice(@$students, $studentIndex, 1); |
} else { |
} |
$r->print('<h3>'.&mt('Please select a problem to analyze').'</h3>'); |
} |
} |
unless(untie(%cache)) { |
# Okay, they asked for data, so make sure we get the latest data. |
$r->print('Can not untie hash.'); |
$r->print(&OptionResponseProblemSelector()); |
$r->rflush(); |
|
} |
|
|
|
&Apache::lonhtmlcommon::Close_PrgWin($r); |
|
|
|
### jason code for checing is there data in cache |
|
# my $error = |
|
# &Apache::loncoursedata::DownloadStudentCourseDataSeparate($students, |
|
# 'true', |
|
# $cacheDB, |
|
# 'true', |
|
# 'true', |
|
# $courseID, |
|
# $r, $c); |
|
# if($error ne 'OK') { |
|
# $r->print($error.'<br>Error downloading course data<br>'); |
|
# return; |
|
# } |
|
|
|
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { |
|
$Str .= 'Unable to tie database.'; |
|
$r->print($Str); |
|
return; |
|
} |
|
|
|
my ($problemId, $part, $responseId)=split(':',$cache{'AnalyzeInfo'}); |
|
my $uri = $cache{$problemId.':source'}; |
|
my $problem = $cache{$problemId.':problem'}; |
|
my $title = $cache{$problemId.':title'}; |
|
my $interval = $cache{'Interval'}; |
|
my $heading = 'Restore this particular Option Response Problem '. |
|
'Results, Please wait...'; |
|
|
|
my %ConceptData; |
|
$ConceptData{"Interval"} = $interval; |
|
|
|
#Initialize the option response true answers |
|
my ($analyzeData) = &InitAnalysis($uri, $part, $responseId, $problem, |
|
$students->[0], $courseID); |
|
if(defined($analyzeData->{'error'})) { |
|
$Str .= $analyzeData->{'error'}.'<br>Incorrect part requested.<br>'; |
|
$r->print($Str); |
|
return; |
|
} |
|
|
|
$r->print($Str); |
|
$Str = ''; |
|
if($c->aborted()) { untie(%cache); return; } |
|
|
|
#compute the intervals |
|
&Interval($part, $problem, $interval, $analyzeData->{'concepts'}, |
|
\%ConceptData); |
|
|
|
$title =~ s/\ /"_"/eg; |
|
$Str .= '<br><b>'.$uri.'</b>'; |
|
|
|
$r->print($Str); |
|
$Str = ''; |
|
if($c->aborted()) { untie(%cache); return; } |
|
|
|
|
|
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r, $title, |
|
$heading,$#$students+1); |
|
|
|
#Java script Progress window |
|
for(my $index=0; $index<(scalar @$students); $index++) { |
|
if($c->aborted()) { untie(%cache); return; } |
|
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
|
'last student '.$students->[$index]); |
|
&OpStatus($problemId, $students->[$index], \%ConceptData, |
|
$analyzeData->{'foil_to_concept'}, $analyzeData, |
|
\%cache, $courseID); |
|
} |
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
|
|
$Str .= '<br>'; |
|
for (my $k=0; $k<$interval; $k++ ) { |
|
if($c->aborted()) { untie(%cache); return $Str; } |
|
$Str .= &DrawGraph($k, $title, $analyzeData->{'concepts'}, |
|
\%ConceptData); |
|
$r->print($Str); |
|
$Str = ''; |
|
} |
|
for (my $k=0; $k<$interval; $k++ ) { |
|
if($c->aborted()) { untie(%cache); return $Str; } |
|
$Str .= &DrawTable($k, $analyzeData->{'concepts'}, \%ConceptData); |
|
$r->print($Str); |
|
$Str = ''; |
|
} |
|
my $Answ=&Apache::lonnet::ssi_body($uri); |
|
$Str .= '<br><b>Here you can see the Problem:</b><br>'.$Answ; |
|
$Str .= '<form>'; |
|
$r->print($Str); |
|
|
|
untie(%cache); |
|
|
|
return; |
|
} |
} |
|
|
#---- Problem Analysis Web Page ---------------------------------------------- |
|
|
|
sub IntervalOptions { |
sub DoTriesAnalysis { |
my ($selectedInterval)=@_; |
my ($PerformanceData,$ORdata) = @_; |
|
my $mintries = 1; |
my $interval = 1; |
my $maxtries = 10; |
for(my $n=1; $n<=7; $n++) { |
my %ResponseData = &analyze_option_data_by_tries($PerformanceData, |
if($selectedInterval == $n) { |
$mintries,$maxtries); |
$interval = $n; |
my @Foils = sort(keys(%ResponseData)); |
} |
my %Row_Label; |
} |
foreach my $foilid (@Foils) { |
|
my $value = $ORdata->{'Foiltext'}->{$foilid}; |
my $Ptr = '<select name="Interval">'."\n"; |
# &Apache::lonnet::logthis('row label '.$foilid.' = '.$value); |
for(my $n=1; $n<=7;$ n++) { |
$Row_Label{$foilid} = $ORdata->{'Foiltext'}->{$foilid}; |
$Ptr .= '<option'; |
} |
if($interval == $n) { |
my @Rows; |
$Ptr .= ' selected'; |
$Rows[0] = ['<td> </td>']; |
|
for (my $i=$mintries;$i<=$maxtries;$i++) { |
|
push (@{$Rows[0]}, |
|
'<th colspan="3">'.&mt('Attempt').' '.$i.'</th>'); |
|
} |
|
$Rows[1] = ['<th>'.&mt('Foil').'</th>']; |
|
for (my $i=$mintries;$i<=$maxtries;$i++) { |
|
push (@{$Rows[1]},('<th>'.&mt('Correct').'</th>', |
|
'<th>'.&mt('Incorrect').'</th>', |
|
'<th>'.&mt('Percent Correct').'</th>', |
|
)); |
|
} |
|
my @PlotData; |
|
my @CumulativePlotData; |
|
my $index = 1; |
|
foreach my $foilid (@Foils) { |
|
my @Data = ('<td>'.$index.' '.$Row_Label{$foilid}.'</td>'); |
|
for (my $i=$mintries;$i<=$maxtries;$i++) { |
|
push(@Data, |
|
('<td>'.$ResponseData{$foilid}->[$i]->{'correct'}.'</td>', |
|
'<td>'.$ResponseData{$foilid}->[$i]->{'incorrect'}. |
|
'</td>', |
|
'<td>'. |
|
sprintf("%4.2f", |
|
$ResponseData{$foilid}->[$i]->{'percent_corr'}). |
|
'</td>')); |
|
# |
|
# Gather the per-attempt data |
|
push (@{$PlotData[$i]->{'good'}}, |
|
$ResponseData{$foilid}->[$i]->{'percent_corr'}); |
|
push (@{$PlotData[$i]->{'bad'}}, |
|
100-$ResponseData{$foilid}->[$i]->{'percent_corr'}); |
|
} |
|
for (my $i=0;$i<=$maxtries;$i++) { |
|
push (@{$CumulativePlotData[$i]->{'good'}}, |
|
$CumulativePlotData[-1]->{'good'}+ |
|
$ResponseData{$foilid}->[$i]->{'correct'}); |
|
push (@{$CumulativePlotData[$i]->{'bad'}}, |
|
$CumulativePlotData[-1]->{'bad'}+ |
|
$ResponseData{$foilid}->[$i]->{'incorrect'}); |
|
} |
|
push(@Rows,\@Data); |
|
} continue { |
|
$index++; |
|
} |
|
my @Data = ('<td></td>'); |
|
for (my $i=$mintries;$i<=$maxtries;$i++) { |
|
my $minstu = $ResponseData{$Foils[0]}->[$i]->{'total'}; |
|
my $maxstu = $ResponseData{$Foils[0]}->[$i]->{'total'}; |
|
foreach my $foilid (@Foils) { |
|
if ($minstu > $ResponseData{$foilid}->[$i]->{'total'}) { |
|
$minstu = $ResponseData{$foilid}->[$i]->{'total'}; |
|
} |
|
if ($maxstu < $ResponseData{$foilid}->[$i]->{'total'}) { |
|
$maxstu = $ResponseData{$foilid}->[$i]->{'total'}; |
|
} |
} |
} |
$Ptr .= '>'.$n."</option>"."\n"; |
$maxstu = 0 if (! $maxstu); |
} |
$minstu = 0 if (! $minstu); |
$Ptr .= '</select>'."\n"; |
my $graphlink; |
|
if ($maxstu == $minstu) { |
return $Ptr; |
$graphlink = &Apache::loncommon::DrawGraph |
} |
('Attempt '.$i.', '.$maxstu.' students', |
|
'Foil Number', |
sub OptionResponseTable { |
'Percent Correct', |
my ($optionResponses,$cache,$r)=@_; |
100, |
|
$PlotData[$i]->{'good'}, |
my @optionResponses=split(':::', $optionResponses); |
$PlotData[$i]->{'bad'}); |
my %partCount; |
|
my %sequences; |
|
my @orderedSequences=(); |
|
foreach(@optionResponses) { |
|
my ($sequence, $problemId, $part, undef)=split(':',$_); |
|
$partCount{$problemId.':'.$part}++; |
|
if(!defined($sequences{$sequence})) { |
|
push(@orderedSequences, $sequence); |
|
$sequences{$sequence} = $_; |
|
} else { |
} else { |
$sequences{$sequence} .= ':::'.$_; |
$graphlink = &Apache::loncommon::DrawGraph |
} |
('Attempt '.$i.', '.$minstu.'-'.$maxstu. |
} |
' students', |
|
'Foil Number', |
my $Str = ''; |
'Percent Correct', |
|
100, |
foreach my $sequence (@orderedSequences) { |
$PlotData[$i]->{'good'}, |
my @optionProblems = split(':::', $sequences{$sequence}); |
$PlotData[$i]->{'bad'}); |
|
} |
$Str .= '<b>'.$cache->{$sequence.':title'}.'</b>'."\n"; |
push(@Data,'<td colspan="3">'.$graphlink.'</td>'); |
$Str .= "<table border=2><tr><th> \# </th><th> Problem Title </th>"; |
} |
$Str .= '<th> Resource </th><th> Analysis </th></tr>'."\n"; |
push (@Rows,\@Data); |
|
my $table = '<table border="1" >'."\n"; |
my $count = 1; |
for (my $i=0; $i <=$#Rows;$i++) { |
foreach(@optionProblems) { |
$table .= '<tr>'.join('',@{$Rows[$i]})."</tr>\n"; |
my (undef, $problemId, $part, $response)= |
} |
split(':',$optionProblems[$count-1]); |
$table .= '</table>'; |
# split(':',$sequences{$sequence}); |
return ($table); |
my $uri = $cache->{$problemId.':source'}; |
} |
my $title = $cache->{$problemId.':title'}; |
|
|
sub analyze_option_data_by_tries { |
my $Temp = '<a href="'.$uri.'" target="_blank">'.$title.'</a>'; |
my ($PerformanceData,$mintries,$maxtries) = @_; |
$Str .= '<tr>'; |
my %Trydata; |
$Str .= '<td> '.$count.' </td>'; |
$mintries = 1 if (! defined($mintries) || $mintries < 1); |
$Str .= '<td bgcolor="#DDFFDD">'.$Temp.'</td>'; |
$maxtries = $mintries if (! defined($maxtries) || $maxtries < $mintries); |
$Str .= '<td bgcolor="#EEFFCC">'.$uri.'</td>'; |
foreach my $row (@$PerformanceData) { |
if($partCount{$problemId.':'.$part} < 2) { |
next if (! defined($row)); |
$Str .= '<td><input type="submit" name="Analyze:::'; |
my ($grading,$submission,$time,$tries) = @$row; |
$Str .= $problemId.':'.$part.'" value="'; |
my @Foilgrades = split('&',$grading); |
$Str .= 'Part '.$part; |
my @Foilsubs = split('&',$submission); |
$Str .= '" /></td></tr>'."\n"; |
for (my $numtries = 1; $numtries <= $maxtries; $numtries++) { |
} else { |
if ($tries == $numtries) { |
my $value = $problemId.':'.$part.':'.$response; |
foreach my $foilgrade (@Foilgrades) { |
$Str .= '<td><input type="submit" name="Analyze:::'.$value; |
my ($foilid,$correct) = split('=',$foilgrade); |
$Str .= '" value="'; |
if ($correct) { |
$Str .= 'Part '.$part.' Response '.$response; |
$Trydata{$foilid}->[$numtries]->{'correct'}++; |
$Str .= '" /></td></tr>'."\n"; |
} else { |
|
$Trydata{$foilid}->[$numtries]->{'incorrect'}++; |
|
} |
|
} |
} |
} |
$count++; |
|
} |
} |
$Str .= '</table><br>'."\n"; |
|
} |
} |
|
foreach my $foilid (keys(%Trydata)) { |
return $Str; |
foreach my $tryhash (@{$Trydata{$foilid}}) { |
} |
next if ((! exists($tryhash->{'correct'}) && |
|
! exists($tryhash->{'incorrect'})) || |
#---- END Problem Analysis Web Page ------------------------------------------ |
($tryhash->{'correct'} < 1 && |
|
$tryhash->{'incorrect'} < 1)); |
#---- Analyze Web Page ------------------------------------------------------- |
$tryhash->{'total'} = $tryhash->{'correct'} + |
|
$tryhash->{'incorrect'}; |
# Joson code for reading data from cache |
$tryhash->{'percent_corr'} = 100 * |
=pod |
($tryhash->{'correct'} / |
sub OpStatus { |
($tryhash->{'correct'} + $tryhash->{'incorrect'}) |
my ($problemID, $student, $ConceptData, $foil_to_concept, |
); |
$analyzeData, $cache)=@_; |
} |
|
} |
my $ids = $analyzeData->{'parts'}; |
return %Trydata; |
|
} |
my @True = (); |
|
my @False = (); |
sub get_problem_symb { |
my $flag=0; |
my $problemstring = shift(); |
|
my ($symb,$partid,$resid) = ($problemstring=~ /^(.*):([^:]*):([^:]*)$/); |
my $tries=0; |
return ($symb,$partid,$resid); |
|
} |
foreach my $id (@$ids) { |
|
my ($part, $response) = split(/\./, $id); |
sub CreateInterface { |
my $time=$cache->{$student.':'.$problemID.':'.$part.':timestamp'}; |
## |
my @submissions = split(':::', $cache->{$student.':'.$problemID.':'. |
## Environment variable initialization |
$part.':'.$response. |
if (! exists$ENV{'form.AnalyzeBy'}) { |
':submission'}); |
$ENV{'form.AnalyzeBy'} = 'Tries'; |
foreach my $Resp (@submissions) { |
} |
my %submission=&Apache::lonnet::str2hash($Resp); |
## |
foreach (keys(%submission)) { |
## Build the menu |
if($submission{$_}) { |
my $Str = ''; |
my $answer = $analyzeData->{$id.'.foil.value.'.$_}; |
$Str .= '<table cellspacing="5">'."\n"; |
if($submission{$_} eq $answer) { |
$Str .= '<tr>'; |
&Decide("true", $foil_to_concept->{$_}, |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$time, $ConceptData); |
$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>'; |
} else { |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>'; |
&Decide("false", $foil_to_concept->{$_}, |
$Str .= '<td align="center"><b>'.&mt('Analyze By').'</b></td>'; |
$time, $ConceptData); |
$Str .= '</tr>'."\n"; |
|
# |
|
$Str .= '<tr><td align="center">'."\n"; |
|
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
|
$Str .= '</td>'; |
|
# |
|
$Str .= '<td align="center">'; |
|
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); |
|
$Str .= '</td>'; |
|
# |
|
$Str .= '<td align="center">'; |
|
my $only_seq_with_assessments = sub { |
|
my $s=shift; |
|
if ($s->{'num_assess'} < 1) { |
|
return 0; |
|
} else { |
|
return 1; |
|
} |
|
}; |
|
$Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5, |
|
$only_seq_with_assessments); |
|
$Str .= '</td>'; |
|
# |
|
$Str .= '<td>'; |
|
$Str .='<input type="radio" name="AnalyzeBy" value="Tries" '; |
|
if ($ENV{'form.AnalyzeBy'} eq 'Tries') { |
|
$Str .= 'checked '; |
|
} |
|
$Str .= '>'.&mt('Tries').'<br />'; |
|
$Str .='<input type="radio" name="AnalyzeBy" value="Time" '; |
|
if ($ENV{'form.AnalyzeBy'} eq 'Time') { |
|
$Str .= 'checked '; |
|
} |
|
$Str .= '>'.&mt('Time').'<br />'; |
|
$Str .= '</td>'; |
|
# |
|
$Str .= '</tr>'."\n"; |
|
$Str .= '</table>'."\n"; |
|
$Str .= '<input type="submit" name="ProblemAnalysis" value="'. |
|
&mt('Analyze Problem').'" />'; |
|
$Str .= ' 'x5; |
|
$Str .= '<input type="submit" name="ClearCache" value="'. |
|
&mt('Clear Caches').'" />'; |
|
$Str .= ' 'x5; |
|
return ($Str); |
|
} |
|
|
|
sub OptionResponseProblemSelector { |
|
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'}}) { |
|
# &Apache::lonnet::logthis('checking '.$res->{'title'}); |
|
next if ($res->{'type'} ne 'assessment'); |
|
foreach my $part (@{$res->{'parts'}}) { |
|
my $partdata = $res->{'partdata'}->{$part}; |
|
if (! exists($partdata->{'option'}) || |
|
$partdata->{'option'} == 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') { |
|
my $value = &Apache::lonnet::escape($res->{'symb'}.':'.$part.':'.$respid); |
|
my $checked = ''; |
|
if ($ENV{'form.problemchoice'} eq $value) { |
|
$checked = 'checked '; |
|
} |
|
$seq_str .= '<tr><td>'. |
|
'<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'. |
|
'</td><td>'. |
|
'<a href="'.$res->{'src'}.'">'.$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><b>'.$seq->{'title'}.'</b></td>'. |
return; |
"</tr>\n".$seq_str; |
} |
|
=cut |
|
|
|
|
|
#restore the student submissions and finding the result |
|
|
|
sub OpStatus { |
|
my ($problemID, $student, $ConceptData, $foil_to_concept, |
|
$analyzeData, $cache, $courseID)=@_; |
|
|
|
my $ids = $analyzeData->{'parts'}; |
|
my ($uname,$udom)=split(/\:/,$student); |
|
my $symb = $cache->{$problemID.':problem'}; |
|
|
|
my @True = (); |
|
my @False = (); |
|
my $flag=0; |
|
my $tries=0; |
|
|
|
foreach my $id (@$ids) { |
|
my ($part, $response) = split(/\./, $id); |
|
my %reshash=&Apache::lonnet::restore($symb,$courseID,$udom,$uname); |
|
if ($reshash{'version'}) { |
|
my $tries=0; |
|
for (my $version=1;$version<=$reshash{'version'};$version++) { |
|
my $time=$reshash{"$version:timestamp"}; |
|
foreach my $key (sort(split(/\:/,$reshash{$version.':keys'}))) { |
|
if (($key=~/\.(\w+)\.(\w+)\.submission$/)) { |
|
my $Id1 = $1; my $Id2 = $2; |
|
#check if this is a repeat submission, if so skip it |
|
if ($reshash{"$version:resource.$Id1.previous"}) { next; } |
|
#if no solved this wasn't a real submission, ignore it |
|
if (!defined($reshash{"$version:resource.$Id1.solved"})) { |
|
&Apache::lonxml::debug("skipping "); |
|
next; |
|
} |
|
my $Resp = $reshash{"$version:$key"}; |
|
my %submission=&Apache::lonnet::str2hash($Resp); |
|
foreach (keys %submission) { |
|
my $Ansr = $analyzeData->{"$Id1.$Id2.foil.value.$_"}; |
|
if($submission{$_} eq $Ansr) { |
|
&Decide("true", $foil_to_concept->{$_}, |
|
$time, $ConceptData); |
|
} else { |
|
&Decide("false", $foil_to_concept->{$_}, |
|
$time, $ConceptData); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
} |
} |
} |
|
$Str .= "</table>\n"; |
return; |
|
} |
|
|
|
|
|
sub DrawGraph { |
|
my ($k,$Src,$Concepts,$ConceptData)=@_; |
|
my $Max=0; |
|
my @data1; |
|
my @data2; |
|
|
|
# Adjust Data and find the Max |
|
for (my $n=0; $n<(scalar @$Concepts); $n++ ) { |
|
my $tmp=$Concepts->[$n]; |
|
$data1[$n]=$ConceptData->{$tmp.'.'.$k.'.true'}; |
|
$data2[$n]=$ConceptData->{$tmp.'.'.$k.'.false'}; |
|
my $Sum=$data1[$n]+$data2[$n]; |
|
if($Max < $Sum) { |
|
$Max=$Sum; |
|
} |
|
} |
|
for (my $n=0; $n<(scalar @$Concepts); $n++ ) { |
|
if ($data1[$n]+$data2[$n]<$Max) { |
|
$data2[$n]+=$Max-($data1[$n]+$data2[$n]); |
|
} |
|
} |
|
my $P_No = (scalar @data1); |
|
|
|
if($Max > 1) { |
|
$Max += (10 - $Max % 10); |
|
$Max = int($Max); |
|
} else { |
|
$Max = 1; |
|
} |
|
|
|
my $Titr=($ConceptData->{'Interval'}>1) ? $Src.'_interval_'.($k+1) : $Src; |
|
# $GData=$Titr.'&Concepts'.'&'.'Answers'.'&'.$Max.'&'.$P_No.'&'.$data1.'&'.$data2; |
|
my $GData = ''; |
|
$GData = $Titr.'&Concepts&Answers&'.$Max.'&'.$P_No.'&'; |
|
$GData .= (join(',',@data1)).'&'.(join(',',@data2)); |
|
|
|
return '<IMG src="/cgi-bin/graph.png?'.$GData.'" border=1/>'; |
|
} |
|
|
|
sub DrawTable { |
|
my ($k,$Concepts,$ConceptData)=@_; |
|
my $Max=0; |
|
my @data1; |
|
my @data2; |
|
my $Correct=0; |
|
my $Wrong=0; |
|
for(my $n=0; $n<(scalar @$Concepts); $n++ ) { |
|
my $tmp=$Concepts->[$n]; |
|
$data1[$n]=$ConceptData->{$tmp.'.'.$k.'.true'}; |
|
$Correct+=$data1[$n]; |
|
$data2[$n]=$ConceptData->{$tmp.'.'.$k.'.false'}; |
|
$Wrong+=$data2[$n]; |
|
my $Sum=$data1[$n]+$data2[$n]; |
|
if($Max < $Sum) { |
|
$Max=$Sum; |
|
} |
|
} |
|
for(my $n=0; $n<(scalar @$Concepts); $n++ ) { |
|
if ($data1[$n]+$data2[$n]<$Max) { |
|
$data2[$n]+=$Max-($data1[$n]+$data2[$n]); |
|
} |
|
} |
|
my $P_No = (scalar @data1); |
|
my $Str = ''; |
|
# $Str .= '<br><b>From: ['.localtime($ConceptData->{'Int.'.($k-1)}); |
|
# $Str .= '] To: ['.localtime($ConceptData->{"Int.$k"}).']</b>'; |
|
$Str .= "\n".'<table border=2>'. |
|
"\n".'<tr>'. |
|
"\n".'<th> # </th>'. |
|
"\n".'<th> Concept </th>'. |
|
"\n".'<th> Correct </th>'. |
|
"\n".'<th> Wrong </th>'. |
|
"\n".'</tr>'; |
|
|
|
for(my $n=0; $n<(scalar @$Concepts); $n++ ) { |
|
$Str .= '<tr>'."\n"; |
|
$Str .= '<td>'.($n+1).'</td>'."\n"; |
|
my ($currentConcept) = split('::',$Concepts->[$n]); |
|
$Str .= '<td bgcolor="EEFFCC">'.$currentConcept; |
|
$Str .= '</td>'."\n"; |
|
$Str .= '<td bgcolor="DDFFDD">'.$data1[$n].'</td>'."\n"; |
|
$Str .= '<td bgcolor="FFDDDD">'.$data2[$n].'</td>'."\n"; |
|
$Str .= '</tr>'."\n"; |
|
} |
|
$Str .= '<td></td><td><b>From:['.localtime($ConceptData->{'Int.'.$k}); |
|
$Str .= '] To: ['.localtime($ConceptData->{'Int.'.($k+1)}-1); |
|
$Str .= ']</b></td><td>'.$Correct.'</td><td>'.$Wrong.'</td>'; |
|
$Str .= '</table>'."\n"; |
|
|
|
return $Str; |
return $Str; |
#$Apache::lonxml::debug=1; |
|
#&Apache::lonhomework::showhash(%ConceptData); |
|
#$Apache::lonxml::debug=0; |
|
} |
|
|
|
#---- END Analyze Web Page ---------------------------------------------- |
|
|
|
sub Decide { |
|
#deciding the true or false answer belongs to each interval |
|
my ($type,$concept,$time,$ConceptData)=@_; |
|
my $k=0; |
|
while($time > $ConceptData->{'Int.'.($k+1)} && |
|
$k < $ConceptData->{'Interval'}) { |
|
$k++; |
|
} |
|
$ConceptData->{$concept.'.'.$k.'.'.$type}++; |
|
|
|
return; |
|
} |
} |
|
|
sub InitAnalysis { |
sub get_resource_from_symb { |
my ($uri,$part,$responseId,$problem,$student,$courseID)=@_; |
my ($symb) = @_; |
my ($name,$domain)=split(/\:/,$student); |
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
|
foreach my $res (@{$seq->{'contents'}}) { |
my %analyzeData; |
if ($res->{'symb'} eq $symb) { |
# Render the student's view of the problem. $Answ is the problem |
return $res; |
# Stringafied |
|
my $Answ=&Apache::lonnet::ssi($uri,('grade_target' => 'analyze', |
|
'grade_username' => $name, |
|
'grade_domain' => $domain, |
|
'grade_courseid' => $courseID, |
|
'grade_symb' => $problem)); |
|
my ($Answer)=&Apache::lonnet::str2hashref($Answ); |
|
|
|
my $found = 0; |
|
my @parts=(); |
|
if(defined($responseId)) { |
|
foreach (@{$Answer->{'parts'}}) { |
|
if($_ eq $part.'.'.$responseId) { |
|
push(@parts, $_); |
|
$found = 1; |
|
last; |
|
} |
|
} |
|
} else { |
|
foreach (@{$Answer->{'parts'}}) { |
|
if($_ =~ /$part/) { |
|
push(@parts, $_); |
|
$found = 1; |
|
last; |
|
} |
} |
} |
} |
} |
} |
|
return undef; |
|
} |
|
|
if($found == 0) { |
sub get_problem_data { |
$analyzeData{'error'} = 'No parts matching selected values'; |
my ($url) = @_; |
return \%analyzeData; |
# my $Answ=&Apache::lonnet::ssi($URI,('grade_target' => 'analyze', |
} |
# 'grade_username' => $sname, |
|
# 'grade_domain' => $sdom, |
my @Concepts=(); |
# 'grade_courseid' => $cid, |
my %foil_to_concept; |
# 'grade_symb' => $symb)); |
foreach my $currentPart (@parts) { |
my $Answ=&Apache::lonnet::ssi($url,('grade_target' => 'analyze')); |
if(defined($Answer->{$currentPart.'.concepts'})) { |
(my $garbage,$Answ)=split(/_HASH_REF__/,$Answ,2); |
foreach my $concept (@{$Answer->{$currentPart.'.concepts'}}) { |
my %Answer; |
push(@Concepts, $concept); |
%Answer=&Apache::lonnet::str2hash($Answ); |
foreach my $foil (@{$Answer->{$currentPart.'.concept.'. |
# &Apache::lonnet::logthis('keys of %Answer = '.join(', ',(keys(%Answer)))); |
$concept}}) { |
# &Apache::lonnet::logthis('$Answer{parts} = '. |
$analyzeData{$currentPart.'.foil.value.'.$foil} = |
# join(', ',@{$Answer{'parts'}})); |
$Answer->{$currentPart.'.foil.value.'.$foil}; |
my %Partdata; |
$foil_to_concept{$foil} = $concept; |
foreach my $part (@{$Answer{'parts'}}) { |
|
while (my($key,$value) = each(%Answer)) { |
|
next if ($key !~ /^$part/); |
|
$key =~ s/^$part\.//; |
|
if (ref($value) eq 'ARRAY') { |
|
if ($key eq 'options') { |
|
$Partdata{$part}->{'Options'}=$value; |
|
} elsif ($key eq 'concepts') { |
|
$Partdata{$part}->{'Concepts'}=$value; |
|
} elsif ($key =~ /^concept\.(.*)$/) { |
|
my $concept = $1; |
|
foreach my $foil (@$value) { |
|
$Partdata{$part}->{$foil}->{'Concept'}=$concept; |
|
} |
} |
} |
} |
# &Apache::lonnet::logthis($part.' '.$key.' (array) = '. |
} else { |
# join(', ',@$value)); |
foreach (keys(%$Answer)) { |
} else { |
if(/$currentPart.foil\.value\.(.*)$/) { |
$value =~ s/^\s*//g; |
push(@Concepts, $1); |
$value =~ s/\s*$//g; |
$foil_to_concept{$1} = $1; |
if ($key=~ /^foil\.text\.(.*)$/) { |
$analyzeData{$currentPart.'.foil.value.'.$1} = |
my $foil = $1; |
$Answer->{$currentPart.'.foil.value.'.$1}; |
$Partdata{$part}->{'Foiltext'}->{$foil}=$value; |
|
} elsif ($key =~ /^foil\.value\.(.*)$/) { |
|
my $foil = $1; |
|
$Partdata{$part}->{'FoilValues'}->{$foil}=$value; |
} |
} |
|
# &Apache::lonnet::logthis($part.' '.$key.' = '.$value); |
} |
} |
} |
} |
} |
} |
|
|
$analyzeData{'parts'} = \@parts; |
# my $parts=''; |
$analyzeData{'concepts'} = \@Concepts; |
# foreach my $elm (@{$Answer{"parts"}}) { |
$analyzeData{'foil_to_concept'} = \%foil_to_concept; |
# $parts.="$elm,"; |
|
# } |
return \%analyzeData; |
# chop($parts); |
|
# my $conc=''; |
|
# foreach my $elm (@{$Answer{"$parts.concepts"}}) { |
|
# $conc.="$elm@"; |
|
# } |
|
# chop($conc); |
|
# |
|
# @Concepts=split(/\@/,$conc); |
|
# foreach my $concept (@{$Answer{"$parts.concepts"}}) { |
|
# foreach my $foil (@{$Answer{"$parts.concept.$concept"}}) { |
|
# $foil_to_concept{$foil} = $concept; |
|
# #$ConceptData{$foil} = $Answer{"$parts.foil.value.$foil"}; |
|
# } |
|
# } |
|
# return $symb; |
|
return %Partdata; |
} |
} |
|
|
sub Interval { |
|
my ($part,$symb,$interval,$Concepts,$ConceptData)=@_; |
|
my $Int=$interval; |
|
my $due = &Apache::lonnet::EXT('resource.'.$part.'.duedate',$symb); |
|
my $opn = &Apache::lonnet::EXT('resource.'.$part.'.opendate',$symb); |
|
my $add=int(($due-$opn)/$Int); |
|
$ConceptData->{'Int.0'}=$opn; |
|
for(my $i=1; $i<$Int; $i++) { |
|
$ConceptData->{'Int.'.$i}=$opn+$i*$add; |
|
} |
|
$ConceptData->{'Int.'.$Int}=$due; |
|
for(my $i=0; $i<$Int; $i++) { |
|
for(my $n=0; $n<(scalar @$Concepts); $n++ ) { |
|
my $tmp=$Concepts->[$n]; |
|
$ConceptData->{$tmp.'.'.$i.'.true'}=0; |
|
$ConceptData->{$tmp.'.'.$i.'.false'}=0; |
|
} |
|
} |
|
} |
|
1; |
1; |
|
|
__END__ |
__END__ |