+freshmeat

[MyWeb.git] / Project.pm

diff --git a/Project.pm b/Project.pm
index d67f978..d5473fd 100644 (file)
--- a/Project.pm
+++ b/Project.pm
@@ -89,7 +89,7 @@ my($class,$ListItem)=@_;
                                                return $_[0];
                                                },
                                "format"=>sub ($) {
-                                               return a_href($_[0],CGI::escapeHTML($_[0]));
+                                               return($_[0]=~/^<a\b/ ? $_[0] : a_href($_[0],CGI::escapeHTML($_[0])));
                                                }},
                {"key"=>qr(^cvs\b),"text"=>sub ($) {
                                                $_[0]=~s/^cvs//;