--- mitgcm.org/front_content/Assemble.pl	2003/12/04 02:14:52	1.2
+++ mitgcm.org/front_content/Assemble.pl	2005/04/02 22:12:59	1.6
@@ -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>);
@@ -56,7 +56,7 @@
 	$ind = "";
 	$name = $name0{$fm};
 	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 +71,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;