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

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

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

revision 1.1 by wakaba, Sat Jun 16 15:27:45 2007 UTC revision 1.2 by wakaba, Sun Jun 17 13:37:40 2007 UTC
# Line 21  sub ___report_error ($$) { Line 21  sub ___report_error ($$) {
21  ## |DOMConfiguration| methods  ## |DOMConfiguration| methods
22    
23  sub set_parameter ($$;$) {  sub set_parameter ($$;$) {
24    ${$${$_[0]}}->{$_[1]} = $_[2];    if (defined $_[2]) {
25        ${$${$_[0]}}->{$_[1]} = $_[2];
26      } else {
27        if ($_[1] eq 'http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree' or
28            $_[1] eq 'http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute' or
29            $_[1] eq 'http://suika.fam.cx/www/2006/dom-config/strict-document-children') {
30          ${$${$_[0]}}->{$_[1]} = 1;
31        } elsif ($_[1] eq 'error-handler') {
32          ${$${$_[0]}}->{$_[1]} = sub { };
33        } else {
34          delete ${$${$_[0]}}->{$_[1]};
35        }
36      }
37      ## http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree
38      ## http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute
39      ## http://suika.fam.cx/www/2006/dom-config/xml-id
40      ## error-handler
41      ## xml-dtd
42      ## http://suika.fam.cx/www/2006/dom-config/strict-document-children
43  } # set_parameter  } # set_parameter
44    
45  package Message::IF::DOMConfiguration;  package Message::IF::DOMConfiguration;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24