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
,'" 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;