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:
d7cd3fa
)
Fixed MyWeb directory reference to strip the leading 'My/'.
author
short
<>
Sun, 30 Jan 2005 11:57:16 +0000
(11:57 +0000)
committer
short
<>
Sun, 30 Jan 2005 11:57:16 +0000
(11:57 +0000)
Web.pm
patch
|
blob
|
history
diff --git
a/Web.pm
b/Web.pm
index
b5ac856
..
524cf14
100644
(file)
--- a/
Web.pm
+++ b/
Web.pm
@@
-315,7
+315,7
@@
sub footer (;$)
$cvs_id_split[2]);
# FIXME: Use 'CVS/Repository' here.
my $viewcvs=$W->{"viewcvs"};
$cvs_id_split[2]);
# FIXME: Use 'CVS/Repository' here.
my $viewcvs=$W->{"viewcvs"};
- $viewcvs=~s#(/viewcvs)/.*$#$1/MyWeb/# if $
package=~/^My::/
;
+ $viewcvs=~s#(/viewcvs)/.*$#$1/MyWeb/# if $
file=~s#^My/##
;
$cvs_id_split[1]=a_href($viewcvs.$file,
($package!~/^Apache::/ ? $package : $cvs_id_split[1]));
$cvs_id_split[5]=&{$W->{"cvs_id_author"}}($cvs_id_split[5]);
$cvs_id_split[1]=a_href($viewcvs.$file,
($package!~/^Apache::/ ? $package : $cvs_id_split[1]));
$cvs_id_split[5]=&{$W->{"cvs_id_author"}}($cvs_id_split[5]);