X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FHelper%2FPresenter.pm;h=1dae8ccbdac531fddfbc83e01eb020c158c5f200;hb=332e327b6613bf762b34d841442378de255d946b;hp=9c9f8a25da4256879bf1230e1ec80528bb309a1b;hpb=0e5e350124f7eec8f67109fe4777bc2dae6c0ea6;p=kivitendo-erp.git

diff --git a/SL/DB/Helper/Presenter.pm b/SL/DB/Helper/Presenter.pm
index 9c9f8a25d..1dae8ccbd 100644
--- a/SL/DB/Helper/Presenter.pm
+++ b/SL/DB/Helper/Presenter.pm
@@ -17,11 +17,21 @@ sub AUTOLOAD {
 
   return if $method eq 'DESTROY';
 
+  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);
   }
 }
 
+sub can {
+  my ($self, $method) = @_;
+  eval "require $self->[0]";
+  $self->[0]->can($method);
+}
+
 1;
 
 __END__