- for (qw(startdate firstacquidate histstartdate enddate histenddate)) {
- next unless defined $subs->{$_};
- # TODO : Handle date formats properly.
- if ($subs->{$_} eq '0000-00-00') {
- $subs->{$_} = ''
- } else {
- $subs->{$_} = $subs->{$_};
- }
- }
- if (!defined $subs->{letter}) {
- $subs->{letter}= q{};
- }