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

[albertel]

albertel		Thu Nov  6 10:24:14 2003 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  - wasn't build %parts if partorder set, this was needed later on to do do response ID discovery
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.240 loncom/interface/lonnavmaps.pm:1.241
--- loncom/interface/lonnavmaps.pm:1.240	Thu Oct  9 17:48:51 2003
+++ loncom/interface/lonnavmaps.pm	Thu Nov  6 10:24:13 2003
@@ -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 @@
 	    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 @@
 		    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 @@
                 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 @@
                 }
             }
         }
-
         $self->{RESPONSE_IDS} = \%responseIdHash;
         $self->{RESPONSE_TYPES} = \%responseTypeHash;
     }