comparison Lib/IMPL/DOM/Schema.pm @ 266:89179bb8c388

*corrected TTView to handle plain (and undefined) values *added URL generating methods to Application::Action *fixed the compare validatior for schemas
author cin
date Mon, 14 Jan 2013 03:10:06 +0400
parents 0f59b2de72af
children 4ddb27ff4a0b
comparison
equal deleted inserted replaced
265:6b6d4b2275a1 266:89179bb8c388
126 my ($this,$node) = @_; 126 my ($this,$node) = @_;
127 127
128 if ( my ($schemaNode) = $this->selectNodes(sub { $_->isa(Node) and $_[0]->name eq $node->nodeName })) { 128 if ( my ($schemaNode) = $this->selectNodes(sub { $_->isa(Node) and $_[0]->name eq $node->nodeName })) {
129 $schemaNode->Validate($node); 129 $schemaNode->Validate($node);
130 } else { 130 } else {
131 return new IMPL::DOM::Schema::ValidationError(Node => $node, Message=> "A specified document (%Node.nodeName%) doesn't match the schema"); 131 return new IMPL::DOM::Schema::ValidationError(node => $node, message=> "A specified document (%Node.nodeName%) doesn't match the schema");
132 } 132 }
133 } 133 }
134 134
135 my $schema; 135 my $schema;
136 136