version 1.10, 2002/03/07 00:28:55
|
version 1.14, 2002/03/26 18:11:32
|
Line 28
|
Line 28
|
# (Navigate problems for statistical reports |
# (Navigate problems for statistical reports |
# YEAR=2001 |
# YEAR=2001 |
# 5/05,7/09,7/25/01,8/11,9/13,9/26,10/5,10/9,10/22,10/26 Behrouz Minaei |
# 5/05,7/09,7/25/01,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 |
# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei |
# YEAR=2002 |
# YEAR=2002 |
# 1/22, 2/1, 2/6, 2/25, 3/2, 3/6 Behrouz Minaei |
# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26 Behrouz Minaei |
|
# |
### |
### |
|
|
package Apache::lonstatistics; |
package Apache::lonstatistics; |
Line 39 use strict;
|
Line 40 use strict;
|
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::lonnet(); |
use Apache::lonnet(); |
use Apache::lonhomework; |
use Apache::lonhomework; |
|
use Apache::loncommon; |
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
|
|
Line 46 use GDBM_File;
|
Line 48 use GDBM_File;
|
my %hash; |
my %hash; |
my %CachData; |
my %CachData; |
my %GraphDat; |
my %GraphDat; |
|
my %OpResp; |
my %maps; |
my %maps; |
my %mapsort; |
my %mapsort; |
my %section; |
my %section; |
Line 78 my $HWN;
|
Line 81 my $HWN;
|
my $P_Order; |
my $P_Order; |
my %Header = (0,"Homework Sets Order",1,"#Stdnts",2,"Tries",3,"Mod", |
my %Header = (0,"Homework Sets Order",1,"#Stdnts",2,"Tries",3,"Mod", |
4,"Mean",5,"#YES",6,"#yes",7,"%Wrng",8,"DoDiff", |
4,"Mean",5,"#YES",6,"#yes",7,"%Wrng",8,"DoDiff", |
9,"S.D.",10,"Skew.",11,"D.F.1st",12,"D.F.2nd"); |
9,"S.D.",10,"Skew.",11,"D.F.1st",12,"D.F.2nd");#,13,"OpResp"); |
|
|
|
|
#------- Processing upperlist and lowerlist according to each problem |
#------- Processing upperlist and lowerlist according to each problem |
sub ProcessDisc { |
sub ProcessDisc { |
Line 155 sub NumericSort {
|
Line 159 sub NumericSort {
|
|
|
# ------ Create different Student Report |
# ------ Create different Student Report |
sub StudentReport { |
sub StudentReport { |
|
|
my ($sname,$sdom)=@_; |
my ($sname,$sdom)=@_; |
|
|
if ( $sname eq 'All Students' ) { |
if ( $sname eq 'All Students' ) { |
$r->print( '<h3><font color=blue>WARNING: |
$r->print( '<h3><font color=blue>WARNING: |
Please select a student</font></h3>' ); |
Please select a student</font></h3>' ); |
return; |
return; |
} |
} |
my $shome=&Apache::lonnet::homeserver($sname,$sdom); |
my %result = &Apache::lonnet::dump($cid,$sdom,$sname); |
my $reply=&Apache::lonnet::reply('dump:'.$sdom.':'.$sname.':'.$cid,$shome ); |
|
my %result = (); |
|
my $ResId; |
my $ResId; |
my $PrOrd; |
my $PrOrd; |
my $Code; |
my $Code; |
Line 186 sub StudentReport {
|
Line 186 sub StudentReport {
|
"\n".'<th> Results </th>'. |
"\n".'<th> Results </th>'. |
"\n".'<th> Tries </th>'. |
"\n".'<th> Tries </th>'. |
"\n".'</tr>'; |
"\n".'</tr>'; |
unless ($reply=~/^error\:/) { |
my ($temp)=keys(%result); |
foreach (split(/\&/,$reply)){ |
unless ($temp=~/^error\:/) { |
my ($name,$value)=split(/\=/,&Apache::lonnet::unescape($_)); |
|
$result{$name}=$value; |
|
} |
|
foreach my $CurCol (@cols) { |
foreach my $CurCol (@cols) { |
if (!$CurCol){ |
if (!$CurCol){ |
my $Set=&Apache::lonnet::declutter($hash{'map_id_'.$1}); |
my $Set=&Apache::lonnet::declutter($hash{'map_id_'.$1}); |
Line 218 sub StudentReport {
|
Line 215 sub StudentReport {
|
my $PartNo = 0; |
my $PartNo = 0; |
undef %TempHash; |
undef %TempHash; |
foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))){ |
foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))){ |
if ($_=~/^stores\_(\d+)\_tries$/) { |
if ($_=~/^stores\_(\w+)\_tries$/) { |
my $Part=&Apache::lonnet::metadata($meta,$_.'.part'); |
my $Part=&Apache::lonnet::metadata($meta,$_.'.part'); |
if ( $TempHash{"$Part"} eq '' ) { |
if ( $TempHash{"$Part"} eq '' ) { |
$TempHash{"$Part"} = $Part; |
$TempHash{"$Part"} = $Part; |
Line 358 sub PreStatTable {
|
Line 355 sub PreStatTable {
|
'evaluating the problem according to a Criterion<br>'. |
'evaluating the problem according to a Criterion<br>'. |
'<b> [Applied Criterion in %27 Upper Students - '. |
'<b> [Applied Criterion in %27 Upper Students - '. |
'Applied the same Criterion in %27 Lower Students]</b><br>'. |
'Applied the same Criterion in %27 Lower Students]</b><br>'. |
'<b> 1st </b>Criterion for Sorting the Students: '. |
'<b> 1st Criterion</b> for Sorting the Students: '. |
'Sum of Partial Credit Awarded / Total Number of Tries<br>'. |
'<b>Sum of Partial Credit Awarded / Total Number of Tries</b><br>'. |
'<b> 2nd </b>Criterion for Sorting the Students: '. |
'<b> 2nd Criterion</b> for Sorting the Students: '. |
'Total number of Correct Answers / Total Number of Tries'. |
'<b>Total number of Correct Answers / Total Number of Tries</b>'. |
'</pre>'; |
'</pre>'; |
|
|
$r->print($Ptr); |
$r->print($Ptr); |
Line 388 sub PreStatTable {
|
Line 385 sub PreStatTable {
|
$r->print("Unable to tie hash to db file"); |
$r->print("Unable to tie hash to db file"); |
} |
} |
} |
} |
|
|
|
#33333 |
|
# my $c=0; |
|
# foreach (sort keys %OpResp) { |
|
# $r->print('<br>'.$c.$_.' ====== '.$OpResp{$_}); |
|
# my $count=$#students+1; |
|
# for (my $n=0;$n<1;$n++){ |
|
# my ($sname,$sdom)=$students[$n]; |
|
# my $Prob=$OpResp{$_}; |
|
##my $userview=&Apache::lonnet::ssi($hash{'src_'.$ResId}); |
|
# $r->print('<br>'.$Prob.$sname.$sdom.$cid. |
|
# '<br>'.&Apache::loncommon::get_previous_attempt($Prob,$sname,$sdom,$cid)); |
|
# #$r->print('<br>'.$Prob.$sname. ' *** '.&Apache::lonnet::ssi($hash{'src_'.$Prob})); |
|
# } |
|
# $c++; |
|
# } |
|
|
#$r->print('Total instances of the problems : '.($p_count*($#students+1))); |
#$r->print('Total instances of the problems : '.($p_count*($#students+1))); |
|
|
untie(%CachData); |
untie(%CachData); |
Line 435 sub usection {
|
Line 449 sub usection {
|
# ------ Dump the Student's DB file and handling the data for statistics table |
# ------ Dump the Student's DB file and handling the data for statistics table |
|
|
sub ExtractStudentData { |
sub ExtractStudentData { |
my ($student,$coid)=@_; |
my $student=shift; |
my ($sname,$sdom) = split( /\:/, $student ); |
my ($sname,$sdom) = split( /\:/, $student ); |
my $shome=&Apache::lonnet::homeserver( $sname,$sdom ); |
my %result = &Apache::lonnet::dump($cid,$sdom,$sname); |
my $reply=&Apache::lonnet::reply('dump:'.$sdom.':'.$sname.':'.$coid,$shome ); |
|
my %result = (); |
|
my $ResId; |
my $ResId; |
my $PrOrd; |
my $PrOrd; |
my $Dis = ''; |
my $Dis = ''; |
Line 458 sub ExtractStudentData {
|
Line 470 sub ExtractStudentData {
|
my $LatestVersion; |
my $LatestVersion; |
my $SecLimit; |
my $SecLimit; |
my $MapLimit; |
my $MapLimit; |
unless ($reply=~/^error\:/) { |
my ($temp)=keys(%result); |
foreach (split(/\&/,$reply)) { |
unless ($temp=~/^error\:/) { |
my ($name,$value)=split(/\=/,&Apache::lonnet::unescape($_)); |
|
$result{$name}=$value; |
|
} |
|
foreach my $CurCol(@cols) { |
foreach my $CurCol(@cols) { |
($PrOrd,$ResId)=split(/\:/,$CurCol); |
($PrOrd,$ResId)=split(/\:/,$CurCol); |
if ( !$CurCol ) { next; } |
if ( !$CurCol ) { next; } |
Line 478 sub ExtractStudentData {
|
Line 487 sub ExtractStudentData {
|
my $PartNo = 0; |
my $PartNo = 0; |
$Dis .= ':'; |
$Dis .= ':'; |
undef %TempHash; |
undef %TempHash; |
foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) { |
|
if ($_=~/^stores\_(\d+)\_tries$/) { |
foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) { |
|
if ($_=~/^stores\_(\w+)\_tries$/) { |
my $Part=&Apache::lonnet::metadata($meta,$_.'.part'); |
my $Part=&Apache::lonnet::metadata($meta,$_.'.part'); |
if ( $TempHash{"$Part"} eq '' ) { |
if ( $TempHash{"$Part"} eq '' ) { |
$TempHash{"$Part"} = $Part; |
$TempHash{"$Part"} = $Part; |
Line 488 sub ExtractStudentData {
|
Line 498 sub ExtractStudentData {
|
$TempHash{"$Part.PrOrd"} = $PrOrd+$PartNo; |
$TempHash{"$Part.PrOrd"} = $PrOrd+$PartNo; |
$PartNo++; |
$PartNo++; |
} |
} |
|
#my $Part=&Apache::lonnet::metadata($meta,$_.'.part'); |
} |
} |
} |
} |
|
|
Line 503 sub ExtractStudentData {
|
Line 514 sub ExtractStudentData {
|
for ( my $Version=1; $Version<=$LatestVersion; $Version++ ) { |
for ( my $Version=1; $Version<=$LatestVersion; $Version++ ) { |
my $vkeys = $result{"$Version:keys:$Prob"}; |
my $vkeys = $result{"$Version:keys:$Prob"}; |
my @keys = split(/\:/,$vkeys); |
my @keys = split(/\:/,$vkeys); |
|
|
foreach my $Key (@keys) { |
foreach my $Key (@keys) { |
|
#333333333 |
|
# if ($OpResp{$PrOrd}) { |
|
# if (($Key=~/\.(\w+)\.submission$/)) { |
|
# my $Resp = $result{"$Version:$Prob:$Key"}; |
|
# $r->print('<br>'.$Prob.'<br>'.$sname.'<br>'.$PrOrd.'<br>'.$Key.'<br><b>'.$Resp.'</b>'); |
|
# $r->rflush(); |
|
# |
|
# my %submission=&Apache::lonnet::str2hash($Resp); |
|
# my $cb=0; |
|
# foreach (sort keys %submission) { |
|
# $r->print('<br>'.$cb.')'.$_.' ... '.$submission{$_}); |
|
# $cb++; |
|
# } |
|
# } |
|
# } |
if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) { |
if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) { |
my $Part = $1; |
my $Part = $1; |
$Tries = $result{"$Version:$Prob:resource.$Part.tries"}; |
$Tries = $result{"$Version:$Prob:resource.$Part.tries"}; |
Line 536 sub ExtractStudentData {
|
Line 562 sub ExtractStudentData {
|
{$ProbSolved++;$Yes=1;} |
{$ProbSolved++;$Yes=1;} |
|
|
# my $ptr = "$hash{'title_'.$ResId}"; |
# my $ptr = "$hash{'title_'.$ResId}"; |
my $ptr = $TempHash{$part.'.PrOrd'}.':'.$ResId; |
my $ptr = $TempHash{$part.'.PrOrd'}.'&'.$ResId; |
|
|
if ( $PartNo > 1 ) { |
if ( $PartNo > 1 ) { |
$ptr .= "*(part $part)"; |
$ptr .= "*(part $part)"; |
$Dis .= ':'; |
$Dis .= '&'; |
} |
} |
my $Fac = ($TempHash{"$part.Tries"}) ? |
my $Fac = ($TempHash{"$part.Tries"}) ? |
($TempHash{"$part.ParCr"}/$TempHash{"$part.Tries"}) : 0; |
($TempHash{"$part.ParCr"}/$TempHash{"$part.Tries"}) : 0; |
Line 552 sub ExtractStudentData {
|
Line 578 sub ExtractStudentData {
|
# $DisF .= '+'.$TempHash{"$part.Time"}; |
# $DisF .= '+'.$TempHash{"$part.Time"}; |
$TimeTot += $TempHash{"$part.Time"}; |
$TimeTot += $TempHash{"$part.Time"}; |
$Dis .= $TempHash{$part.'.PrOrd'}.'='.$DisF.'+'.$Yes; |
$Dis .= $TempHash{$part.'.PrOrd'}.'='.$DisF.'+'.$Yes; |
$ptr .= ":$TempHash{$part.'.Tries'}". |
$ptr .= "&$TempHash{$part.'.Tries'}". |
":$TempHash{$part.'.Wrongs'}". |
"&$TempHash{$part.'.Wrongs'}". |
":$TempHash{$part.'.Code'}"; |
"&$TempHash{$part.'.Code'}"; |
push (@list, $ptr); |
push (@list, $ptr); |
$TotalOpend++; |
$TotalOpend++; |
$ProbTot++; |
$ProbTot++; |
Line 562 sub ExtractStudentData {
|
Line 588 sub ExtractStudentData {
|
} |
} |
#else { |
#else { |
#for(my $n=0; $n<$PartNo; $n++) { |
#for(my $n=0; $n<$PartNo; $n++) { |
# push (@list, "$hash{'title_'.$ResId}*$ResId:0:0:U"); |
# push (@list, "$TempHash{'0'.'.PrOrd'}.':'.$ResId:0:0:U"); |
# $ProbTot++; |
# $ProbTot++; |
#} |
#} |
#} |
#} |
Line 586 sub ExtractStudentData {
|
Line 612 sub ExtractStudentData {
|
# ------------------------------------------------------------ Build page table |
# ------------------------------------------------------------ Build page table |
sub tracetable { |
sub tracetable { |
my ($rid,$beenhere)=@_; |
my ($rid,$beenhere)=@_; |
|
my $IsMap=0; |
$rid=~/(\d+)\.(\d+)/; |
$rid=~/(\d+)\.(\d+)/; |
$maps{&Apache::lonnet::declutter($hash{'map_id_'.$1})}='';#$hash{'title_'.$rid}; |
$maps{&Apache::lonnet::declutter($hash{'map_id_'.$1})}='';#$hash{'title_'.$rid}; |
#$maps{$HWN}=$hash{'title_'.$rid}; |
#$maps{$HWN}=$hash{'title_'.$rid}; |
Line 597 sub tracetable {
|
Line 624 sub tracetable {
|
$cols[$#cols+1]=0; |
$cols[$#cols+1]=0; |
$P_Order++; |
$P_Order++; |
$HWN=$P_Order; |
$HWN=$P_Order; |
$mapsort{$HWN} = $rid.':'; |
$mapsort{$HWN} = $rid.':'; |
|
$IsMap=1; |
|
|
#$maps{&Apache::lonnet::declutter($hash{'src_'.$rid})}= |
#$maps{&Apache::lonnet::declutter($hash{'src_'.$rid})}= |
# $hash{'title_'.$rid}; |
# $hash{'title_'.$rid}; |
} |
} |
Line 612 sub tracetable {
|
Line 641 sub tracetable {
|
|
|
my $meta=$hash{'src_'.$frid}; |
my $meta=$hash{'src_'.$frid}; |
my $PartNo = 0; |
my $PartNo = 0; |
|
my $Part; |
|
# if ($IsMap==0){ |
if ($meta) { |
if ($meta) { |
if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) { |
foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) { |
if ($_=~/^stores\_(\d+)\_tries$/) { |
if ($_=~/^stores\_(\w+)\_tries$/) { |
&Apache::lonnet::metadata($meta,$_.'.part'); |
$Part=&Apache::lonnet::metadata($meta,$_.'.part'); |
$P_Order++; |
$P_Order++; |
$mapsort{$HWN} .= '&'.$P_Order; |
$mapsort{$HWN} .= '&'.$P_Order; |
$PartNo++; |
$PartNo++; |
$r->print('<br>'.$PartNo.'---'.$P_Order); |
#$r->print('<br>'.$PartNo.'---'.$P_Order); |
|
} |
|
foreach my $K(split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) { |
|
if ($K=~/^optionresponse\_($Part)\_(\w+)$/) { |
|
#$r->print('<br>'.$_.'...'.$P_Order.'---'.$Part); |
|
$OpResp{$P_Order+1}=$frid; |
|
} |
|
|
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
|
# } |
} else { |
} else { |
$cols[$#cols+1]=($P_Order+1).':'.$rid; |
$cols[$#cols+1]=($P_Order+1).':'.$rid; |
my $meta=$hash{'src_'.$rid}; |
my $meta=$hash{'src_'.$rid}; |
my $PartNo = 0; |
my $PartNo = 0; |
if ($meta) { |
if ($meta) { |
if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
foreach (split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) { |
foreach my $Key(split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) { |
if ($_=~/^stores\_(\d+)\_tries$/) { |
if ($Key=~/^stores\_(\w+)\_tries$/) { |
&Apache::lonnet::metadata($meta,$_.'.part'); |
my $Part=&Apache::lonnet::metadata($meta,$Key.'.part'); |
$P_Order++; |
$P_Order++; |
$mapsort{$HWN} .= '&'.$P_Order; |
$mapsort{$HWN} .= '&'.$P_Order; |
$PartNo++; |
$PartNo++; |
|
foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) { |
|
if ($_=~/^optionresponse\_($Part)\_(\w+)$/) { |
|
#$r->print('<br>'.$_.'...'.$P_Order.'---'.$Part); |
|
$OpResp{$P_Order+1}=$rid; |
|
} |
|
|
|
} |
|
|
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
if (defined($hash{'to_'.$rid})) { |
if (defined($hash{'to_'.$rid})) { |
foreach (split(/\,/,$hash{'to_'.$rid})){ |
foreach (split(/\,/,$hash{'to_'.$rid})){ |
Line 686 ENDPOP
|
Line 733 ENDPOP
|
$students[$index].'";</script>'); |
$students[$index].'";</script>'); |
$r->rflush(); |
$r->rflush(); |
|
|
&ExtractStudentData($students[$index],$cid); |
&ExtractStudentData($students[$index]); |
} |
} |
|
|
# -------------------- sorting the Data |
# -------------------- sorting the Data |
Line 714 ENDPOP
|
Line 761 ENDPOP
|
&CreateTable(1,$Hid); |
&CreateTable(1,$Hid); |
for (my $i=1; $i<=$#lpr; $i++) { |
for (my $i=1; $i<=$#lpr; $i++) { |
my %storestats=(); |
my %storestats=(); |
my ($PrOrd,$Prob,$Tries,$Wrongs,$Code)=split(/\:/,$list[$nIdx]); |
my ($PrOrd,$Prob,$Tries,$Wrongs,$Code)=split(/\&/,$list[$nIdx]); |
my $Temp = $Prob; |
my $Temp = $Prob; |
my $MxTries = 0; |
my $MxTries = 0; |
my $TotalTries = 0; |
my $TotalTries = 0; |
Line 734 ENDPOP
|
Line 781 ENDPOP
|
elsif( $Code eq 'I' ) { $Incorrect++; } |
elsif( $Code eq 'I' ) { $Incorrect++; } |
elsif( $Code eq 'O' ) { $Override++; } |
elsif( $Code eq 'O' ) { $Override++; } |
elsif( $Code eq 'U' ) { $StdNo--; } |
elsif( $Code eq 'U' ) { $StdNo--; } |
($PrOrd,$Prob,$Tries,$Wrongs,$Code)=split(/\:/,$list[$nIdx]); |
($PrOrd,$Prob,$Tries,$Wrongs,$Code)=split(/\&/,$list[$nIdx]); |
} |
} |
|
|
$p_count++; |
$p_count++; |
Line 810 ENDPOP
|
Line 857 ENDPOP
|
my $SD = sprintf( "%.1f", $StdDev ); |
my $SD = sprintf( "%.1f", $StdDev ); |
my $DoD = sprintf( "%.2f", $DoDiff ); |
my $DoD = sprintf( "%.2f", $DoDiff ); |
my $Sk = sprintf( "%.1f", $Skewness ); |
my $Sk = sprintf( "%.1f", $Skewness ); |
my $join = $PrOrd.':'.$Temp.':'.$StdNo.':'. |
my $join = $PrOrd.'&'.$Temp.'&'.$StdNo.'&'. |
$TotalTries.':'.$MxTries.':'.$Avg.':'. |
$TotalTries.'&'.$MxTries.'&'.$Avg.'&'. |
$YES.':'.$Override.':'.$Wrng.':'.$DoD.':'. |
$YES.'&'.$Override.'&'.$Wrng.'&'.$DoD.'&'. |
$SD.':'.$Sk.':'.$_D1.':'.$_D2.':'.$Prob; |
$SD.'&'.$Sk.'&'.$_D1.'&'.$_D2.'&'.$Prob; |
$CachData{($p_count-1)}=$join; |
$CachData{($p_count-1)}=$join; |
|
|
$urlres=~/^(\w+)\/(\w+)/; |
$urlres=~/^(\w+)\/(\w+)/; |
Line 841 sub Cache_Statistics {
|
Line 888 sub Cache_Statistics {
|
if ($Pos > 0) {$Pos++;} |
if ($Pos > 0) {$Pos++;} |
$p_count = 0; |
$p_count = 0; |
foreach my $key( keys %CachData) { |
foreach my $key( keys %CachData) { |
my @Temp=split(/\:/,$CachData{$key}); |
my @Temp=split(/\&/,$CachData{$key}); |
if ( $Pos == 0 ) { |
if ( $Pos == 0 ) { |
($UnUseful,$Useful)=split(/\>/,$Temp[$Pos]); |
($UnUseful,$Useful)=split(/\>/,$Temp[$Pos]); |
} |
} |
else { |
else { |
$Useful = $Temp[$Pos]; |
$Useful = $Temp[$Pos]; |
} |
} |
$list[$p_count]=$Useful.'&'.$CachData{$key}; |
$list[$p_count]=$Useful.'@'.$CachData{$key}; |
$p_count++; |
$p_count++; |
} |
} |
|
|
Line 862 sub Cache_Statistics {
|
Line 909 sub Cache_Statistics {
|
&CreateTable(1,$Hid); |
&CreateTable(1,$Hid); |
my @lpr=split(/\&/,$pr); |
my @lpr=split(/\&/,$pr); |
for (my $i=1; $i<=$#lpr; $i++) { |
for (my $i=1; $i<=$#lpr; $i++) { |
my($Pre, $Post) = split(/\&/,$list[$nIdx]); |
my($Pre, $Post) = split(/\@/,$list[$nIdx]); |
|
#$r->print('<br>'.$Pre.'---'.$Post); |
&TableRow($Post,$i,$nIdx); |
&TableRow($Post,$i,$nIdx); |
$nIdx++; |
$nIdx++; |
} |
} |
Line 872 sub Cache_Statistics {
|
Line 920 sub Cache_Statistics {
|
else { |
else { |
&CreateTable(0); |
&CreateTable(0); |
for ( my $nIdx = 0; $nIdx < $p_count; $nIdx++ ) { |
for ( my $nIdx = 0; $nIdx < $p_count; $nIdx++ ) { |
my($Pre, $Post) = split(/\&/,$list[$nIdx]); |
my($Pre, $Post) = split(/\@/,$list[$nIdx]); |
&TableRow($Post,$nIdx,$nIdx); |
&TableRow($Post,$nIdx,$nIdx); |
} |
} |
&CloseTable(); |
&CloseTable(); |
Line 881 sub Cache_Statistics {
|
Line 929 sub Cache_Statistics {
|
|
|
sub TableRow { |
sub TableRow { |
my ($Str,$Idx,$RealIdx)=@_; |
my ($Str,$Idx,$RealIdx)=@_; |
my($PrOrd,$Temp,$StdNo,$TotalTries,$MxTries,$Avg,$YES, |
my($PrOrd,$Temp,$StdNo,$TotalTries,$MxTries,$Avg,$YES,$Override, |
$Override,$Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$Prob)=split(/\:/,$Str); |
$Wrng,$DoD,$SD,$Sk,$_D1,$_D2,$Prob)=split(/\&/,$Str); |
$r->print( "\n".'<tr>'. |
my $Ptr = "\n".'<tr>'. |
"\n".'<td>'.($RealIdx+1).'</td>'. |
"\n".'<td>'.($RealIdx+1).'</td>'. |
|
# "\n".'<td>'.$PrOrd.$Temp.'</td>'. |
"\n".'<td>'.$Temp.'</td>'. |
"\n".'<td>'.$Temp.'</td>'. |
"\n".'<td bgcolor="#EEFFCC"> '.$StdNo.'</td>'. |
"\n".'<td bgcolor="#EEFFCC"> '.$StdNo.'</td>'. |
"\n".'<td bgcolor="#EEFFCC">'.$TotalTries.'</td>'. |
"\n".'<td bgcolor="#EEFFCC">'.$TotalTries.'</td>'. |
Line 897 sub TableRow {
|
Line 946 sub TableRow {
|
"\n".'<td bgcolor="#DDFFDD"> '.$SD.'</td>'. |
"\n".'<td bgcolor="#DDFFDD"> '.$SD.'</td>'. |
"\n".'<td bgcolor="#DDFFDD"> '.$Sk.'</td>'. |
"\n".'<td bgcolor="#DDFFDD"> '.$Sk.'</td>'. |
"\n".'<td bgcolor="#FFDDFF"> '.$_D1.'</td>'. |
"\n".'<td bgcolor="#FFDDFF"> '.$_D1.'</td>'. |
"\n".'<td bgcolor="#FFDDFF"> '.$_D2.'</td>'. |
"\n".'<td bgcolor="#FFDDFF"> '.$_D2.'</td>'; |
"\n".'</tr>' ); |
# if( $OpResp{$PrOrd} ) { |
|
# $Ptr.='<td>'.'<input type="submit" name="OpResp" value="'."View_$PrOrd".'" />'.'</td>'; |
|
# } |
|
# else { |
|
# $Ptr.='<td> -------- </td>'; |
|
# } |
|
$r->print("\n".$Ptr.'</tr>' ); |
$GraphDat{$RealIdx}=$DoD.':'.$Wrng; |
$GraphDat{$RealIdx}=$DoD.':'.$Wrng; |
} |
} |
|
|
Line 955 sub initial {
|
Line 1010 sub initial {
|
undef %CachData; |
undef %CachData; |
undef %GraphDat; |
undef %GraphDat; |
undef %DiscFac; |
undef %DiscFac; |
|
undef %OpResp; |
undef $CurMap; |
undef $CurMap; |
undef $CurSec; |
undef $CurSec; |
undef $CurStu; |
undef $CurStu; |