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

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

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

revision 1.46 by wakaba, Sun Feb 24 00:51:09 2008 UTC revision 1.47 by wakaba, Sun Feb 24 01:08:14 2008 UTC
# Line 2808  $Element->{$HTML_NS}->{noscript} = { Line 2808  $Element->{$HTML_NS}->{noscript} = {
2808                               level => $self->{must_level});                               level => $self->{must_level});
2809          }          }
2810        } elsif ($child_nsuri eq $HTML_NS and $child_ln eq 'meta') {        } elsif ($child_nsuri eq $HTML_NS and $child_ln eq 'meta') {
2811          if ($child_el->has_attribute_ns (undef, 'charset')) {          my $http_equiv_attr
2812            ## NOTE: Non-conforming.  An error is raised by              = $child_el->get_attribute_node_ns (undef, 'http-equiv');
2813            ## |meta|'s checker.          if ($http_equiv_attr) {
2814          } else {            ## TODO: case
2815            my $http_equiv_attr            if (lc $http_equiv_attr->value eq 'content-type') {
               = $child_el->get_attribute_node_ns (undef, 'http-equiv');  
           if ($http_equiv_attr) {  
             ## TODO: case  
             if (lc $http_equiv_attr->value eq 'content-type') {  
               ## NOTE: Non-conforming.  An error is raised by  
               ## |meta|'s checker.  
             } else {  
               #  
             }  
           } else {  
2816              $self->{onerror}->(node => $child_el,              $self->{onerror}->(node => $child_el,
2817                                 type => 'element not allowed:head noscript',                                 type => 'element not allowed:head noscript',
2818                                 level => $self->{must_level});                                 level => $self->{must_level});
2819              } else {
2820                #
2821            }            }
2822            } else {
2823              $self->{onerror}->(node => $child_el,
2824                                 type => 'element not allowed:head noscript',
2825                                 level => $self->{must_level});
2826          }          }
2827        } else {        } else {
2828          $self->{onerror}->(node => $child_el,          $self->{onerror}->(node => $child_el,
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24