Lines 209-216
my $count = scalar @rates;
Link Here
|
209 |
my @loop_currency = (); |
209 |
my @loop_currency = (); |
210 |
for ( my $i = 0 ; $i < $count ; $i++ ) { |
210 |
for ( my $i = 0 ; $i < $count ; $i++ ) { |
211 |
my %line; |
211 |
my %line; |
212 |
$line{currency} = $rates[$i]->{'currency'}; |
212 |
$line{currcode} = $rates[$i]->{'currency'}; |
213 |
$line{rate} = $rates[$i]->{'rate'}; |
213 |
$line{rate} = $rates[$i]->{'rate'}; |
|
|
214 |
$line{selected} = 1 if ($line{currcode} eq $data->{currency}); |
214 |
push @loop_currency, \%line; |
215 |
push @loop_currency, \%line; |
215 |
} |
216 |
} |
216 |
|
217 |
|
Lines 342-348
$template->param(
Link Here
|
342 |
name => $bookseller->{'name'}, |
343 |
name => $bookseller->{'name'}, |
343 |
cur_active_sym => $cur->{'symbol'}, |
344 |
cur_active_sym => $cur->{'symbol'}, |
344 |
cur_active => $cur->{'currency'}, |
345 |
cur_active => $cur->{'currency'}, |
345 |
currency => $bookseller->{'listprice'} || $cur->{'currency'}, # eg: 'EUR' |
346 |
# currency => $bookseller->{'listprice'} || $cur->{'currency'}, # eg: 'EUR' |
346 |
loop_currencies => \@loop_currency, |
347 |
loop_currencies => \@loop_currency, |
347 |
orderexists => ( $new eq 'yes' ) ? 0 : 1, |
348 |
orderexists => ( $new eq 'yes' ) ? 0 : 1, |
348 |
title => $data->{'title'}, |
349 |
title => $data->{'title'}, |
Lines 354-360
$template->param(
Link Here
|
354 |
quantity => $data->{'quantity'}, |
355 |
quantity => $data->{'quantity'}, |
355 |
quantityrec => $data->{'quantity'}, |
356 |
quantityrec => $data->{'quantity'}, |
356 |
rrp => $data->{'rrp'}, |
357 |
rrp => $data->{'rrp'}, |
357 |
listprice => sprintf("%.2f", $data->{'listprice'}||$listprice), |
358 |
listprice => sprintf("%.2f", $data->{'listprice'}||$data->{'price'}||$listprice), |
358 |
total => sprintf("%.2f", ($data->{'ecost'}||0)*($data->{'quantity'}||0) ), |
359 |
total => sprintf("%.2f", ($data->{'ecost'}||0)*($data->{'quantity'}||0) ), |
359 |
ecost => $data->{'ecost'}, |
360 |
ecost => $data->{'ecost'}, |
360 |
notes => $data->{'notes'}, |
361 |
notes => $data->{'notes'}, |