currencies-popup angepasst

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index faaa3cc..9f40930 100644 (file)
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -301,9 +301,10 @@ sub form_header {
  
   %labels = ();
   @values = ();
+  my $i = 0;
   foreach my $item (@{ $form->{"ALL_CURRENCIES"} }) {
-    push(@values, $item->{"currency"});
-    $labels{$item->{"currency"}} = $item->{"currency"};
+    push(@values, $item);
+    $labels{$item} = $item;
   }
   
   $form->{currency}        = $form->{defaultcurrency} unless $form->{currency};

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 59d4b47..6ecad00 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -369,8 +369,8 @@ sub form_header {
   %labels = ();
   @values = ();
   foreach my $item (@{ $form->{"ALL_CURRENCIES"} }) {
-    push(@values, $item->{"currency"});
-    $labels{$item->{"currency"}} = $item->{"currency"};
+    push(@values, $item);
+    $labels{$item} = $item;
   }
   
   $form->{currency}        = $form->{defaultcurrency} unless $form->{currency};

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index bdb6946..6c7cb65 100644 (file)
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -502,9 +502,10 @@ sub form_header {
 
   %labels = ();
   @values = ();
+  my $i = 0;
   foreach my $item (@{ $form->{"ALL_CURRENCIES"} }) {
-    push(@values, $item->{"currency"});
-    $labels{$item->{"currency"}} = $item->{"currency"};
+    push(@values, $item);
+    $labels{$item} = $item;
   }
   
   $form->{currency}        = $form->{defaultcurrency} unless $form->{currency};