use List::MoreUtils qw(any);
use SL::DBUtils;
use SL::DB::AuthUser;
+use SL::DB::Default;
use SL::DB::Employee;
use strict;
$filename =~ s|.*/||;
}
$display_filename = $filename;
- $filename = "$myconfig->{templates}/$filename";
+ $filename = SL::DB::Default->get->templates . "/$filename";
}
$main::lxdebug->leave_sub();
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();