Mercurial > pub > Impl

diff Lib/IMPL/DOM/Schema/ComplexType.pm @ 105:a6e9759ff88a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed a validation errors parameters
author wizard
date Tue, 11 May 2010 02:59:49 +0400
parents c289ed9662ca
children e30bdd040fe3
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/ComplexType.pm	Tue May 11 02:42:59 2010 +0400
+++ b/Lib/IMPL/DOM/Schema/ComplexType.pm	Tue May 11 02:59:49 2010 +0400
@@ -30,17 +30,17 @@
 }
 
 sub Validate {
-	my ($this, $node) = @_;
+	my ($this, $node,$ctx) = @_;
 	
 	if ($this->{$nativeType}) {
 		return new IMPL::DOM::Schema::ValidationError(
 			Node => $node,
-			Source => $this,
+			Source => $ctx && $ctx->{Source} || $this,
 			Schema => $this,
 			Message => $this->messageWrongType
 		) unless $node->isa($this->{$nativeType});
 	}
-	return $this->SUPER::Validate($node);
+	return $this->SUPER::Validate($node,$ctx);
 }
 
 sub qname {