View | Details | Raw Unified | Return to bug 18491
Collapse All | Expand All

(-)a/acqui/finishreceive.pl (-1 / +2 lines)
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
- 

Return to bug 18491