git://git.jankratochvil.net
/
MyWeb.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
+middleman
[MyWeb.git]
/
Project.pm
diff --git
a/Project.pm
b/Project.pm
index
85a1fa8
..
6fed111
100644
(file)
--- a/
Project.pm
+++ b/
Project.pm
@@
-30,8
+30,8
@@
our @EXPORT=qw();
our @ISA=qw(My::Web Exporter);
our @ISA=qw(My::Web Exporter);
-use constant ENTRIES =>top_dir()."/project/CVS/Entries";
-use constant ENTRIES_LOG=>top_dir()."/project/CVS/Entries.Log";
+sub ENTRIES { return top_dir()."/project/CVS/Entries"; }
+sub ENTRIES_LOG { return top_dir()."/project/CVS/Entries.Log"; }
sub print_project ($)
sub print_project ($)
@@
-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; }
@@
-198,7
+196,7
@@
table.print_project td { vertical-align: top; }
sub item_hash_read ()
{
my %dirs;
sub item_hash_read ()
{
my %dirs;
- for my $ENTRIES (ENTRIES
,ENTRIES_LOG
) {
+ for my $ENTRIES (ENTRIES
(),ENTRIES_LOG()
) {
local *E;
next if !open E,$ENTRIES;
while (<E>) {
local *E;
next if !open E,$ENTRIES;
while (<E>) {