From 75e721508b508648ffe2454f10cfe29ba8a359dd Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 1 Nov 2007 10:21:18 +0000 Subject: [PATCH] =?utf8?q?Bugfix=20bei=20Artikelstammdaten:=20Beim=20erneu?= =?utf8?q?ten=20Aufrufen=20des=20Sprachenfensters=20wurden=20die=20vorher?= =?utf8?q?=20get=C3=A4tigten=20Eingaben=20nicht=20angezeigt.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- bin/mozilla/ic.pl | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) 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"), -- 2.20.1