if($self->SUPER::type() eq 'page')
{
my $page = $self->SUPER::page();
+ my $suff = '';
- if($page =~ /^SDL::/)
+ if($page =~ /^SDL\b/)
{
- $page =~ s/::/-/;
- return "/$page.html";
+ $page =~ s/::([A-Z]+)/-$1/g;
+ $page =~ s/(.*)::(.*)/\/$1.html#$2/;
+ $page .= '.html' unless $page =~ /\.html/;
+
+ return $page;
}
else
{