X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f16c552035ab973a9aed4a1dc29d0e16be7ff541..e8889e47af38072dc6fcbb4d97e2fdcc30d948d7:/SL/Template/Plugin/L.pm

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index 2e2ae9f03..48960097a 100644
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -67,7 +67,9 @@ 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 chart_picker  { return _call_presenter('chart_picker',  @_); }
 sub customer_vendor_picker   { return _call_presenter('customer_vendor_picker',   @_); }
+sub project_picker           { return _call_presenter('project_picker',           @_); }
 
 sub _set_id_attribute {
   my ($attributes, $name, $unique) = @_;
@@ -125,6 +127,8 @@ sub radio_button_tag {
   _set_id_attribute(\%attributes, $name, 1);
   my $label            = delete $attributes{label};
 
+  _set_id_attribute(\%attributes, $name . '_' . $attributes{value});
+
   if ($attributes{checked}) {
     $attributes{checked} = 'checked';
   } else {