X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FHelper%2FDateTime.pm;h=639ed45318e31173e7ca65d8adb4129887bce08b;hb=9fac28d83f55524f85cfa32cab463e0b8c063d92;hp=fa035ebfe9f338e1c3925130297d86b002d06e72;hpb=f3288b9cb4e09eac31d5a80f22063606e9a7b75d;p=kivitendo-erp.git diff --git a/SL/Helper/DateTime.pm b/SL/Helper/DateTime.pm index fa035ebfe..639ed4531 100644 --- a/SL/Helper/DateTime.pm +++ b/SL/Helper/DateTime.pm @@ -1,5 +1,9 @@ package DateTime; +use strict; + +use SL::Util qw(_hashify); + sub now_local { return shift->now(time_zone => $::locale->get_local_time_zone); } @@ -8,14 +12,25 @@ sub today_local { return shift->now(time_zone => $::locale->get_local_time_zone)->truncate(to => 'day'); } +sub to_kivitendo { + my ($self, %params) = _hashify(1, @_); + return $::locale->format_date_object($self, %params); +} + sub to_lxoffice { - return $::locale->format_date(\%::myconfig, $_[0]); + # Legacy name. + goto &to_kivitendo; } -sub from_lxoffice { +sub from_kivitendo { return $::locale->parse_date_to_object(\%::myconfig, $_[1]); } +sub from_lxoffice { + # Legacy name. + goto &from_kivitendo; +} + 1; __END__ @@ -38,16 +53,23 @@ Returns the current time with the time zone set to the local time zone. Returns the current date with the time zone set to the local time zone. -=item C +=item C + +Formats the date and time according to the current kivitendo user's +date format with L. -Formats the date according to the current Lx-Office user's date -format. +The legacy name C is still supported. -=item C +=item C -Parses a date string formatted in the current Lx-Office user's date +Parses a date string formatted in the current kivitendo user's date format and returns an instance of L. +Note that only dates can be parsed at the moment, not the time +component (as opposed to L). + +The legacy name C is still supported. + =back =head1 AUTHOR