--- loncom/interface/statistics/lonproblemanalysis.pm 2002/08/13 00:37:18 1.5 +++ loncom/interface/statistics/lonproblemanalysis.pm 2002/09/07 23:07:38 1.10 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # (Publication Handler # -# $Id: lonproblemanalysis.pm,v 1.5 2002/08/13 00:37:18 stredwic Exp $ +# $Id: lonproblemanalysis.pm,v 1.10 2002/09/07 23:07:38 minaeibi Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,12 +26,8 @@ # http://www.lon-capa.org/ # # (Navigate problems for statistical reports -# YEAR=2001 -# 5/5,7/9,7/25/1,8/11,9/13,9/26,10/5,10/9,10/22,10/26 Behrouz Minaei -# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei # YEAR=2002 -# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei -# 5/12,5/14,5/15,5/19,5/26,7/16 Behrouz Minaei +# 5/12,7/26 Behrouz Minaei # ### @@ -39,6 +35,7 @@ package Apache::lonproblemanalysis; use strict; use Apache::lonnet(); +use Apache::lonhtmlcommon(); use GDBM_File; my $jr; @@ -48,13 +45,28 @@ sub BuildProblemAnalysisPage { my %cache; unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { - $r->print('Unable to tie database.'); + $r->print('Unable to tie database.'); return; } - $r->print(&IntervalOptions($cache{'Interval'})); + my $Ptr = ''; + $Ptr .= ''; + $Ptr .= ''."\n"; + $Ptr .= ''."\n"; + $Ptr .= ''."\n"; + $Ptr .= '
Select Sections'; + $Ptr .= ''."\n"; + my @sectionsSelected = split(':',$cache{'sectionsSelected'}); + my @sections = split(':',$cache{'sectionList'}); + $Ptr .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections, + \@sectionsSelected, + 'Statistics'); + $Ptr .= '
Intervals'; + $Ptr .= &IntervalOptions($cache{'Interval'}); + $Ptr .= '

'; + $r->print($Ptr); $r->rflush(); - $r->print(&OptionResponseTable($cache{'OptionResponses'}, \%cache)); + $r->print(&OptionResponseTable($cache{'OptionResponses'}, \%cache, $r)); untie(%cache); @@ -69,17 +81,57 @@ sub BuildAnalyzePage { my $Str = ''; my %cache; - if(&Apache::loncoursedata::DownloadStudentCourseDataSeparate($students, 'true', - $cacheDB, 'true', - 'true', $courseID, - $r, $c) ne 'OK') { + + unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { + $Str .= 'Unable to tie database.'; $r->print($Str); return; } + # Remove students who don't have the proper section. + my @sectionsSelected = split(':',$cache{'sectionsSelected'}); + for(my $studentIndex=((scalar @$students)-1); $studentIndex>=0; + $studentIndex--) { + my $value = $cache{$students->[$studentIndex].':section'}; + my $found = 0; + foreach (@sectionsSelected) { + if($_ eq 'none') { + if($value eq '' || !defined($value) || $value eq ' ') { + $found = 1; + last; + } + } else { + if($value eq $_) { + $found = 1; + last; + } + } + } + if($found == 0) { + splice(@$students, $studentIndex, 1); + } + } + unless(untie(%cache)) { + $r->print('Can not untie hash.'); + $r->rflush(); + } + + my $error = + &Apache::loncoursedata::DownloadStudentCourseDataSeparate($students, + 'true', + $cacheDB, + 'true', + 'true', + $courseID, + $r, $c); + if($error ne 'OK') { + $r->print($error.'
Error downloading course data
'); + return; + } + unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { - $Str .= 'Unable to tie database.'; + $Str .= 'Unable to tie database.'; $r->print($Str); return; } @@ -160,8 +212,7 @@ sub IntervalOptions { } } - my $Ptr = '
Select number of intervals'."\n". - ''."\n"; for(my $n=1; $n<=7;$ n++) { $Ptr .= '{$problemId.':source'}; - my $title = $cache->{$problemId.':title'}; - - my $Temp = ''.$title.''; - $Str .= ''; - $Str .= ' '.$number.' '; - $Str .= ''.$Temp.''; - $Str .= ''.$uri.''; - if($partCount{$problemId.':'.$part} < 2) { - $Str .= ''."\n"; - } else { - $Str .= ''."\n"; + foreach my $sequence (@orderedSequences) { + my @optionProblems = split(':::', $sequences{$sequence}); + + $Str .= ''.$cache->{$sequence.':title'}.''."\n"; + $Str .= ""; + $Str .= ''."\n"; + + my $count = 1; + foreach(@optionProblems) { + my (undef, $problemId, $part, $response)= + split(':',$optionProblems[$count-1]); +# split(':',$sequences{$sequence}); + my $uri = $cache->{$problemId.':source'}; + my $title = $cache->{$problemId.':title'}; + + my $Temp = ''.$title.''; + $Str .= ''; + $Str .= ''; + $Str .= ''; + $Str .= ''; + if($partCount{$problemId.':'.$part} < 2) { + $Str .= ''."\n"; + } else { + my $value = $problemId.':'.$part.':'.$response; + $Str .= ''."\n"; + } + $count++; } - $number++; + $Str .= '
\# Problem Title Resource Analysis
'.$count.' '.$Temp.''.$uri.'

'."\n"; } - $Str .= ''."\n"; return $Str; } @@ -381,12 +449,7 @@ sub InitAnalysis { 'grade_domain' => $domain, 'grade_courseid' => $courseID, 'grade_symb' => $problem)); - my ($a)=&Apache::lonnet::str2hashref($Answ); - my %b; - foreach (keys(%$a)) { - $b{&Apache::lonnet::unescape($_)} = $a->{$_}; - } - my $Answer=\%b; + my ($Answer)=&Apache::lonnet::str2hashref($Answ); my $found = 0; my @parts=();