From: short <>
Date: Sun, 30 Jan 2005 11:52:20 +0000 (+0000)
Subject: Workaround MyWeb CVS path for all /^My::/ packages.
X-Git-Tag: bp_apache20~2
X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=d7cd3fabd8ed412336acddfa795c9d7a2e334fc6;ds=sidebyside

Workaround MyWeb CVS path for all /^My::/ packages.
---

diff --git a/Web.pm b/Web.pm
index ea6f32f..b5ac856 100644
--- a/Web.pm
+++ b/Web.pm
@@ -313,7 +313,10 @@ sub footer (;$)
 					$cvs_id_split[2]=""
 							.a_href((map({ my $s=$_; $s=~s#/viewcvs/#$&~checkout~/#; $s; } $W->{"viewcvs"}))[0]."$file?rev=".$cvs_id_split[2],
 									$cvs_id_split[2]);
-					$cvs_id_split[1]=a_href($W->{"viewcvs"}.$file,
+					# FIXME: Use 'CVS/Repository' here.
+					my $viewcvs=$W->{"viewcvs"};
+					$viewcvs=~s#(/viewcvs)/.*$#$1/MyWeb/# if $package=~/^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]);
 					}