/[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.57 by wakaba, Sun Feb 17 06:36:28 2008 UTC revision 1.58 by wakaba, Sun Feb 17 11:04:08 2008 UTC
# Line 509  sub _check_get_children ($$$) { Line 509  sub _check_get_children ($$$) {
509            push @$new_todos, {type => 'element-attributes', node => $node};            push @$new_todos, {type => 'element-attributes', node => $node};
510            last TP;            last TP;
511          }          }
512          } elsif ($node_ns eq $HTML_NS and $node_ln eq 'del') {
513            my $sig_flag = $parent_todo->{flag}->{has_descendant}->{significant};
514            unshift @$sib, @{$node->child_nodes};
515            push @$new_todos, {type => 'element-attributes', node => $node};
516            push @$new_todos,
517                {type => 'code',
518                 code => sub {
519                   $parent_todo->{flag}->{has_descendant}->{significant} = 0
520                       if not $sig_flag;
521                 }};
522            last TP;
523        } else {        } else {
524          unshift @$sib, @{$node->child_nodes};          unshift @$sib, @{$node->child_nodes};
525          push @$new_todos, {type => 'element-attributes', node => $node};          push @$new_todos, {type => 'element-attributes', node => $node};
Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24