--- mitgcm.org/front_content/Assemble.pl	2003/12/04 02:14:52	1.2
+++ mitgcm.org/front_content/Assemble.pl	2008/02/29 00:40:37	1.9
@@ -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,8 +55,16 @@
     foreach $fm (@flist) {
 	$ind = "";
 	$name = $name0{$fm};
+
+#	if ($name eq "Documentation") {
+#	    $tmp = "<a href=\"http://eddy.csail.mit.edu/r2/latest/\">"
+#		. "Documentation</a><br />\n";
+#	    $menu = join "", $menu, $tmp;
+#	    next;
+#	}
+
 	if (length($name1{$fm}) > 0) {
-	    $ind = "&nbsp;&nbsp;";
+	    $ind = "&nbsp;&nbsp;&nbsp;";
 	    $name = $name1{$fm};
 	}
 	if (length($ind) > 0 and ($name0{$fm} ne $cname)) {
@@ -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;