Line # Revision Author
1 8 ahitrov@rambler.ru <%args>
2
3 225 ahitrov $name => undef
4 $SETS => undef
5 $object => undef
6 8 ahitrov@rambler.ru
7 </%args>
8 <%init>
9
10 return undef if (! ref($SETS));
11 return undef if (! $name);
12
13 my $FIELDS = {};
14 for my $element (%{ $SETS })
15 {
16 if ($element =~ /^${name}_(\d+)\.checkboxrusname$/)
17 {
18 $FIELDS->{$name.'_'.$1} = {} if (! exists($FIELDS->{$name.'_'.$1}));
19 $FIELDS->{$name.'_'.$1}->{rusname} = $m->comp('/contenido/components/filter.msn', str => $SETS->{$element});
20 }
21 }
22 225 ahitrov return $object->_serialize($FIELDS);
23 8 ahitrov@rambler.ru
24 </%init>