View | Details | Raw Unified | Return to bug 4161
Collapse All | Expand All

(-)a/acqui/supplier.pl (-5 / +14 lines)
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
- 

Return to bug 4161