Funktionsaufrufe nicht mehr in der veralteten Syntax.

[kivitendo-erp.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 44c7686..0fb72d9 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -1030,6 +1030,8 @@ sub create_config {
 
   @config = config_vars();
 
+  my $userspath = $main::userspath;
+
   open(CONF, ">", "$userspath/$self->{login}.conf") || $self->error("$userspath/$self->{login}.conf : $!");
 
   # create the config file
@@ -1156,6 +1158,8 @@ sub error {
 
   my ($self, $msg) = @_;
 
+  $main::lxdebug->show_backtrace();
+
   if ($ENV{HTTP_USER_AGENT}) {
     print qq|Content-Type: text/html