X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=back2html.pm;h=860a1d68d4e2efd02bc9da11fc7b06d50aa1390f;hb=6209bea7c9ed99dacfbf229e709d1da3a26f6457;hp=95742d2c848eb48c7a191e99c457dea0a487363c;hpb=f67f3b45ca268b7dcc54bc9d4977b8927f1cb21d;p=webpac

diff --git a/back2html.pm b/back2html.pm
index 95742d2..860a1d6 100644
--- a/back2html.pm
+++ b/back2html.pm
@@ -27,7 +27,10 @@ sub back2html {
 		$out .= join("</td><td>",@items);
 		$out .= "</td></tr>\n";
 	}
-	$out =~ s/&lt;br\/*&gt;/<br\/>/g;
+	# put <br> back into html
+	$out =~ s,&lt;br/*&gt;,<br/>,gi;
+	# put <a href=xxx>yyyy</a> back into html
+	$out =~ s,&lt;(a\s+href=)(.+?)&gt;(.+?)&lt;(/a)&gt;,<$1$2>$3<$4>,gsi;
 	return $out;
 }