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