/[suikacvs]/markup/html/whatpm/Whatpm/HTML.pm.src
Suika

Diff of /markup/html/whatpm/Whatpm/HTML.pm.src

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by wakaba, Sat Jun 23 02:26:51 2007 UTC revision 1.9 by wakaba, Sat Jun 23 02:41:51 2007 UTC
# Line 2704  sub _tree_construction_main ($) { Line 2704  sub _tree_construction_main ($) {
2704                    
2705          if ($token->{tag_name} eq 'textarea') {          if ($token->{tag_name} eq 'textarea') {
2706            ## TODO: $self->{form_element} if defined            ## TODO: $self->{form_element} if defined
           ## TODO: ignore first LF <http://html5.org/tools/web-apps-tracker?from=866&to=867>  
2707            $self->{content_model_flag} = 'RCDATA';            $self->{content_model_flag} = 'RCDATA';
2708          } else {          } else {
2709            $self->{content_model_flag} = 'CDATA';            $self->{content_model_flag} = 'CDATA';
# Line 2713  sub _tree_construction_main ($) { Line 2712  sub _tree_construction_main ($) {
2712          $insert->($el);          $insert->($el);
2713                    
2714          my $text = '';          my $text = '';
2715          !!!next-token;          if ($token->{tag_name} eq 'textarea') {
2716              !!!next-token;
2717              if ($token->{type} eq 'character') {
2718                $token->{data} =~ s/^\x0A//;
2719                unless (length $token->{data}) {
2720                  !!!next-token;
2721                }
2722              }
2723            } else {
2724              !!!next-token;
2725            }
2726          while ($token->{type} eq 'character') {          while ($token->{type} eq 'character') {
2727            $text .= $token->{data};            $text .= $token->{data};
2728            !!!next-token;            !!!next-token;
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24