--- loncom/interface/lonnavmaps.pm	2006/03/04 06:12:40	1.367
+++ loncom/interface/lonnavmaps.pm	2006/03/13 17:29:50	1.368
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.367 2006/03/04 06:12:40 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.368 2006/03/13 17:29:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3657,8 +3657,7 @@ sub kind { my $self=shift; return $self-
 sub randomout { my $self=shift; return $self->navHash("randomout_", 1); }
 sub randompick { 
     my $self = shift;
-    return $self->{NAV_MAP}->{PARM_HASH}->{$self->symb .
-                                               '.0.parameter_randompick'};
+    return $self->{NAV_MAP}->{PARM_HASH}->{$self->symb().'.0.randompick'};
 }
 sub link {
     my $self=shift;
@@ -4258,7 +4257,7 @@ sub countResponses {
 sub responseTypes {
     my $self = shift;
     my %responses;
-    foreach my $part ($self->parts()) {
+    foreach my $part (@{$self->parts()}) {
         foreach my $responsetype ($self->responseType($part)) {
             $responses{$responsetype}++ if (defined($responsetype));
         }