version 1.29, 2002/08/15 13:54:13
|
version 1.30, 2002/08/15 14:15:20
|
Line 799 sub CalculateStatistics {
|
Line 799 sub CalculateStatistics {
|
$data->{$_.':discriminationFactor2'} = sprintf("%.2f", $df2); |
$data->{$_.':discriminationFactor2'} = sprintf("%.2f", $df2); |
|
|
my %storestats; |
my %storestats; |
my ($sequence) = split(':', $_); |
|
my $Average = ($data->{$_.':studentCount'}) ? |
my $Average = ($data->{$_.':studentCount'}) ? |
$data->{$_.':totalTries'}/$data->{$_.':studentCount'} : 0; |
$data->{$_.':totalTries'}/$data->{$_.':studentCount'} : 0; |
$storestats{$courseID.'___'.$cache->{$sequence.':source'}. |
$storestats{$courseID.'___'.$cache->{$sequence.':source'}. |