/[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.4 by wakaba, Sun May 13 08:09:15 2007 UTC revision 1.5 by wakaba, Sun May 13 08:45:47 2007 UTC
# Line 1088  $Element->{$HTML_NS}->{ul} = { Line 1088  $Element->{$HTML_NS}->{ul} = {
1088    checker => $Element->{$HTML_NS}->{ol}->{checker},    checker => $Element->{$HTML_NS}->{ol}->{checker},
1089  };  };
1090    
1091  ## TODO: li  
1092    $Element->{$HTML_NS}->{li} = {
1093      checker => sub {
1094        my ($self, $todo) = @_;
1095        if ($todo->{inline}) {
1096          return $HTMLInlineChecker->($self, $todo);
1097        } else {
1098          return $HTMLBlockOrInlineChecker->($self, $todo);
1099        }
1100      },
1101    };
1102    
1103  $Element->{$HTML_NS}->{dl} = {  $Element->{$HTML_NS}->{dl} = {
1104    checker => sub {    checker => sub {
# Line 1161  $Element->{$HTML_NS}->{dt} = { Line 1171  $Element->{$HTML_NS}->{dt} = {
1171  };  };
1172    
1173  $Element->{$HTML_NS}->{dd} = {  $Element->{$HTML_NS}->{dd} = {
1174    checker => sub {    checker => $Element->{$HTML_NS}->{li}->{checker},
     my ($self, $todo) = @_;  
     if ($todo->{inline}) {  
       return $HTMLInlineChecker->($self, $todo);  
     } else {  
       return $HTMLBlockOrInlineChecker->($self, $todo);  
     }  
   },  
1175  };  };
1176    
1177  ## TODO: a  ## TODO: a
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24