Mercurial > pub > Impl

comparison Lib/IMPL/Web/View/Metadata/FormMeta.pm @ 387:4cc6cc370fb2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DOM refactoring
author sergey
date Tue, 11 Feb 2014 01:13:47 +0400
parents 0d63f5273307
children 5aff94ba842f
comparison
equal deleted inserted replaced
386:4bdf155e5bfe 387:4cc6cc370fb2
94 } 94 }
95 95
96 sub _IsOwnError { 96 sub _IsOwnError {
97 my ($nodes,$source,$err) = @_; 97 my ($nodes,$source,$err) = @_;
98 98
99 #TODO: review filter
99 return 1 if ($err->node && grep($err->node == $_, @$nodes)) || (not(@$nodes) && $err->schema == $source ); 100 return 1 if ($err->node && grep($err->node == $_, @$nodes)) || (not(@$nodes) && $err->schema == $source );
100 101
101 return 0; 102 return 0;
102 } 103 }
103 104
131 foreach my $decl (@{$this->schema->content->childNodes}) { 132 foreach my $decl (@{$this->schema->content->childNodes}) {
132 133
133 my $schema = $navi->NavigateName($decl->name); 134 my $schema = $navi->NavigateName($decl->name);
134 $navi->SchemaBack(); 135 $navi->SchemaBack();
135 136
136 my @nodes = $this->model && $this->model->selectNodes( sub { $_->schemaSource == $decl } ); 137 my @nodes = $this->model && $this->model->selectNodes( sub { $_->schemaNode == $decl } );
137 138
138 my %args = ( 139 my %args = (
139 name => $decl->name, 140 name => $decl->name,
140 decl => $decl, 141 decl => $decl,
141 schema => $schema, 142 schema => $schema,