Mercurial > pub > Impl

comparison Lib/Form/Filter/Depends.pm @ 0:03e58a454b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Создан репозитарий
author Sergey
date Tue, 14 Jul 2009 12:54:37 +0400
parents
children 16ada169ca75
comparison
equal deleted inserted replaced
-1:000000000000 0:03e58a454b20
1 package Form::Filter::Depends;
2 use base qw(Form::Filter);
3
4 use Common;
5
6 BEGIN {
7 DeclareProperty Fields => ACCESS_READ;
8 }
9
10 sub SUPPORTED_CONTEXT { Form::Filter::CTX_SINGLE | Form::Filter::CTX_SET }
11
12 sub CTOR {
13 my ($this,$name,$message,@fields) = @_;
14
15 $this->SUPER::CTOR($name,$message);
16 $this->{$Fields} = \@fields;
17 }
18
19 sub Invoke {
20 my ($this,$object,$context,$schemaTarget) = @_;
21
22 foreach my $field (@{$this->{$Fields}}) {
23 my $objProv = $object->Navigate($object->Form->MakeItemId($field,$object->Parent));
24
25 if ( not $objProv or $objProv->isEmpty ) {
26 return new Form::FilterResult(State => Form::FilterResult::STATE_STOP);
27 }
28
29 }
30
31 return new Form::FilterResult(State => Form::FilterResult::STATE_SUCCESS_STAY);
32 }
33
34 1;