Lines 72-82
use CGI;
Link Here
|
72 |
use C4::Auth; |
72 |
use C4::Auth; |
73 |
use C4::Output; |
73 |
use C4::Output; |
74 |
|
74 |
|
75 |
use C4::Dates qw/format_date/; |
|
|
76 |
use C4::Acquisition; |
75 |
use C4::Acquisition; |
77 |
use C4::Budgets; |
76 |
use C4::Budgets; |
78 |
|
77 |
|
79 |
use Koha::Acquisition::Bookseller; |
78 |
use Koha::Acquisition::Bookseller; |
|
|
79 |
use Koha::DateUtils qw( dt_from_string ); |
80 |
|
80 |
|
81 |
my $input = CGI->new; |
81 |
my $input = CGI->new; |
82 |
my $booksellerid = $input->param('booksellerid'); |
82 |
my $booksellerid = $input->param('booksellerid'); |
Lines 145-152
my $bookseller = Koha::Acquisition::Bookseller->fetch({ id => $booksellerid });
Link Here
|
145 |
my @parcels = GetInvoices( |
145 |
my @parcels = GetInvoices( |
146 |
supplierid => $booksellerid, |
146 |
supplierid => $booksellerid, |
147 |
invoicenumber => $code, |
147 |
invoicenumber => $code, |
148 |
shipmentdatefrom => $datefrom, |
148 |
shipmentdatefrom => dt_from_string($datefrom), |
149 |
shipmentdateto => $dateto, |
149 |
shipmentdateto => dt_from_string($dateto), |
150 |
order_by => $order |
150 |
order_by => $order |
151 |
); |
151 |
); |
152 |
my $count_parcels = @parcels; |
152 |
my $count_parcels = @parcels; |