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.
