--- loncom/interface/lonnavmaps.pm	2002/11/01 18:47:26	1.95
+++ loncom/interface/lonnavmaps.pm	2002/11/03 21:05:03	1.97
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.95 2002/11/01 18:47:26 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.97 2002/11/03 21:05:03 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -957,6 +957,10 @@ sub new_handle {
     # Here's a simple example of the iterator.
     # Preprocess the map: Look for current URL, force inlined maps to display
 
+    # This currently does very little...
+    my $mapEventualIterator = Apache::lonnavmaps::iterator->new($navmap, undef, undef, {},
+                                                                undef, $condition);
+
     my $mapIterator = $navmap->getIterator(undef, undef, {}, 1);
     my $found = 0;
     my $depth = 1;
@@ -968,12 +972,8 @@ sub new_handle {
     my $counter = 0;
     
     while ($depth > 0) {
-        if ($curRes == $mapIterator->BEGIN_MAP()) {
-            $depth++;
-        }
-        if ($curRes == $mapIterator->END_MAP()) {
-            $depth--;
-        }
+        if ($curRes == $mapIterator->BEGIN_MAP()) { $depth++; }
+        if ($curRes == $mapIterator->END_MAP()) { $depth--; }
 
         if (ref($curRes)) { $counter++; }
 
@@ -1058,12 +1058,8 @@ sub new_handle {
         if ($curRes == $mapIterator->BEGIN_BRANCH()) {
             $isNewBranch = 1;
         }
-        if ($curRes == $mapIterator->BEGIN_MAP()) {
-            $depth++;
-        }
-        if ($curRes == $mapIterator->END_MAP()) {
-            $depth--;
-        }
+        if ($curRes == $mapIterator->BEGIN_MAP()) { $depth++; }
+        if ($curRes == $mapIterator->END_MAP()) { $depth--; }
 
         if (ref($curRes)) { $counter++; }
 
@@ -1294,6 +1290,9 @@ sub new_handle {
                 }
 
                 $r->print("  $curMarkerBegin<a href=\"$link\">$title$partLabel</a> $curMarkerEnd $nonLinkedText");
+                $r->print(" TDV:" . $curRes->{DATA}->{TOP_DOWN_VAL}); # temp
+                $r->print(" BUV:" . $curRes->{DATA}->{BOT_UP_VAL}); # temp
+                $r->print(" DD:" . $curRes->{DATA}->{DISPLAY_DEPTH}); # temp
 
                 if ($curRes->{RESOURCE_ERROR}) {
                     $r->print(&Apache::loncommon::help_open_topic ("Navmap_Host_Down",
@@ -2035,6 +2034,11 @@ sub END_BRANCH { return 4; }   # end of
 sub FORWARD { return 1; }      # go forward
 sub BACKWARD { return 2; }
 
+sub min {
+    (my $a, my $b) = @_;
+    if ($a < $b) { return $a; } else { return $b; }
+}
+
 sub new {
     # magic invocation to create a class instance
     my $proto = shift;
@@ -2065,6 +2069,73 @@ sub new {
     # Now, we need to pre-process the map, by walking forward and backward
     # over the parts of the map we're going to look at.
 
+    # The processing steps are exactly the same, except for a few small 
+    # changes, so I bundle those up in the following list of two elements:
+    # (direction_to_iterate, VAL_name, next_resource_method_to_call,
+    # first_resource).
+    # This prevents writing nearly-identical code twice.
+    my @iterations = ( [FORWARD(), 'TOP_DOWN_VAL', 'getNext', 
+                        'FIRST_RESOURCE'],
+                       [BACKWARD(), 'BOT_UP_VAL', 'getPrevious', 
+                        'FINISH_RESOURCE'] );
+
+    foreach my $pass (@iterations) {
+        my $direction = $pass->[0];
+        my $valName = $pass->[1];
+        my $nextResourceMethod = $pass->[2];
+        my $firstResourceName = $pass->[3];
+
+        my $iterator = Apache::lonnavmaps::DFSiterator->new($self->{NAV_MAP}, 
+                                                            $self->{FIRST_RESOURCE},
+                                                            $self->{FINISH_RESOURCE},
+                                                            {}, undef, 0, $direction);
+    
+        # prime the recursion
+        $self->{$firstResourceName}->{DATA}->{$valName} = 0;
+        my $depth = 1;
+        $iterator->next();
+        my $curRes = $iterator->next();
+        while ($depth > 0) {
+            if ($curRes == $iterator->BEGIN_MAP()) { $depth++; }
+            if ($curRes == $iterator->END_MAP()) { $depth--; }
+        
+            if (ref($curRes)) {
+                my $resultingVal = $curRes->{DATA}->{$valName};
+                my $nextResources = $curRes->$nextResourceMethod();
+                my $resourceCount = scalar(@{$nextResources});
+            
+                if ($resourceCount == 1) {
+                    my $current = $nextResources->[0]->{DATA}->{$valName} || 999999999;
+                    $nextResources->[0]->{DATA}->{$valName} = min($resultingVal, $current);
+                }
+                
+                if ($resourceCount > 1) {
+                    foreach my $res (@{$nextResources}) {
+                        my $current = $res->{DATA}->{$valName} || 999999999;
+                        $res->{DATA}->{$valName} = min($current, $resultingVal + 1);
+                    }
+                }
+            }
+            if (ref($curRes) && $curRes->is_map() && $direction == FORWARD()) {
+                my $firstResource = $curRes->map_start();
+                my $finishResource = $curRes->map_finish();
+                my $newIterator = Apache::lonnavmaps::iterator->new($self->{NAV_MAP},
+                                                                    $firstResource,
+                                                                    $finishResource,
+                                                                    $self->{FILTER},
+                                                                    $self->{ALREADY_SEEN},
+                                                                    $self->{CONDITION});
+            }
+            
+            # Assign the final val
+            if (ref($curRes) && $direction == BACKWARD()) {
+                $curRes->{DATA}->{DISPLAY_DEPTH} = min($curRes->{DATA}->{TOP_DOWN_VAL},
+                                                       $curRes->{DATA}->{BOT_UP_VAL});
+            }
+            $curRes = $iterator->next();
+        }
+    }
+
     # Now we're ready to start iterating.
 }
 
@@ -2078,6 +2149,10 @@ package Apache::lonnavmaps::DFSiterator;
 # used by the main iterator for pre-processing. It also is able to isolate
 # much of the complexity of the main iterator, so the main iterator is much
 # simpler.
+# There is no real benefit in merging the main iterator and this one into one class...
+# all the logic in DFSiterator would need to be replicated, you gain no performance,
+# at best, you just make one massively complicated iterator in place of two 
+# somewhat complicated ones. ;-) - Jeremy
 
 # Here are the tokens for the iterator, replicated from iterator for convenience: