changelog

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 7e5a443fec4a28815bae06b1863303b1195e5526..e0207243ff409bce4610b60d60f16b8a02327d4f 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2973,7 +2973,9 @@ sub lastname_used {
 sub current_date {
   $main::lxdebug->enter_sub();
 
-  my ($self, $myconfig, $thisdate, $days) = @_;
+  my $self              = shift;
+  my $myconfig          = shift  || \%::myconfig;
+  my ($thisdate, $days) = @_;
 
   my $dbh = $self->get_standard_dbh($myconfig);
   my $query;