[svn:parrot] r48103 - branches/html_cleanup/lib/Parrot/Docs

[coke at svn.parrot.org]

Author: coke
Date: Sun Jul 18 20:25:33 2010
New Revision: 48103
URL: https://trac.parrot.org/parrot/changeset/48103

Log:
Track resource URL...

Modified:
   branches/html_cleanup/lib/Parrot/Docs/PodToHtml.pm

Modified: branches/html_cleanup/lib/Parrot/Docs/PodToHtml.pm
==============================================================================
--- branches/html_cleanup/lib/Parrot/Docs/PodToHtml.pm	Sun Jul 18 19:46:04 2010	(r48102)
+++ branches/html_cleanup/lib/Parrot/Docs/PodToHtml.pm	Sun Jul 18 20:25:33 2010	(r48103)
@@ -77,8 +77,11 @@
     my $title = $self->{'Title'};
     esc($title);
 
+    my $dirCount = ( $self->{source_filename} =~ tr{/}{/} );
+    my $resources_URL = join('/', (('..') x ++$dirCount)) . '/resources';
+
     print { $self->{'output_fh'} }
-        Parrot::Docs::HTMLPage->header( $title, $self->{NAV_BAR}, $self->{RESOURCES_URL} );
+        Parrot::Docs::HTMLPage->header( $title, $self->{NAV_BAR}, $resources_URL );
 
     $self->version_tag_comment;