Revision 469 (by ahitrov, 2014/12/24 13:57:26) Moving Contenido to Apache 2

 
<%ARGS>
	$object => undef
	$name => undef
	$SETS => undef
</%ARGS>
<%INIT>
	return 	undef	if (! ref($SETS));
	return 	undef	if (! $name);

	my $string;
	if (($SETS->{$name.'_year'} > 0) and ($SETS->{$name.'_month'} > 0) and ($SETS->{$name.'_day'} > 0))
	{
	        $string = $SETS->{$name.'_year'}.'-'.$SETS->{$name.'_month'}.'-'.$SETS->{$name.'_day'};
		undef $string if (length($string) < 6);

		$object->{$name} = $string;
	}
	return $string;
</%INIT>