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

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

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

revision 1.3 by wakaba, Mon Jul 21 08:39:12 2008 UTC revision 1.5 by wakaba, Thu Aug 14 15:50:42 2008 UTC
# Line 13  sub generate_syntax_error_section ($) { Line 13  sub generate_syntax_error_section ($) {
13    
14    my $out = $self->output;    my $out = $self->output;
15    
16    $out->start_section (id => 'parse-errors', title => 'Errors');    $out->start_section (role => 'parse-errors');
17    $out->start_tag ('dl');    $out->start_error_list (role => 'parse-errors');
18      $self->result->layer_applicable ('syntax');
19    
20    $self->result->add_error (input => $self->input,    $self->result->add_error (input => $self->input,
21                              level => 'u',                              level => 'u',
22                              layer => 'syntax',                              layer => 'syntax',
23                              type => 'media type not supported',                              type => 'media type not supported:syntax',
24                              text => $self->input->{media_type});                              text => $self->input->{media_type});
25    
26    $out->end_tag ('dl');    $out->end_error_list (role => 'parse-errors');
27    $out->end_section;    $out->end_section;
28    
29      $self->result->layer_uncertain ('structure');
30      $self->result->layer_uncertain ('semantics');
31  } # generate_syntax_error_section  } # generate_syntax_error_section
32    
33  sub generate_source_string_section ($) { }  sub generate_source_string_section ($) { }
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24