/[suikacvs]/markup/html/whatpm/Whatpm/ContentChecker.pm
Suika

Diff of /markup/html/whatpm/Whatpm/ContentChecker.pm

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

revision 1.51 by wakaba, Sun Nov 18 11:06:14 2007 UTC revision 1.52 by wakaba, Fri Nov 23 05:39:43 2007 UTC
# Line 251  sub check_document ($$$) { Line 251  sub check_document ($$$) {
251    
252    my $return = $self->check_element ($docel, $onerror);    my $return = $self->check_element ($docel, $onerror);
253    
254      ## TODO: Test for these checks are necessary.
255    my $charset_name = $doc->input_encoding;    my $charset_name = $doc->input_encoding;
256    if (defined $charset_name) {    if (defined $charset_name) {
257      require Message::Charset::Info;      require Message::Charset::Info;
# Line 292  sub check_document ($$$) { Line 293  sub check_document ($$$) {
293                   type => 'character encoding:'.$charset_name,                   type => 'character encoding:'.$charset_name,
294                   level => $self->{good_level});                   level => $self->{good_level});
295      }      }
296      } elsif ($doc->manakai_is_html) {
297        ## NOTE: MUST and SHOULD requirements above cannot be tested,
298        ## since the document has no input charset encoding information.
299        $onerror->(node => $doc,
300                   type => 'character encoding:',
301                   level => 'unsupported');
302    }    }
303    
304    return $return;    return $return;
Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24