Lines 1-4
Link Here
|
1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl -d |
2 |
|
2 |
|
3 |
#A script that lets the user populate a basket from an iso2709 file |
3 |
#A script that lets the user populate a basket from an iso2709 file |
4 |
#the script first displays a list of import batches, then when a batch is selected displays all the biblios in it. |
4 |
#the script first displays a list of import batches, then when a batch is selected displays all the biblios in it. |
Lines 175-180
if ($op eq ""){
Link Here
|
175 |
my $c_quantity = shift( @quantities ) || GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour') ) || 1; |
175 |
my $c_quantity = shift( @quantities ) || GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour') ) || 1; |
176 |
my $c_budget_id = shift( @budgets_id ) || $input->param('all_budget_id') || $budget_id; |
176 |
my $c_budget_id = shift( @budgets_id ) || $input->param('all_budget_id') || $budget_id; |
177 |
my $c_discount = shift ( @discount); |
177 |
my $c_discount = shift ( @discount); |
|
|
178 |
if ($c_discount) { |
179 |
$c_discount =~ s/%//g; #This screws up number conversion badly |
180 |
$c_discount =~ s/,/./g; #Make this an actual digit for Perl |
181 |
$c_discount = $c_discount / 100 if $c_discount >= 1; |
182 |
} |
178 |
$c_discount = $c_discount / 100 if $c_discount > 1; |
183 |
$c_discount = $c_discount / 100 if $c_discount > 1; |
179 |
my $c_sort1 = shift( @sort1 ) || $input->param('all_sort1') || ''; |
184 |
my $c_sort1 = shift( @sort1 ) || $input->param('all_sort1') || ''; |
180 |
my $c_sort2 = shift( @sort2 ) || $input->param('all_sort2') || ''; |
185 |
my $c_sort2 = shift( @sort2 ) || $input->param('all_sort2') || ''; |
Lines 233-251
if ($op eq ""){
Link Here
|
233 |
my $c = $c_discount ? $c_discount : $bookseller->{discount} / 100; |
238 |
my $c = $c_discount ? $c_discount : $bookseller->{discount} / 100; |
234 |
if ( $bookseller->{listincgst} ) { |
239 |
if ( $bookseller->{listincgst} ) { |
235 |
if ( $c_discount ) { |
240 |
if ( $c_discount ) { |
236 |
$orderinfo{ecost} = $price; |
241 |
$orderinfo{ecost} = $price * ( 1 - $c ); #Get the VAT included discounted price |
237 |
$orderinfo{rrp} = $orderinfo{ecost} / ( 1 - $c ); |
242 |
$orderinfo{rrp} = $price; #Replacement price is the non-discounted price. Otherwise our patrons can start making profit by stealing books. |
238 |
} else { |
243 |
} else { |
239 |
$orderinfo{ecost} = $price * ( 1 - $c ); |
244 |
$orderinfo{ecost} = $price; |
240 |
$orderinfo{rrp} = $price; |
245 |
$orderinfo{rrp} = $price; |
241 |
} |
246 |
} |
242 |
} else { |
247 |
} else { |
243 |
if ( $c_discount ) { |
248 |
if ( $c_discount ) { |
244 |
$orderinfo{ecost} = $price / ( 1 + $orderinfo{gstrate} ); |
249 |
$orderinfo{ecost} = $price / ( 1 + $orderinfo{gstrate} ) * ( 1 - $c ); #Add VAT/GST and the discount |
245 |
$orderinfo{rrp} = $orderinfo{ecost} / ( 1 - $c ); |
250 |
$orderinfo{rrp} = $price / ( 1 + $orderinfo{gstrate} ); #Add the VAT |
246 |
} else { |
251 |
} else { |
247 |
$orderinfo{rrp} = $price / ( 1 + $orderinfo{gstrate} ); |
252 |
$orderinfo{rrp} = $price / ( 1 + $orderinfo{gstrate} ); |
248 |
$orderinfo{ecost} = $orderinfo{rrp} * ( 1 - $c ); |
253 |
$orderinfo{ecost} = $price / ( 1 + $orderinfo{gstrate} ); |
249 |
} |
254 |
} |
250 |
} |
255 |
} |
251 |
$orderinfo{listprice} = $orderinfo{rrp} / $cur->{rate}; |
256 |
$orderinfo{listprice} = $orderinfo{rrp} / $cur->{rate}; |
252 |
- |
|
|