';
if ($ClusterMapTOC) {
my $TOCCount = 0;
print '
Categories
';
foreach my $cluster ( sort keys %ClusterMap) {
$cluster =~ s/_/ /g;
print "- $cluster
";
$TOCCount++;
}
print '
';
$PrintTOCAnchor = 1;
}
PrintClusterMap();
print '
';
PrintFooter();
} else {
OldBrowseResolvedPage($id);
}
}
*OldPrintWikiToHTML = *PrintWikiToHTML;
*PrintWikiToHTML = *ClusterMapPrintWikiToHTML;
sub ClusterMapPrintWikiToHTML {
my ($pageText, $savecache, $revision, $islocked) = @_;
# Cause an empty page with the name $ClusterMapPage to
# display a map.
if (($ClusterMapPage eq $OpenPageName)
&& ($pageText =~ /^\s*$/s)){
SetParam('rcclusteronly',0);
CreateClusterMap();
print '';
if ($ClusterMapTOC) {
my $TOCCount = 0;
print '
Contents
';
foreach my $cluster ( sort keys %ClusterMap) {
print "- $cluster
";
$TOCCount++;
}
print '
';
$PrintTOCAnchor = 1;
}
PrintClusterMap();
print '
';
}
OldPrintWikiToHTML(@_);
}