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

Diff of /test/html-webhacc/WebHACC/Language/Base.pm

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

revision 1.5 by wakaba, Mon Jul 21 13:09:19 2008 UTC revision 1.7 by wakaba, Thu Aug 14 15:50:42 2008 UTC
# Line 74  sub generate_structure_error_section ($) Line 74  sub generate_structure_error_section ($)
74        
75    $out->start_section (role => 'structure-errors');    $out->start_section (role => 'structure-errors');
76    $out->start_error_list (role => 'structure-errors');    $out->start_error_list (role => 'structure-errors');
77      $self->result->layer_applicable ('structure');
78    
79    $self->result->add_error (input => $self->input,    $self->result->add_error (input => $self->input,
80                              level => 'u',                              level => 'u',
# Line 83  sub generate_structure_error_section ($) Line 84  sub generate_structure_error_section ($)
84    
85    $out->end_error_list (role => 'structure-errors');    $out->end_error_list (role => 'structure-errors');
86    $out->end_section;    $out->end_section;
87    
88      $self->result->layer_uncertain ('semantics');
89  } # generate_structure_error_section  } # generate_structure_error_section
90    
91  sub source_charset ($) {  sub source_charset ($) {
# Line 124  sub generate_source_string_section ($) { Line 127  sub generate_source_string_section ($) {
127    
128    my $out = $self->output;    my $out = $self->output;
129    my $i = 1;    my $i = 1;
130    $out->start_section (id => 'source-string', title => 'Document Source',    $out->start_section (role => 'source');
                        short_title => 'Source');  
131    $out->start_tag ('ol', lang => '');    $out->start_tag ('ol', lang => '');
132    
133    if (length $$s) {    if (length $$s) {
# Line 143  sub generate_source_string_section ($) { Line 145  sub generate_source_string_section ($) {
145    }    }
146    $out->end_tag ('ol');    $out->end_tag ('ol');
147    $out->add_source_to_parse_error_list ('parse-errors-list');    $out->add_source_to_parse_error_list ('parse-errors-list');
148    $out->end_section    $out->end_section;
149  } # generate_source_string_section  } # generate_source_string_section
150    
151  sub generate_additional_sections ($) {  sub generate_additional_sections ($) {
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24