+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);
 
 
-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 ($)
@@ -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; }
@@ -198,7 +196,7 @@ table.print_project td { vertical-align: top; }
 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>) {