Permalink
Browse files

Fixed internal links to =head3 sections

  • Loading branch information...
1 parent 9e1085c commit 455268b50967f95ced81073c84b1d2513b404226 @jonallen committed Aug 14, 2009
Showing with 661 additions and 1 deletion.
  1. +14 −0 lib/Perldoc/Convert/html.pm
  2. +645 −0 static/css-20090810.css
  3. +1 −0 std.err
  4. BIN syntax.cache
  5. +1 −1 templates/default.tt
@@ -137,6 +137,17 @@ sub view_head2 {
#--------------------------------------------------------------------------
+sub view_head3 {
+ my ($self,$head3) = @_;
+ my $title = $head3->title->present($self);
+ my $anchor = escape($head3->title->present('Pod::POM::View::Text'));
+ return qq{<a name="$anchor"></a><h3>$title</h3>\n}.
+ $head3->content->present($self);
+}
+
+
+#--------------------------------------------------------------------------
+
sub view_over {
my ($self, $over) = @_;
my ($start, $end, $strip);
@@ -231,6 +242,9 @@ sub view_seq_link {
# say "Link: $link, Text: $text, Inferred: $inferred, Page: $page, Section: $section, Type: $type\n";
#}
if ($type eq 'pod') {
+ $section && $section =~ s/^&quot;(.*?)&quot;$/$1/;
+ $inferred && $inferred =~ s/&quot;(.*?)&quot;/$1/;
+
my $href;
if ($page && $section && $page eq 'perlfunc') {
(my $function = $section) =~ s/(-?[a-z]+).*/$1/i;
Oops, something went wrong. Retry.

0 comments on commit 455268b

Please sign in to comment.