Mercurial > pub > Impl
diff Lib/IMPL/DOM/Schema/SwitchNode.pm @ 125:a4b0a819bbda
Small fixes in IMPL::DOM::Schema
author | wizard |
---|---|
date | Thu, 10 Jun 2010 17:43:51 +0400 |
parents | 16ada169ca75 |
children | 1e7f03414b65 |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/SwitchNode.pm Thu Jun 10 02:45:59 2010 +0400 +++ b/Lib/IMPL/DOM/Schema/SwitchNode.pm Thu Jun 10 17:43:51 2010 +0400 @@ -23,12 +23,12 @@ sub CTOR { my ($this,%args) = @_; - $this->messageNoMatch($args{messageNoMatch} || 'A node %Node.nodeName% isn\'t expected in the %Node.parentNode.path%'); + $this->messageNoMatch($args{messageNoMatch} || 'A node %Node.nodeName% isn\'t expected in the %Parent.path%'); } sub Validate { - my ($this,$node) = @_; - + my ($this,$node,$ctx) = @_; + if ( my ($schema) = $this->selectNodes(sub {$_[0]->name eq $node->nodeName} ) ) { return $schema->Validate($node); } else {