X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FHelper%2FPresenter.pm;h=1dae8ccbdac531fddfbc83e01eb020c158c5f200;hb=598383b3b6b63428fcabc5fb6e5595ec59de28e3;hp=0a33902af5dc1774aa359a36183b451b47511646;hpb=43c3e3bcacd31a3d33208bd5ea447a2e5992b76a;p=kivitendo-erp.git 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); }