/[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.6 by wakaba, Sat Jul 14 16:32:28 2007 UTC revision 1.7 by wakaba, Sun Jul 15 05:18:46 2007 UTC
# Line 33  my %names = ( Line 33  my %names = (
33               'schema-type' => 1,               'schema-type' => 1,
34               q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1,               q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1,
35               q<http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type> => 1,               q<http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type> => 1,
36                 q<http://suika.fam.cx/www/2006/dom-config/create-child-element> => 1,
37               q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute> => 1,               q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute> => 1,
38               q<http://suika.fam.cx/www/2006/dom-config/strict-document-children> => 1,               q<http://suika.fam.cx/www/2006/dom-config/strict-document-children> => 1,
39               q<http://suika.fam.cx/www/2006/dom-config/xml-id> => 1,               q<http://suika.fam.cx/www/2006/dom-config/xml-id> => 1,
# Line 50  sub can_set_parameter ($$;$) { Line 51  sub can_set_parameter ($$;$) {
51    my $name = ''.$_[1];    my $name = ''.$_[1];
52    if ({    if ({
53         q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1,         q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1,
54           q<http://suika.fam.cx/www/2006/dom-config/create-child-element> => 1,
55         q<http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type> => 1,         q<http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type> => 1,
56         q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute> => 1,         q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute> => 1,
57         q<http://suika.fam.cx/www/2006/dom-config/strict-document-children> => 1,         q<http://suika.fam.cx/www/2006/dom-config/strict-document-children> => 1,
# Line 73  sub get_parameter ($$) { Line 75  sub get_parameter ($$) {
75    if ({    if ({
76         'schema-type' => 1,         'schema-type' => 1,
77         q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1,         q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1,
78           q<http://suika.fam.cx/www/2006/dom-config/create-child-element> => 1,
79         q<http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type> => 1,         q<http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type> => 1,
80         q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute> => 1,         q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute> => 1,
81         q<http://suika.fam.cx/www/2006/dom-config/strict-document-children> => 1,         q<http://suika.fam.cx/www/2006/dom-config/strict-document-children> => 1,
# Line 96  sub set_parameter ($$;$) { Line 99  sub set_parameter ($$;$) {
99    if (defined $_[2]) {    if (defined $_[2]) {
100      if ({      if ({
101           q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1,           q<http://suika.fam.cx/www/2006/dom-config/clone-entity-reference-subtree> => 1,
102             q<http://suika.fam.cx/www/2006/dom-config/create-child-element> => 1,
103           q<http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type> => 1,           q<http://suika.fam.cx/www/2006/dom-config/dtd-attribute-type> => 1,
104           q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute> => 1,           q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute> => 1,
105           q<http://suika.fam.cx/www/2006/dom-config/strict-document-children> => 1,           q<http://suika.fam.cx/www/2006/dom-config/strict-document-children> => 1,
# Line 142  sub set_parameter ($$;$) { Line 146  sub set_parameter ($$;$) {
146        ${$${$_[0]}}->{$name} = 1;        ${$${$_[0]}}->{$name} = 1;
147      } elsif ({      } elsif ({
148                'schema-type' => 1,                'schema-type' => 1,
149                  q<http://suika.fam.cx/www/2006/dom-config/create-child-element> => 1,
150          }->{$name}) {          }->{$name}) {
151        delete ${$${$_[0]}}->{$name};        delete ${$${$_[0]}}->{$name};
152      } elsif ($_[1] eq 'error-handler') {      } elsif ($_[1] eq 'error-handler') {
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24