Revision 1d5b112a
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 738 | 738 |
do_query($form, $dbh, $query, ($self->{login}, $myconfig->{name}, $myconfig->{tel}, "user"));
|
| 739 | 739 |
|
| 740 | 740 |
} elsif ($update_existing) {
|
| 741 |
my $query = qq|UPDATE employee SET name = ?, workphone = ?, role = 'user' WHERE id = ?|; |
|
| 741 |
my $query = qq|UPDATE employee SET name = ?, workphone = ?, role = 'user', deleted = 'f' WHERE id = ?|;
|
|
| 742 | 742 |
do_query($form, $dbh, $query, $myconfig->{name}, $myconfig->{tel}, $id);
|
| 743 | 743 |
} |
| 744 | 744 |
|
Auch abrufbar als: Unified diff
Beim Klonen eines einmal gelöschten users das deleted Flag resetten.