/[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.3 by wakaba, Mon Jul 21 05:24:32 2008 UTC revision 1.5 by wakaba, Mon Jul 21 13:09:19 2008 UTC
# Line 72  sub generate_structure_error_section ($) Line 72  sub generate_structure_error_section ($)
72    
73    my $out = $self->output;    my $out = $self->output;
74        
75    $out->start_section (id => 'document-errors', title => 'Document Errors');    $out->start_section (role => 'structure-errors');
76    $out->html ('<p>Not supported for this kind of contents.');    $out->start_error_list (role => 'structure-errors');
77    ## TODO: class="???"  
78      $self->result->add_error (input => $self->input,
79                                level => 'u',
80                                layer => 'structure',
81                                type => 'media type not supported:structure',
82                                text => $self->input->{media_type});
83    
84      $out->end_error_list (role => 'structure-errors');
85    $out->end_section;    $out->end_section;
86  } # generate_structure_error_section  } # generate_structure_error_section
87    
# Line 135  sub generate_source_string_section ($) { Line 142  sub generate_source_string_section ($) {
142      $out->start_tag ('li', id => 'line-1');      $out->start_tag ('li', id => 'line-1');
143    }    }
144    $out->end_tag ('ol');    $out->end_tag ('ol');
145    $out->html (qq[<script>    $out->add_source_to_parse_error_list ('parse-errors-list');
   addSourceToParseErrorList ('@{[$input->id_prefix]}', 'parse-errors-list');  
 </script>]);  
146    $out->end_section    $out->end_section
147  } # generate_source_string_section  } # generate_source_string_section
148    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24