# The LearningOnline Network with CAPA # (Publication Handler # # $Id: lonproblemstatistics.pm,v 1.3 2002/07/26 21:50:12 minaeibi Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/html/adm/gpl.txt # # 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,7/25 Behrouz Minaei # ### package Apache::lonproblemstatistics; use strict; use Apache::lonnet(); use Apache::lonhtmlcommon; use Apache::loncoursedata; use GDBM_File; #my %mapsort; sub BuildProblemStatisticsPage { my ($cacheDB, $students, $courseID, $c, $r,%color)=@_; my %cache; #my %DoDiff; unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) { return 'Unable to tie database.'; } my $Ptr = ''; $Ptr .= ''; $Ptr .= ''."\n"; $Ptr .= ''."\n"; $Ptr .= &AscendOrderOptions($cache{'Ascend'}); $Ptr .= &ProblemStatisticsButtons($cache{'DisplayFormat'}); $Ptr .= '

Select Map

'; $Ptr .= &Apache::lonhtmlcommon::MapOptions(\%cache, 'ProblemStatistics'); $Ptr .= '

'; $Ptr .= &ProblemStatisticsLegend(); untie(%cache); foreach (@$students) { my $courseData = &Apache::loncoursedata::DownloadCourseInformation($_, $courseID); last if ($c->aborted()); if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT,0640)) { &Apache::loncoursedata::ProcessStudentData(\%cache, $courseData, $_); untie(%cache); } } if($c->aborted()) { return $Ptr; } unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) { return 'Unable to tie database.'; } my $discriminantFactor; my @list=(); my %Discuss=&Apache::loncoursedata::LoadDiscussion($courseID); my $index=0; foreach (@$students) { $index++; #&Apache::lonstatistics::Update_PrgWin(++$index,$r); $discriminantFactor = &ExtractStudentData(\%cache, $_, \@list, \%Discuss, $r); } #&Apache::lonstatistics::Close_PrgWin($r); my ($upper, $lower) = &Discriminant($discriminantFactor); my %Header = (0,"Homework Sets Order",1,"#Stdnts",2,"Tries",3,"Mod", 4,"Mean",5,"#YES",6,"#yes",7,"%Wrng",8,"DoDiff", 9,"S.D.",10,"Skew.",11,"D.F.1st",12,"D.F.2nd", 13, "Disc."); my %GraphDat= &BuildStatisticsTable(\%cache, $discriminantFactor, \@list, \%Header, $students, $r, \%color); untie(%cache); return $Ptr; } sub BuildDiffGraph { my ($r)=@_; my $graphData = &GetGraphData('DiffGraph', $r); return '

'; } sub BuildWrongGraph { my ($r)=@_; my $graphData = &GetGraphData('WrongGraph', $r); return '

'; } #---- Activity log ------------------------------------------------------- sub LoadDoDiffFile { my $file="/home/minaeibi/183d.txt"; open(FILEID, "<$file"); my $line=; my %DoDiff=(); my @Act=split('&',$line); # $r->print('
'.$#Act); for(my $n=0;$n<=$#Act;$n++){ my ($res,$Degree)=split('@',$Act[$n]); $DoDiff{$res}=$Degree; } return \%DoDiff; } sub LoadClassFile { my $file="/home/minaeibi/class.txt"; open(FILEID, "<$file"); my $line; my %Grade=(); while ($line=) { my ($id,$ex1,$ex2,$ex3,$ex4,$hw,$final,$grade)=split(' ',$line); $Grade{$id}=$grade; } return \%Grade; } #------- Classification sub Classify { my ($DiscFac, $students)=@_; my ($fileGrade) = &LoadClassFile(); my $Count=0; my @List=(); my @LS=(); my @LF=(); my @LM=(); my $cf=0; my $cs=0; my $cm=0; foreach (keys(%$DiscFac)){ my @l=split(/\:/,$_); if (!($students->{$l[1]})) {next;} my $Grade=$fileGrade->{$students->{$l[1]}}; if( $Grade > 3 ) { $cs++; push(@LS,("$l[6],$l[5],$l[4],$l[7],$l[8],$l[9],Successful")); } elsif ( $Grade > 2 ) { $cm++; push(@LM,("$l[6],$l[5],$l[4],$l[7],$l[8],$l[9],Average")); } else { $cf++; push(@LF,("$l[6],$l[5],$l[4],$l[7],$l[8],$l[9],Failed")); } } my $Str = ''; for(my $n=0;$n<$cs;$n++){$Str .= '
'.$LS[$n];} for(my $n=0;$n<$cm;$n++){$Str .= '
'.$LM[$n];} for(my $n=0;$n<$cf;$n++){$Str .= '
'.$LF[$n];} return $Str; } sub ProcAct { # return; my ($Act,$Submit)=@_; my @Act=split(/\@/,$Act); @Act = sort(@Act); ##$r->print('
'.$#Act); ##for(my $n=0;$n<=$#Act;$n++){ ## $r->print('
n='.$n.')'.$Act[$n]); ## } # my $Beg=$Act[0]; my $Dif=$Submit-$Act[0]; $Dif = ($Dif>0) ? ($Dif/3600) : 0; # $r->print('
Access Number = '.$#Act.'
Submit Time='.$Submit.'
First Access='.$Act[0].'
Last Access='.$Act[$#Act].'
Submit - First = '.$Dif.''); #time spent for solving the problem # $r->print('
Def'.($Act[$#Act-1]-$Act[0])); return $Dif; } sub LoadActivityLog { # my $CacheDB = "/home/minaeibi/act183.log.cache"; my $CacheDB = "/home/httpd/perl/tmp/act183.log.cache"; my %Activity; if (-e "$CacheDB") { if (tie(%Activity,'GDBM_File',"$CacheDB",&GDBM_READER,0640)) { return; } else { # $r->print("Unable to tie log Cache hash to db file"); } } else { if (tie(%Activity,'GDBM_File',$CacheDB,&GDBM_WRCREAT,0640)) { foreach (keys %Activity) {delete $Activity{$_};} &Build_log(\%Activity); } else { # $r->print("Unable to tie log Build hash to db file"); } } return \%Activity; } sub Build_log { my ($Activity)=@_; my $file="/home/minaeibi/act183.log"; open(FILEID, "<$file"); my $line; my $count=0; while ($line=) { my ($time,$machine,$what)=split(':',$line); $what=&Apache::lonnet::unescape($what); my @accesses=split('&',$what); foreach my $access (@accesses) { $count++; my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access); if (!$resource) { next; } my $res=&Apache::lonnet::unescape($resource); if (($res =~ /\.problem/)) { $Activity->{$who.':'.$res}.=$date.'@'; #$r->print('
'.$time.':'.$who.'---'.$res); &Update_PrgInit($count); } } } # my $c=1; # foreach (sort keys %Activity) { # $r->print('
'.$c.')'.$_.' ... '.$Activity{$_}); # $c++; # } } sub Activity { my $file="/home/minaeibi/activity.log"; my $userid='adamsde1'; # $r->print("
Using $file"); # $r->rflush(); open(FILEID, "<$file"); my $line; my @allaccess; my $Count=0; while ($line=) { my ($time,$machine,$what)=split(':',$line); $what=&Apache::lonnet::unescape($what); my @accesses=split('&',$what); foreach my $access (@accesses) { my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access); #if ($who ne $userid) { next; } if (!$resource) { next; } my $res=&Apache::lonnet::unescape($resource); if (($res =~ /\.(sequence|problem|htm|html|page)/)) { $Count++; ###888 $r->print("
$Count) ".localtime($date).": $who --> $res"); # if ($post) { # $Count++; # $r->print("
$Count) Sent data ".join(':', # &Apache::lonnet::unescape(@posts)).''); # } ###888 $r->rflush(); } #push (@allaccess,unescape($access)); #print $machine; } } # @allaccess=sort(@allaccess); # $Count=0; # foreach my $access (@allaccess) { # my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access); # $Count++; # $r->print("
$Count) $date: $who --> $resource"); # $r->rflush(); # if ($post) { # $r->print("
Sent data ".join(':',unescape(@posts)).''); # } # } } #---- END Activity log --------------------------------------------------- #---- Problem Statistics Web Page --------------------------------------- #------- Processing upperlist and lowerlist according to each problem sub ProcessDiscriminant { my ($List) = @_; my @sortedList = sort (@$List); my $Count = scalar @sortedList; my $Problem; my @Dis; my $Slvd=0; my $tmp; my $Sum1=0; my $Sum2=0; my $nIndex=0; my $nStudent=0; my %Proc=undef; while ($nIndex<$Count) { ($Problem,$tmp)=split(/\=/,$sortedList[$nIndex]); @Dis=split(/\+/,$tmp); my $Temp = $Problem; do { $nIndex++; $nStudent++; $Sum1 += $Dis[0]; $Sum2 += $Dis[1]; ($Problem,$tmp)=split(/\=/,$sortedList[$nIndex]); @Dis=split(/\+/,$tmp); } while ( $Problem eq $Temp && $nIndex < $Count ); # $Proc{$Temp}=($Sum1/$nStudent).':'.$nStudent; $Proc{$Temp}=($Sum1/$nStudent).':'.($Sum2/$nStudent); # $r->print("$nIndex) $Temp --> ($nStudent) $Proc{$Temp}
"); $Sum1=0; $Sum2=0; $nStudent=0; } return %Proc; } #------- Creating Discimination factor sub Discriminant { my ($discriminantFactor)=@_; my @discriminantKeys=keys(%$discriminantFactor); my $Count = scalar @discriminantKeys; my $UpCnt = int(0.27*$Count); my $low=0; my $up=$Count-$UpCnt; my @UpList=(); my @LowList=(); $Count=0; foreach my $key (sort(@discriminantKeys)) { $Count++; if($low < $UpCnt || $Count > $up) { $low++; my $str=$discriminantFactor->{$key}; foreach(split(/\:/,$str)){ if($_) { if($low<$UpCnt) { push(@LowList,$_); } else { push(@UpList,$_); } } } } } my %DisUp = &ProcessDiscriminant(\@UpList); my %DisLow = &ProcessDiscriminant(\@LowList); return (\%DisUp, \%DisLow); } sub NumericSort { $a <=> $b; } sub CreateProblemStatisticsTableHeading { my ($displayFormat,$sequenceSource,$sequenceTitle,$headings,$r)=@_; if($displayFormat eq 'Display CSV Format') { $r->print('
"'.$sequenceTitle.'","'); $r->print($sequenceSource.'"'); return; } $r->print('
'.$sequenceTitle.''); my $Result = "\n".''."\n"; for(my $nIndex=0; $nIndex < (scalar (keys %$headings)); $nIndex++) { $Result .= ''."\n"; } $Result .= "\n".''."\n"; $r->print($Result); $r->rflush(); } sub CloseTable { my ($cache,$r)=@_; if($cache->{'DisplayFormat'} eq 'Display CSV Format') { return; } $r->print("\n".'

P#	'.''.'

'."\n"); $r->rflush(); } # ------ Dump the Student's DB file and handling the data for statistics table sub ExtractStudentData { my ($cache,$name,$list,$Discuss,$r)=@_; my %discriminantFactor; my $totalTries = 0; my $totalAwarded = 0; my $tempProblemOrder=0; my $spent=0; my $spent_yes=0; my $TotDiscuss=0; my $TotalOpend = 0; my $ProbSolved = 0; my $ProbTot = 0; my $TotFirst = 0; my $TimeTot = 0; my $Discussed=0; $Apache::lonxml::debug=1; #&Apache::lonhomework::showhash(%$cache); $Apache::lonxml::debug=0; foreach my $sequence (split(':', $cache->{'orderedSequences'})) { # if($cache->{'ProblemStatisticsMap'} ne 'All Maps' && # $cache->{'ProblemStatisticsMap'} ne $cache->{$sequence.':title'}) { $r->print("
$name --- $sequence"); $r->print("
".$cache->{$sequence.':title'}); # next; # } my $Dis = ''; foreach my $problemID (split(':', $cache->{$sequence.':problems'})) { my $problem = $cache->{$problemID.':problem'}; $r->print("
$problemID === $problem"); my $LatestVersion = $cache->{$name.':version:'.$problem}; # Output dashes for all the parts of this problem if there # is no version information about the current problem. #if(!$LatestVersion) { # foreach my $part (split(/\:/,$cache->{$sequence.':'. # $problemID. # ':parts'})) { # $codes .= "-,"; # $attempts .= "0,"; # } # next; #} my %partData=undef; # Initialize part data, display skips correctly # Skip refers to when a student made no submissions on that # part/problem. foreach my $part (split(/\:/,$cache->{$sequence.':'. $problemID. ':parts'})) { $partData{$part.':tries'}=0; $partData{$part.':code'}='-'; } # Looping through all the versions of each part, starting with the # oldest version. Basically, it gets the most recent # set of grade data for each part. for(my $Version=1; $Version<=$LatestVersion; $Version++) { foreach my $part (split(/\:/,$cache->{$sequence.':'. $problemID. ':parts'})) { if(!defined($cache->{$name.":$Version:$problem". ":resource.$part.solved"})) { # No grade for this submission, so skip next; } my $tries=0; my $time=0; my $awarded=0; $Discussed=0; my $code='U'; $awarded = $cache->{$name. "$Version:$problem:resource.". "$part.awarded"}; $partData{$part.':awarded'} = ($awarded) ? $awarded : 0; $totalAwarded += $awarded; $tries = $cache->{$name.":$Version:$problem". ":resource.$part.tries"}; $partData{$part.':tries'} = ($tries) ? $tries : 0; $partData{$part.':wrong'} = $partData{$part.':tries'}; $totalTries += $tries; my $val = $cache->{$name.":$Version:$problem". ":resource.$part.solved"}; if ($val eq 'correct_by_student') {$code = 'C';} elsif ($val eq 'correct_by_override') {$code = 'O';} elsif ($val eq 'incorrect_attempted') {$code = 'I';} elsif ($val eq 'incorrect_by_override'){$code = 'I';} elsif ($val eq 'excused') {$code = 'x';} $partData{$part.':code'}=$code; if($partData{$part.':wrong'} ne 0 && ($code eq 'C' || $code eq 'O')) { $partData{$part.':wrong'}--; } } } # Loop through all the parts for the current problem in the # correct order and prepare the output foreach (split(/\:/,$cache->{$sequence.':'.$problemID. ':parts'})) { my $Yes = 0; if($partData{$_.':code'} eq 'C' || $partData{$_.':code'} eq 'O') { $Yes=1; } my $ptr = $tempProblemOrder.'&'.$problemID; if($_ > 1) { $ptr .= "*(part $_)"; $Dis .= '&'; } my ($pr_no,$dod)=split('&',$ptr); # my $DoDiff=$DoDiff->{$dod}; # $r->print('
'.$name.'---'.$ptr.'==='.$DoDiff); my $Fac = ($partData{$_.':Tries'}) ? ($partData{$_.':awarded'}/$partData{$_.':tries'}) : 0; my $DisF; if($Fac > 0 && $Fac < 1) { $DisF = sprintf( "%.4f", $Fac ); } else { $DisF = $Fac; } if ($Discuss->{"$name:$problem"}) { $TotDiscuss++; $Discussed=1; } my $time = $cache->{"$name:$LatestVersion:$problem:timestamp"}; $Dis .= $tempProblemOrder.'='.$DisF.'+'.$Yes; $ptr .= '&'.$partData{$_.'.tries'}. '&'.$partData{$_.'.wrongs'}. '&'.$partData{$_.'.code'}; push (@$list, $ptr."&$Discussed"); $r->print('
'.$name.'---'.$ptr); #### if ($DoDiff>0.85) { $TimeTot += $time; if ($Yes==1 && $partData{$_.'.Tries'}==1) { $TotFirst++; } # my $Acts= $Activity->{$name.':'.$problem}; # if ($Acts) { # my $Pt=&ProcAct( $Acts, $time ); #my ($spe,$beg) = split(/\+/,$Pt); # my $spe= $Pt; # if ($Yes==1) {$spent_yes += $spe;} # $spent += $spe; #$Beg += $beg; # $r->print('
'.$name.'---'.$problem.'---'.$spe); # } $TotalOpend++; $ProbTot++; $tempProblemOrder++; } } my $pstr; if($totalTries) { my $DisFac = ($totalAwarded/$totalTries); my $DisFactor = sprintf( "%.4f", $DisFac ); my $TS = sprintf( "%.2f", $spent ); my $TS_yes = sprintf( "%.2f", $spent_yes ); # $DiscFac{$DisFactor}=$Dis; $pstr=$DisFactor.':'.$name.':'.$ProbTot.':'.$TotalOpend.':'. $totalTries.':'.$ProbSolved.':'.$TotFirst.':'. $TS_yes.':'.$TS.':'.$TotDiscuss; $discriminantFactor{$pstr}=$Dis; } } return (\%discriminantFactor); } =pod sub MySort { if ( $Pos > 0 ) { if ($ENV{'form.order'} eq 'Descending') {$b <=> $a;} else { $a <=> $b; } } else { if ($ENV{'form.order'} eq 'Descending') {$b cmp $a;} else { $a cmp $b; } } } =cut sub BuildStatisticsTable { my ($cache,$discriminantFactor,$list,$headings,$students,$r,%color)=@_; #6666666 # my $file="/home/httpd/perl/tmp/183d.txt"; # open(OUT, ">$file"); #6666666 ## &Apache::lonstatistics::Create_PrgWin($r); ##777777 ## my (%Activity) = &LoadActivityLog(); ## $r->print(''); ## my ($doDiffFile) = &LoadDoDiffFile(); my $p_count = 0; my $nIndex = 0; my $dummy; my $p_val; my $ResId; my %GraphDat; my $NoElements = scalar @$list; foreach my $sequence (split(':', $cache->{'orderedSequences'})) { &CreateProblemStatisticsTableHeading($cache->{'DisplayFormat'}, $cache->{$sequence.':source'}, $cache->{$sequence.':title'}, $headings,$r); foreach my $problemID (split(':', $cache->{$sequence.':problems'})) { my $problem = $cache->{$problemID.':problem'}; $r->print("
$problem"); } } } =pod ##777777 ## $Str .= &Classify($discriminantFactor, $students); my ($Hid,$pr)=split(/\:/,$mapsort{$_}); my @lpr=split(/\&/,$pr); for (my $i=1; $i<=$#lpr; $i++) { my %storestats=(); my ($PrOrd,$Prob,$Tries,$Wrongs,$Code,$Disc)=split(/\&/,$list->[$nIndex]); my $Temp = $Prob; my $MxTries = 0; my $TotalTries = 0; my $YES = 0; my $Incorrect = 0; my $Override = 0; my $StdNo = 0; my $DiscNo=0; my @StdLst; while ( $PrOrd == $lpr[$i] ) { $nIndex++; $StdNo++; $StdLst[ $StdNo ] = $Tries; $TotalTries += $Tries; if ( $MxTries < $Tries ) { $MxTries = $Tries; } if ( $Code eq 'C' ){ $YES++; } elsif( $Code eq 'I' ) { $Incorrect++; } elsif( $Code eq 'O' ) { $Override++; } elsif( $Code eq 'U' ) { $StdNo--; } ($PrOrd,$Prob,$Tries,$Wrongs,$Code,$Disc)=split(/\&/,$list->[$nIndex]); } $p_count++; my $Dummy; ($ResId,$Dummy)=split(/\*/,$Temp); $Temp = ''.$cache->{'title_'.$ResId}.$Dummy.''; my $res = &Apache::lonnet::declutter($cache->{'src_'.$ResId}); my $urlres=$res; $ResId=~/(\d+)\.(\d+)/; my $Map = &Apache::lonnet::declutter( $cache->{'map_id_'.$1} ); $urlres=$Map; $res = ''.$res.''; #$Map = ''.$res.''; #------------------------ Compute the Average of Tries about one problem my $Average = ($StdNo) ? $TotalTries/$StdNo : 0; $storestats{$ENV{'request.course.id'}.'___'.$urlres.'___timestamp'}=time; $storestats{$ENV{'request.course.id'}.'___'.$urlres.'___stdno'}=$StdNo; $storestats{$ENV{'request.course.id'}.'___'.$urlres.'___avetries'}=$Average; #-------------------------------- Compute percentage of Wrong tries my $Wrong = ( $StdNo ) ? 100 * ( $Incorrect / $StdNo ) : 0; #-------------------------------- Compute Standard Deviation my $StdDev = 0; if ( $StdNo > 1 ) { for ( my $n = 0; $n < $StdNo; $n++ ) { my $Dif = $StdLst[ $n ]-$Average; $StdDev += $Dif*$Dif; } $StdDev /= ( $StdNo - 1 ); $StdDev = sqrt( $StdDev ); } #-------------------------------- Compute Degree of Difficulty my $DoDiff = 0; if( $TotalTries > 0 ) { $DoDiff = 1 - ( ( $YES + $Override ) / $TotalTries ); # $DoDiff = ($TotalTries)/($YES + $Override+ 0.1); } $storestats{$ENV{'request.course.id'}.'___'.$urlres.'___difficulty'}=$DoDiff; #-------------------------------- Compute the Skewness my $Skewness = 0; my $Sum = 0; if ( $StdNo > 0 && $StdDev > 0 ) { for ( my $n = 0; $n < $StdNo; $n++ ) { my $Dif = $StdLst[ $n ]-$Average; $Skewness += $Dif*$Dif*$Dif; } $Skewness /= $StdNo; $Skewness /= $StdDev*$StdDev*$StdDev; } #--------------------- Compute the Discrimination Factors my ($Up1,$Up2)=split(/\:/,':');#jason$DisUp->{$lpr[$i]}); my ($Lw1,$Lw2)=split(/\:/,':');#jason$DisLow->{$lpr[$i]}); my $Dis1 = $Up1 - $Lw1; my $Dis2 = $Up2 - $Lw2; my $_D1 = sprintf("%.2f", $Dis1); my $_D2 = sprintf("%.2f", $Dis2); #----------------- Some restition in presenting the float numbers my $Avg = sprintf( "%.2f", $Average ); my $Wrng = sprintf( "%.1f", $Wrong ); my $SD = sprintf( "%.1f", $StdDev ); my $DoD = sprintf( "%.2f", $DoDiff ); my $Sk = sprintf( "%.1f", $Skewness ); my $join = $lpr[$i].'&'.$Temp.'&'.$StdNo.'&'. $TotalTries.'&'.$MxTries.'&'.$Avg.'&'. $YES.'&'.$Override.'&'.$Wrng.'&'.$DoD.'&'. $SD.'&'.$Sk.'&'.$_D1.'&'.$_D2.'&'. $DiscNo.'&'.$Prob; ##8888 $CachData{($p_count-1)}=$join; #6666666 # $r->print('
'.$out.'&'.$DoD); # print (OUT $out.'@'.$DoD.'&'); #6666666 $urlres=~/^(\w+)\/(\w+)/; if ($StdNo) { &Apache::lonnet::put('resevaldata',\%storestats,$1,$2); } #-------------------------------- Row of statistical table &TableRow($cache,$join,$i,($p_count-1),$r,\%color,\%GraphDat); } &CloseTable($cache,$r); } &Close_PrgWin(); #666666 # close( OUT ); #666666 } =cut =pod sub Cache_Statistics { my ($cache,$color)=@_; my @list = (); my $Useful; my $UnUseful; # $r->print(''."\n"); my %myHeader = reverse( %Header ); $Pos = $myHeader{$ENV{'form.sort'}}; if ($Pos > 0) {$Pos++;} my $p_count = 0; foreach my $key( keys %CachData) { my @Temp=split(/\&/,$CachData{$key}); if ( $Pos == 0 ) { ($UnUseful,$Useful)=split(/\>/,$Temp[$Pos]); } else { $Useful = $Temp[$Pos]; } $list[$p_count]=$Useful.'@'.$CachData{$key}; $p_count++; } @list = sort MySort (@list); my $nIndex=0; if ( $Pos == 0 ) { foreach (sort keys %mapsort) { my ($Hid,$pr)=split(/\:/,$mapsort{$_}); &CreateProblemStatisticsTableHeading($cache,1,$Hid); my @lpr=split(/\&/,$pr); for (my $i=1; $i<=$#lpr; $i++) { my($Pre, $Post) = split(/\@/,$list[$nIndex]); #$r->print('
'.$Pre.'---'.$Post); &TableRow($cache,$Post,$i,$nIndex,\%color,\%GraphDat); $nIndex++; } &CloseTable($cache); } } else { &CreateProblemStatisticsTableHeading($cache,0); for ( my $nIndex = 0; $nIndex < $p_count; $nIndex++ ) { my($Pre, $Post) = split(/\@/,$list[$nIndex]); &TableRow($cache,$Post,$nIndex,$nIndex,\%color,\%GraphDat); } &CloseTable($cache); } } =cut sub TableRow { my ($cache,$Str,$Idx,$RealIdx,$r,$color,$GraphDat)=@_; my($PrOrd,$Temp,$StdNo,$TotalTries,$MxTries,$Avg,$YES,$Override, $Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$DiscNo,$Prob)=split(/\&/,$Str); if ($ENV{'form.showcsv'}) { my ($ResId,$Dummy)=split(/\*/,$Prob); my $Ptr = "\n".'
'. "\n".'"'.($RealIdx+1).'",'. "\n".'"'.$cache->{'title_'.$ResId}.$Dummy.'",'. "\n".'"'.$cache->{'src_'.$ResId}.'",'. "\n".'"'.$StdNo.'",'. "\n".'"'.$TotalTries.'",'. "\n".'"'.$MxTries.'",'. "\n".'"'.$Avg.'",'. "\n".'"'.$YES.'",'. "\n".'"'.$Override.'",'. "\n".'"'.$Wrng.'",'. "\n".'"'.$DoD.'",'. "\n".'"'.$SD.'",'. "\n".'"'.$Sk.'",'. "\n".'"'.$_D1.'",'. "\n".'"'.$_D2.'"'. "\n".'"'.$DiscNo.'"'; $r->print("\n".$Ptr); } else{ my $Ptr = "\n".''. "\n".''.($RealIdx+1).''. # "\n".''.$PrOrd.$Temp.''. "\n".''.$Temp.''. "\n".' '.$StdNo.''. "\n".''.$TotalTries.''. "\n".''.$MxTries.''. "\n".''.$Avg.''. "\n".' '.$YES.''. "\n".' '.$Override.''. "\n".' '.$Wrng.''. "\n".' '.$DoD.''. "\n".' '.$SD.''. "\n".' '.$Sk.''. "\n".' '.$_D1.''. "\n".' '.$_D2.''. "\n".' '.$DiscNo.''; $r->print("\n".$Ptr.'' ); } $GraphDat->{$RealIdx}=$DoD.':'.$Wrng; } sub StatusOptions { my ($cache)=@_; my $Status = $cache->{'Status'}; my $OpSel1 = ''; my $OpSel2 = ''; my $OpSel3 = ''; if($Status eq 'Any') { $OpSel3 = ' selected'; } elsif($Status eq 'Expired' ) { $OpSel2 = ' selected'; } else { $OpSel1 = ' selected'; } my $Ptr = ''; $Ptr .= 'Student Status:'."\n"; $Ptr .= ''."\n"; return $Ptr; } sub AscendOrderOptions { my ($order)=@_; my $OpSel1 = ''; my $OpSel2 = ''; if($order eq 'Ascending') { $OpSel1 = ' selected'; } else { $OpSel2 = ' selected'; } my $Ptr = ''; $Ptr .= 'Sorting Type:'."\n"; $Ptr .= ''."\n"; return $Ptr; } sub ProblemStatisticsButtons { my ($displayFormat)=@_; my $Ptr = ''; $Ptr .= ' 1 ) { $Max += (10 - $Max % 10); $Max = int($Max); } else { $Max = 1; } untie(%GraphDat); my $Course = $ENV{'course.'.$cid.'.description'}; $Course =~ s/\ /"_"/eg; my $GData=$Course.'&'.'Problems'.'&'.$ylab.'&'. $Max.'&'.$count.'&'.$data; } else { $r->print("Unable to tie hash to db file"); } } } 1; __END__