|
Lines 33-38
use C4::Items;
Link Here
|
| 33 |
use C4::Search; |
33 |
use C4::Search; |
| 34 |
|
34 |
|
| 35 |
use Koha::Acquisition::Bookseller; |
35 |
use Koha::Acquisition::Bookseller; |
|
|
36 |
use Koha::Number::Price; |
| 36 |
|
37 |
|
| 37 |
use List::MoreUtils qw/any/; |
38 |
use List::MoreUtils qw/any/; |
| 38 |
|
39 |
|
|
Lines 58-63
my $bookfund = $input->param("bookfund");
Link Here
|
| 58 |
my $order = GetOrder($ordernumber); |
59 |
my $order = GetOrder($ordernumber); |
| 59 |
my $new_ordernumber = $ordernumber; |
60 |
my $new_ordernumber = $ordernumber; |
| 60 |
|
61 |
|
|
|
62 |
$unitprice = Koha::Number::Price->new( $unitprice )->unformat(); |
| 63 |
|
| 61 |
#need old receivedate if we update the order, parcel.pl only shows the right parcel this way FIXME |
64 |
#need old receivedate if we update the order, parcel.pl only shows the right parcel this way FIXME |
| 62 |
if ($quantityrec > $origquantityrec ) { |
65 |
if ($quantityrec > $origquantityrec ) { |
| 63 |
my @received_items = (); |
66 |
my @received_items = (); |