img_tag(): Tighten up the generated SRC attribute a bit; if the image

relative URL starts with "./", remove "./".
This commit is contained in:
Fred Drake 1999-09-23 15:29:45 +00:00
parent d52879ccdc
commit d3d28d39f8

View file

@ -251,9 +251,12 @@ sub img_tag {
,'border=', $nav_border, ' alt="', $alt ,'border=', $nav_border, ' alt="', $alt
,'" src="', $icon, '">' ); ,'" src="', $icon, '">' );
} }
return join('', '<img ', $iconsizes{$1}, $align my $s = join('', '<img ', $iconsizes{$1}, $align,
,'border=', $nav_border, ' alt="', $alt, "\"\n" 'border=', $nav_border, ' alt="', $alt, "\"\n",
,' src="', $ICONSERVER, "/$icon", '">' ); ' src="', $ICONSERVER, "/$icon", '">' );
# if $ICONSERVER starts with "./", remove "./":
$s =~ s|src="(.\/)+|src="|;
return $s;
} }
else { else {
return $icon; return $icon;