--- mitgcm.org/front_content/Assemble.pl	2003/12/04 03:10:49	1.3
+++ 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>);
@@ -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;