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

[coke at svn.parrot.org]

Author: coke
Date: Tue Jul 20 16:34:12 2010
New Revision: 48127
URL: https://trac.parrot.org/parrot/changeset/48127

Log:
Get basic breadcrumb working again. (only has "Home", nothing else)

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	Tue Jul 20 16:31:03 2010	(r48126)
+++ branches/html_cleanup/lib/Parrot/Docs/PodToHtml.pm	Tue Jul 20 16:34:12 2010	(r48127)
@@ -70,10 +70,6 @@
 
     return unless $self->content_seen;
 
-    # Suppress the warning in the tests.
-    $self->{RESOURCES_URL} = '' unless $self->{RESOURCES_URL};
-    $self->{NAV_BAR}       = '' unless $self->{NAV_BAR};
-
     my $title = esc($self->get_title());
     # If the name of the document is IN the document title (a common pod
     # idiom), strip it out.
@@ -86,10 +82,16 @@
     }
 
     my $dirCount = ( $self->{source_filename} =~ tr{/}{/} );
-    my $resources_URL = join('/', (('..') x ++$dirCount)) . '/resources';
+    my $docroot = join('/', (('..') x ++$dirCount)) ;
+    my $resources_URL = $docroot . '/resources';
+    my $nav_HTML = qq{<a href="$docroot/html/index.html">Home</a>};
 
     print { $self->{'output_fh'} }
-        Parrot::Docs::HTMLPage->header( $title, $self->{NAV_BAR}, $resources_URL );
+        Parrot::Docs::HTMLPage->header(
+            $title,
+            $nav_HTML,
+            $resources_URL
+        );
 
     $self->version_tag_comment;