X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FHelper%2FDateTime.pm;h=639ed45318e31173e7ca65d8adb4129887bce08b;hb=9fac28d83f55524f85cfa32cab463e0b8c063d92;hp=58fe6f8796289626829455e5f2734d960d3cc274;hpb=f14f519c1e261380fac46994e8dec7614ed82d89;p=kivitendo-erp.git diff --git a/SL/Helper/DateTime.pm b/SL/Helper/DateTime.pm index 58fe6f879..639ed4531 100644 --- a/SL/Helper/DateTime.pm +++ b/SL/Helper/DateTime.pm @@ -2,6 +2,8 @@ package DateTime; use strict; +use SL::Util qw(_hashify); + sub now_local { return shift->now(time_zone => $::locale->get_local_time_zone); } @@ -10,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__ @@ -40,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