--- test/html-webhacc/WebHACC/Output.pm 2008/08/02 06:07:11 1.10
+++ test/html-webhacc/WebHACC/Output.pm 2008/08/10 11:49:43 1.11
@@ -137,14 +137,25 @@
$self->html ('input->id_prefix . $opt{id};
- $self->html (' id="' . $htescape->($id) . '"');
- push @{$self->{nav}},
- [$id => $opt{short_title} || $opt{title} => $opt{text}]
- if $self->{section_rank} == 2;
+ $self->html (' id="' . $htescape->($id) . '">');
+ if ($self->{section_rank} == 2) {
+ my $st = $opt{short_title} || $opt{title};
+ push @{$self->{nav}},
+ [$id => $st => $opt{text}];
+
+ $self->start_tag ('script');
+ $self->html (qq[ addSectionLink ('] . $self->input->id_prefix .
+ qq[$id', ']);
+ $self->nl_text ($st, text => $opt{text});
+ $self->html (q[') ]);
+ $self->end_tag ('script');
+ }
+ } else {
+ $self->html ('>');
}
my $section_rank = $self->{section_rank};
$section_rank = 6 if $section_rank > 6;
- $self->html ('>');
+ $self->html ('');
$self->nl_text ($opt{title}, text => $opt{text});
$self->html ('');
} # start_section
@@ -431,10 +442,10 @@
-
+
]);
$self->nl_text (q[WebHACC:Heading]);
- $self->html ('
');
+ $self->html (q[]);
} # html_header
sub generate_input_section ($$) {