for my $order ( @orders ) {
$order->{'unitprice'} += 0;
- if ( $bookseller->{listincgst} and not $bookseller->{invoiceincgst} ) {
- $order->{ecost} = $order->{ecost_tax_excluded};
- $order->{unitprice} = $order->{unitprice_tax_excluded};
- }
- elsif ( not $bookseller->{listinct} and $bookseller->{invoiceincgst} ) {
+ if ( $bookseller->{invoiceincgst} ) {
$order->{ecost} = $order->{ecost_tax_included};
$order->{unitprice} = $order->{unitprice_tax_included};
- } else {
- $order->{ecost} = $order->{ecost_tax_excluded};
+ }
+ else {
+ $order->{ecost} = $order->{ecost_tax_excluded};
$order->{unitprice} = $order->{unitprice_tax_excluded};
}
+
$order->{total} = $order->{unitprice} * $order->{quantity};
my %line = %{ $order };
for (my $i = 0 ; $i < $countpendings ; $i++) {
my $order = $pendingorders->[$i];
- if ( $bookseller->{listincgst} and not $bookseller->{invoiceincgst} ) {
- $order->{ecost} = $order->{ecost_tax_excluded};
- } elsif ( not $bookseller->{listinct} and $bookseller->{invoiceincgst} ) {
+ if ( $bookseller->{invoiceincgst} ) {
$order->{ecost} = $order->{ecost_tax_included};
} else {
$order->{ecost} = $order->{ecost_tax_excluded};