/[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.13 by wakaba, Sat May 19 14:29:09 2007 UTC revision 1.14 by wakaba, Sat May 19 15:31:07 2007 UTC
# Line 94  my $AttrChecker = { Line 94  my $AttrChecker = {
94    },    },
95  };  };
96    
97    ## ISSUE: Should we really allow these attributes?
98  $AttrChecker->{''}->{'xml:space'} = $AttrChecker->{$XML_NS}->{space};  $AttrChecker->{''}->{'xml:space'} = $AttrChecker->{$XML_NS}->{space};
99  $AttrChecker->{''}->{'xml:lang'} = $AttrChecker->{$XML_NS}->{lang};  $AttrChecker->{''}->{'xml:lang'} = $AttrChecker->{$XML_NS}->{lang};
100  $AttrChecker->{''}->{'xml:base'} = $AttrChecker->{$XML_NS}->{base};  $AttrChecker->{''}->{'xml:base'} = $AttrChecker->{$XML_NS}->{base};
# Line 2167  sub check_element ($$$) { Line 2168  sub check_element ($$$) {
2168            $ElementDefault;            $ElementDefault;
2169        $eldef->{attrs_checker}->($self, $todo);        $eldef->{attrs_checker}->($self, $todo);
2170        my ($new_todos) = $eldef->{checker}->($self, $todo);        my ($new_todos) = $eldef->{checker}->($self, $todo);
2171        push @todo, @$new_todos;        unshift @todo, @$new_todos;
2172      } elsif ($todo->{type} eq 'element-attributes') {      } elsif ($todo->{type} eq 'element-attributes') {
2173        my $prefix = $todo->{node}->prefix;        my $prefix = $todo->{node}->prefix;
2174        if (defined $prefix and $prefix eq 'xmlns') {        if (defined $prefix and $prefix eq 'xmlns') {
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24