3 # Copyright 2011 BibLibre SARL
4 # This file is part of Koha.
6 # Koha is free software; you can redistribute it and/or modify it under the
7 # terms of the GNU General Public License as published by the Free Software
8 # Foundation; either version 2 of the License, or (at your option) any later
11 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
12 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
13 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License along
16 # with Koha; if not, write to the Free Software Foundation, Inc.,
17 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
37 use C4::Bookseller qw/GetBookSeller/;
41 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
43 template_name => 'acqui/invoices.tmpl',
47 flagsrequired => { 'acquisition' => '*' },
52 my $invoicenumber = $input->param('invoicenumber');
53 my $supplier = $input->param('supplier');
54 my $shipmentdatefrom = $input->param('shipmentdatefrom');
55 my $shipmentdateto = $input->param('shipmentdateto');
56 my $billingdatefrom = $input->param('billingdatefrom');
57 my $billingdateto = $input->param('billingdateto');
58 my $isbneanissn = $input->param('isbneanissn');
59 my $title = $input->param('title');
60 my $author = $input->param('author');
61 my $publisher = $input->param('publisher');
62 my $publicationyear = $input->param('publicationyear');
63 my $branch = $input->param('branch');
64 my $op = $input->param('op');
66 my @results_loop = ();
67 if ( $op and $op eq "do_search" ) {
68 my $shipmentdatefrom_iso = C4::Dates->new($shipmentdatefrom)->output("iso");
69 my $shipmentdateto_iso = C4::Dates->new($shipmentdateto)->output("iso");
70 my $billingdatefrom_iso = C4::Dates->new($billingdatefrom)->output("iso");
71 my $billingdateto_iso = C4::Dates->new($billingdateto)->output("iso");
72 my @invoices = GetInvoices(
73 invoicenumber => $invoicenumber,
74 suppliername => $supplier,
75 shipmentdatefrom => $shipmentdatefrom_iso,
76 shipmentdateto => $shipmentdateto_iso,
77 billingdatefrom => $billingdatefrom_iso,
78 billingdateto => $billingdateto_iso,
79 isbneanissn => $isbneanissn,
82 publisher => $publisher,
83 publicationyear => $publicationyear,
88 invoiceid => $_->{invoiceid},
89 billingdate => $_->{billingdate},
90 invoicenumber => $_->{invoicenumber},
91 suppliername => $_->{suppliername},
92 receivedbiblios => $_->{receivedbiblios},
93 receiveditems => $_->{receiveditems},
94 subscriptionid => $_->{subscriptionid},
95 closedate => $_->{closedate},
97 push @results_loop, \%row;
101 # Build suppliers list
102 my @suppliers = GetBookSeller(undef);
103 my @suppliers_loop = ();
105 foreach (@suppliers) {
107 if ( $supplier && $supplier == $_->{'id'} ) {
109 $suppliername = $_->{'name'};
112 suppliername => $_->{'name'},
113 supplierid => $_->{'id'},
114 selected => $selected,
116 push @suppliers_loop, \%row;
119 # Build branches list
120 my $branches = GetBranches();
121 my @branches_loop = ();
123 foreach ( sort keys %$branches ) {
125 if ( $branch && $branch eq $_ ) {
127 $branchname = $branches->{$_}->{'branchname'};
131 branchname => $branches->{$_}->{'branchname'},
132 selected => $selected,
134 push @branches_loop, \%row;
138 do_search => ( $op and $op eq "do_search" ) ? 1 : 0,
139 results_loop => \@results_loop,
140 invoicenumber => $invoicenumber,
141 supplier => $supplier,
142 suppliername => $suppliername,
143 billingdatefrom => $billingdatefrom,
144 billingdateto => $billingdateto,
145 isbneanissn => $isbneanissn,
148 publisher => $publisher,
149 publicationyear => $publicationyear,
151 branchname => $branchname,
152 suppliers_loop => \@suppliers_loop,
153 branches_loop => \@branches_loop,
154 DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
157 output_html_with_http_headers $input, $cookie, $template->output;