loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.234, 2003/09/24 15:58:06	version 1.235, 2003/09/29 21:07:10
Line 3547 sub responseType {	Line 3547 sub responseType {
my $part = shift;	my $part = shift;

$self->extractParts();	$self->extractParts();
return @{$self->{RESPONSE_TYPES}->{$part}};	if (defined($self->{RESPONSE_TYPES}->{$part})) {
	return @{$self->{RESPONSE_TYPES}->{$part}};
	} else {
	return undef;
	}
}	}

sub responseIds {	sub responseIds {
Line 3555 sub responseIds {	Line 3559 sub responseIds {
my $part = shift;	my $part = shift;

$self->extractParts();	$self->extractParts();
return @{$self->{RESPONSE_IDS}->{$part}};	if (defined($self->{RESPONSE_IDS}->{$part})) {
	return @{$self->{RESPONSE_IDS}->{$part}};
	} else {
	return undef;
	}
}	}

# Private function: Extracts the parts information, both part names and	# Private function: Extracts the parts information, both part names and