From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 1 Nov 2007 10:21:18 +0000 (+0000)
Subject: Bugfix bei Artikelstammdaten: Beim erneuten Aufrufen des Sprachenfensters wurden... 
X-Git-Tag: release-2.6.0beta1~439
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=75e721508b508648ffe2454f10cfe29ba8a359dd;p=kivitendo-erp.git

Bugfix bei Artikelstammdaten: Beim erneuten Aufrufen des Sprachenfensters wurden die vorher getätigten Eingaben nicht angezeigt.
---

diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl
index eeb738001..4b563e6b0 100644
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -3073,10 +3073,19 @@ sub parts_language_selection {
 
   my $languages = IC->retrieve_languages(\%myconfig, $form);
 
+  if ($form->{language_values} ne "") {
+    foreach $item (split(/---\+\+\+---/, $form->{language_values})) {
+      my ($language_id, $translation, $longdescription) = split(/--\+\+--/, $item);
 
-  my $callback = "$form->{script}?action=parts_language_selection&";
-  map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
-      (qw(login password name input_name), grep({ /^[fl]_/ } keys %$form)));
+      foreach my $language (@{ $languages }) {
+        next unless ($language->{id} == $language_id);
+
+        $language->{translation}     = $translation;
+        $language->{longdescription} = $longdescription;
+        last;
+      }
+    }
+  }
 
   my @header_sort = qw(name longdescription);
   my %header_title = ( "name" => $locale->text("Name"),