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 {