projekt kivitendo

sub format_date {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $yy, $mm, $dd) = @_;

  $main::lxdebug->leave_sub() and return "" unless $yy && $mm && $dd;

  my $format = $myconfig->{dateformat};

  $format =~ s{ d+ }{ sprintf("%0" . (length($&)) . "d", $dd) }gex;

  $format =~ s{ m+ }{ sprintf("%0" . (length($&)) . "d", $mm) }gex;

  $format =~ s{ y+ }{ sprintf("%4d",                     $yy) }gex;

  $main::lxdebug->leave_sub();

  return $format;

}