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( |