Revision fc6f5270
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1348 | 1348 |
. $locale->text('Postscript');
|
| 1349 | 1349 |
} |
| 1350 | 1350 |
|
| 1351 |
$language = qq|<select name=language> |
|
| 1351 |
$language_select = qq|<select name=language>
|
|
| 1352 | 1352 |
<option value=""></option>|; |
| 1353 | 1353 |
%lang = (de => "deutsch", en => "englisch", fr => "franz?sisch"); |
| 1354 | 1354 |
foreach $item (keys %lang) {
|
| 1355 | 1355 |
if ($form->{language} eq $item) {
|
| 1356 |
$language .= qq|<option value="$item" selected>$lang{$item}</option>|;
|
|
| 1356 |
$language_select .= qq|<option value="$item" selected>$lang{$item}</option>|;
|
|
| 1357 | 1357 |
} else {
|
| 1358 |
$language .= qq|<option value="$item">$lang{$item}</option>|;
|
|
| 1358 |
$language_select .= qq|<option value="$item">$lang{$item}</option>|;
|
|
| 1359 | 1359 |
} |
| 1360 | 1360 |
} |
| 1361 | 1361 |
|
| ... | ... | |
| 1366 | 1366 |
<table> |
| 1367 | 1367 |
<tr> |
| 1368 | 1368 |
<td>$type</select></td> |
| 1369 |
<td>$language</select</td>
|
|
| 1369 |
<td>${language_select}</select></td>
|
|
| 1370 | 1370 |
<td>$format</select></td> |
| 1371 | 1371 |
<td>$media</select></td> |
| 1372 | 1372 |
|; |
| ... | ... | |
| 1554 | 1554 |
my ($saved_email, $saved_cc, $saved_bcc) = |
| 1555 | 1555 |
($form->{"email"}, $form->{"cc"}, $form->{"bcc"});
|
| 1556 | 1556 |
|
| 1557 |
$language = $form->{language};
|
|
| 1557 |
$language_saved = $form->{language};
|
|
| 1558 | 1558 |
&{"$form->{vc}_details"};
|
| 1559 |
$form->{language} = $language;
|
|
| 1559 |
$form->{language} = $language_saved;
|
|
| 1560 | 1560 |
|
| 1561 | 1561 |
$form->{"email"} = $saved_email if ($saved_email);
|
| 1562 | 1562 |
$form->{"cc"} = $saved_cc if ($saved_cc);
|
Auch abrufbar als: Unified diff
Verhindere, dass die globale Variable $language ueberschrieben wird. [Merge von 849 aus dem LINET prog-Repo]