Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 02bec6bd

Von Sven Schöling vor mehr als 13 Jahren hinzugefügt

  • ID 02bec6bd8223b35938782b226d998fda1105c7d4
  • Vorgänger 1889a90c
  • Nachfolger f3f0322b

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:

SL/Auth.pm

Unterschiede anzeigen:

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