/[suikacvs]/test/html-webhacc/WebHACC/Output.pm
Suika

Diff of /test/html-webhacc/WebHACC/Output.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by wakaba, Thu Dec 11 03:22:57 2008 UTC revision 1.28 by wakaba, Thu Dec 11 05:11:11 2008 UTC
# Line 182  sub start_section ($%) { Line 182  sub start_section ($%) {
182        my $st = $opt{short_title} || $opt{title};        my $st = $opt{short_title} || $opt{title};
183        push @{$self->{nav}},        push @{$self->{nav}},
184            [$id => $st => $opt{text}] if $self->{section_rank} == 2;            [$id => $st => $opt{text}] if $self->{section_rank} == 2;
185          
186        $self->start_tag ('script');        unless ($opt{notab}) {
187        $self->html (qq[ addSectionLink ('$id', ']);          $self->start_tag ('script');
188        $self->nl_text ($st, text => $opt{text});          $self->html (qq[ addSectionLink ('$id', ']);
189        if (defined $opt{parent_id}) {          $self->nl_text ($st, text => $opt{text});
190          $self->html (q[', '] . $opt{parent_id});          if (defined $opt{parent_id}) {
191              $self->html (q[', '] . $opt{parent_id});
192            }
193            $self->html (q[') ]);
194            $self->end_tag ('script');
195        }        }
       $self->html (q[') ]);  
       $self->end_tag ('script');  
196      }      }
197    } else {    } else {
198      $self->html ('>');      $self->html ('>');
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24