Lines 122-133
if ( $op eq 'display' ) {
Link Here
|
122 |
} else { |
122 |
} else { |
123 |
my @currencies = GetCurrencies(); |
123 |
my @currencies = GetCurrencies(); |
124 |
my $loop_currency; |
124 |
my $loop_currency; |
|
|
125 |
my $active_currency = GetCurrency(); |
126 |
my $active_listprice = $supplier->{'listprice'}; |
127 |
my $active_invoiceprice = $supplier->{'invoiceprice'}; |
128 |
if (!$supplier->{listprice}) { |
129 |
$active_listprice = $active_currency->{currency}; |
130 |
} |
131 |
if (!$supplier->{invoiceprice}) { |
132 |
$active_invoiceprice = $active_currency->{currency}; |
133 |
} |
125 |
for (@currencies) { |
134 |
for (@currencies) { |
126 |
push @{$loop_currency}, |
135 |
push @{$loop_currency}, |
127 |
{ currency => $_->{currency}, |
136 |
{ |
128 |
listprice => ( $_->{currency} eq $supplier->{listprice} ), |
137 |
currency => $_->{currency}, |
129 |
invoiceprice => ( $_->{currency} eq $supplier->{invoiceprice} ), |
138 |
listprice => ( $_->{currency} eq $active_listprice ), |
130 |
}; |
139 |
invoiceprice => ( $_->{currency} eq $active_invoiceprice ), |
|
|
140 |
}; |
131 |
} |
141 |
} |
132 |
|
142 |
|
133 |
my $default_gst_rate = (C4::Context->preference('gist') * 100) || '0.0'; |
143 |
my $default_gst_rate = (C4::Context->preference('gist') * 100) || '0.0'; |
134 |
- |
|
|