/[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.10 by wakaba, Sat Aug 2 06:07:11 2008 UTC revision 1.11 by wakaba, Sun Aug 10 11:49:43 2008 UTC
# Line 137  sub start_section ($%) { Line 137  sub start_section ($%) {
137    $self->html ('<div class=section');    $self->html ('<div class=section');
138    if (defined $opt{id}) {    if (defined $opt{id}) {
139      my $id = $self->input->id_prefix . $opt{id};      my $id = $self->input->id_prefix . $opt{id};
140      $self->html (' id="' . $htescape->($id) . '"');      $self->html (' id="' . $htescape->($id) . '">');
141      push @{$self->{nav}},      if ($self->{section_rank} == 2) {
142          [$id => $opt{short_title} || $opt{title} => $opt{text}]        my $st = $opt{short_title} || $opt{title};
143          if $self->{section_rank} == 2;        push @{$self->{nav}},
144              [$id => $st => $opt{text}];
145          
146          $self->start_tag ('script');
147          $self->html (qq[ addSectionLink ('] . $self->input->id_prefix .
148                         qq[$id', ']);
149          $self->nl_text ($st, text => $opt{text});
150          $self->html (q[') ]);
151          $self->end_tag ('script');
152        }
153      } else {
154        $self->html ('>');
155    }    }
156    my $section_rank = $self->{section_rank};    my $section_rank = $self->{section_rank};
157    $section_rank = 6 if $section_rank > 6;    $section_rank = 6 if $section_rank > 6;
158    $self->html ('><h' . $section_rank . '>');    $self->html ('<h' . $section_rank . '>');
159    $self->nl_text ($opt{title}, text => $opt{text});    $self->nl_text ($opt{title}, text => $opt{text});
160    $self->html ('</h' . $section_rank . '>');    $self->html ('</h' . $section_rank . '>');
161  } # start_section  } # start_section
# Line 431  sub html_header ($) { Line 442  sub html_header ($) {
442  <link rel="stylesheet" href="../cc-style.css" type="text/css">  <link rel="stylesheet" href="../cc-style.css" type="text/css">
443  <script src="../cc-script.js"></script>  <script src="../cc-script.js"></script>
444  </head>  </head>
445  <body>  <body onclick=" return onbodyclick (event) " onload=" onbodyload () ">
446  <h1>]);  <h1>]);
447    $self->nl_text (q[WebHACC:Heading]);    $self->nl_text (q[WebHACC:Heading]);
448    $self->html ('</h1>');    $self->html (q[</h1><script> insertNavSections () </script>]);
449  } # html_header  } # html_header
450    
451  sub generate_input_section ($$) {  sub generate_input_section ($$) {
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24