version 1.11, 2002/03/17 01:30:00
|
version 1.13, 2002/03/22 23:06:30
|
Line 30
|
Line 30
|
# 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, 3/17 Behrouz Minaei |
# 1/22, 2/1, 2/6, 2/25, 3/2, 3/6, 3/17, 3/21, 3/22 Behrouz Minaei |
### |
### |
|
|
package Apache::lonstatistics; |
package Apache::lonstatistics; |
Line 39 use strict;
|
Line 39 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 47 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 80 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"); |
|
|
|
|
sub get_student_answers { |
|
my ($symb,$username,$domain,$courseid) = @_; |
|
my ($map,$id,$feedurl) = split(/___/,$symb); |
|
my (%old,%moreenv); |
|
my @elements=('symb','courseid','domain','username'); |
|
foreach my $element (@elements) { |
|
$old{$element}=$ENV{'form.grade_'.$element}; |
|
$moreenv{'form.grade_'.$element}=eval '$'.$element #' |
|
} |
|
$moreenv{'form.grade_target'}='answer'; |
|
&Apache::lonnet::appenv(%moreenv); |
|
my $userview=&Apache::lonnet::ssi('/res/'.$feedurl); |
|
&Apache::lonnet::delenv('form.grade_'); |
|
foreach my $element (@elements) { |
|
$ENV{'form.grade_'.$element}=$old{$element}; |
|
} |
|
$userview=~s/\<body[^\>]*\>//gi; |
|
$userview=~s/\<\/body\>//gi; |
|
$userview=~s/\<html\>//gi; |
|
$userview=~s/\<\/html\>//gi; |
|
$userview=~s/\<head\>//gi; |
|
$userview=~s/\<\/head\>//gi; |
|
$userview=~s/action\s*\=/would_be_action\=/gi; |
|
return $userview; |
|
} |
|
|
|
|
|
|
|
#------- Processing upperlist and lowerlist according to each problem |
#------- Processing upperlist and lowerlist according to each problem |
Line 247 sub StudentReport {
|
Line 221 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 257 sub StudentReport {
|
Line 231 sub StudentReport {
|
$PartNo++; |
$PartNo++; |
} |
} |
} |
} |
|
#if ($_=~/^parameter\_(\w+)\_package$/) { |
} |
} |
|
|
my $Prob = $Map.'___'.$2.'___'. |
my $Prob = $Map.'___'.$2.'___'. |
Line 417 sub PreStatTable {
|
Line 392 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 507 sub ExtractStudentData {
|
Line 499 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 517 sub ExtractStudentData {
|
Line 510 sub ExtractStudentData {
|
$TempHash{"$Part.PrOrd"} = $PrOrd+$PartNo; |
$TempHash{"$Part.PrOrd"} = $PrOrd+$PartNo; |
$PartNo++; |
$PartNo++; |
} |
} |
|
my $Part=&Apache::lonnet::metadata($meta,$_.'.part'); |
} |
} |
} |
} |
|
|
my $Prob = $Map.'___'.$PrbId.'___'. |
my $Prob = $Map.'___'.$PrbId.'___'. |
&Apache::lonnet::declutter( $hash{'src_'.$ResId} ); |
&Apache::lonnet::declutter( $hash{'src_'.$ResId} ); |
|
$OpResp{$PrOrd}=$Prob; |
$Code='U'; |
$Code='U'; |
$Tries = 0; |
$Tries = 0; |
$ParCr = 0; |
$ParCr = 0; |
Line 529 sub ExtractStudentData {
|
Line 524 sub ExtractStudentData {
|
$LatestVersion = $result{"version:$Prob"}; |
$LatestVersion = $result{"version:$Prob"}; |
|
|
if ( $LatestVersion ) { |
if ( $LatestVersion ) { |
|
#333333333 |
|
#my $userview=&Apache::lonnet::ssi($hash{'src_'.$ResId}); |
|
#$r->print('<br>'.$userview); |
|
#$r->print('<br>'.$Prob.$sname.$sdom.$coid.'<br>'.&get_student_answers($Prob,$sname,$sdom,$coid)); |
|
|
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); |
Line 565 sub ExtractStudentData {
|
Line 565 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 581 sub ExtractStudentData {
|
Line 581 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 615 sub ExtractStudentData {
|
Line 615 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 626 sub tracetable {
|
Line 627 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 641 sub tracetable {
|
Line 644 sub tracetable {
|
|
|
my $meta=$hash{'src_'.$frid}; |
my $meta=$hash{'src_'.$frid}; |
my $PartNo = 0; |
my $PartNo = 0; |
|
# 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'); |
&Apache::lonnet::metadata($meta,$_.'.part'); |
$P_Order++; |
$P_Order++; |
$mapsort{$HWN} .= '&'.$P_Order; |
$mapsort{$HWN} .= '&'.$P_Order; |
Line 652 sub tracetable {
|
Line 656 sub tracetable {
|
#$r->print('<br>'.$PartNo.'---'.$P_Order); |
#$r->print('<br>'.$PartNo.'---'.$P_Order); |
} |
} |
} |
} |
|
# foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) { |
|
# if ($_=~/^optionresponse\_(\w+)\_(\w+)$/) { |
|
# $r->print('<br>'.$_.&Apache::lonnet::metadata($meta,$_)); |
|
# $r->print('<br>'.$_.'...'.$P_Order); |
|
# $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 743 ENDPOP
|
Line 763 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 763 ENDPOP
|
Line 783 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 839 ENDPOP
|
Line 859 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 870 sub Cache_Statistics {
|
Line 890 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 891 sub Cache_Statistics {
|
Line 911 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 901 sub Cache_Statistics {
|
Line 922 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 910 sub Cache_Statistics {
|
Line 931 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 926 sub TableRow {
|
Line 948 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 984 sub initial {
|
Line 1012 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; |