--- wiki-old	Wed Aug 13 17:34:57 2003
+++ wiki	Wed Aug 13 17:51:22 2003
@@ -1018,11 +1018,11 @@
   }
   if (&GetParam('toothytitle', 0))
   {
-    $result .= &GetHtmlHeader("$title");
+    $result .= &GetHtmlHeader("$title", $id);
   }
   else
   {
-    $result .= &GetHtmlHeader("$SiteName: $title");
+    $result .= &GetHtmlHeader("$SiteName: $title", $id);
   }
   return $result  if ($embed);
 
@@ -1073,8 +1073,8 @@
 }
 
 sub GetHtmlHeader {
-  my ($title) = @_;
-  my ($dtd, $bgcolor, $html, $bodyExtra);
+  my ($title, $id) = @_;
+  my ($dtd, $bgcolor, $html, $bodyExtra, $main);
 
   $html = '';
   $dtd = '-//IETF//DTD HTML//EN';
@@ -1095,6 +1095,14 @@
   }
   # Insert favicon link
   $html .= qq(<LINK REL="icon" HREF="/favicon.ico">);
+  # Insert relative navigation links
+  $html .= qq(<LINK REL="Top" HREF="$ScriptName?$HomePage">);
+  if ($id =~ m|/|) {
+    $main = $id;
+    $main =~ s|/.*||;  # Only the main page name (remove subpage)
+    $html .= qq(<LINK REL="Up" HREF="$ScriptName?$main">);
+  }
+  $html .= qq(<LINK REL="RecentChanges" HREF="$ScriptName?RecentChanges">);
   # Insert any other body stuff (like scripts) into $bodyExtra here
   # (remember to add a space at the beginning to separate from prior text)
   $html .= "</HEAD><BODY$bodyExtra>\n";