Index: select_fields.msn =================================================================== --- select_fields.msn (revision 224) +++ select_fields.msn (revision 225) @@ -1,7 +1,8 @@ <%args> - $name => undef - $SETS => undef + $name => undef + $SETS => undef + $object => undef <%init> @@ -10,8 +11,7 @@ return undef if (! $name); my $FIELDS = {}; - for my $element (%{ $SETS }) - { + for my $element (%{ $SETS }) { if ($element =~ /^${name}_(\d+)\.selectrusname$/) { $FIELDS->{$name.'_'.$1} = {} if (! exists($FIELDS->{$name.'_'.$1})); @@ -25,9 +25,6 @@ $FIELDS->{$name.'_'.$1}->{values} = \@values; } } - { - local $Data::Dumper::Indent = 0; - return Data::Dumper::Dumper($FIELDS); - } + return $object->_serialize($FIELDS);