X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fir.pl;h=4209fdf6addc989e1d9f43bc19fe2abc70df7e07;hb=be776964b83340e69fa2f02eae59b703c0c95b88;hp=844f694d93ae5b060307845ecb27d9b911df3559;hpb=16a12c3cec5b300f895ea55245aa36325f18a4ff;p=kivitendo-erp.git diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl index 844f694d9..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} .= "