Return to lonnavmaps.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.292, 2004/09/18 16:55:33 | version 1.293, 2004/09/19 14:47:37 |
---|---|
Line 3964 sub countParts { | Line 3964 sub countParts { |
sub countResponses { | sub countResponses { |
my $self = shift; | my $self = shift; |
my $count; | my $count; |
foreach my $part ($self->parts()) { | foreach my $part (@{$self->parts()}) { |
$count+= $self->responseIds($part); | $count+= scalar($self->responseIds($part)); |
} | } |
return $count; | return $count; |
} | } |