diff --git a/doc/scripts/docgen b/doc/scripts/docgen
index 18aa2a4ed25ab11c7cc9b84ced9b96b8e661550a..9c39603059e6eeb164fda538e1a8502cd47e6480 100755
--- a/doc/scripts/docgen
+++ b/doc/scripts/docgen
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# <!-- $Id: docgen,v 1.3 2010-03-09 09:49:03 mh17 Exp $ -->
+# <!-- $Id: docgen,v 1.4 2010-03-10 12:21:38 mh17 Exp $ -->
# generate a *.shtml file to STDOUT from headerless *.html
# css is in ZMap/doc/css/dev_server.css
# menu data is in ZMap/doc/<design>/scripts/ plus also the current dir (file.rel)
@@ -76,13 +76,13 @@ sub get_dirs
# find /doc/ and count the number of '/' following
@dirs = split(/\//,$dir);
- $base = '/';
+ $base = "";
$doc = $d = "";
while (@dirs && ($d ne "doc")) # ie our document root with the CSS
{
$d = shift @dirs;
- $base .= $d . '/';
+ $base .= $d . '/'; # NB first one is '' before the first /
}
if(@dirs)
{
@@ -104,7 +104,7 @@ sub gen_file
{
print OFILE "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"\n\t\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n";
print OFILE "<html>\n<head>\n\t<title>ZMap Design Documentation</title>\n";
- print OFILE "<base href=\"file://$base\" />\n";
+ print OFILE "\t<base href=\"file://$base\" />\n";
print OFILE "\t<link rel=\"stylesheet\" type=\"text/css\" href=\"$css\" />\n";
print OFILE "\t<link rel=\"stylesheet\" type=\"text/css\" href=\"$zmap_css\" />\n";