| 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 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> |