Revision 8 (by ahitrov@rambler.ru, 2010/03/29 11:46:38) Contenido UTF-8 core files
<%args>
	$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 undef unless $SETS->{$name.'_hour'}   =~ /^\d+$/;
	return undef unless $SETS->{$name.'_minute'} =~ /^\d+$/;
	return undef unless $SETS->{$name.'_second'} =~ /^\d*$/;

	return sprintf '%04d-%02d-%02d %02d:%02d:%02d', $SETS->{$name.'_year'}, $SETS->{$name.'_month'}, $SETS->{$name.'_day'}, $SETS->{$name.'_hour'}, $SETS->{$name.'_minute'}, $SETS->{$name.'_second'} || 0;
</%init>