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 0afc2d8426989b992910fb7825e6f354c210d7a4..28fa8d2ede9616a8e4fc6a127d67af05219b5c87 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);
 
   # 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
   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 70e1c8bb008d20884201114ee8b0c4f1e9da30ef..c02842ffc8fe924b11c709436fce174f77e71f3d 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);
 
   # currencies
   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 

+  $form->{selectcurrency} = "";

   map { $form->{selectcurrency} .= "<option>$_\n" } $form->get_all_currencies(\%myconfig);
 
   # customers
   map { $form->{selectcurrency} .= "<option>$_\n" } $form->get_all_currencies(\%myconfig);
 
   # customers