X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/43c3e3bcacd31a3d33208bd5ea447a2e5992b76a..d32410ac096b:/SL/DB/Helper/Presenter.pm diff --git a/SL/DB/Helper/Presenter.pm b/SL/DB/Helper/Presenter.pm index 0a33902af..1dae8ccbd 100644 --- a/SL/DB/Helper/Presenter.pm +++ b/SL/DB/Helper/Presenter.pm @@ -19,6 +19,8 @@ sub AUTOLOAD { eval "require $self->[0]"; + splice @args, -1, 1, %{ $args[-1] } if @args && (ref($args[-1]) eq 'HASH'); + if (my $sub = $self->[0]->can($method)) { return $sub->($self->[1], @args); }