Revision 02bec6bd
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 437 | 437 |
|
| 438 | 438 |
my $form = $main::form; |
| 439 | 439 |
|
| 440 |
my %user = $self->read_user($login); |
|
| 441 |
my $u_dbh = DBI->connect($user{dbconnect}, $user{dbuser}, $user{dbpasswd});
|
|
| 442 |
|
|
| 440 | 443 |
my $dbh = $self->dbconnect(); |
| 441 | 444 |
|
| 442 | 445 |
$dbh->begin_work; |
| ... | ... | |
| 449 | 452 |
|
| 450 | 453 |
do_query($form, $dbh, qq|DELETE FROM auth.user_group WHERE user_id = ?|, $id); |
| 451 | 454 |
do_query($form, $dbh, qq|DELETE FROM auth.user_config WHERE user_id = ?|, $id); |
| 455 |
do_query($form, $u_dbh, qq|UPDATE employee SET deleted = 't' WHERE login = ?|, $login); |
|
| 452 | 456 |
|
| 453 |
$dbh->commit(); |
|
| 457 |
$dbh->commit; |
|
| 458 |
$u_dbh->commit; |
|
| 454 | 459 |
|
| 455 | 460 |
$main::lxdebug->leave_sub(); |
| 456 | 461 |
} |
Auch abrufbar als: Unified diff
Serverfehler beim Löschen von Benutzern behoben.
Das globale $form kann im admin.pl Environment nicht auf die User DB connecten, also muss das von Hand gemacht werden.
Conflicts: