X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/005e30ca647b7015b80be2324647dc3451acf0d4..6dbc83af32ca1bded29101903d98d8656113801e:/SL/Template/Plugin/L.pm

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index ce2fa2b29..ef534ce04 100644
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -66,6 +66,7 @@ sub select_tag    { return _call_presenter('select_tag',    @_); }
 sub input_tag     { return _call_presenter('input_tag',     @_); }
 sub truncate      { return _call_presenter('truncate',      @_); }
 sub simple_format { return _call_presenter('simple_format', @_); }
+sub part_picker   { return _call_presenter('part_picker',   @_); }
 
 sub _set_id_attribute {
   my ($attributes, $name) = @_;
@@ -225,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,
@@ -431,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 '<pre>' . Data::Dumper::Dumper(@_) . '</pre>';