X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9aaadfdc06efbfb31f70c32cdf6aacf2f8a136f2..6dbc83af32ca1bded29101903d98d8656113801e:/SL/Template/Plugin/L.pm diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm index 78efe642a..ef534ce04 100644 --- a/SL/Template/Plugin/L.pm +++ b/SL/Template/Plugin/L.pm @@ -226,6 +226,8 @@ sub date_tag { push @classes, delete($params{class}) if $params{class}; my %class = @classes ? (class => join(' ', @classes)) : (); + $::request->presenter->need_reinit_widgets($params{id}); + return $self->input_tag( $name, blessed($value) ? $value->to_lxoffice : $value, size => 11, @@ -432,17 +434,6 @@ JAVASCRIPT return $code; } -sub online_help_tag { - my ($self, $tag, %params) = _hashify(2, @_); - my $cc = $::myconfig{countrycode}; - my $file = "doc/online/$cc/$tag.html"; - my $text = $params{text} || $::locale->text('Help'); - - die 'malformed help tag' unless $tag =~ /^[a-zA-Z0-9_]+$/; - return unless -f $file; - return $self->html_tag('a', $text, href => $file, class => 'jqModal') -} - sub dump { my $self = shift; return '
' . Data::Dumper::Dumper(@_) . '
';