diff Lib/IMPL/DOM/Schema.pm @ 126:c8dfbbdd8005

Several bug fixes Forms support pre-alfa version
author wizard
date Fri, 11 Jun 2010 04:29:51 +0400
parents 196bf443b5e1
children 1e7f03414b65
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema.pm	Thu Jun 10 17:43:51 2010 +0400
+++ b/Lib/IMPL/DOM/Schema.pm	Fri Jun 11 04:29:51 2010 +0400
@@ -114,7 +114,7 @@
     if ( my ($schemaNode) = $this->selectNodes(sub { $_->isa('IMPL::DOM::Schema::Node') and $_[0]->name eq $node->nodeName })) {
         $schemaNode->Validate($node);
     } else {
-        return new IMPL::DOM::Schema::ValidationError(Message=> "A specified document doesn't match the schema");
+        return new IMPL::DOM::Schema::ValidationError(Node => $node, Message=> "A specified document (%Node.nodeName%) doesn't match the schema");
     }
 }