X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6af007aef5ff57abc085bf61c6b2d228baac7b25..cd4177627912b8d09f195e7831c0dd0cd4096af2:/SL/AM.pm diff --git a/SL/AM.pm b/SL/AM.pm index 441a184de..e2ea0be0e 100644 --- a/SL/AM.pm +++ b/SL/AM.pm @@ -43,6 +43,7 @@ use Encode; use List::MoreUtils qw(any); use SL::DBUtils; use SL::DB::AuthUser; +use SL::DB::Default; use SL::DB::Employee; use strict; @@ -994,7 +995,7 @@ sub prepare_template_filename { $filename =~ s|.*/||; } $display_filename = $filename; - $filename = "$myconfig->{templates}/$filename"; + $filename = SL::DB::Default->get->templates . "/$filename"; } $main::lxdebug->leave_sub(); @@ -1061,8 +1062,7 @@ sub save_preferences { my $user = SL::DB::Manager::AuthUser->find_by(login => $form->{login}); $user->update_attributes( config_values => { - map({ ($_ => $form->{$_}) } SL::DB::AuthUser::CONFIG_VARS()), - map({ ($_ => do { my $v = $form->{$_}; $v =~ s/\r//g; $v }) } qw(address signature)), + map { ($_ => $form->{$_}) } SL::DB::AuthUser::CONFIG_VARS(), }); $main::lxdebug->leave_sub();