From fc6f5270f44db2dd09403fceef77b329c4dab0d5 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 21 Feb 2006 09:53:13 +0000
Subject: [PATCH] Verhindere, dass die globale Variable $language
 ueberschrieben wird. [Merge von 849 aus dem LINET prog-Repo]

---
 bin/mozilla/io.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 79942bcaf..11c355bf6 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1348,14 +1348,14 @@ sub print_options {
       . $locale->text('Postscript');
   }
 
-  $language = qq|<select name=language>
+  $language_select = qq|<select name=language>
                  <option value=""></option>|;
   %lang = (de => "deutsch", en => "englisch", fr => "französisch");
   foreach $item (keys %lang) {
     if ($form->{language} eq $item) {
-      $language .= qq|<option value="$item" selected>$lang{$item}</option>|;
+      $language_select .= qq|<option value="$item" selected>$lang{$item}</option>|;
     } else {
-      $language .= qq|<option value="$item">$lang{$item}</option>|;
+      $language_select .= qq|<option value="$item">$lang{$item}</option>|;
     }
   }
 
@@ -1366,7 +1366,7 @@ sub print_options {
       <table>
 	<tr>
 	  <td>$type</select></td>
-          <td>$language</select</td>
+          <td>${language_select}</select></td>
 	  <td>$format</select></td>
 	  <td>$media</select></td>
 |;
@@ -1554,9 +1554,9 @@ sub print_form {
   my ($saved_email, $saved_cc, $saved_bcc) =
     ($form->{"email"}, $form->{"cc"}, $form->{"bcc"});
 
-  $language = $form->{language};
+  $language_saved = $form->{language};
   &{"$form->{vc}_details"};
-  $form->{language} = $language;
+  $form->{language} = $language_saved;
 
   $form->{"email"} = $saved_email if ($saved_email);
   $form->{"cc"}    = $saved_cc    if ($saved_cc);
-- 
2.20.1