diff Lib/IMPL/DOM/Schema/NodeSet.pm @ 102:cf3b6ef2be22

Schema beta version
author wizard
date Fri, 07 May 2010 08:05:23 +0400
parents df6b4f054957
children a4b0a819bbda
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/NodeSet.pm	Thu May 06 17:55:59 2010 +0400
+++ b/Lib/IMPL/DOM/Schema/NodeSet.pm	Fri May 07 08:05:23 2010 +0400
@@ -44,6 +44,7 @@
             push @errors,new IMPL::DOM::Schema::ValidationError (
                 Source => $this,
                 Node => $child,
+                Parent => $node,
                 Schema => $info->{Schema},
                 Message => $this->messageMax
             ) if ($info->{Max} and $info->{Seen} > $info->{Max});
@@ -55,6 +56,7 @@
             push @errors, new IMPL::DOM::Schema::ValidationError (
                 Source => $this,
                 Node => $child,
+                Parent => $node,
                 Message => $this->messageUnexpected
             )
         }
@@ -64,6 +66,7 @@
         push @errors, new IMPL::DOM::Schema::ValidationError (
             Source => $this,
             Schema => $info->{Schema},
+            Parent => $node,
             Message => $this->messageMin
         ) if $info->{Min} > $info->{Seen};
     }