Revision 32d33e11
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
|
my ($self, $myconfig, $form) = @_;
|
||
|
|
||
|
# connect to database
|
||
|
my $dbh = $form->dbconnect($myconfig);
|
||
|
my $dbh = $form->dbconnect_noauto($myconfig);
|
||
|
|
||
|
my $query = "DELETE FROM units_language WHERE language_id = ?";
|
||
|
$dbh->do($query, undef, $form->{"id"}) ||
|
||
|
$form->dberror($query . " ($form->{id})");
|
||
|
|
||
|
my $query = "DELETE FROM language WHERE id = ?";
|
||
|
$query = "DELETE FROM language WHERE id = ?";
|
||
|
$dbh->do($query, undef, $form->{"id"}) ||
|
||
|
$form->dberror($query . " ($form->{id})");
|
||
|
|
||
|
$dbh->commit();
|
||
|
$dbh->disconnect;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
Auch abrufbar als: Unified diff
Beim Löschen einer Sprache auch die Übersetzungen der Einheiten löschen.