Bug 15774: Show additional field values in edit form
[koha.git] / acqui / parcels.pl
1 #!/usr/bin/perl
2
3
4 #script to show display basket of orders
5
6
7 # Copyright 2000-2002 Katipo Communications
8 # Copyright 2008-2009 BibLibre SARL
9 #
10 # This file is part of Koha.
11 #
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.
16 #
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.
21 #
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>.
24
25 =head1 NAME
26
27 parcels.pl
28
29 =head1 DESCRIPTION
30
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.
33
34 =head1 CGI PARAMETERS
35
36 =over 4
37
38 =item booksellerid
39
40 To know the supplier this script has to show orders.
41
42 =item orderby
43
44 sort list of order by 'orderby'.
45 Orderby can be equals to
46     * datereceived desc (default value)
47     * invoicenumber
48     * datereceived
49     * invoicenumber desc
50
51 =item filter
52
53 =item datefrom
54
55 To filter on date
56
57 =item dateto
58
59 To filter on date
60
61 =item resultsperpage
62
63 To know how many results have to be display / page.
64
65 =back
66
67 =cut
68
69 use Modern::Perl;
70 use CGI qw ( -utf8 );
71 use C4::Auth;
72 use C4::Output;
73
74 use C4::Acquisition;
75 use C4::Budgets;
76
77 use Koha::Acquisition::Booksellers;
78 use Koha::DateUtils qw( output_pref dt_from_string );
79
80 my $input          = CGI->new;
81 my $booksellerid     = $input->param('booksellerid');
82 my $order          = $input->param('orderby') || 'shipmentdate desc';
83 my $startfrom      = $input->param('startfrom');
84 my $code           = $input->param('filter');
85 my $datefrom       = $input->param('datefrom');
86 my $dateto         = $input->param('dateto');
87 my $resultsperpage = $input->param('resultsperpage');
88 my $op             = $input->param('op');
89 $resultsperpage ||= 20;
90
91 our ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
92     {   template_name   => 'acqui/parcels.tt',
93         query           => $input,
94         type            => 'intranet',
95         authnotrequired => 0,
96         flagsrequired   => { acquisition => 'order_receive' },
97         debug           => 1,
98     }
99 );
100
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');
105 $shipmentdate and $shipmentdate = output_pref({ str => $shipmentdate, dateformat => 'iso', dateonly => 1 });
106
107 if ( $op and $op eq 'new' ) {
108     if ( C4::Context->preference('AcqWarnOnDuplicateInvoice') ) {
109         my @invoices = GetInvoices(
110             supplierid    => $booksellerid,
111             invoicenumber => $invoicenumber,
112         );
113         if ( scalar @invoices > 0 ) {
114             $template->{'VARS'}->{'duplicate_invoices'} = \@invoices;
115             $template->{'VARS'}->{'invoicenumber'}      = $invoicenumber;
116             $template->{'VARS'}->{'shipmentdate'}       = $shipmentdate;
117             $template->{'VARS'}->{'shipmentcost'}       = $shipmentcost;
118             $template->{'VARS'}->{'shipmentcost_budgetid'} =
119               $shipmentcost_budgetid;
120         }
121     }
122     $op = 'confirm' unless $template->{'VARS'}->{'duplicate_invoices'};
123 }
124 if ($op and $op eq 'confirm') {
125     my $invoiceid = AddInvoice(
126         invoicenumber => $invoicenumber,
127         booksellerid => $booksellerid,
128         shipmentdate => $shipmentdate,
129         shipmentcost => $shipmentcost,
130         shipmentcost_budgetid => $shipmentcost_budgetid,
131     );
132     if(defined $invoiceid) {
133         # Successful 'Add'
134         print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoiceid=$invoiceid");
135         exit 0;
136     } else {
137         $template->param(error_failed_to_create_invoice => 1);
138     }
139 }
140
141 my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
142 my @parcels = GetInvoices(
143     supplierid => $booksellerid,
144     invoicenumber => $code,
145     ( $datefrom ? ( shipmentdatefrom => output_pref({ dt => dt_from_string($datefrom), dateformat => 'iso' }) ) : () ),
146     ( $dateto   ? ( shipmentdateto   => output_pref({ dt => dt_from_string($dateto),   dateformat => 'iso' }) )    : () ),
147     order_by => $order
148 );
149 my $count_parcels = @parcels;
150
151 # multi page display gestion
152 $startfrom ||= 0;
153 if ( $count_parcels > $resultsperpage ) {
154     set_page_navigation( $count_parcels, $startfrom, $resultsperpage );
155 }
156 my $loopres = [];
157
158 my $next_page_start = $startfrom + $resultsperpage;
159 my $last_row = ( $next_page_start < $count_parcels  ) ? $next_page_start - 1 : $count_parcels - 1;
160 for my $i ( $startfrom .. $last_row) {
161     my $p = $parcels[$i];
162
163     push @{$loopres},
164       { number           => $i + 1,
165         invoiceid        => $p->{invoiceid},
166         code             => $p->{invoicenumber},
167         nullcode         => $p->{invoicenumber} eq 'NULL',
168         emptycode        => $p->{invoicenumber} eq q{},
169         raw_datereceived => $p->{shipmentdate},
170         datereceived     => $p->{shipmentdate},
171         bibcount         => $p->{receivedbiblios} || 0,
172         reccount         => $p->{receiveditems} || 0,
173         itemcount        => $p->{itemsexpected} || 0,
174       };
175 }
176 if ($count_parcels) {
177     $template->param( searchresults => $loopres, count => $count_parcels );
178 }
179
180 # build budget list
181 my $budget_loop = [];
182 my $budgets = GetBudgetHierarchy;
183 foreach my $r (@{$budgets}) {
184     next unless (CanUserUseBudget($loggedinuser, $r, $flags));
185     if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) {
186         next;
187     }
188     push @{$budget_loop}, {
189         b_id  => $r->{budget_id},
190         b_txt => $r->{budget_name},
191         b_active => $r->{budget_period_active},
192     };
193 }
194
195 @{$budget_loop} =
196   sort { uc( $a->{b_txt}) cmp uc( $b->{b_txt}) } @{$budget_loop};
197
198
199 $template->param(
200     orderby                  => $order,
201     filter                   => $code,
202     datefrom                 => $datefrom,
203     dateto                   => $dateto,
204     resultsperpage           => $resultsperpage,
205     name                     => $bookseller->name,
206     shipmentdate_today       => dt_from_string,
207     booksellerid             => $booksellerid,
208     GST                      => C4::Context->preference('gist'),
209     budgets                  => $budget_loop,
210 );
211
212 output_html_with_http_headers $input, $cookie, $template->output;
213
214 sub set_page_navigation {
215     my ( $total_rows, $startfrom, $resultsperpage ) = @_;
216     my $displaynext = 0;
217     my $displayprev = $startfrom;
218     my $next_row    = $startfrom + $resultsperpage;
219     my $prev_row    = $startfrom - $resultsperpage;
220
221     if ( $total_rows - $next_row > 0 ) {
222         $displaynext = 1;
223     }
224
225     # set up index numbers for paging
226     my $numbers = [];
227     if ( $total_rows > $resultsperpage ) {
228         my $pages = $total_rows / $resultsperpage;
229         if ( $total_rows % $resultsperpage ) {
230             ++$pages;
231         }
232
233         # set up page indexes for at max 15 pages
234         my $max_idx = ( $pages < 15 ) ? $pages : 15;
235         my $current_page = ( $startfrom / $resultsperpage ) - 1;
236         for my $idx ( 1 .. $max_idx ) {
237             push @{$numbers},
238               { number    => $idx,
239                 startfrom => ( $idx - 1 ) * $resultsperpage,
240                 highlight => ( $idx == $current_page ),
241               };
242         }
243     }
244
245     $template->param(
246         numbers     => $numbers,
247         displaynext => $displaynext,
248         displayprev => $displayprev,
249         nextstartfrom => ( ( $next_row < $total_rows ) ? $next_row : $total_rows ),
250         prevstartfrom => ( ( $prev_row > 0 ) ? $prev_row : 0 )
251     );
252     return;
253 }