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

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

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

revision 1.4 by wakaba, Mon Jul 21 09:15:55 2008 UTC revision 1.6 by wakaba, Fri Aug 15 05:53:23 2008 UTC
# Line 14  sub generate_syntax_error_section ($) { Line 14  sub generate_syntax_error_section ($) {
14    require Encode;    require Encode;
15    require Whatpm::HTML;    require Whatpm::HTML;
16        
17      $self->result->layer_uncertain ('charset');
18    
19    my $out = $self->output;    my $out = $self->output;
20    $out->start_section (role => 'parse-errors');    $out->start_section (role => 'parse-errors');
21    $out->start_error_list (role => 'parse-errors');    $out->start_error_list (role => 'parse-errors');
22      $self->result->layer_applicable ('syntax');
23    
24    my $input = $self->input;    my $input = $self->input;
25    my $result = $self->result;    my $result = $self->result;
# Line 34  sub generate_syntax_error_section ($) { Line 37  sub generate_syntax_error_section ($) {
37      my $t = \($input->{s});      my $t = \($input->{s});
38      unless ($input->{is_char_string}) {      unless ($input->{is_char_string}) {
39        $t = \(Encode::decode ($input->{charset}, $$t));        $t = \(Encode::decode ($input->{charset}, $$t));
40          $self->result->layer_uncertain ('encode');
41      }      }
42            
43      $el = $doc->create_element_ns      $el = $doc->create_element_ns
# Line 47  sub generate_syntax_error_section ($) { Line 51  sub generate_syntax_error_section ($) {
51      } else {      } else {
52        Whatpm::HTML->parse_byte_string        Whatpm::HTML->parse_byte_string
53            ($input->{charset}, $input->{s} => $doc, $onerror);            ($input->{charset}, $input->{s} => $doc, $onerror);
54          $self->result->layer_uncertain ('encode');
55      }      }
56    
57      $self->{structure} = $doc;      $self->{structure} = $doc;
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24