|
Lines 34-39
use C4::Search;
Link Here
|
| 34 |
use Koha::Acquisition::Booksellers; |
34 |
use Koha::Acquisition::Booksellers; |
| 35 |
|
35 |
|
| 36 |
use List::MoreUtils qw/any/; |
36 |
use List::MoreUtils qw/any/; |
|
|
37 |
use Number::Format qw(unformat_number); |
| 37 |
|
38 |
|
| 38 |
my $input=new CGI; |
39 |
my $input=new CGI; |
| 39 |
my $flagsrequired = {acquisition => 'order_receive'}; |
40 |
my $flagsrequired = {acquisition => 'order_receive'}; |
|
Lines 56-61
my $cnt = 0;
Link Here
|
| 56 |
my $bookfund = $input->param("bookfund"); |
57 |
my $bookfund = $input->param("bookfund"); |
| 57 |
my $order = GetOrder($ordernumber); |
58 |
my $order = GetOrder($ordernumber); |
| 58 |
my $new_ordernumber = $ordernumber; |
59 |
my $new_ordernumber = $ordernumber; |
|
|
60 |
$unitprice = unformat_number($unitprice); |
| 59 |
|
61 |
|
| 60 |
#need old receivedate if we update the order, parcel.pl only shows the right parcel this way FIXME |
62 |
#need old receivedate if we update the order, parcel.pl only shows the right parcel this way FIXME |
| 61 |
if ($quantityrec > $origquantityrec ) { |
63 |
if ($quantityrec > $origquantityrec ) { |
| 62 |
- |
|
|