/[pub]/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.3 by wakaba, Mon Jul 21 05:24:32 2008 UTC revision 1.4 by wakaba, Mon Jul 21 09:40:59 2008 UTC
# Line 11  sub nested ($) { 0 } Line 11  sub nested ($) { 0 }
11    
12  sub subdocument_index ($) { 0 }  sub subdocument_index ($) { 0 }
13    
14    sub full_subdocument_index ($) { 0 }
15    
16  sub generate_info_section ($$) {  sub generate_info_section ($$) {
17    my $self = shift;    my $self = shift;
18        
# Line 143  sub subdocument_index ($) { Line 145  sub subdocument_index ($) {
145    return shift->{subdocument_index};    return shift->{subdocument_index};
146  } # subdocument_index  } # subdocument_index
147    
148    sub full_subdocument_index ($) {
149      my $self = shift;
150      my $parent = $self->{parent_input}->full_subdocument_index;
151      if ($parent) {
152        return $parent . '.' . $self->{subdocument_index};
153      } else {
154        return $self->{subdocument_index};
155      }
156    } # full_subdocument_index
157    
158  sub start_section ($$) {  sub start_section ($$) {
159    my $self = shift;    my $self = shift;
160    
161    my $result = shift;    my $result = shift;
162    my $out = $result->output;    my $out = $result->output;
163    
164      my $index = $self->full_subdocument_index;
165    $out->start_section (id => $self->id_prefix,    $out->start_section (id => $self->id_prefix,
166                         title => qq[Subdocument #] . $self->subdocument_index,                         title => qq[Subdocument #] . $index,
167                         short_title => 'Sub #' . $self->subdocument_index);                         short_title => 'Sub #' . $index);
168  } # start_section  } # start_section
169    
170  sub end_section ($$) {  sub end_section ($$) {
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24