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:
f24844a
)
+middleman
author
short
<>
Fri, 10 Oct 2003 06:53:34 +0000
(06:53 +0000)
committer
short
<>
Fri, 10 Oct 2003 06:53:34 +0000
(06:53 +0000)
Project.pm
patch
|
blob
|
history
Web.pm
patch
|
blob
|
history
diff --git
a/Project.pm
b/Project.pm
index
7628b91
..
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 ($)
@@
-196,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>) {
diff --git
a/Web.pm
b/Web.pm
index
845e96c
..
4436247
100644
(file)
--- a/
Web.pm
+++ b/
Web.pm
@@
-276,7
+276,7
@@
sub footer (;$)
my $cvs_id=(eval('$'.$package."::CVS_ID")
# || $package # debug
);
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"}) {
}
if ($W->{"heading"}) {