--- loncom/interface/lonnavmaps.pm	2001/01/30 22:26:33	1.12
+++ loncom/interface/lonnavmaps.pm	2001/02/08 17:01:34	1.13
@@ -9,7 +9,7 @@
 # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
 # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer)
 #
-# 3/1/1,6/1,17/1,29/1,30/1 Gerd Kortemeyer
+# 3/1/1,6/1,17/1,29/1,30/1,2/8 Gerd Kortemeyer
 
 package Apache::lonnavmaps;
 
@@ -437,6 +437,10 @@ sub handler {
 
 # ------------------------------------------------------------------ Build page
 
+		      my $currenturl=$ENV{'form.postdata'};
+                      $currenturl=~s/^http\:\/\///;
+                      $currenturl=~s/^[^\/]+//;
+
 # ---------------------------------------------------------------- Send headers
 
                           $r->content_type('text/html');
@@ -444,11 +448,33 @@ sub handler {
                           $r->print(
                    '<html><head><title>Navigate LON-CAPA Maps</title></head>');
 
-			  $r->print('<body bgcolor="#FFFFFF">'.
-                                    '<script>window.focus();</script>'.
+			  $r->print('<body bgcolor="#FFFFFF"');
+                          if ($currenturl=~/^\/res/) {
+                             $r->print(' onLoad="window.location.hash='.
+				       "'curloc'".'"');
+			  }
+                          $r->print('><script>window.focus();</script>'.
                            '<img align=right src=/adm/lonIcons/lonlogos.gif>'.
                                     '<h1>Navigate Course Map</h1>');
-                          $r->rflush();
+		      $r->rflush();
+                      if ($currenturl=~/^\/res/) {
+		       $r->print('<a href="#curloc">Current Location</a><p>');
+                      }
+# ----------------------------------------------------- The little content list
+                      for ($i=0;$i<=$#rows;$i++) {
+			if ($rows[$i]) {
+                          my @colcont=split(/\&/,$rows[$i]);
+                          my $avespan=$lcm/($#colcont+1);
+                          for ($j=0;$j<=$#colcont;$j++) {
+                              my $rid=$colcont[$j];
+                              if ($rid=~/^h(.+)/) {
+				  $rid=$1;
+                                  $r->print(
+     '&nbsp;&nbsp;&nbsp;<a href="#'.$rid.'">'.$hash{'title_'.$rid}.'</a><br>');
+                              }
+                          }
+		        }
+                      }
 # ----------------------------------------------------------------- Start table
                       $r->print('<table cols="'.$lcm.'" border="0">');
                       for ($i=0;$i<=$#rows;$i++) {
@@ -464,7 +490,8 @@ sub handler {
                               my $hwke='</font>';
                               if ($rid=~/^h(.+)/) {
 				  $rid=$1;
-                                  $add='<th bgcolor="#AAFF55">';
+                                  $add=
+                                   '<th bgcolor="#AAFF55"><a name="'.$rid.'">';
                                   $adde='</th>';
                               }
                             if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) {
@@ -501,6 +528,12 @@ sub handler {
                                      $hwke='</b> ('.$ctext.')</font>';
                                   }
                               }
+			      if ($hash{'src_'.$rid} eq $currenturl) {
+                                  $add=$add.'<a name="curloc"></a>'.
+				      '<font color=red><b>-&gt; </b></font>';
+                                  $adde=
+                                '<font color=red><b> &lt;-</b></font>'.$adde;
+                              }
                               $r->print($add.'<a href="'.$hash{'src_'.$rid}.
                                 '">'.$hwk.
                                 $hash{'title_'.$rid}.$hwke.'</a>'.$adde);
@@ -509,7 +542,6 @@ sub handler {
 		        }
                       }
                       $r->print("\n</table>");
-
                       $r->print('</body></html>');
 # -------------------------------------------------------------------- End page
                   }                  
