Line # Revision Author
1 8 ahitrov@rambler.ru <%ARGS>
2 $object => undef
3 $name => undef
4 $SETS => undef
5 </%ARGS>
6 <%INIT>
7 return undef if (! ref($SETS));
8 return undef if (! $name);
9
10 my $string;
11 if (($SETS->{$name.'_year'} > 0) and ($SETS->{$name.'_month'} > 0) and ($SETS->{$name.'_day'} > 0))
12 {
13 $string = $SETS->{$name.'_year'}.'-'.$SETS->{$name.'_month'}.'-'.$SETS->{$name.'_day'};
14 undef $string if (length($string) < 6);
15
16 $object->{$name} = $string;
17 }
18 return $string;
19 </%INIT>