DateTime::to_kivitendo_time: Formatierung eines DateTimes als Zeit

diff --git a/SL/Helper/DateTime.pm b/SL/Helper/DateTime.pm
index 639ed45318e31173e7ca65d8adb4129887bce08b..3d6c78e1066d7f9c9eeeb90f72c287a924918d11 100644 (file)
--- a/SL/Helper/DateTime.pm
+++ b/SL/Helper/DateTime.pm
@@ -12,6 +12,11 @@ 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_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_kivitendo {
   my ($self, %params) = _hashify(1, @_);
   return $::locale->format_date_object($self, %params);

diff --git a/SL/Locale.pm b/SL/Locale.pm
index b6065da7761d8f9df1054c1c9fc49ed242603d29..15b57df38570267625db779af1e61f4bcb42199d 100644 (file)
--- a/SL/Locale.pm
+++ b/SL/Locale.pm
@@ -380,6 +380,12 @@ sub parse_date_to_object {
   return $yy && $mm && $dd ? DateTime->new(year => $yy, month => $mm, day => $dd) : undef;
 }
 
   return $yy && $mm && $dd ? DateTime->new(year => $yy, month => $mm, day => $dd) : undef;
 }
 

+sub format_date_object_to_time {
+  my ($self, $datetime, %params) = @_;
+
+  return $datetime->strftime('%H:%M');
+}
+

 sub format_date_object {
   my ($self, $datetime, %params)    = @_;
 
 sub format_date_object {
   my ($self, $datetime, %params)    = @_;