Lines 61-67
my $new_ordernumber = $ordernumber;
Link Here
|
61 |
|
61 |
|
62 |
$unitprice = Koha::Number::Price->new( $unitprice )->unformat(); |
62 |
$unitprice = Koha::Number::Price->new( $unitprice )->unformat(); |
63 |
$replacementprice = Koha::Number::Price->new( $replacementprice )->unformat(); |
63 |
$replacementprice = Koha::Number::Price->new( $replacementprice )->unformat(); |
64 |
warn "Replacement $replacementprice"; |
|
|
65 |
my $basket = Koha::Acquisition::Orders->find( $ordernumber )->basket; |
64 |
my $basket = Koha::Acquisition::Orders->find( $ordernumber )->basket; |
66 |
|
65 |
|
67 |
#need old receivedate if we update the order, parcel.pl only shows the right parcel this way FIXME |
66 |
#need old receivedate if we update the order, parcel.pl only shows the right parcel this way FIXME |
68 |
- |
|
|