fixed url-generator

[sdlgit/SDL-Site.git] / tools / PM-Pod2html-snippet.pl

diff --git a/tools/PM-Pod2html-snippet.pl b/tools/PM-Pod2html-snippet.pl
index 52187f8..d45d28d 100644 (file)
--- a/tools/PM-Pod2html-snippet.pl
+++ b/tools/PM-Pod2html-snippet.pl
@@ -180,11 +180,15 @@ sub node
        if($self->SUPER::type() eq 'page')
        {
                my $page = $self->SUPER::page();
+               my $suff = '';
                
                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
                {