X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/175dd1fb247e46407ebc773b8103fc773a806fdf..87eebe6:/bin/mozilla/ir.pl?ds=inline diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl index f909d86f6..4209fdf6a 100644 --- a/bin/mozilla/ir.pl +++ b/bin/mozilla/ir.pl @@ -35,6 +35,7 @@ use SL::FU; use SL::IR; use SL::IS; use SL::PE; +use SL::DB::Default; use List::Util qw(max sum); require "bin/mozilla/io.pl"; @@ -148,7 +149,7 @@ sub invoice_links { $form->{currency} = $currency; } - my @curr = split(/:/, $form->{currencies}); #seems to be missing + my @curr = $form->get_all_currencies(); map { $form->{selectcurrency} .= "