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)],
%args,
"heading_novskip"=>1,
);
+ do { &{$_}() if $_; } for $W->{__PACKAGE__."-init-hook"};
$class->heading();
print $class->platforms($ListItem->{"platform"});
$class->print_project($ListItem,%args);