--- loncom/interface/lonnavmaps.pm 2003/10/09 21:48:51 1.240 +++ loncom/interface/lonnavmaps.pm 2003/11/06 15:24:13 1.241 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.240 2003/10/09 21:48:51 albertel Exp $ +# $Id: lonnavmaps.pm,v 1.241 2003/11/06 15:24:13 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3586,6 +3586,7 @@ sub extractParts { for my $part (split (/,/,$partorder)) { if (!Apache::loncommon::check_if_partid_hidden($part, $self->symb())) { push @parts, $part; + $parts{$part} = 1; } } $self->{PARTS} = \@parts; @@ -3601,8 +3602,8 @@ sub extractParts { my $part = $1; # This floods the logs if it blows up if (defined($parts{$part})) { - Apache::lonnet::logthis("$part multiply defined in metadata for " . $self->symb()); - } + &Apache::lonnet::logthis("$part multiply defined in metadata for " . $self->symb()); + } # check to see if part is turned off. @@ -3638,7 +3639,6 @@ sub extractParts { my $partIdSoFar = ''; my @partChunks = split /_/, $partStuff; my $i = 0; - for ($i = 0; $i < scalar(@partChunks); $i++) { if ($partIdSoFar) { $partIdSoFar .= '_'; } $partIdSoFar .= $partChunks[$i]; @@ -3651,7 +3651,6 @@ sub extractParts { } } } - $self->{RESPONSE_IDS} = \%responseIdHash; $self->{RESPONSE_TYPES} = \%responseTypeHash; }