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 $supplierid = $input->param('supplierid');
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 supplierid
=> $supplierid,
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 booksellerid
=> $_->{booksellerid
},
93 receivedbiblios
=> $_->{receivedbiblios
},
94 receiveditems
=> $_->{receiveditems
},
95 subscriptionid
=> $_->{subscriptionid
},
96 closedate
=> $_->{closedate
},
98 push @results_loop, \
%row;
102 # Build suppliers list
103 my @suppliers = GetBookSeller
(undef);
104 my @suppliers_loop = ();
106 foreach (@suppliers) {
108 if ( $supplierid && $supplierid == $_->{'id'} ) {
110 $suppliername = $_->{'name'};
113 suppliername
=> $_->{'name'},
114 booksellerid
=> $_->{'id'},
115 selected
=> $selected,
117 push @suppliers_loop, \
%row;
120 # Build branches list
121 my $branches = GetBranches
();
122 my @branches_loop = ();
124 foreach ( sort keys %$branches ) {
126 if ( $branch && $branch eq $_ ) {
128 $branchname = $branches->{$_}->{'branchname'};
132 branchname
=> $branches->{$_}->{'branchname'},
133 selected
=> $selected,
135 push @branches_loop, \
%row;
139 do_search
=> ( $op and $op eq "do_search" ) ?
1 : 0,
140 results_loop
=> \
@results_loop,
141 invoicenumber
=> $invoicenumber,
142 booksellerid
=> $supplierid,
143 suppliername
=> $suppliername,
144 billingdatefrom
=> $billingdatefrom,
145 billingdateto
=> $billingdateto,
146 isbneanissn
=> $isbneanissn,
149 publisher
=> $publisher,
150 publicationyear
=> $publicationyear,
152 branchname
=> $branchname,
153 suppliers_loop
=> \
@suppliers_loop,
154 branches_loop
=> \
@branches_loop,
157 output_html_with_http_headers
$input, $cookie, $template->output;