Periodische Rechnungen: Checkbox für "alle drei Monate" richtig benennen

[mfinanz.git] / SL / Helper / DateTime.pm

diff --git a/SL/Helper/DateTime.pm b/SL/Helper/DateTime.pm
index 749bd0764a8507b54a3ab6ccdede8ab2637bee36..639ed45318e31173e7ca65d8adb4129887bce08b 100644 (file)
--- a/SL/Helper/DateTime.pm
+++ b/SL/Helper/DateTime.pm
@@ -2,6 +2,8 @@ package DateTime;
 
 use strict;
 
 
 use strict;
 

+use SL::Util qw(_hashify);
+

 sub now_local {
   return shift->now(time_zone => $::locale->get_local_time_zone);
 }
 sub now_local {
   return shift->now(time_zone => $::locale->get_local_time_zone);
 }


@@ -10,16 +12,25 @@ sub today_local {
   return shift->now(time_zone => $::locale->get_local_time_zone)->truncate(to => 'day');
 }
 
   return shift->now(time_zone => $::locale->get_local_time_zone)->truncate(to => 'day');
 }
 

-sub to_lxoffice {
-  my $self   = shift;
-  my %params = (scalar(@_) == 1) && (ref($_[0]) eq 'HASH') ? %{ $_[0] } : @_;
+sub to_kivitendo {
+  my ($self, %params) = _hashify(1, @_);

   return $::locale->format_date_object($self, %params);
 }
 
   return $::locale->format_date_object($self, %params);
 }
 

-sub from_lxoffice {
+sub to_lxoffice {
+  # Legacy name.
+  goto &to_kivitendo;
+}
+
+sub from_kivitendo {

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

+sub from_lxoffice {
+  # Legacy name.
+  goto &from_kivitendo;
+}
+

 1;
 
 __END__
 1;
 
 __END__


@@ -42,18 +53,22 @@ 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.
 
 
 Returns the current date with the time zone set to the local time zone.
 

-=item C<to_lxoffice %param>
+=item C<to_kivitendo %param>

 
 Formats the date and time according to the current kivitendo user's
 date format with L<Locale::format_datetime_object>.
 
 
 Formats the date and time according to the current kivitendo user's
 date format with L<Locale::format_datetime_object>.
 

-=item C<from_lxoffice $string>
+The legacy name C<to_lxoffice> is still supported.
+
+=item C<from_kivitendo $string>

 
 Parses a date string formatted in the current kivitendo user's date
 format and returns an instance of L<DateTime>.
 
 Note that only dates can be parsed at the moment, not the time
 
 Parses a date string formatted in the current kivitendo user's date
 format and returns an instance of L<DateTime>.
 
 Note that only dates can be parsed at the moment, not the time

-component (as opposed to L<to_lxoffice>).
+component (as opposed to L<to_kivitendo>).
+
+The legacy name C<from_lxoffice> is still supported.

 
 =back
 
 
 =back