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