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