L.date_tag: dem img tag kein onchange mitgeben falls übergeben.

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index be4b0a65a239a621743cb47f65545320a4221c6b..bc380882075bb3d7123cfdcf0542a9dd8f33ba6a 100644 (file)
--- 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"};
 
     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,
   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)',
     size   => 11,
     title  => _H($::myconfig{dateformat}),
     onBlur => 'check_right_date_format(this)',

+    ($onchange ? (
+    onChange => $onchange,
+    ) : ()),

     %params,
   ) . ((!$params{no_cal}) ?
   $self->html_tag('img', undef,
     %params,
   ) . ((!$params{no_cal}) ?
   $self->html_tag('img', undef,