Mercurial > pub > Impl

comparison Lib/Form/Filter/Mandatory.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::Mandatory;
2 use strict;
3 use Common;
4 use base qw(Form::Filter);
5
6 sub SUPPORTED_CONTEXT { Form::Filter::CTX_SINGLE | Form::Filter::CTX_SET }
7
8 sub Invoke {
9 my ($this,$target,$context,$schemaTarget,$parent) = @_;
10
11 my @list;
12 if ($context & Form::Filter::CTX_SET) {
13 @list = @{$target || []};
14 } elsif ($context & (Form::Filter::CTX_SINGLE | Form::Filter::CTX_EXISTENT)) {
15 @list = ($target);
16 }
17
18 foreach my $object (@list) {
19 if (defined $object and not $object->isEmpty) {
20 return Form::FilterResult->new(
21 State => Form::FilterResult::STATE_SUCCESS_STAY
22 );
23 }
24 }
25
26 return Form::FilterResult->new(
27 State => Form::FilterResult::STATE_ERROR,
28 Message => $this->FormatMessage($schemaTarget),
29 Target => $schemaTarget,
30 Container => $parent
31 );
32 }
33
34 1;