projekt kivitendo

use DateTime;

use SL::Helper::DateTime;

package DateTime;

sub now_local {

  return shift->now(time_zone => $::locale->get_local_time_zone);

}

sub today_local {

  return shift->now(time_zone => $::locale->get_local_time_zone)->truncate(to => 'day');

}

sub to_lxoffice {

  return $::locale->format_date(\%::myconfig, $_[0]);

}

sub from_lxoffice {

  return $::locale->parse_date_to_object(\%::myconfig, $_[1]);

}

1;

__END__

=encoding utf8

=head1 NAME

SL::Helpers::DateTime - helper functions for L<DateTime>

=head1 FUNCTIONS

=over 4

=item C<now_local>

Returns the current time with the time zone set to the local time zone.

=item C<today_local>

Returns the current date with the time zone set to the local time zone.

=item C<to_lxoffice>

Formats the date according to the current Lx-Office user's date

format.

=item C<from_lxoffice>

Parses a date string formatted in the current Lx-Office user's date

format and returns an instance of L<DateTime>.

=back

=head1 AUTHOR

Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>

=cut

sub get_local_time_zone {

  my $self = shift;

  $self->{local_time_zone} ||= DateTime::TimeZone->new(name => 'local');

  return $self->{local_time_zone};

}

use DateTime;

use SL::Helper::DateTime;