X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0ccbeedc3c5d6f86095ed663919a42bd3df814cc..7e0814bb34ae9e6c424aa10e37ccb9ca4541fc49:/SL/Template/Simple.pm

diff --git a/SL/Template/Simple.pm b/SL/Template/Simple.pm
index be5ba8b5d..8696796bc 100644
--- a/SL/Template/Simple.pm
+++ b/SL/Template/Simple.pm
@@ -30,12 +30,9 @@ sub new {
 }
 
 sub _init {
-  my $self = shift;
+  my ($self, %params) = @_;
 
-  $self->{source}    = shift;
-  $self->{form}      = shift;
-  $self->{myconfig}  = shift;
-  $self->{userspath} = shift;
+  $self->{$_} = $params{$_} for keys %params;
 
   $self->{error}     = undef;
   $self->{quot_re}   = '"';