Mercurial > pub > Impl
view Lib/Form/Filter/Depends.pm @ 37:c2e7f7c96bcd
performance improvements, DOM reworked (a little)
author | Sergey |
---|---|
date | Mon, 23 Nov 2009 00:59:06 +0300 |
parents | 03e58a454b20 |
children | 16ada169ca75 |
line wrap: on
line source
package Form::Filter::Depends; use base qw(Form::Filter); use Common; BEGIN { DeclareProperty Fields => ACCESS_READ; } sub SUPPORTED_CONTEXT { Form::Filter::CTX_SINGLE | Form::Filter::CTX_SET } sub CTOR { my ($this,$name,$message,@fields) = @_; $this->SUPER::CTOR($name,$message); $this->{$Fields} = \@fields; } sub Invoke { my ($this,$object,$context,$schemaTarget) = @_; foreach my $field (@{$this->{$Fields}}) { my $objProv = $object->Navigate($object->Form->MakeItemId($field,$object->Parent)); if ( not $objProv or $objProv->isEmpty ) { return new Form::FilterResult(State => Form::FilterResult::STATE_STOP); } } return new Form::FilterResult(State => Form::FilterResult::STATE_SUCCESS_STAY); } 1;