Endloses Aneinanderhängen von Währungen unterbinden

Bei mehrfachem "Erneuern" werden alle Währungen nocheinmals angehängt.
Dies wird nun unterbunden

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 0afc2d8..28fa8d2 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -162,6 +162,7 @@ sub create_links {
   # currencies
   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 
+  $form->{selectcurrency} = "";
   map { my $quoted = H($_); $form->{selectcurrency} .= "<option value=\"${quoted}\">${quoted}\n" } $form->get_all_currencies(\%myconfig);
 
   # vendors

diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index 70e1c8b..c02842f 100644 (file)
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -171,6 +171,7 @@ sub create_links {
   # currencies
   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 
+  $form->{selectcurrency} = "";
   map { $form->{selectcurrency} .= "<option>$_\n" } $form->get_all_currencies(\%myconfig);
 
   # customers