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