/[suikacvs]/messaging/manakai/lib/Message/DOM/Document.pm
Suika

Diff of /messaging/manakai/lib/Message/DOM/Document.pm

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

revision 1.30 by wakaba, Sat Apr 12 15:58:41 2008 UTC revision 1.31 by wakaba, Tue Oct 21 07:51:59 2008 UTC
# Line 1171  sub inner_html ($;$) { Line 1171  sub inner_html ($;$) {
1171    } else {    } else {
1172      if (@_ > 1) {      if (@_ > 1) {
1173        ## Step 1        ## Step 1
1174        require Whatpm::XMLParser; # MUST        require Whatpm::XML::Parser; # MUST
1175        my $doc = $self->implementation->create_document;        my $doc = $self->implementation->create_document;
1176                
1177        ## Step 2        ## Step 2
1178        #        #
1179    
1180        ## Step 3        ## Step 3
1181        $doc = Whatpm::XMLParser->parse_string ($_[1] => $doc); # MUST        $doc = Whatpm::XML::Parser->parse_char_string ($_[1] => $doc); # MUST
1182    
1183        ## Step 4        ## Step 4
1184        #        #
# Line 1191  sub inner_html ($;$) { Line 1191  sub inner_html ($;$) {
1191        for (@cn) {        for (@cn) {
1192          $self->remove_child ($_);          $self->remove_child ($_);
1193        }        }
1194          ## TODO: strict-document-children option?
1195    
1196        ## Step 7, 8, 9, 10        ## Step 7, 8, 9, 10
1197        for my $node (@{$doc->child_nodes}) {        for my $node (@{$doc->child_nodes}) {
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24