From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 19 Dec 2006 13:32:20 +0000 (+0000)
Subject: Beim Löschen einer Sprache auch die Übersetzungen der Einheiten löschen.
X-Git-Tag: release-2.4.1~1^2~128
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=32d33e11e36581e0cc74f026a1141a2b288a5ebb;p=kivitendo-erp.git

Beim Löschen einer Sprache auch die Übersetzungen der Einheiten löschen.
---

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();