Bug 28704: Library MARCOrgCode field needs maxlength attribute
[koha.git] / acqui / parcel.pl
1 #!/usr/bin/perl
2
3 #script to receive 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
12 # under the terms of the GNU General Public License as published by
13 # the Free Software Foundation; either version 3 of the License, or
14 # (at your option) any later version.
15 #
16 # Koha is distributed in the hope that it will be useful, but
17 # WITHOUT ANY WARRANTY; without even the implied warranty of
18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 # GNU General Public License for more details.
20 #
21 # You should have received a copy of the GNU General Public License
22 # along with Koha; if not, see <http://www.gnu.org/licenses>.
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 it arrives.
32
33 =head1 CGI PARAMETERS
34
35 =over 4
36
37 =item booksellerid
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
46 =item gst
47
48
49 =item datereceived
50
51 To filter the results list on this given date.
52
53 =back
54
55 =cut
56
57 use Modern::Perl;
58
59 use C4::Auth;
60 use C4::Acquisition;
61 use C4::Budgets;
62 use C4::Biblio;
63 use C4::Items;
64 use CGI qw ( -utf8 );
65 use C4::Output;
66 use C4::Suggestions;
67
68 use Koha::Acquisition::Baskets;
69 use Koha::Acquisition::Bookseller;
70 use Koha::Acquisition::Orders;
71 use Koha::Biblios;
72 use Koha::DateUtils;
73 use Koha::Biblios;
74
75 use JSON;
76
77 my $input = CGI->new;
78
79 my ($template, $loggedinuser, $cookie)
80     = get_template_and_user({template_name => "acqui/parcel.tt",
81                  query => $input,
82                  type => "intranet",
83                  flagsrequired => {acquisition => 'order_receive'},
84                  debug => 1,
85 });
86
87 my $op = $input->param('op') // '';
88
89 # process cancellation first so that list of
90 # orders to display is calculated after
91 if ($op eq 'cancelreceipt') {
92     my $ordernumber = $input->param('ordernumber');
93     my $parent_ordernumber = CancelReceipt($ordernumber);
94     unless($parent_ordernumber) {
95         $template->param(error_cancelling_receipt => 1);
96     }
97 }
98
99 my $invoiceid = $input->param('invoiceid');
100 my $invoice;
101 $invoice = GetInvoiceDetails($invoiceid) if $invoiceid;
102
103 unless( $invoiceid and $invoice->{invoiceid} ) {
104     $template->param(
105         error_invoice_not_known => 1,
106         no_orders_to_display    => 1
107     );
108     output_html_with_http_headers $input, $cookie, $template->output;
109     exit;
110 }
111
112 my $booksellerid = $invoice->{booksellerid};
113 my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
114
115 my @orders        = @{ $invoice->{orders} };
116 my $countlines    = scalar @orders;
117 my @loop_received = ();
118 my @book_foot_loop;
119 my %foot;
120 my $total_tax_excluded = 0;
121 my $total_tax_included = 0;
122
123 my $subtotal_for_funds;
124 for my $order ( @orders ) {
125     $order->{'unitprice'} += 0;
126
127     my $order_object = Koha::Acquisition::Orders->find($order->{ordernumber});
128     if ( $bookseller->invoiceincgst ) {
129         $order->{ecost}     = $order->{ecost_tax_included};
130         $order->{unitprice} = $order->{unitprice_tax_included};
131     }
132     else {
133         $order->{ecost}     = $order->{ecost_tax_excluded};
134         $order->{unitprice} = $order->{unitprice_tax_excluded};
135     }
136
137     $order->{total} = get_rounded_price($order->{unitprice}) * $order->{quantity};
138
139     my %line = %{ $order };
140     $line{invoice} = $invoice->{invoicenumber};
141     my @itemnumbers = $order_object->items->get_column('itemnumber');
142     my $biblio = Koha::Biblios->find( $line{biblionumber} );
143     $line{total_holds} = $biblio ? $biblio->holds->count : 0;
144     $line{item_holds} = $biblio ? $biblio->current_holds->search(
145         {
146             itemnumber => { -in => \@itemnumbers },
147         }
148     )->count : 0;
149     $line{budget} = GetBudgetByOrderNumber( $line{ordernumber} );
150
151     $line{tax_value} = $line{tax_value_on_receiving};
152     $line{tax_rate} = $line{tax_rate_on_receiving};
153     $foot{$line{tax_rate}}{tax_rate} = $line{tax_rate};
154     $foot{$line{tax_rate}}{tax_value} += $line{tax_value};
155     $total_tax_excluded += get_rounded_price($line{unitprice_tax_excluded}) * $line{quantity};
156     $total_tax_included += get_rounded_price($line{unitprice_tax_included}) * $line{quantity};
157
158     my $suggestion   = GetSuggestionInfoFromBiblionumber($line{biblionumber});
159     $line{suggestionid}         = $suggestion->{suggestionid};
160     $line{surnamesuggestedby}   = $suggestion->{surnamesuggestedby};
161     $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
162
163     if ( $line{parent_ordernumber} != $line{ordernumber} ) {
164         if ( grep { $_->{ordernumber} == $line{parent_ordernumber} }
165             @orders
166             )
167         {
168             $line{cannot_cancel} = 1;
169         }
170     }
171
172     my $budget_name = GetBudgetName( $line{budget_id} );
173     $line{budget_name} = $budget_name;
174
175     $subtotal_for_funds->{ $line{budget_name} }{ecost} += get_rounded_price($order->{ecost}) * $order->{quantity};
176     $subtotal_for_funds->{ $line{budget_name} }{unitprice} += $order->{total};
177
178     push @loop_received, \%line;
179 }
180 push @book_foot_loop, map { $_ } values %foot;
181
182 $template->param(
183     invoiceid             => $invoice->{invoiceid},
184     invoice               => $invoice->{invoicenumber},
185     invoiceclosedate      => $invoice->{closedate},
186     shipmentdate         => $invoice->{shipmentdate},
187     name                  => $bookseller->name,
188     booksellerid          => $bookseller->id,
189     loop_received         => \@loop_received,
190     book_foot_loop        => \@book_foot_loop,
191     (uc(C4::Context->preference("marcflavour"))) => 1,
192     total_tax_excluded    => $total_tax_excluded,
193     total_tax_included    => $total_tax_included,
194     subtotal_for_funds    => $subtotal_for_funds,
195 );
196 output_html_with_http_headers $input, $cookie, $template->output;