From: short <>
Date: Fri, 10 Oct 2003 06:53:34 +0000 (+0000)
Subject: +middleman
X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=55557c1dfc60f6f77c1ace1d0dce5d5009800fc3;ds=sidebyside

+middleman
---

diff --git a/Project.pm b/Project.pm
index 7628b91..6fed111 100644
--- 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 ($)
@@ -196,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>) {
diff --git a/Web.pm b/Web.pm
index 845e96c..4436247 100644
--- a/Web.pm
+++ b/Web.pm
@@ -276,7 +276,7 @@ sub footer (;$)
 		my $cvs_id=(eval('$'.$package."::CVS_ID")
 #				|| $package	# debug
 				);
-		print '<!-- $'.$cvs_id.'$ -->'."\n" if $cvs_id;
+		print '<!-- '.$package.' - $'.$cvs_id.'$ -->'."\n" if $cvs_id;
 		}
 
 	if ($W->{"heading"}) {