From: short <> Date: Wed, 8 Oct 2003 17:31:31 +0000 (+0000) Subject: +postget X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=f24844a7820f9f1a625fe7aac3fd1eddaf4b9572 +postget --- diff --git a/Project.pm b/Project.pm index 85a1fa8..7628b91 100644 --- 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#]*>([^<]*)#$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; } diff --git a/Web.pm b/Web.pm index 6ec9d59..845e96c 100644 --- a/Web.pm +++ b/Web.pm @@ -488,9 +488,10 @@ my($class)=@_; } print ''."\n"; print ''."\n"; - print ''.CGI::escapeHTML($W->{"title_prefix"}) - .join("",map({ ': '.CGI::escapeHTML($_); } ($W->{"title"} || ()))) - .''."\n"; + my $title=$W->{"title_prefix"}.join("",map({ ': '.$_; } ($W->{"title"} || ()))); + $title=~s#<[^>]*>##g; + print ""; + print "$title\n"; if ($W->{"have_css"}) { print <<'HERE';