From: Fred Drake <fdrake@acm.org>
Date: Thu, 23 Sep 1999 15:29:45 +0000 (+0000)
Subject: img_tag():  Tighten up the generated SRC attribute a bit; if the image
X-Git-Tag: v1.6a1~892
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=d3d28d39f8209735c9fd6d250d9a61d20876a454;p=python

img_tag():  Tighten up the generated SRC attribute a bit; if the image
            relative URL starts with "./", remove "./".
---

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 92ad45ac06..9c928194e2 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -251,9 +251,12 @@ sub img_tag {
 			,'border=', $nav_border, ' alt="', $alt
 			,'" src="', $icon, '">' );
 	}
-	return join('', '<img ', $iconsizes{$1}, $align
-		    ,'border=', $nav_border, ' alt="', $alt, "\"\n"
-		    ,' src="', $ICONSERVER, "/$icon", '">' );
+	my $s = join('', '<img ', $iconsizes{$1}, $align,
+                     'border=', $nav_border, ' alt="', $alt, "\"\n",
+                     ' src="', $ICONSERVER, "/$icon", '">' );
+        # if $ICONSERVER starts with "./", remove "./":
+        $s =~ s|src="(.\/)+|src="|;
+        return $s;
     }
     else {
 	return $icon;