From 32d33e11e36581e0cc74f026a1141a2b288a5ebb Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 19 Dec 2006 13:32:20 +0000
Subject: [PATCH] =?utf8?q?Beim=20L=C3=B6schen=20einer=20Sprache=20auch=20d?=
 =?utf8?q?ie=20=C3=9Cbersetzungen=20der=20Einheiten=20l=C3=B6schen.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/AM.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/SL/AM.pm b/SL/AM.pm
index a159748aa..ddc0e5017 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -971,12 +971,17 @@ sub delete_language {
   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();
-- 
2.20.1