+postget

[MyWeb.git] / Project.pm

diff --git a/Project.pm b/Project.pm
index 85a1fa8..7628b91 100644 (file)
--- a/Project.pm
+++ b/Project.pm
@@ -181,10 +181,8 @@ sub init_project ($%)
 my($class,%args)=@_;
 
        my $ListItem={ project_arr_to_hash(@{$args{"ListItem"}}) };
-       my $name=$ListItem->{"name"};
-       $name=~s#<a\s[^>]*>([^<]*)</a>#$1#g;
        my $W=$class->init(
-                       "title"=>$name.": ".$ListItem->{"summary"},
+                       "title"=>$ListItem->{"name"}.": ".$ListItem->{"summary"},
                        %args,
                        "head_css"=>($args{"head_css"} || "")."
 table.print_project td { vertical-align: top; }