/[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.4 by wakaba, Fri Aug 17 11:53:52 2007 UTC revision 1.5 by wakaba, Sat Aug 25 02:44:38 2007 UTC
# Line 994  $Element->{$HTML_NS}->{head} = { Line 994  $Element->{$HTML_NS}->{head} = {
994                $not_allowed = 1;                $not_allowed = 1;
995                ## NOTE: See also |base|'s "contexts" field in the spec                ## NOTE: See also |base|'s "contexts" field in the spec
996              }              }
997              } elsif ($node->has_attribute_ns (undef, 'name') or
998                       $node->has_attribute_ns (undef, 'http-equiv')) {
999                $phase = 'after base';
1000            } else {            } else {
1001              $phase = 'after base';              $phase = 'after base';
1002                $not_allowed = 1;
1003            }            }
1004          } elsif ($node_ns eq $HTML_NS and $node_ln eq 'base') {          } elsif ($node_ns eq $HTML_NS and $node_ln eq 'base') {
1005            if ($phase eq 'initial' or $phase eq 'after charset') {            if ($phase eq 'initial' or $phase eq 'after charset') {
# Line 2769  $Element->{$HTML_NS}->{noscript} = { Line 2773  $Element->{$HTML_NS}->{noscript} = {
2773              if ({link => 1, style => 1}->{$node_ln}) {              if ({link => 1, style => 1}->{$node_ln}) {
2774                #                #
2775              } elsif ($node_ln eq 'meta') {              } elsif ($node_ln eq 'meta') {
2776                if ($node->has_attribute_ns (undef, 'charset')) {                if ($node->has_attribute_ns (undef, 'name')) {
                 $self->{onerror}->(node => $node, type => 'element not allowed');  
               } else {  
2777                  #                  #
2778                  } else {
2779                    $self->{onerror}->(node => $node,
2780                                       type => 'element not allowed');
2781                }                }
2782              } else {              } else {
2783                $self->{onerror}->(node => $node, type => 'element not allowed');                $self->{onerror}->(node => $node, type => 'element not allowed');
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24