- my $yyyy = $param->{ $name . '_year_' . $suffix} || return undef;
- my $mm .= $param->{ $name . '_month_' . $suffix} ||
- ( $suffix eq 'from' ? 1 : 12);
- my $dd .= $param->{ $name . '_day_' . $suffix} ||
- ( $suffix eq 'from' ? 1 : 31);
+ my $yyyy = $param->{ $name . '_year_' . $suffix} || return undef;
+ my $mm = $param->{ $name . '_month_' . $suffix};
+ my $dd = $param->{ $name . '_day_' . $suffix};