X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/409d5d5fbf7020d69c7062cdde11040dc755ee38..3711d95e5e6f1df8c1950c033f4c3549a7c126fd:/SL/Locale.pm

diff --git a/SL/Locale.pm b/SL/Locale.pm
index b6065da77..15b57df38 100644
--- 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;
 }
 
+sub format_date_object_to_time {
+  my ($self, $datetime, %params) = @_;
+
+  return $datetime->strftime('%H:%M');
+}
+
 sub format_date_object {
   my ($self, $datetime, %params)    = @_;