--- loncom/interface/lonnavmaps.pm 2003/10/09 21:02:11 1.239 +++ 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.239 2003/10/09 21:02:11 bowersj2 Exp $ +# $Id: lonnavmaps.pm,v 1.241 2003/11/06 15:24:13 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3578,10 +3578,7 @@ sub extractParts { # Retrieve part count, if this is a problem if ($self->is_problem()) { - my $partorder; - # Hypothetically, replace previous line with: - # my $partorder = &Apache::lonnet::metadata($self->src(), 'partorder'); - # and it'll all work... + my $partorder = &Apache::lonnet::metadata($self->src(), 'partorder'); my $metadata = &Apache::lonnet::metadata($self->src(), 'packages'); if ($partorder) { @@ -3589,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; @@ -3604,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. @@ -3641,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]; @@ -3654,7 +3651,6 @@ sub extractParts { } } } - $self->{RESPONSE_IDS} = \%responseIdHash; $self->{RESPONSE_TYPES} = \%responseTypeHash; }