develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35981 - trunk/lib/Parrot/Docs

From:
allison
Date:
January 24, 2009 19:40
Subject:
[svn:parrot] r35981 - trunk/lib/Parrot/Docs
Message ID:
20090125034027.E7E40CB9AE@x12.develooper.com
Author: allison
Date: Sat Jan 24 19:40:26 2009
New Revision: 35981

Modified:
   trunk/lib/Parrot/Docs/Group.pm
   trunk/lib/Parrot/Docs/POD2HTML.pm

Log:
[doc] Remove links to page top from generated HTML docs.


Modified: trunk/lib/Parrot/Docs/Group.pm
==============================================================================
--- trunk/lib/Parrot/Docs/Group.pm	(original)
+++ trunk/lib/Parrot/Docs/Group.pm	Sat Jan 24 19:40:26 2009
@@ -119,7 +119,7 @@
 
         $index_html = "<p>$self->{TEXT}</p>\n\n" . $index_html if $self->{TEXT};
         $index_html =
-qq(<h2>$self->{NAME}  <a href="#_top"><img alt="^" border=0 src="../resources/up.gif"></a></h2>\n\n)
+qq(<h2>$self->{NAME}</h2>\n\n)
             . $index_html;
     }
 

Modified: trunk/lib/Parrot/Docs/POD2HTML.pm
==============================================================================
--- trunk/lib/Parrot/Docs/POD2HTML.pm	(original)
+++ trunk/lib/Parrot/Docs/POD2HTML.pm	Sat Jan 24 19:40:26 2009
@@ -360,13 +360,6 @@
         $tagname = 'Para_item'
             if @{ $self->{STACK} } and $self->{STACK}->[-1] eq 'text';
     }
-    elsif ( $tagname =~ /head[12]/o ) {
-
-        # Put the up arrow on the end of a heading.
-        # The space is needed on the front.
-        print { $self->{'output_fh'} }
-            " <a href='#_top'><img alt='^' border=0 src='$self->{RESOURCES_URL}/up.gif'></a>";
-    }
     elsif ( $tagname eq 'C' ) {
 
         # See the note in process_code_start_token() above.



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About