From: short <>
Date: Sun, 30 Jan 2005 11:57:16 +0000 (+0000)
Subject: Fixed MyWeb directory reference to strip the leading 'My/'.
X-Git-Tag: bp_apache20~1
X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=623f80a16fb1d68e2ec1d8e7033c194a3a5b2543

Fixed MyWeb directory reference to strip the leading 'My/'.
---

diff --git a/Web.pm b/Web.pm
index b5ac856..524cf14 100644
--- 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"};
-					$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]);