loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.290, 2004/09/15 21:10:11	version 1.291, 2004/09/16 16:56:37
Line 3972 sub countResponses {	Line 3972 sub countResponses {

sub responseTypes {	sub responseTypes {
my $self = shift;	my $self = shift;
my %Responses;	my %responses;
foreach my $part ($self->parts()) {	foreach my $part ($self->parts()) {
foreach my $responsetype ($self->responseType($part)) {	foreach my $responsetype ($self->responseType($part)) {
$Responses{$responsetype}++ if (defined($responsetype));	$responses{$responsetype}++ if (defined($responsetype));
}	}
}	}
return %Responses;	return %responses;
}	}

sub multipart {	sub multipart {