X-Git-Url: http://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=scripts%2Fmake_html.pl;h=110b7647c1a362871716e92e3db2bd41493d4328;hb=a917967c01f61e98e33266662fed62aa8f6773f7;hp=c0251f5d022f446a3abd4243640e89b26272b128;hpb=9766a16a9d842ad56bfda8c0444ffa96e14cfe37;p=sites%2Fhome_page.git

diff --git a/scripts/make_html.pl b/scripts/make_html.pl
index c0251f5..110b764 100644
--- a/scripts/make_html.pl
+++ b/scripts/make_html.pl
@@ -57,6 +57,8 @@ for my $text_file (@ARGV) {
 	$tpl[0] =~ s#(</title>)#$title$1$after_title#is;
 	$tpl[0] =~ s#(<body\b)#$1$body_attrs#is if $body_attrs;
 	my $top = File::Spec::Unix->abs2rel('', $textdir);
+	print "top=$top\n";
+	$top = "" if ($top eq '/');
 	$top .= "/" if length($top);
 	my $result = join('', $tpl[0], $body, $tpl[1]);
 	$result =~