version 1.87, 2004/06/04 21:42:18
|
version 1.89, 2004/06/16 16:22:52
|
Line 263 my @Fields = (
|
Line 263 my @Fields = (
|
graphable => 'yes', |
graphable => 'yes', |
long_title => 'Degree of Discrimination', |
long_title => 'Degree of Discrimination', |
selectable => 'yes', |
selectable => 'yes', |
defaultselected => 'no', |
defaultselected => 'yes', |
}, |
}, |
## duedate included for research purposes. Commented out most of the time. |
## duedate included for research purposes. Commented out most of the time. |
# { name => 'duedate', |
# { name => 'duedate', |
Line 1387 sub compute_statistics_on_sequence {
|
Line 1387 sub compute_statistics_on_sequence {
|
foreach my $res (@{$seq->{'contents'}}) { |
foreach my $res (@{$seq->{'contents'}}) { |
next if ($res->{'type'} ne 'assessment'); |
next if ($res->{'type'} ne 'assessment'); |
foreach my $part (@{$res->{'parts'}}) { |
foreach my $part (@{$res->{'parts'}}) { |
|
next if ($res->{'partdata'}->{$part}->{'Survey'}); |
# |
# |
# This is where all the work happens |
# This is where all the work happens |
my $data = &get_statistics($seq,$res,$part,scalar(@StatsArray)+1); |
my $data = &get_statistics($seq,$res,$part,scalar(@StatsArray)+1); |