Line # Revision Author
1 3 ahitrov@rambler.ru <%args>
2 $object => undef
3 $name => undef
4 $SETS => undef
5 </%args>
6 <%init>
7 return undef unless ref $SETS;
8 return undef unless $name;
9 return undef unless $SETS->{$name.'_year'} =~ /^\d+$/;
10 return undef unless $SETS->{$name.'_month'} =~ /^\d+$/;
11 return undef unless $SETS->{$name.'_day'} =~ /^\d+$/;
12
13 return sprintf '%04d-%02d-%02d', $SETS->{$name.'_year'}, $SETS->{$name.'_month'}, $SETS->{$name.'_day'};
14 </%init>