Mercurial > pub > Impl
comparison Lib/Form/Filter/Depends.pm @ 0:03e58a454b20
Создан репозитарий
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; |