--- loncom/interface/lonnavmaps.pm	2003/10/09 21:02:11	1.239
+++ loncom/interface/lonnavmaps.pm	2003/12/01 14:38:25	1.242
@@ -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.242 2003/12/01 14:38:25 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2345,6 +2345,8 @@ consisting entirely of empty resources e
 ending resource, will cause a lot of BRANCH_STARTs and BRANCH_ENDs,
 but only one resource will be returned.
 
+=back
+
 =head2 Normal Usage
 
 Normal usage of the iterator object is to do the following:
@@ -2365,8 +2367,6 @@ the depth of the iterator to see when it
 code. It is difficult to get right and harder to understand then
 this. They should be migrated to this new style.
 
-=back
-
 =cut
 
 # Here are the tokens for the iterator:
@@ -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;
     }