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

[bowersj2]

bowersj2		Sat Mar  8 15:52:41 2003 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  Should fix bug 1155; sometimes problems weren't returning the
  part '0', which should always exist as far as navmaps is concerned.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.153 loncom/interface/lonnavmaps.pm:1.154
--- loncom/interface/lonnavmaps.pm:1.153	Sat Mar  8 15:12:32 2003
+++ loncom/interface/lonnavmaps.pm	Sat Mar  8 15:52:41 2003
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.153 2003/03/08 20:12:32 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.154 2003/03/08 20:52:41 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2728,6 +2728,11 @@
         
         my @sortedParts = sort @{$self->{PARTS}};
         $self->{PARTS} = \@sortedParts;
+    }
+
+    # Ensure part 0 is included at the beginning.
+    if ($self->{PARTS}->[0] ne '0') {
+        unshift @{$self->{PARTS}}, '0';
     }
 
     return;