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) = @_;
_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 {