/[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.1 by wakaba, Sun Jul 20 14:58:24 2008 UTC revision 1.2 by wakaba, Sun Jul 20 16:53:10 2008 UTC
# Line 8  sub new ($) { Line 8  sub new ($) {
8    return $self;    return $self;
9  } # new  } # new
10    
11  sub generate_parse_error_section ($) {  sub generate_syntax_error_section ($) {
12    my $self = shift;    my $self = shift;
13    
14    my $out = shift;    my $out = $self->output;
15    
16    $out->start_section (id => 'parse-errors', title => 'Errors');    $out->start_section (id => 'parse-errors', title => 'Errors');
17    $out->start_tag ('dl');    $out->start_tag ('dl');
18    
19    ## TODO:    $self->result->add_error (url => $self->input->{uri},
20    $out->start_tag ('dt', class => 'unsupported');                              level => 'u',
21    $out->url ($input->{uri});                              layer => 'syntax',
22    $out->html (q[<dd class=unsupported><strong><a href="../error-description#level-u">Not                              type => 'media type not supported',
23          supported</a></strong>:                              text => $self->input->{media_type});
24      Media type  
     <code class="MIME" lang="en">]);  
   $out->text ($input->{media_type});  
   $out->html (q[</code> is not supported.]);  
25    $out->end_tag ('dl');    $out->end_tag ('dl');
26    $out->end_section;    $out->end_section;
27    } # generate_syntax_error_section
28    
29    my $result = $self->result;  sub generate_source_string_section ($) { }
   
   add_error (char => {level => 'u'} => $result);  
   add_error (syntax => {level => 'u'} => $result);  
   add_error (structure => {level => 'u'} => $result);  
 } # generate_parse_error_section  
30    
31  sub generate_structure_error_section ($) { }  sub generate_structure_error_section ($) { }
32    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24