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 ($)
{
my($class,$ListItem)=@_;
- print "<h1>".$ListItem->{"name"}."</h1>\n";
+ print "<h1>".$W->{"title"}."</h1>\n";
print $ListItem->{"description"};
print "<hr />\n";
my @table=(
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,
+ "title"=>$ListItem->{"name"}.": ".$ListItem->{"summary"},
%args,
"head_css"=>($args{"head_css"} || "")."
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>) {