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

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

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

revision 1.6 by wakaba, Sat Jul 26 11:27:25 2008 UTC revision 1.7 by wakaba, Thu Aug 14 09:16:52 2008 UTC
# Line 349  sub new ($$) { Line 349  sub new ($$) {
349  } # new  } # new
350    
351  sub id_prefix ($) {  sub id_prefix ($) {
352    return 'subdoc-' . shift->full_subdocument_index . '-';    my $self = shift;
353      return $self->{parent_input}->id_prefix .
354          'subdoc-' . $self->{subdocument_index} . '-';
355  } # id_prefix  } # id_prefix
356    
357  sub nested ($) { 1 }  sub nested ($) { 1 }
# Line 374  sub start_section ($$) { Line 376  sub start_section ($$) {
376    my $result = shift;    my $result = shift;
377    my $out = $result->output;    my $out = $result->output;
378    
379    my $index = $self->full_subdocument_index;    my $index = $self->subdocument_index;
380    $out->start_section (id => $self->id_prefix,    $out->start_section (id => my $id = 'subdoc-' . $index . '-',
381                         title => qq[Subdocument #],                         title => qq[Subdocument #],
382                         short_title => 'Sub #',                         short_title => 'Sub #',
383                         text => $index);                         role => 'subdoc',
384                           text => $self->full_subdocument_index);
385      $out->script (q[ insertNavSections ('] . $out->input->id_prefix . $id . q[') ]);
386  } # start_section  } # start_section
387    
388  sub end_section ($$) {  sub end_section ($$) {
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24