/[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.109 by wakaba, Sat Aug 22 09:35:35 2009 UTC revision 1.110 by wakaba, Sun Aug 23 02:35:33 2009 UTC
# Line 333  our $IsInHTMLInteractiveContent = sub { Line 333  our $IsInHTMLInteractiveContent = sub {
333    ## true for non-interactive content as long as the element cannot be    ## true for non-interactive content as long as the element cannot be
334    ## interactive content.    ## interactive content.
335    
336    if ($nsuri eq $HTML_NS and ($ln eq 'video' or $ln eq 'audio')) {    if ($nsuri eq $HTML_NS and $ln eq 'input') {
337        my $value = $el->get_attribute_ns (undef, 'type');
338        $value =~ tr/A-Z/a-z/; ## ASCII case-insensitive.
339        return ($value ne 'hidden');
340      } elsif ($nsuri eq $HTML_NS and ($ln eq 'img' or $ln eq 'object')) {
341        return $el->has_attribute_ns (undef, 'usemap');
342      } elsif ($nsuri eq $HTML_NS and ($ln eq 'video' or $ln eq 'audio')) {
343      return $el->has_attribute_ns (undef, 'controls');      return $el->has_attribute_ns (undef, 'controls');
344    } elsif ($nsuri eq $HTML_NS and $ln eq 'menu') {    } elsif ($nsuri eq $HTML_NS and $ln eq 'menu') {
345      my $value = $el->get_attribute_ns (undef, 'type');      my $value = $el->get_attribute_ns (undef, 'type');
346      $value =~ tr/A-Z/a-z/; # ASCII case-insensitive      $value =~ tr/A-Z/a-z/; ## ASCII case-insensitive.
347      return ($value eq 'toolbar');      return ($value eq 'toolbar');
348    } else {    } else {
349      return 1;      return 1;
350    }    }
   
   ## TODO: input:not([type=hidden])  
351  }; # $IsInHTMLInteractiveContent  }; # $IsInHTMLInteractiveContent
352    
353  my $HTMLTransparentElements = {  my $HTMLTransparentElements = {
Legend:
Removed from v.1.109  
changed lines
  Added in v.1.110
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24