|
Lines 51-56
my $quantity = $input->param('quantity');
Link Here
|
| 51 |
my $unitprice = $input->param('unitprice'); |
51 |
my $unitprice = $input->param('unitprice'); |
| 52 |
my $replacementprice = $input->param('replacementprice'); |
52 |
my $replacementprice = $input->param('replacementprice'); |
| 53 |
my $datereceived = $input->param('datereceived'); |
53 |
my $datereceived = $input->param('datereceived'); |
|
|
54 |
my $invoice_unitprice = $input->param('invoice_unitprice'); |
| 55 |
my $invoice_currency = $input->param('invoice_currency'); |
| 54 |
my $invoiceid = $input->param('invoiceid'); |
56 |
my $invoiceid = $input->param('invoiceid'); |
| 55 |
my $invoice = GetInvoice($invoiceid); |
57 |
my $invoice = GetInvoice($invoiceid); |
| 56 |
my $invoiceno = $invoice->{invoicenumber}; |
58 |
my $invoiceno = $invoice->{invoicenumber}; |
|
Lines 98-107
if ($quantityrec > $origquantityrec ) {
Link Here
|
| 98 |
} |
100 |
} |
| 99 |
} |
101 |
} |
| 100 |
|
102 |
|
| 101 |
$order_obj->order_internalnote(scalar $input->param("order_internalnote")); |
103 |
$order_obj->set( |
| 102 |
$order_obj->tax_rate_on_receiving(scalar $input->param("tax_rate")); |
104 |
{ |
| 103 |
$order_obj->replacementprice($replacementprice); |
105 |
order_internalnote => scalar $input->param("order_internalnote"), |
| 104 |
$order_obj->unitprice($unitprice); |
106 |
tax_rate_on_receiving => scalar $input->param("tax_rate"), |
|
|
107 |
replacementprice => $replacementprice, |
| 108 |
unitprice => $unitprice, |
| 109 |
( |
| 110 |
defined $invoice_unitprice && $invoice_unitprice ne '' |
| 111 |
? ( |
| 112 |
invoice_unitprice => $invoice_unitprice, |
| 113 |
invoice_currency => $invoice_currency, |
| 114 |
) |
| 115 |
: () |
| 116 |
), |
| 117 |
} |
| 118 |
); |
| 105 |
|
119 |
|
| 106 |
$order_obj->populate_with_prices_for_receiving(); |
120 |
$order_obj->populate_with_prices_for_receiving(); |
| 107 |
|
121 |
|
|
Lines 189-195
if (C4::Context->preference("AcquisitionLog")) {
Link Here
|
| 189 |
bookfund => $bookfund || 'unchanged', |
203 |
bookfund => $bookfund || 'unchanged', |
| 190 |
tax_rate => $input->param("tax_rate"), |
204 |
tax_rate => $input->param("tax_rate"), |
| 191 |
replacementprice => $replacementprice, |
205 |
replacementprice => $replacementprice, |
| 192 |
unitprice => $unitprice |
206 |
unitprice => $unitprice, |
|
|
207 |
( |
| 208 |
defined $invoice_unitprice && $invoice_unitprice ne '' |
| 209 |
? ( |
| 210 |
invoice_unitprice => $invoice_unitprice, |
| 211 |
invoice_currency => $invoice_currency, |
| 212 |
) |
| 213 |
: () |
| 214 |
), |
| 193 |
}; |
215 |
}; |
| 194 |
|
216 |
|
| 195 |
logaction( |
217 |
logaction( |