package DateTime;
+use strict;
+
+use SL::Util qw(_hashify);
+
sub now_local {
return shift->now(time_zone => $::locale->get_local_time_zone);
}
return shift->now(time_zone => $::locale->get_local_time_zone)->truncate(to => 'day');
}
+sub to_kivitendo_time {
+ my ($self, %params) = _hashify(1, @_);
+ return $::locale->format_date_object_to_time($self, %params);
+}
+
+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__
Returns the current date with the time zone set to the local time zone.
-=item C<to_lxoffice>
+=item C<to_kivitendo %param>
-Formats the date according to the current Lx-Office user's date
-format.
+Formats the date and time according to the current kivitendo user's
+date format with L<Locale::format_datetime_object>.
-=item C<from_lxoffice>
+The legacy name C<to_lxoffice> is still supported.
-Parses a date string formatted in the current Lx-Office user's date
+=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
+component (as opposed to L<to_kivitendo>).
+
+The legacy name C<from_lxoffice> is still supported.
+
=back
=head1 AUTHOR