- my @currencies = GetCurrencies();
- my $loop_currency;
- my $active_currency = GetCurrency();
- my $active_listprice = $supplier->{'listprice'};
- my $active_invoiceprice = $supplier->{'invoiceprice'};
- if (!$supplier->{listprice}) {
- $active_listprice = $active_currency->{currency};
- }
- if (!$supplier->{invoiceprice}) {
- $active_invoiceprice = $active_currency->{currency};
- }
- for (@currencies) {
- push @{$loop_currency},
- {
- currency => $_->{currency},
- listprice => ( $_->{currency} eq $active_listprice ),
- invoiceprice => ( $_->{currency} eq $active_invoiceprice ),
- };
- }