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