version 1.9, 2002/03/07 00:05:21
|
version 1.10, 2002/03/07 00:28:55
|
Line 313 sub PreStatTable {
|
Line 313 sub PreStatTable {
|
"_$ENV{'user.domain'}_$cid\_statistics.db"; |
"_$ENV{'user.domain'}_$cid\_statistics.db"; |
my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}". |
my $GraphDB = "/home/httpd/perl/tmp/$ENV{'user.name'}". |
"_$ENV{'user.domain'}_$cid\_graph.db"; |
"_$ENV{'user.domain'}_$cid\_graph.db"; |
my $CachDisFac = "/home/httpd/perl/tmp/$ENV{'user.name'}". |
|
"_$ENV{'user.domain'}_$cid\_DiscFactor.db"; |
|
my $OpSel11=''; |
my $OpSel11=''; |
my $OpSel12=''; |
my $OpSel12=''; |
my $OpSel13=''; |
my $OpSel13=''; |
Line 371 sub PreStatTable {
|
Line 369 sub PreStatTable {
|
|
|
if ((-e "$CacheDB")&&($ENV{'form.sort'} ne 'Recalculate Statistics')) { |
if ((-e "$CacheDB")&&($ENV{'form.sort'} ne 'Recalculate Statistics')) { |
if (tie(%CachData,'GDBM_File',"$CacheDB",&GDBM_READER,0640)) { |
if (tie(%CachData,'GDBM_File',"$CacheDB",&GDBM_READER,0640)) { |
tie(%DiscFac,'GDBM_File',$CachDisFac,&GDBM_READER,0640); |
|
tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640); |
tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640); |
&Cache_Statistics(); |
&Cache_Statistics(); |
} |
} |
Line 381 sub PreStatTable {
|
Line 378 sub PreStatTable {
|
} |
} |
else { |
else { |
if (tie(%CachData,'GDBM_File',$CacheDB,&GDBM_WRCREAT,0640)) { |
if (tie(%CachData,'GDBM_File',$CacheDB,&GDBM_WRCREAT,0640)) { |
tie(%DiscFac,'GDBM_File',$CachDisFac,&GDBM_WRCREAT,0640); |
|
tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640); |
tie(%GraphDat,'GDBM_File',$GraphDB,&GDBM_WRCREAT,0640); |
foreach (keys %DiscFac) {delete $CachData{$_};} |
foreach (keys %DiscFac) {delete $CachData{$_};} |
foreach (keys %CachData) {delete $CachData{$_};} |
foreach (keys %CachData) {delete $CachData{$_};} |
Line 396 sub PreStatTable {
|
Line 392 sub PreStatTable {
|
|
|
untie(%CachData); |
untie(%CachData); |
untie(%GraphDat); |
untie(%GraphDat); |
untie(%DiscFac); |
|
} |
} |
|
|
|
|
Line 520 sub ExtractStudentData {
|
Line 515 sub ExtractStudentData {
|
$TempHash{"$Part.ParCr"} = ($ParCr) ? $ParCr : 0; |
$TempHash{"$Part.ParCr"} = ($ParCr) ? $ParCr : 0; |
$TotalTries += $TempHash{"$Part.Tries"}; |
$TotalTries += $TempHash{"$Part.Tries"}; |
$TotParCr += $TempHash{"$Part.ParCr"}; |
$TotParCr += $TempHash{"$Part.ParCr"}; |
#$r->print($Version.'---'.$Prob.'==='.$Time.'<br>'); |
|
my $Val = $result{"$Version:$Prob:resource.$Part.solved"}; |
my $Val = $result{"$Version:$Prob:resource.$Part.solved"}; |
if ( $Val eq 'correct_by_student' ) |
if ( $Val eq 'correct_by_student' ) |
{ $Wrongs = $Tries - 1; $Code = 'C'; } |
{ $Wrongs = $Tries - 1; $Code = 'C'; } |
Line 1080 sub Menu {
|
Line 1074 sub Menu {
|
else { |
else { |
&initial(); |
&initial(); |
&ClassList(); |
&ClassList(); |
if ( $content eq 'Discrimination' || #'Problem Evaluation' || |
if ( $content eq 'Student Assessment' || |
$content eq 'Recalculate Discrimintion Factor' ) { |
|
&CreateDiscFac(); |
|
} |
|
elsif ( $content eq 'Student Assessment' || |
|
$content eq 'Create Student Report' ) { |
$content eq 'Create Student Report' ) { |
&StudentOptions(); |
&StudentOptions(); |
&StudentReport($CurStu,$StuBox{"$CurStu"}); |
&StudentReport($CurStu,$StuBox{"$CurStu"}); |