• select_fields.msn

    224 225  
    1 1 <%args>
    2 2
    3 $name => undef
    4 $SETS => undef
    3 $name => undef
    4 $SETS => undef
    5 $object => undef
    5 6
    6 7 </%args>
    7 8 <%init>
    … …  
    10 11 return undef if (! $name);
    11 12
    12 13 my $FIELDS = {};
    13 for my $element (%{ $SETS })
    14 {
    14 for my $element (%{ $SETS }) {
    15 15 if ($element =~ /^${name}_(\d+)\.selectrusname$/)
    16 16 {
    17 17 $FIELDS->{$name.'_'.$1} = {} if (! exists($FIELDS->{$name.'_'.$1}));
    … …  
    25 25 $FIELDS->{$name.'_'.$1}->{values} = \@values;
    26 26 }
    27 27 }
    28 {
    29 local $Data::Dumper::Indent = 0;
    30 return Data::Dumper::Dumper($FIELDS);
    31 }
    28 return $object->_serialize($FIELDS);
    32 29
    33 30 </%init>