Revision 4bd1e2f8
Von Sven Schöling vor mehr als 10 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
|
|
||
|
my ($self, $form) = @_;
|
||
|
|
||
|
my $employee = SL::DB::Manager::Employee->find_by(login => $form->{login});
|
||
|
my $employee = SL::DB::Manager::Employee->find_by(login => $::myconfig{login});
|
||
|
$employee->update_attributes(name => $form->{name});
|
||
|
|
||
|
my $user = SL::DB::Manager::AuthUser->find_by(login => $form->{login});
|
||
|
my $user = SL::DB::Manager::AuthUser->find_by(login => $::myconfig{login});
|
||
|
$user->update_attributes(
|
||
|
config_values => {
|
||
|
%{ $user->config_values },
|
||
Auch abrufbar als: Unified diff
login nicht aus $::form nehmen. Teil 1