Repository List / Contenido / utf8 / core / comps / contenido / components / outputs / select_fields.msn @ r225

<%args>

	$name	=> undef
	$SETS	=> undef
	$object	=> undef

</%args>
<%init>

	return 	undef	if (! ref($SETS));
	return 	undef	if (! $name);

	my $FIELDS = {};
	for my $element (%{ $SETS }) {
		if ($element =~ /^${name}_(\d+)\.selectrusname$/)
		{
			$FIELDS->{$name.'_'.$1} = {}		if (! exists($FIELDS->{$name.'_'.$1}));
			$FIELDS->{$name.'_'.$1}->{rusname} = $m->comp('/contenido/components/filter.msn', str => $SETS->{$element} );
		} elsif ($element =~ /^${name}_(\d+)\.selectdata$/)
		{
			my $lvalues = $m->comp('/contenido/components/filter.msn', str => $SETS->{$element});
			$FIELDS->{$name.'_'.$1} = {}		if (! exists($FIELDS->{$name.'_'.$1}));
			my @values = split(/[\n\r]+/, $lvalues);

			$FIELDS->{$name.'_'.$1}->{values} = \@values;
		}
	}
	return $object->_serialize($FIELDS);

</%init>