/[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.91 by wakaba, Wed Sep 10 10:27:07 2008 UTC revision 1.92 by wakaba, Mon Sep 15 02:54:12 2008 UTC
# Line 225  our %AnyChecker = ( Line 225  our %AnyChecker = (
225      my ($self, $item, $element_state) = @_;      my ($self, $item, $element_state) = @_;
226      for my $attr (@{$item->{node}->attributes}) {      for my $attr (@{$item->{node}->attributes}) {
227        my $attr_ns = $attr->namespace_uri;        my $attr_ns = $attr->namespace_uri;
228        $attr_ns = '' unless defined $attr_ns;        if (defined $attr_ns) {
229            load_ns_module ($attr_ns);
230          } else {
231            $attr_ns = '';
232          }
233        my $attr_ln = $attr->manakai_local_name;        my $attr_ln = $attr->manakai_local_name;
234                
       load_ns_module ($attr_ns);  
   
235        my $checker = $AttrChecker->{$attr_ns}->{$attr_ln}        my $checker = $AttrChecker->{$attr_ns}->{$attr_ln}
236            || $AttrChecker->{$attr_ns}->{''};            || $AttrChecker->{$attr_ns}->{''};
237        my $status = $AttrStatus->{$attr_ns}->{$attr_ln}        my $status = $AttrStatus->{$attr_ns}->{$attr_ln}
# Line 428  sub check_document ($$$;$) { Line 430  sub check_document ($$$;$) {
430    ## ISSUE: Unexpanded entity references and HTML5 conformance    ## ISSUE: Unexpanded entity references and HTML5 conformance
431        
432    my $docel_nsuri = $docel->namespace_uri;    my $docel_nsuri = $docel->namespace_uri;
433    $docel_nsuri = '' unless defined $docel_nsuri;    if (defined $docel_nsuri) {
434    load_ns_module ($docel_nsuri);      load_ns_module ($docel_nsuri);
435      } else {
436        $docel_nsuri = '';
437      }
438    my $docel_def = $Element->{$docel_nsuri}->{$docel->manakai_local_name} ||    my $docel_def = $Element->{$docel_nsuri}->{$docel->manakai_local_name} ||
439      $Element->{$docel_nsuri}->{''} ||      $Element->{$docel_nsuri}->{''} ||
440      $ElementDefault;      $ElementDefault;
# Line 565  next unless $code;## TODO: temp. Line 570  next unless $code;## TODO: temp.
570        $code->(@$item);        $code->(@$item);
571      } elsif ($item->{type} eq 'element') {      } elsif ($item->{type} eq 'element') {
572        my $el_nsuri = $item->{node}->namespace_uri;        my $el_nsuri = $item->{node}->namespace_uri;
573        $el_nsuri = '' unless defined $el_nsuri;        if (defined $el_nsuri) {
574            load_ns_module ($el_nsuri);
575          } else {
576            $el_nsuri = '';
577          }
578        my $el_ln = $item->{node}->manakai_local_name;        my $el_ln = $item->{node}->manakai_local_name;
579          
       load_ns_module ($el_nsuri);  
   
580        my $element_state = {};        my $element_state = {};
581        my $eldef = $Element->{$el_nsuri}->{$el_ln} ||        my $eldef = $Element->{$el_nsuri}->{$el_ln} ||
582            $Element->{$el_nsuri}->{''} ||            $Element->{$el_nsuri}->{''} ||
Legend:
Removed from v.1.91  
changed lines
  Added in v.1.92
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24