From 08ed38c565d753ac7ee6ff97e7dc2f97ca92bec6 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 17 Jan 2012 13:46:27 +0100
Subject: [PATCH] =?utf8?q?L.date=5Ftag:=20dem=20img=20tag=20kein=20onchang?=
 =?utf8?q?e=20mitgeben=20falls=20=C3=BCbergeben.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Template/Plugin/L.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index be4b0a65a..bc3808820 100644
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -282,7 +282,8 @@ sub date_tag {
     s/y+/\%Y/gi;
   } $::myconfig{"dateformat"};
 
-  my $cal_align =  delete $params{cal_align} || 'BR';
+  my $cal_align = delete $params{cal_align} || 'BR';
+  my $onchange  = delete $params{onchange};
   my $str_value = blessed $value ? $value->to_lxoffice : $value;
 
   $self->input_tag($name, $str_value,
@@ -290,6 +291,9 @@ sub date_tag {
     size   => 11,
     title  => _H($::myconfig{dateformat}),
     onBlur => 'check_right_date_format(this)',
+    ($onchange ? (
+    onChange => $onchange,
+    ) : ()),
     %params,
   ) . ((!$params{no_cal}) ?
   $self->html_tag('img', undef,
-- 
2.20.1