version 1.233, 2003/09/24 15:02:34
|
version 1.234, 2003/09/24 15:58:06
|
Line 3547 sub responseType {
|
Line 3547 sub responseType {
|
my $part = shift; |
my $part = shift; |
|
|
$self->extractParts(); |
$self->extractParts(); |
return $self->{RESPONSE_TYPES}->{$part}; |
return @{$self->{RESPONSE_TYPES}->{$part}}; |
} |
} |
|
|
sub responseIds { |
sub responseIds { |
Line 3555 sub responseIds {
|
Line 3555 sub responseIds {
|
my $part = shift; |
my $part = shift; |
|
|
$self->extractParts(); |
$self->extractParts(); |
return $self->{RESPONSE_IDS}->{$part}; |
return @{$self->{RESPONSE_IDS}->{$part}}; |
} |
} |
|
|
# Private function: Extracts the parts information, both part names and |
# Private function: Extracts the parts information, both part names and |