@@ -, +, @@ --- acqui/supplier.pl | 18 ++++++++++++++---- 1 files changed, 14 insertions(+), 4 deletions(-) --- a/acqui/supplier.pl +++ a/acqui/supplier.pl @@ -122,12 +122,22 @@ if ( $op eq 'display' ) { } else { 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 $supplier->{listprice} ), - invoiceprice => ( $_->{currency} eq $supplier->{invoiceprice} ), - }; + { + currency => $_->{currency}, + listprice => ( $_->{currency} eq $active_listprice ), + invoiceprice => ( $_->{currency} eq $active_invoiceprice ), + }; } my $default_gst_rate = (C4::Context->preference('gist') * 100) || '0.0'; --