git://git.jankratochvil.net
/
MyWeb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
afc4e43
)
+postget
author
short
<>
Wed, 8 Oct 2003 17:31:31 +0000
(17:31 +0000)
committer
short
<>
Wed, 8 Oct 2003 17:31:31 +0000
(17:31 +0000)
Project.pm
patch
|
blob
|
history
Web.pm
patch
|
blob
|
history
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($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(
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; }
%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
(file)
--- a/
Web.pm
+++ b/
Web.pm
@@
-488,9
+488,10
@@
my($class)=@_;
}
print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">'."\n";
print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US">'."\n";
}
print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">'."\n";
print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US">'."\n";
- print '<head><title>'.CGI::escapeHTML($W->{"title_prefix"})
- .join("",map({ ': '.CGI::escapeHTML($_); } ($W->{"title"} || ())))
- .'</title>'."\n";
+ my $title=$W->{"title_prefix"}.join("",map({ ': '.$_; } ($W->{"title"} || ())));
+ $title=~s#<[^>]*>##g;
+ print "<head>";
+ print "<title>$title</title>\n";
if ($W->{"have_css"}) {
print <<'HERE';
if ($W->{"have_css"}) {
print <<'HERE';