Revision 75e72150
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 3073 | 3073 |
|
| 3074 | 3074 |
my $languages = IC->retrieve_languages(\%myconfig, $form); |
| 3075 | 3075 |
|
| 3076 |
if ($form->{language_values} ne "") {
|
|
| 3077 |
foreach $item (split(/---\+\+\+---/, $form->{language_values})) {
|
|
| 3078 |
my ($language_id, $translation, $longdescription) = split(/--\+\+--/, $item); |
|
| 3076 | 3079 |
|
| 3077 |
my $callback = "$form->{script}?action=parts_language_selection&";
|
|
| 3078 |
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
|
|
| 3079 |
(qw(login password name input_name), grep({ /^[fl]_/ } keys %$form)));
|
|
| 3080 |
foreach my $language (@{ $languages }) {
|
|
| 3081 |
next unless ($language->{id} == $language_id);
|
|
| 3082 |
|
|
| 3083 |
$language->{translation} = $translation;
|
|
| 3084 |
$language->{longdescription} = $longdescription;
|
|
| 3085 |
last; |
|
| 3086 |
} |
|
| 3087 |
} |
|
| 3088 |
} |
|
| 3080 | 3089 |
|
| 3081 | 3090 |
my @header_sort = qw(name longdescription); |
| 3082 | 3091 |
my %header_title = ( "name" => $locale->text("Name"),
|
Auch abrufbar als: Unified diff
Bugfix bei Artikelstammdaten: Beim erneuten Aufrufen des Sprachenfensters wurden die vorher getätigten Eingaben nicht angezeigt.