Mercurial > pub > Impl
diff Lib/Form/Filter/Mandatory.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | 03e58a454b20 |
children | 76515373dac0 |
line wrap: on
line diff
--- a/Lib/Form/Filter/Mandatory.pm Fri Feb 26 01:43:42 2010 +0300 +++ b/Lib/Form/Filter/Mandatory.pm Fri Feb 26 10:49:21 2010 +0300 @@ -1,34 +1,34 @@ -package Form::Filter::Mandatory; -use strict; -use Common; -use base qw(Form::Filter); - -sub SUPPORTED_CONTEXT { Form::Filter::CTX_SINGLE | Form::Filter::CTX_SET } - -sub Invoke { - my ($this,$target,$context,$schemaTarget,$parent) = @_; - - my @list; - if ($context & Form::Filter::CTX_SET) { - @list = @{$target || []}; - } elsif ($context & (Form::Filter::CTX_SINGLE | Form::Filter::CTX_EXISTENT)) { - @list = ($target); - } - - foreach my $object (@list) { - if (defined $object and not $object->isEmpty) { - return Form::FilterResult->new( - State => Form::FilterResult::STATE_SUCCESS_STAY - ); - } - } - - return Form::FilterResult->new( - State => Form::FilterResult::STATE_ERROR, - Message => $this->FormatMessage($schemaTarget), - Target => $schemaTarget, - Container => $parent - ); -} - -1; \ No newline at end of file +package Form::Filter::Mandatory; +use strict; +use Common; +use base qw(Form::Filter); + +sub SUPPORTED_CONTEXT { Form::Filter::CTX_SINGLE | Form::Filter::CTX_SET } + +sub Invoke { + my ($this,$target,$context,$schemaTarget,$parent) = @_; + + my @list; + if ($context & Form::Filter::CTX_SET) { + @list = @{$target || []}; + } elsif ($context & (Form::Filter::CTX_SINGLE | Form::Filter::CTX_EXISTENT)) { + @list = ($target); + } + + foreach my $object (@list) { + if (defined $object and not $object->isEmpty) { + return Form::FilterResult->new( + State => Form::FilterResult::STATE_SUCCESS_STAY + ); + } + } + + return Form::FilterResult->new( + State => Form::FilterResult::STATE_ERROR, + Message => $this->FormatMessage($schemaTarget), + Target => $schemaTarget, + Container => $parent + ); +} + +1;