X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Web.pm;h=41aaef2921ac668a08ac37e020466b334fd973db;hp=ddd1f986a873eeb24d401ac2e91717918c146db0;hb=3dc4efe347ed9679347de73f905a5d0142d1a68e;hpb=e82a35e2244b715644001955516b23248a5d9e6f

diff --git a/Web.pm b/Web.pm
index ddd1f98..41aaef2 100644
--- a/Web.pm
+++ b/Web.pm
@@ -55,6 +55,7 @@ BEGIN
 
 #		print STDERR "Wuse $file\n";
 		Wrequire $file;
+		local $Exporter::ExportLevel=$Exporter::ExportLevel+1;
 		$file->import(@list);
 		1;
 	}
@@ -420,6 +421,7 @@ my($file_base,$alt,$attrs)=@_;
 
 	my $file=img_src $file_base;
 	my($width,$height)=Image::Size::imgsize($file);
+	$alt=~s/<[^>]*>//g;
 	$alt=CGI::escapeHTML($alt);
 	return "<img src=\"$file\" alt=\"$alt\" title=\"$alt\" ".img_size($width,$height)
 			.(!$attrs ? "" : " ".$attrs)." />";