--- mitgcm.org/front_content/Assemble.pl	2003/12/04 03:10:49	1.3
+++ mitgcm.org/front_content/Assemble.pl	2006/04/06 19:52:17	1.7
@@ -1,11 +1,11 @@
-#! /usr/bin/env perl
+#! /usr/bin/perl
 
 #  Ed Hill
 #  Tue Dec  2 20:17:27 EST 2003
 
 #  Assemble the web pages from XML files.
 
-$topdir = "./";
+$topdir = ".";
 $file_list = $topdir . "/order.txt";
 open(ORDER,$file_list) or die "ERROR: can't open \"$file_list\"\n";
 $_ = join(" ", <ORDER>);
@@ -55,6 +55,14 @@
     foreach $fm (@flist) {
 	$ind = "";
 	$name = $name0{$fm};
+
+	if ($name eq "Documentation") {
+	    $tmp = "<a href=\"http://mitgcm.org/pelican/\">"
+		. "Documentation</a><br />\n";
+	    $menu = join "", $menu, $tmp;
+	    next;
+	}
+
 	if (length($name1{$fm}) > 0) {
 	    $ind = "&nbsp;&nbsp;&nbsp;";
 	    $name = $name1{$fm};
@@ -71,8 +79,8 @@
 	}
 	$menu = join "", $menu, $tmp;
     }
-    $tmp = "<a href=\"./htdig\" />Search</a><br />\n";
-    $menu = join "", $menu, $tmp;
+    # $tmp = "<a href=\"./htdig\" />Search</a><br />\n";
+    # $menu = join "", $menu, $tmp;
 
     #  Create the output
     $_ = $template;