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

diff --git a/SL/Locale.pm b/SL/Locale.pm
index 15b57df38..4fc7a5ee0 100644
--- a/SL/Locale.pm
+++ b/SL/Locale.pm
@@ -383,7 +383,12 @@ sub parse_date_to_object {
 sub format_date_object_to_time {
   my ($self, $datetime, %params) = @_;
 
-  return $datetime->strftime('%H:%M');
+  my $format =  $::myconfig{timeformat} || 'hh:mm';
+  $format    =~ s/hh/\%H/;
+  $format    =~ s/mm/\%M/;
+  $format    =~ s/ss/\%S/;
+
+  return $datetime->strftime($format);
 }
 
 sub format_date_object {