version 1.87, 2004/06/04 21:42:18
|
version 1.88, 2004/06/16 14:21:16
|
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); |