--- loncom/interface/lonnavmaps.pm	2003/09/22 00:48:32	1.232
+++ loncom/interface/lonnavmaps.pm	2003/09/24 15:58:06	1.234
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.232 2003/09/22 00:48:32 www Exp $
+# $Id: lonnavmaps.pm,v 1.234 2003/09/24 15:58:06 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3547,7 +3547,7 @@ sub responseType {
     my $part = shift;
 
     $self->extractParts();
-    return $self->{RESPONSE_TYPES}->{$part};
+    return @{$self->{RESPONSE_TYPES}->{$part}};
 }
 
 sub responseIds {
@@ -3555,7 +3555,7 @@ sub responseIds {
     my $part = shift;
 
     $self->extractParts();
-    return $self->{RESPONSE_IDS}->{$part};
+    return @{$self->{RESPONSE_IDS}->{$part}};
 }
 
 # Private function: Extracts the parts information, both part names and
@@ -3629,8 +3629,7 @@ sub extractParts {
                         my @otherChunks = @partChunks[$i+1..$#partChunks];
                         my $responseId = join('_', @otherChunks);
                         push @{$responseIdHash{$partIdSoFar}}, $responseId;
-                        $responseTypeHash{$partIdSoFar} = $responseType;
-                        last;
+                        push @{$responseTypeHash{$partIdSoFar}}, $responseType;
                     }
                 }
             }