diff Lib/IMPL/DOM/Schema/NodeSet.pm @ 24:7f00786f8210

Первая рабочая реазизация схемы и навигаторов
author Sergey
date Mon, 05 Oct 2009 00:48:49 +0400
parents 267460284fb3
children 16ada169ca75
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/NodeSet.pm	Wed Sep 30 17:43:52 2009 +0400
+++ b/Lib/IMPL/DOM/Schema/NodeSet.pm	Mon Oct 05 00:48:49 2009 +0400
@@ -20,7 +20,7 @@
     
     $this->messageMax( $args{messageMax} || 'Too many %Node.nodeName% nodes');
     $this->messageMin( $args{messageMin} || '%Schema.name% nodes expected');
-    $this->messageUnexpected( $args{messageUnexpected} || 'A %Node.nodeName% isn\'t allowed here');
+    $this->messageUnexpected( $args{messageUnexpected} || 'A %Node.nodeName% isn\'t allowed in %Node.parentNode.path%');
 }
 
 sub Validate {
@@ -41,7 +41,7 @@
     foreach my $child ( @{$node->childNodes} ) {
         if (my $info = $nodes{$child->nodeName} || $anyNode) {
             $info->{Seen}++;
-            push @errors,new IMPL::DOM::Schema::VaidationError (
+            push @errors,new IMPL::DOM::Schema::ValidationError (
                 Source => $this,
                 Node => $child,
                 Schema => $info->{Schema},
@@ -52,7 +52,7 @@
                 push @errors,@localErrors;
             }
         } else {
-            push @errors, new IMPL::DOM::Schema::VaidationError (
+            push @errors, new IMPL::DOM::Schema::ValidationError (
                 Source => $this,
                 Node => $child,
                 Schema => $info->{Schema},
@@ -62,7 +62,7 @@
     }
     
     foreach my $info (values %nodes) {
-        push @errors, new IMPL::DOM::Schema::VaidationError (
+        push @errors, new IMPL::DOM::Schema::ValidationError (
             Source => $this,
             Schema => $info->{Schema},
             Node => $node,