kivitendo/SL/Helper/DateTime.pm @ c42acfd5
| 51c64daf | Moritz Bunkus | package DateTime;
|
||
| 02742685 | Sven Schöling | use strict;
|
||
| 51c64daf | Moritz Bunkus | 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 {
|
||||
| 38e08b2f | Moritz Bunkus | my $self = shift;
|
||
my %params = (scalar(@_) == 1) && (ref($_[0]) eq 'HASH') ? %{ $_[0] } : @_;
|
||||
return $::locale->format_date_object($self, %params);
|
||||
| 51c64daf | Moritz Bunkus | }
|
||
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.
|
||||
| 38e08b2f | Moritz Bunkus | =item C<to_lxoffice %param>
|
||
| 51c64daf | Moritz Bunkus | |||
| 38e08b2f | Moritz Bunkus | Formats the date and time according to the current Lx-Office user's
|
||
date format with L<Locale::format_datetime_object>.
|
||||
| 51c64daf | Moritz Bunkus | |||
| 38e08b2f | Moritz Bunkus | =item C<from_lxoffice $string>
|
||
| 51c64daf | Moritz Bunkus | |||
Parses a date string formatted in the current Lx-Office user's date
|
||||
format and returns an instance of L<DateTime>.
|
||||
| 38e08b2f | Moritz Bunkus | Note that only dates can be parsed at the moment, not the time
|
||
component (as opposed to L<to_lxoffice>).
|
||||
| 51c64daf | Moritz Bunkus | =back
|
||
=head1 AUTHOR
|
||||
Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
|
||||
=cut
|