From: Sven Schöling <s.schoeling@linet-services.de>
Date: Wed, 12 Oct 2011 12:33:59 +0000 (+0200)
Subject: L.date_tag kann jetzt auch mit DateTime objekten umgehen
X-Git-Tag: release-2.7.0beta1~238
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/b9894fd0019b4926e3f590c9905d528b0a47dd3f?ds=sidebyside

L.date_tag kann jetzt auch mit DateTime objekten umgehen
---

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index 476b60a70..bf0d5414e 100644
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -4,6 +4,7 @@ use base qw( Template::Plugin );
 use Template::Plugin;
 use List::MoreUtils qw(apply);
 use List::Util qw(max);
+use Scalar::Util qw(blessed);
 
 use strict;
 
@@ -273,7 +274,9 @@ sub date_tag {
 
   $params{cal_align} ||= 'BR';
 
-  $self->input_tag($name, $value,
+  my $str_value = blessed $value ? $value->to_lxoffice : $value;
+
+  $self->input_tag($name, $str_value,
     id     => $name_e,
     size   => 11,
     title  => _H($::myconfig{dateformat}),