Locale: Methode format_date_object zum Formatieren von DateTime-Instanzen; Doku

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

diff --git a/SL/Helper/DateTime.pm b/SL/Helper/DateTime.pm
index 58fe6f8796289626829455e5f2734d960d3cc274..59a100c2ac6769536d2cc1e1e5c4ec14cb1455a7 100644 (file)
--- a/SL/Helper/DateTime.pm
+++ b/SL/Helper/DateTime.pm
@@ -11,7 +11,9 @@ sub today_local {
 }
 
 sub to_lxoffice {
 }
 
 sub to_lxoffice {

-  return $::locale->format_date(\%::myconfig, $_[0]);
+  my $self   = shift;
+  my %params = (scalar(@_) == 1) && (ref($_[0]) eq 'HASH') ? %{ $_[0] } : @_;
+  return $::locale->format_date_object($self, %params);

 }
 
 sub from_lxoffice {
 }
 
 sub from_lxoffice {


@@ -40,16 +42,19 @@ 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>
+=item C<to_lxoffice %param>

 
 

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

 
 

-=item C<from_lxoffice>
+=item C<from_lxoffice $string>

 
 Parses a date string formatted in the current Lx-Office user's date
 format and returns an instance of L<DateTime>.
 
 
 Parses a date string formatted in the current Lx-Office 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>).
+

 =back
 
 =head1 AUTHOR
 =back
 
 =head1 AUTHOR