Bug 7276 : Follow up, adding a sub to clear the cache
[koha.git] / acqui / parcel.pl
1 #!/usr/bin/perl
2
3 #script to recieve orders
4
5
6 # Copyright 2000-2002 Katipo Communications
7 # Copyright 2008-2009 BibLibre SARL
8 #
9 # This file is part of Koha.
10 #
11 # Koha is free software; you can redistribute it and/or modify it under the
12 # terms of the GNU General Public License as published by the Free Software
13 # Foundation; either version 2 of the License, or (at your option) any later
14 # version.
15 #
16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
18 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
19 #
20 # You should have received a copy of the GNU General Public License along
21 # with Koha; if not, write to the Free Software Foundation, Inc.,
22 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23
24 =head1 NAME
25
26 parcel.pl
27
28 =head1 DESCRIPTION
29
30 This script shows all orders receipt or pending for a given supplier.
31 It allows to write an order as 'received' when he arrives.
32
33 =head1 CGI PARAMETERS
34
35 =over 4
36
37 =item supplierid
38
39 To know the supplier this script has to show orders.
40
41 =item code
42
43 is the bookseller invoice number.
44
45 =item freight
46
47
48 =item gst
49
50
51 =item datereceived
52
53 To filter the results list on this given date.
54
55 =back
56
57 =cut
58
59 use strict;
60 #use warnings; FIXME - Bug 2505
61 use C4::Auth;
62 use C4::Acquisition;
63 use C4::Budgets;
64 use C4::Bookseller qw/ GetBookSellerFromId /;
65 use C4::Biblio;
66 use C4::Items;
67 use CGI;
68 use C4::Output;
69 use C4::Dates qw/format_date format_date_in_iso/;
70 use JSON;
71
72 my $input=new CGI;
73 my $supplierid=$input->param('supplierid');
74 my $bookseller=GetBookSellerFromId($supplierid);
75
76 my $invoice=$input->param('invoice') || '';
77 my $freight=$input->param('freight');
78 my $input_gst = ($input->param('gst') eq '' ? undef : $input->param('gst'));
79 my $gst= $input_gst // $bookseller->{gstrate} // C4::Context->preference("gist") // 0;
80 my $datereceived =  ($input->param('op') eq 'new') ? C4::Dates->new($input->param('datereceived')) 
81                                         :  C4::Dates->new($input->param('datereceived'), 'iso')   ;
82 $datereceived = C4::Dates->new() unless $datereceived;
83 my $code            = $input->param('code');
84 my @rcv_err         = $input->param('error');
85 my @rcv_err_barcode = $input->param('error_bc');
86
87 my $startfrom=$input->param('startfrom');
88 my $resultsperpage = $input->param('resultsperpage');
89 $resultsperpage = 20 unless ($resultsperpage);
90 $startfrom=0 unless ($startfrom);
91
92 if($input->param('format') eq "json"){
93     my ($template, $loggedinuser, $cookie)
94         = get_template_and_user({template_name => "acqui/ajax.tmpl",
95                  query => $input,
96                                  type => "intranet",
97                  authnotrequired => 0,
98                  flagsrequired => {acquisition => 'order_receive'},
99                  debug => 1,
100     });
101        
102     my @datas;
103     my $search   = $input->param('search') || '';
104     my $supplier = $input->param('supplierid') || '';
105     my $basketno = $input->param('basketno') || '';
106     my $orderno  = $input->param('orderno') || '';
107
108     my $orders = SearchOrder($orderno, $search, $supplier, $basketno);
109     foreach my $order (@$orders){
110         if($order->{quantityreceived} < $order->{quantity}){
111             my $data = {};
112             
113             $data->{basketno} = $order->{basketno};
114             $data->{ordernumber} = $order->{ordernumber};
115             $data->{title} = $order->{title};
116             $data->{author} = $order->{author};
117             $data->{isbn} = $order->{isbn};
118             $data->{booksellerid} = $order->{booksellerid};
119             $data->{biblionumber} = $order->{biblionumber};
120             $data->{freight} = $order->{freight};
121             $data->{quantity} = $order->{quantity};
122             $data->{ecost} = $order->{ecost};
123             $data->{ordertotal} = sprintf("%.2f",$order->{ecost}*$order->{quantity});
124             push @datas, $data;
125         }
126     }
127     
128     my $json_text = to_json(\@datas);
129     $template->param(return => $json_text);
130     output_html_with_http_headers $input, $cookie, $template->output;
131     exit;
132 }
133
134 my ($template, $loggedinuser, $cookie)
135     = get_template_and_user({template_name => "acqui/parcel.tmpl",
136                  query => $input,
137                                  type => "intranet",
138                  authnotrequired => 0,
139                  flagsrequired => {acquisition => 'order_receive'},
140                  debug => 1,
141 });
142
143 # If receiving error, report the error (coming from finishrecieve.pl(sic)).
144 if( scalar(@rcv_err) ) {
145         my $cnt=0;
146         my $error_loop;
147         for my $err (@rcv_err) {
148                 push @$error_loop, { "error_$err" => 1 , barcode => $rcv_err_barcode[$cnt] };
149                 $cnt++;
150         }
151         $template->param( receive_error => 1 ,
152                                                 error_loop => $error_loop,
153                                         );
154 }
155
156 my $cfstr         = "%.2f";                                                           # currency format string -- could get this from currency table.
157 my @parcelitems   = GetParcel($supplierid, $invoice, $datereceived->output('iso'));
158 my $countlines    = scalar @parcelitems;
159 my $totalprice    = 0;
160 my $totalfreight  = 0;
161 my $totalquantity = 0;
162 my $total;
163 my $tototal;
164 my @loop_received = ();
165
166 for (my $i = 0 ; $i < $countlines ; $i++) {
167
168     #$total=($parcelitems[$i]->{'unitprice'} + $parcelitems[$i]->{'freight'}) * $parcelitems[$i]->{'quantityreceived'};   #weird, are the freight fees counted by book? (pierre)
169     $total = ($parcelitems[$i]->{'unitprice'}) * $parcelitems[$i]->{'quantityreceived'};    #weird, are the freight fees counted by book? (pierre)
170     $parcelitems[$i]->{'unitprice'} += 0;
171     my %line;
172     %line          = %{ $parcelitems[$i] };
173     $line{invoice} = $invoice;
174     $line{gst}     = $gst;
175     $line{total} = sprintf($cfstr, $total);
176     $line{supplierid} = $supplierid;
177     push @loop_received, \%line;
178     $totalprice += $parcelitems[$i]->{'unitprice'};
179     $line{unitprice} = sprintf($cfstr, $parcelitems[$i]->{'unitprice'});
180
181     #double FIXME - totalfreight is redefined later.
182
183 # FIXME - each order in a  parcel holds the freight for the whole parcel. This means if you receive a parcel with items from multiple budgets, you'll see the freight charge in each budget..
184     if ($i > 0 && $totalfreight != $parcelitems[$i]->{'freight'}) {
185         warn "FREIGHT CHARGE MISMATCH!!";
186     }
187     $totalfreight = $parcelitems[$i]->{'freight'};
188     $totalquantity += $parcelitems[$i]->{'quantityreceived'};
189     $tototal       += $total;
190 }
191
192 my $pendingorders = GetPendingOrders($supplierid);
193 my $countpendings = scalar @$pendingorders;
194
195 # pending orders totals
196 my ($totalPunitprice, $totalPquantity, $totalPecost, $totalPqtyrcvd);
197 my $ordergrandtotal;
198 my @loop_orders = ();
199 for (my $i = 0 ; $i < $countpendings ; $i++) {
200     my %line;
201     %line = %{$pendingorders->[$i]};
202    
203     $line{quantity}+=0;
204     $line{quantityreceived}+=0;
205     $line{unitprice}+=0;
206     $totalPunitprice += $line{unitprice};
207     $totalPquantity +=$line{quantity};
208     $totalPqtyrcvd +=$line{quantityreceived};
209     $totalPecost += $line{ecost};
210     $line{ecost} = sprintf("%.2f",$line{ecost});
211     $line{ordertotal} = sprintf("%.2f",$line{ecost}*$line{quantity});
212     $line{unitprice} = sprintf("%.2f",$line{unitprice});
213     $line{invoice} = $invoice;
214     $line{gst} = $gst;
215     $line{total} = $total;
216     $line{supplierid} = $supplierid;
217     $ordergrandtotal += $line{ecost} * $line{quantity};
218     
219     my $biblionumber = $line{'biblionumber'};
220     my $countbiblio = CountBiblioInOrders($biblionumber);
221     my $ordernumber = $line{'ordernumber'};
222     my @subscriptions = GetSubscriptionsId ($biblionumber);
223     my $itemcount = GetItemsCount($biblionumber);
224     my $holds  = GetHolds ($biblionumber);
225     my @items = GetItemnumbersFromOrder( $ordernumber );
226     my $itemholds;
227     foreach my $item (@items){
228         my $nb = GetItemHolds($biblionumber, $item);
229         if ($nb){
230             $itemholds += $nb;
231         }
232     }
233     
234     # if the biblio is not in other orders and if there is no items elsewhere and no subscriptions and no holds we can then show the link "Delete order and Biblio" see bug 5680
235     $line{can_del_bib}          = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !(@subscriptions) && !($holds);
236     $line{items}                = ($itemcount) - (scalar @items);
237     $line{left_item}            = 1 if $line{items} >= 1;
238     $line{left_biblio}          = 1 if $countbiblio > 1;
239     $line{biblios}              = $countbiblio - 1;
240     $line{left_subscription}    = 1 if scalar @subscriptions >= 1;
241     $line{subscriptions}        = scalar @subscriptions;
242     $line{left_holds}           = 1 if $holds >= 1;
243     $line{left_holds_on_order}  = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds );
244     $line{holds}                = $holds;
245     $line{holds_on_order}       = $itemholds?$itemholds:$holds if $line{left_holds_on_order};
246     
247     
248     push @loop_orders, \%line if ($i >= $startfrom and $i < $startfrom + $resultsperpage);
249 }
250 $freight = $totalfreight unless $freight;
251
252 my $count = $countpendings;
253
254 if ($count>$resultsperpage){
255     my $displaynext=0;
256     my $displayprev=$startfrom;
257     if(($count - ($startfrom+$resultsperpage)) > 0 ) {
258         $displaynext = 1;
259     }
260
261     my @numbers = ();
262     for (my $i=1; $i<$count/$resultsperpage+1; $i++) {
263             my $highlight=0;
264             ($startfrom/$resultsperpage==($i-1)) && ($highlight=1);
265             push @numbers, { number => $i,
266                 highlight => $highlight ,
267                 startfrom => ($i-1)*$resultsperpage};
268     }
269
270     my $from = $startfrom*$resultsperpage+1;
271     my $to;
272     if($count < (($startfrom+1)*$resultsperpage)){
273         $to = $count;
274     } else {
275         $to = (($startfrom+1)*$resultsperpage);
276     }
277     $template->param(numbers=>\@numbers,
278                      displaynext=>$displaynext,
279                      displayprev=>$displayprev,
280                      nextstartfrom=>(($startfrom+$resultsperpage<$count)?$startfrom+$resultsperpage:$count),
281                      prevstartfrom=>(($startfrom-$resultsperpage>0)?$startfrom-$resultsperpage:0)
282                     );
283 }
284
285 #$totalfreight=$freight;
286 $tototal = $tototal + $freight;
287
288 $template->param(
289     invoice               => $invoice,
290     datereceived          => $datereceived->output('iso'),
291     invoicedatereceived   => $datereceived->output('iso'),
292     formatteddatereceived => $datereceived->output(),
293     name                  => $bookseller->{'name'},
294     supplierid            => $supplierid,
295     gst                   => $gst,
296     freight               => $freight,
297     invoice               => $invoice,
298     countreceived         => $countlines,
299     loop_received         => \@loop_received,
300     countpending          => $countpendings,
301     loop_orders           => \@loop_orders,
302     totalprice            => sprintf($cfstr, $totalprice),
303     totalfreight          => $totalfreight,
304     totalquantity         => $totalquantity,
305     tototal               => sprintf($cfstr, $tototal),
306     ordergrandtotal       => sprintf($cfstr, $ordergrandtotal),
307     gst                   => $gst,
308     grandtot              => sprintf($cfstr, $tototal + $gst),
309     totalPunitprice       => sprintf("%.2f", $totalPunitprice),
310     totalPquantity        => $totalPquantity,
311     totalPqtyrcvd         => $totalPqtyrcvd,
312     totalPecost           => sprintf("%.2f", $totalPecost),
313     resultsperpage        => $resultsperpage,
314 );
315 output_html_with_http_headers $input, $cookie, $template->output;
316