Revision 8 (by ahitrov@rambler.ru, 2010/03/29 11:46:38) Contenido UTF-8 core files
<%args>
	$object => undef
	$name   => undef
	$SETS   => undef
</%args>
<%init>
	return undef unless ref $SETS;
	return undef unless $name;
	return undef unless $SETS->{$name.'_year'}   =~ /^\d+$/;
	return undef unless $SETS->{$name.'_month'}  =~ /^\d+$/;
	return undef unless $SETS->{$name.'_day'}    =~ /^\d+$/;

	return sprintf '%04d-%02d-%02d', $SETS->{$name.'_year'}, $SETS->{$name.'_month'}, $SETS->{$name.'_day'};
</%init>