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

Diff of /test/html-webhacc/WebHACC/Language/CSS.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 08:39:12 2008 UTC
# Line 10  sub new ($) { Line 10  sub new ($) {
10    
11  sub generate_syntax_error_section ($) {  sub generate_syntax_error_section ($) {
12    my $self = shift;    my $self = shift;
13      
14    my $out = $self->output;    my $out = $self->output;
15    $out->start_section (id => 'parse-errors', title => 'Parse Errors');    
16    $out->start_tag ('dl', id => 'parse-errors-list');    $out->start_section (role => 'parse-errors');
17      $out->start_error_list (role => 'parse-errors');
18    
19    my $input = $self->input;    my $input = $self->input;
20    my $result = $self->result;    my $result = $self->result;
# Line 53  sub generate_syntax_error_section ($) { Line 54  sub generate_syntax_error_section ($) {
54    $self->{structure} = $p->parse_char_string ($$s);    $self->{structure} = $p->parse_char_string ($$s);
55    $self->{structure}->manakai_input_encoding ($charset) if defined $charset;    $self->{structure}->manakai_input_encoding ($charset) if defined $charset;
56    
57    $out->end_tag ('dl');    $out->end_error_list (role => 'parse-errors');
58    $out->end_section;    $out->end_section;
59  } # generate_syntax_error_section  } # generate_syntax_error_section
60    
# Line 65  sub generate_structure_dump_section ($) Line 66  sub generate_structure_dump_section ($)
66    my $self = shift;    my $self = shift;
67    
68    my $out = $self->output;    my $out = $self->output;
69    $out->start_section (id => 'document-tree', title => 'Document Tree',  
70                         short_title => 'Tree');    $out->start_section (role => 'reserialized');
71    
72    $out->start_code_block;    $out->start_code_block;
73    $out->text ($self->{structure}->css_text);    $out->text ($self->{structure}->css_text);
# Line 80  sub generate_structure_error_section ($) Line 81  sub generate_structure_error_section ($)
81    
82    my $out = $self->output;    my $out = $self->output;
83    
84    $out->start_section (id => 'document-errors', title => 'Document Errors');    $out->start_section (role => 'structure-errors');
85    $out->start_tag ('dl', class => 'document-errors-list');    $out->start_error_list (role => 'structure-errors');
86    
87    $self->result->add_error (level => 'u',    $self->result->add_error (level => 'u',
88                              layer => 'structure',                              layer => 'structure',
89                              input => $self->input,                              input => $self->input,
90                              type => 'CSSOM validation not supported');                              type => 'CSSOM validation not supported');
91    
92    $out->end_tag ('dl');    $out->end_error_list (role => 'structure-errors');
93    $out->end_section;    $out->end_section;
94  } # generate_structure_error_section  } # generate_structure_error_section
95    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24