Lines 203-210
my $count = scalar @rates;
Link Here
|
203 |
my @loop_currency = (); |
203 |
my @loop_currency = (); |
204 |
for ( my $i = 0 ; $i < $count ; $i++ ) { |
204 |
for ( my $i = 0 ; $i < $count ; $i++ ) { |
205 |
my %line; |
205 |
my %line; |
206 |
$line{currency} = $rates[$i]->{'currency'}; |
206 |
$line{currcode} = $rates[$i]->{'currency'}; |
207 |
$line{rate} = $rates[$i]->{'rate'}; |
207 |
$line{rate} = $rates[$i]->{'rate'}; |
|
|
208 |
$line{selected} = 1 if ($line{currcode} eq $data->{currency}); |
208 |
push @loop_currency, \%line; |
209 |
push @loop_currency, \%line; |
209 |
} |
210 |
} |
210 |
|
211 |
|
Lines 336-342
$template->param(
Link Here
|
336 |
name => $bookseller->{'name'}, |
337 |
name => $bookseller->{'name'}, |
337 |
cur_active_sym => $cur->{'symbol'}, |
338 |
cur_active_sym => $cur->{'symbol'}, |
338 |
cur_active => $cur->{'currency'}, |
339 |
cur_active => $cur->{'currency'}, |
339 |
currency => $bookseller->{'listprice'} || $cur->{'currency'}, # eg: 'EUR' |
340 |
# currency => $bookseller->{'listprice'} || $cur->{'currency'}, # eg: 'EUR' |
340 |
loop_currencies => \@loop_currency, |
341 |
loop_currencies => \@loop_currency, |
341 |
orderexists => ( $new eq 'yes' ) ? 0 : 1, |
342 |
orderexists => ( $new eq 'yes' ) ? 0 : 1, |
342 |
title => $data->{'title'}, |
343 |
title => $data->{'title'}, |
Lines 348-354
$template->param(
Link Here
|
348 |
quantity => $data->{'quantity'}, |
349 |
quantity => $data->{'quantity'}, |
349 |
quantityrec => $data->{'quantity'}, |
350 |
quantityrec => $data->{'quantity'}, |
350 |
rrp => $data->{'rrp'}, |
351 |
rrp => $data->{'rrp'}, |
351 |
listprice => sprintf("%.2f", $data->{'listprice'}||$listprice), |
352 |
listprice => sprintf("%.2f", $data->{'listprice'}||$data->{'price'}||$listprice), |
352 |
total => sprintf("%.2f", ($data->{'ecost'}||0)*($data->{'quantity'}||0) ), |
353 |
total => sprintf("%.2f", ($data->{'ecost'}||0)*($data->{'quantity'}||0) ), |
353 |
ecost => $data->{'ecost'}, |
354 |
ecost => $data->{'ecost'}, |
354 |
notes => $data->{'notes'}, |
355 |
notes => $data->{'notes'}, |