|
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 |
- |
|
|