--- loncom/interface/lonnavmaps.pm 2003/09/24 15:58:06 1.234 +++ loncom/interface/lonnavmaps.pm 2003/09/29 21:07:10 1.235 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.234 2003/09/24 15:58:06 matthew Exp $ +# $Id: lonnavmaps.pm,v 1.235 2003/09/29 21:07:10 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3547,7 +3547,11 @@ sub responseType { my $part = shift; $self->extractParts(); - return @{$self->{RESPONSE_TYPES}->{$part}}; + if (defined($self->{RESPONSE_TYPES}->{$part})) { + return @{$self->{RESPONSE_TYPES}->{$part}}; + } else { + return undef; + } } sub responseIds { @@ -3555,7 +3559,11 @@ sub responseIds { my $part = shift; $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