From 0c4036d25359c5a110d9179a53fdfa0e338259b3 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 25 Jun 2008 09:29:34 +0000
Subject: [PATCH] =?utf8?q?Artikelstammdatendialog:=20Beim=20Auslesen=20der?=
 =?utf8?q?=20=C3=9Cbersetzungen=20auch=20die=20=C3=BCbersetzte=20Langbesch?=
 =?utf8?q?reibung=20mit=20auslesen.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/IC.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/SL/IC.pm b/SL/IC.pm
index 2499decd0..fece79579 100644
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -188,10 +188,12 @@ sub get_part {
 
   # get translations
   $form->{language_values} = "";
-  $query = qq|SELECT language_id, translation FROM translation WHERE parts_id = ?|;
+  $query = qq|SELECT language_id, translation, longdescription
+              FROM translation
+              WHERE parts_id = ?|;
   my $trq = prepare_execute_query($form, $dbh, $query, conv_i($form->{id}));
-  while ($tr = $trq->fetchrow_hashref(NAME_lc)) {
-    $form->{language_values} .= "---+++---".$tr->{language_id}."--++--".$tr->{translation};
+  while (my $tr = $trq->fetchrow_hashref(NAME_lc)) {
+    $form->{language_values} .= "---+++---" . join('--++--', @{$tr}{qw(language_id translation longdescription)});
   }
   $trq->finish;
 
-- 
2.20.1