|
Lines 62-68
my $new_ordernumber = $ordernumber;
Link Here
|
| 62 |
$unitprice = Koha::Number::Price->new( $unitprice )->unformat(); |
62 |
$unitprice = Koha::Number::Price->new( $unitprice )->unformat(); |
| 63 |
my $basket = Koha::Acquisition::Order->fetch({ordernumber => $ordernumber})->basket; |
63 |
my $basket = Koha::Acquisition::Order->fetch({ordernumber => $ordernumber})->basket; |
| 64 |
|
64 |
|
| 65 |
#need old recievedate if we update the order, parcel.pl only shows the right parcel this way FIXME |
65 |
#need old receivedate if we update the order, parcel.pl only shows the right parcel this way FIXME |
| 66 |
if ($quantityrec > $origquantityrec ) { |
66 |
if ($quantityrec > $origquantityrec ) { |
| 67 |
my @received_items = (); |
67 |
my @received_items = (); |
| 68 |
if ($basket->effective_create_items eq 'ordering') { |
68 |
if ($basket->effective_create_items eq 'ordering') { |
| 69 |
- |
|
|