Mercurial > pub > Impl

diff Lib/IMPL/DOM/Schema/Validator/RegExp.pm @ 238:b8c724f6de36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM model refactoring TT view refactoring, controls are no longer derived from DOM nodes bugfixes
author sergey
date Tue, 16 Oct 2012 01:33:06 +0400
parents 2904da230022
children 5aff94ba842f
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/Validator/RegExp.pm	Mon Oct 15 17:39:12 2012 +0400
+++ b/Lib/IMPL/DOM/Schema/Validator/RegExp.pm	Tue Oct 16 01:33:06 2012 +0400
@@ -21,7 +21,7 @@
 sub CTOR {
     my ($this,%args) = @_;
     
-    $this->message($args{message} || "A %Node.nodeName% doesn't match to the format %Schema.display%");
+    $this->message($args{message} || "A %node.nodeName% doesn't match to the format %schema.display%");
 }
 
 sub Validate {
@@ -30,10 +30,10 @@
     my $rx = $this->_rx() || $this->_rx( map qr{$_}, $this->nodeValue );
     
     return new IMPL::DOM::Schema::ValidationError(
-        Node => $node,
-        Source => $ctx && $ctx->{Source} || $this->parentNode,
-        Schema => $this->parentNode,
-        Message => $this->message
+        node => $node,
+        source => $ctx && $ctx->{Source} || $this->parentNode,
+        schema => $this->parentNode,
+        message => $this->message
     ) unless (not $node->isComplex) and $node->nodeValue =~ /($rx)/;
     
     $node->nodeValue($1) if $this->launder;