X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=project%2FLib.pm;h=604170444e55edc96ceb2b3f5dc6f57b93417f14;hp=6ccc6e3b3e4885856d48821490ddaee5d1bcbc6d;hb=5164bff415005d8ca2c11816abcf5b29be21640f;hpb=678dde71232fbad0b45a902bfac847d502f8555d

diff --git a/project/Lib.pm b/project/Lib.pm
index 6ccc6e3..6041704 100644
--- a/project/Lib.pm
+++ b/project/Lib.pm
@@ -108,10 +108,11 @@ my($class,$ListItem)=@_;
 						my $branch="";
 						$branch=$1 if $val=~s/:(.*)//;
 						return join("<br />\n\t\t",
-								escapeHTML("cvs -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." -z3"
-										." checkout".(!$branch ? "" : " -r $branch -kk")
-										.($val!~m#/# ? "" : " -d ".File::Basename::basename($val))
-										." $val"),
+#pserver:
+#								escapeHTML("cvs -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." -z3"
+#										." checkout".(!$branch ? "" : " -r $branch -kk")
+#										.($val!~m#/# ? "" : " -d ".File::Basename::basename($val))
+#										." $val"),
 								join(" | \n\t\t",
 										map({ a_href($_->[1],$_->[0]); }
 												["ViewCVS CVS repository",$W->{"project_viewcvs"}.$val."/".(!$branch ? "" : '?only_with_tag='.$branch)],
@@ -196,6 +197,7 @@ my($class,%args)=@_;
 			%args,
 			"heading_novskip"=>1,
 			);
+	do { &{$_}() if $_; } for $W->{__PACKAGE__."-init-hook"};
 	$class->heading();
 	print $class->platforms($ListItem->{"platform"});
 	$class->print_project($ListItem,%args);