Lines 189-195
if ($op eq ""){
Link Here
|
189 |
SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' ); |
189 |
SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' ); |
190 |
} |
190 |
} |
191 |
# 3rd add order |
191 |
# 3rd add order |
192 |
my $patron = C4::Members->GetMember( borrowernumber => $loggedinuser ); |
192 |
my $patron = C4::Members::GetMember( borrowernumber => $loggedinuser ); |
193 |
my $branch = C4::Branch->GetBranchDetail( $patron->{branchcode} ); |
193 |
my $branch = C4::Branch->GetBranchDetail( $patron->{branchcode} ); |
194 |
# get quantity in the MARC record (1 if none) |
194 |
# get quantity in the MARC record (1 if none) |
195 |
my $quantity = GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour')) || 1; |
195 |
my $quantity = GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour')) || 1; |
Lines 223-233
if ($op eq ""){
Link Here
|
223 |
my $bookseller = GetBookSellerFromId( $basket->{booksellerid} ); |
223 |
my $bookseller = GetBookSellerFromId( $basket->{booksellerid} ); |
224 |
$orderinfo{gstrate} = $bookseller->{gstrate}; |
224 |
$orderinfo{gstrate} = $bookseller->{gstrate}; |
225 |
if ( $bookseller->{listincgst} ) { |
225 |
if ( $bookseller->{listincgst} ) { |
226 |
$orderinfo{ecost} = $price; |
226 |
$orderinfo{rrp} = $price; |
|
|
227 |
$orderinfo{ecost} = $orderinfo{rrp} * ( 1 - $bookseller->{discount} ); |
227 |
} else { |
228 |
} else { |
228 |
$orderinfo{ecost} = $price * ( 1 + $orderinfo{gstrate} ); |
229 |
$orderinfo{rrp} = $price / ( 1 + $orderinfo{gstrate} ); |
|
|
230 |
$orderinfo{ecost} = $orderinfo{rrp} * ( 1 - $bookseller->{discount} ); |
229 |
} |
231 |
} |
230 |
$orderinfo{rrp} = ( $orderinfo{ecost} * 100 ) / ( 100 - $bookseller->{discount} ); |
|
|
231 |
$orderinfo{listprice} = $orderinfo{rrp}; |
232 |
$orderinfo{listprice} = $orderinfo{rrp}; |
232 |
$orderinfo{unitprice} = $orderinfo{ecost}; |
233 |
$orderinfo{unitprice} = $orderinfo{ecost}; |
233 |
$orderinfo{total} = $orderinfo{ecost}; |
234 |
$orderinfo{total} = $orderinfo{ecost}; |
234 |
- |
|
|