|
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; |