4 #script to show display basket of orders
7 # Copyright 2000-2002 Katipo Communications
8 # Copyright 2008-2009 BibLibre SARL
10 # This file is part of Koha.
12 # Koha is free software; you can redistribute it and/or modify it
13 # under the terms of the GNU General Public License as published by
14 # the Free Software Foundation; either version 3 of the License, or
15 # (at your option) any later version.
17 # Koha is distributed in the hope that it will be useful, but
18 # WITHOUT ANY WARRANTY; without even the implied warranty of
19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 # GNU General Public License for more details.
22 # You should have received a copy of the GNU General Public License
23 # along with Koha; if not, see <http://www.gnu.org/licenses>.
31 This script shows all orders/parcels receipt or pending for a given supplier.
32 It allows to write an order/parcels as 'received' when it arrives.
40 To know the supplier this script has to show orders.
44 sort list of order by 'orderby'.
45 Orderby can be equals to
46 * datereceived desc (default value)
63 To know how many results have to be display / page.
71 use C4::Auth qw( get_template_and_user );
72 use C4::Output qw( output_html_with_http_headers );
74 use C4::Acquisition qw( GetInvoices GetInvoice AddInvoice );
75 use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
77 use Koha::Acquisition::Booksellers;
78 use Koha::Acquisition::Invoices;
79 use Koha::AdditionalFields;
80 use Koha::DateUtils qw( dt_from_string );
83 my $booksellerid = $input->param('booksellerid');
84 my $order = $input->param('orderby') || 'shipmentdate desc';
85 my $startfrom = $input->param('startfrom');
86 my $code = $input->param('filter');
87 my $datefrom = $input->param('datefrom');
88 my $dateto = $input->param('dateto');
89 my $resultsperpage = $input->param('resultsperpage');
90 my $op = $input->param('op');
91 $resultsperpage ||= 20;
93 our ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
94 { template_name => 'acqui/parcels.tt',
97 flagsrequired => { acquisition => 'order_receive' },
101 my $invoicenumber = $input->param('invoice');
102 my $shipmentcost = $input->param('shipmentcost');
103 my $shipmentcost_budgetid = $input->param('shipmentcost_budgetid');
104 my $shipmentdate = $input->param('shipmentdate');
106 if ( $op and $op eq 'cud-new' ) {
107 if ( C4::Context->preference('AcqWarnOnDuplicateInvoice') ) {
108 my @invoices = GetInvoices(
109 supplierid => $booksellerid,
110 invoicenumber => $invoicenumber,
112 if ( scalar @invoices > 0 ) {
113 $template->{'VARS'}->{'duplicate_invoices'} = \@invoices;
114 $template->{'VARS'}->{'invoicenumber'} = $invoicenumber;
115 $template->{'VARS'}->{'shipmentdate'} = $shipmentdate;
116 $template->{'VARS'}->{'shipmentcost'} = $shipmentcost;
117 $template->{'VARS'}->{'shipmentcost_budgetid'} =
118 $shipmentcost_budgetid;
121 $op = 'cud-confirm' unless $template->{'VARS'}->{'duplicate_invoices'};
124 if ($op and $op eq 'cud-confirm') {
125 my $invoiceid = AddInvoice(
126 invoicenumber => $invoicenumber,
127 booksellerid => $booksellerid,
128 shipmentdate => $shipmentdate,
129 shipmentcost => $shipmentcost,
130 shipmentcost_budgetid => $shipmentcost_budgetid,
132 if (defined $invoiceid) {
134 my @additional_fields;
135 my $invoice_fields = Koha::AdditionalFields->search({ tablename => 'aqinvoices' });
136 while ( my $field = $invoice_fields->next ) {
137 my $value = $input->param('additional_field_' . $field->id);
138 if (defined $value) {
139 push @additional_fields, {
145 if (@additional_fields) {
146 my $invoice = Koha::Acquisition::Invoices->find( $invoiceid );
147 $invoice->set_additional_fields(\@additional_fields);
150 print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoiceid=$invoiceid");
153 $template->param(error_failed_to_create_invoice => 1);
158 available_additional_fields => [ Koha::AdditionalFields->search({ tablename => 'aqinvoices' })->as_list ]
161 my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
162 my @parcels = GetInvoices(
163 supplierid => $booksellerid,
164 invoicenumber => $code,
165 ( $datefrom ? ( shipmentdatefrom => $datefrom ) : () ),
166 ( $dateto ? ( shipmentdateto => $dateto ) : () ),
169 my $count_parcels = @parcels;
171 # multi page display gestion
173 if ( $count_parcels > $resultsperpage ) {
174 set_page_navigation( $count_parcels, $startfrom, $resultsperpage );
178 my $next_page_start = $startfrom + $resultsperpage;
179 my $last_row = ( $next_page_start < $count_parcels ) ? $next_page_start - 1 : $count_parcels - 1;
180 for my $i ( $startfrom .. $last_row) {
181 my $p = $parcels[$i];
185 invoiceid => $p->{invoiceid},
186 code => $p->{invoicenumber},
187 nullcode => $p->{invoicenumber} eq 'NULL',
188 emptycode => $p->{invoicenumber} eq q{},
189 raw_datereceived => $p->{shipmentdate},
190 datereceived => $p->{shipmentdate},
191 bibcount => $p->{receivedbiblios} || 0,
192 reccount => $p->{receiveditems} || 0,
193 itemcount => $p->{itemsexpected} || 0,
196 if ($count_parcels) {
197 $template->param( searchresults => $loopres, count => $count_parcels );
201 my $budget_loop = [];
202 my $budgets = GetBudgetHierarchy;
203 foreach my $r (@{$budgets}) {
204 next unless (CanUserUseBudget($loggedinuser, $r, $flags));
205 push @{$budget_loop}, {
206 b_id => $r->{budget_id},
207 b_txt => $r->{budget_name},
208 b_active => $r->{budget_period_active},
213 sort { uc( $a->{b_txt}) cmp uc( $b->{b_txt}) } @{$budget_loop};
219 datefrom => $datefrom,
221 resultsperpage => $resultsperpage,
222 name => $bookseller->name,
223 shipmentdate_today => dt_from_string,
224 booksellerid => $booksellerid,
225 GST => C4::Context->preference('TaxRates'),
226 budgets => $budget_loop,
229 output_html_with_http_headers $input, $cookie, $template->output;
231 sub set_page_navigation {
232 my ( $total_rows, $startfrom, $resultsperpage ) = @_;
234 my $displayprev = $startfrom;
235 my $next_row = $startfrom + $resultsperpage;
236 my $prev_row = $startfrom - $resultsperpage;
238 if ( $total_rows - $next_row > 0 ) {
242 # set up index numbers for paging
244 if ( $total_rows > $resultsperpage ) {
245 my $pages = $total_rows / $resultsperpage;
246 if ( $total_rows % $resultsperpage ) {
250 # set up page indexes for at max 15 pages
251 my $max_idx = ( $pages < 15 ) ? $pages : 15;
252 my $current_page = ( $startfrom / $resultsperpage ) - 1;
253 for my $idx ( 1 .. $max_idx ) {
256 startfrom => ( $idx - 1 ) * $resultsperpage,
257 highlight => ( $idx == $current_page ),
264 displaynext => $displaynext,
265 displayprev => $displayprev,
266 nextstartfrom => ( ( $next_row < $total_rows ) ? $next_row : $total_rows ),
267 prevstartfrom => ( ( $prev_row > 0 ) ? $prev_row : 0 )