[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm

[matthew]

matthew		Wed Sep 24 11:02:35 2003 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  Get all the response types associated with a part, not just the first one.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.232 loncom/interface/lonnavmaps.pm:1.233
--- loncom/interface/lonnavmaps.pm:1.232	Sun Sep 21 20:48:32 2003
+++ loncom/interface/lonnavmaps.pm	Wed Sep 24 11:02:34 2003
@@ -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.233 2003/09/24 15:02:34 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3629,8 +3629,7 @@
                         my @otherChunks = @partChunks[$i+1..$#partChunks];
                         my $responseId = join('_', @otherChunks);
                         push @{$responseIdHash{$partIdSoFar}}, $responseId;
-                        $responseTypeHash{$partIdSoFar} = $responseType;
-                        last;
+                        push @{$responseTypeHash{$partIdSoFar}}, $responseType;
                     }
                 }
             }