/[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.5 by wakaba, Sat Jul 14 10:00:32 2007 UTC revision 1.6 by wakaba, Sat Jul 14 16:32:28 2007 UTC
# Line 49  sub parameter_names ($) { Line 49  sub parameter_names ($) {
49  sub can_set_parameter ($$;$) {  sub can_set_parameter ($$;$) {
50    my $name = ''.$_[1];    my $name = ''.$_[1];
51    if ({    if ({
        'schema-type' => 1,  
52         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,
53         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,
54         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,
# Line 60  sub can_set_parameter ($$;$) { Line 59  sub can_set_parameter ($$;$) {
59    } elsif ($name eq 'error-handler') {    } elsif ($name eq 'error-handler') {
60      return 1 unless defined $_[2];      return 1 unless defined $_[2];
61      return ref $_[2] eq 'CODE';      return ref $_[2] eq 'CODE';
62      } elsif ($name eq 'schema-type') {
63        return 1 unless defined $_[2];
64        return 1 if ''.$_[2] eq q<http://www.w3.org/TR/REC-xml>;
65        return 0;
66    } else {    } else {
67      return 0;      return 0;
68    }    }
# Line 113  sub set_parameter ($$;$) { Line 116  sub set_parameter ($$;$) {
116              -subtype => 'CONFIGURATION_PARAMETER_TYPE_ERR';              -subtype => 'CONFIGURATION_PARAMETER_TYPE_ERR';
117        }        }
118      } elsif ($name eq 'schema-type') {      } elsif ($name eq 'schema-type') {
119        ${$${$_[0]}}->{$name} = ''.$_[2];        my $value = ''.$_[2];
120          if ($value eq q<http://www.w3.org/TR/REC-xml>) {
121            ${$${$_[0]}}->{$name} = ''.$_[2];
122          } else {
123            report Message::DOM::DOMException
124                -object => $_[0],
125                -type => 'NOT_SUPPORTED_ERR',
126                -subtype => 'CONFIGURATION_PARAMETER_VALUE_ERR';
127          }
128      } else {      } else {
129        report Message::DOM::DOMException        report Message::DOM::DOMException
130            -object => $_[0],            -object => $_[0],
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24