Bug 11529: Add templates for biblio title display. Unify display.
[koha.git] / acqui / orderreceive.pl
1 #!/usr/bin/perl
2
3
4 #script to receive orders
5 #written by chris@katipo.co.nz 24/2/2000
6
7 # Copyright 2000-2002 Katipo Communications
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 orderreceive.pl
27
28 =head1 DESCRIPTION
29
30 This script shows all order already receive and all pendings orders.
31 It permit to write a new order as 'received'.
32
33 =head1 CGI PARAMETERS
34
35 =over 4
36
37 =item booksellerid
38
39 to know on what supplier this script has to display receive order.
40
41 =item invoiceid
42
43 the id of this invoice.
44
45 =item freight
46
47 =item biblio
48
49 The biblionumber of this order.
50
51 =item datereceived
52
53 =item catview
54
55 =item gst
56
57 =back
58
59 =cut
60
61 use Modern::Perl;
62
63 use CGI qw ( -utf8 );
64 use C4::Context;
65 use C4::Acquisition;
66 use C4::Auth;
67 use C4::Output;
68 use C4::Budgets qw/ GetBudget GetBudgetHierarchy CanUserUseBudget GetBudgetPeriods /;
69 use C4::Members;
70 use C4::Items;
71 use C4::Biblio;
72 use C4::Suggestions;
73 use C4::Koha;
74
75 use Koha::Acquisition::Booksellers;
76 use Koha::Acquisition::Currencies;
77 use Koha::Acquisition::Orders;
78 use Koha::DateUtils qw( dt_from_string );
79 use Koha::ItemTypes;
80 use Koha::Patrons;
81
82 my $input      = new CGI;
83
84 my $dbh          = C4::Context->dbh;
85 my $invoiceid    = $input->param('invoiceid');
86 my $invoice      = GetInvoice($invoiceid);
87 my $booksellerid   = $invoice->{booksellerid};
88 my $freight      = $invoice->{shipmentcost};
89 my $ordernumber  = $input->param('ordernumber');
90
91 my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
92 my $results;
93 $results = SearchOrders({
94     ordernumber => $ordernumber
95 }) if $ordernumber;
96
97 my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
98     {
99         template_name   => "acqui/orderreceive.tt",
100         query           => $input,
101         type            => "intranet",
102         authnotrequired => 0,
103         flagsrequired   => {acquisition => 'order_receive'},
104         debug           => 1,
105     }
106 );
107
108 unless ( $results and @$results) {
109     output_html_with_http_headers $input, $cookie, $template->output;
110     exit;
111 }
112
113 # prepare the form for receiving
114 my $order = $results->[0];
115 my $order_object = Koha::Acquisition::Orders->find( $ordernumber );
116 my $basket = $order_object->basket;
117 my $active_currency = Koha::Acquisition::Currencies->get_active;
118
119 # Check if ACQ framework exists
120 my $acq_fw = GetMarcStructure( 1, 'ACQ', { unsafe => 1 } );
121 unless($acq_fw) {
122     $template->param('NoACQframework' => 1);
123 }
124
125 my $AcqCreateItem = $basket->effective_create_items;
126 if ($AcqCreateItem eq 'receiving') {
127     $template->param(
128         AcqCreateItemReceiving => 1,
129         UniqueItemFields => C4::Context->preference('UniqueItemFields'),
130     );
131 } elsif ($AcqCreateItem eq 'ordering') {
132     my $fw = ($acq_fw) ? 'ACQ' : '';
133     my $items = $order_object->items;
134     my @items;
135     while ( my $i = $items->next ) {
136         my $item = $i->unblessed;
137         my $descriptions;
138         $descriptions = Koha::AuthorisedValues->get_description_by_koha_field({frameworkcode => $fw, kohafield => 'items.notforloan', authorised_value => $item->{notforloan} });
139         $item->{notforloan} = $descriptions->{lib} // '';
140
141         $descriptions = Koha::AuthorisedValues->get_description_by_koha_field({frameworkcode => $fw, kohafield => 'items.restricted', authorised_value => $item->{restricted} });
142         $item->{restricted} = $descriptions->{lib} // '';
143
144         $descriptions = Koha::AuthorisedValues->get_description_by_koha_field({frameworkcode => $fw, kohafield => 'items.location', authorised_value => $item->{location} });
145         $item->{location} = $descriptions->{lib} // '';
146
147         $descriptions = Koha::AuthorisedValues->get_description_by_koha_field({frameworkcode => $fw, kohafield => 'items.ccode', authorised_value => $item->{ccode} });
148         $item->{collection} = $descriptions->{lib} // '';
149
150         $descriptions = Koha::AuthorisedValues->get_description_by_koha_field({frameworkcode => $fw, kohafield => 'items.materials', authorised_value => $item->{materials} });
151         $item->{materials} = $descriptions->{lib} // '';
152
153         my $itemtype = Koha::ItemTypes->find($i->effective_itemtype);
154         if (defined $itemtype) {
155             # We should not do that here, but call ->itemtype->description when needed instead
156             $item->{itemtype} = $itemtype->description; # FIXME Should not it be translated_description?
157         }
158         push @items, $item;
159     }
160     $template->param(items => \@items);
161 }
162
163 $order->{quantityreceived} = '' if $order->{quantityreceived} == 0;
164
165 my $unitprice = $order->{unitprice};
166 my ( $rrp, $ecost );
167 if ( $bookseller->invoiceincgst ) {
168     $rrp = $order->{rrp_tax_included};
169     $ecost = $order->{ecost_tax_included};
170     unless ( $unitprice != 0 and defined $unitprice) {
171         $unitprice = $order->{ecost_tax_included};
172     }
173 } else {
174     $rrp = $order->{rrp_tax_excluded};
175     $ecost = $order->{ecost_tax_excluded};
176     unless ( $unitprice != 0 and defined $unitprice) {
177         $unitprice = $order->{ecost_tax_excluded};
178     }
179 }
180
181 my $tax_rate;
182 if( defined $order->{tax_rate_on_receiving} ) {
183     $tax_rate = $order->{tax_rate_on_receiving} + 0.0;
184 } else {
185     $tax_rate = $order->{tax_rate_on_ordering} + 0.0;
186 }
187
188 my $suggestion = GetSuggestionInfoFromBiblionumber($order->{biblionumber});
189
190 my $creator = Koha::Patrons->find( $order->{created_by} );
191
192 my $budget = GetBudget( $order->{budget_id} );
193
194 my $datereceived = $order->{datereceived} ? dt_from_string( $order->{datereceived} ) : dt_from_string;
195
196 # get option values for gist syspref
197 my @gst_values = map {
198     option => $_ + 0.0
199 }, split( '\|', C4::Context->preference("gist") );
200
201 my $order_internalnote = $order->{order_internalnote};
202 my $order_vendornote   = $order->{order_vendornote};
203 if ( $order->{subscriptionid} ) {
204     # Order from a subscription, we will display an history of what has been received
205     my $orders = Koha::Acquisition::Orders->search(
206         {
207             subscriptionid     => $order->{subscriptionid},
208             parent_ordernumber => $order->{ordernumber},
209             ordernumber        => { '!=' => $order->{ordernumber} }
210         }
211     );
212     if ( $order->{parent_ordernumber} != $order->{ordernumber} ) {
213         my $parent_order = Koha::Acquisition::Orders->find($order->{parent_ordernumber});
214         $order_internalnote = $parent_order->{order_internalnote};
215         $order_vendornote   = $parent_order->{order_vendornote};
216     }
217     $template->param(
218         orders => $orders,
219     );
220 }
221
222 $template->param(
223     AcqCreateItem         => $AcqCreateItem,
224     count                 => 1,
225     biblionumber          => $order->{'biblionumber'},
226     ordernumber           => $order->{'ordernumber'},
227     subscriptionid        => $order->{subscriptionid},
228     booksellerid          => $order->{'booksellerid'},
229     freight               => $freight,
230     name                  => $bookseller->name,
231     cur_active_sym        => $active_currency->symbol,
232     cur_active            => $active_currency->currency,
233     invoiceincgst         => $bookseller->invoiceincgst,
234     title                 => $order->{'title'},
235     author                => $order->{'author'},
236     copyrightdate         => $order->{'copyrightdate'},
237     isbn                  => $order->{'isbn'},
238     seriestitle           => $order->{'seriestitle'},
239     bookfund              => $budget->{budget_name},
240     quantity              => $order->{'quantity'},
241     quantityreceivedplus1 => $order->{'quantityreceived'} + 1,
242     quantityreceived      => $order->{'quantityreceived'},
243     rrp                   => $rrp,
244     replacementprice      => $order->{'replacementprice'},
245     ecost                 => $ecost,
246     unitprice             => $unitprice,
247     tax_rate              => $tax_rate,
248     creator               => $creator,
249     invoiceid             => $invoice->{invoiceid},
250     invoice               => $invoice->{invoicenumber},
251     datereceived          => $datereceived,
252     order_internalnote    => $order_internalnote,
253     order_vendornote      => $order_vendornote,
254     suggestionid          => $suggestion->{suggestionid},
255     surnamesuggestedby    => $suggestion->{surnamesuggestedby},
256     firstnamesuggestedby  => $suggestion->{firstnamesuggestedby},
257     gst_values            => \@gst_values,
258 );
259
260 my $patron = Koha::Patrons->find( $loggedinuser )->unblessed;
261 my @budget_loop;
262 my $periods = GetBudgetPeriods( );
263 foreach my $period (@$periods) {
264     if ($period->{'budget_period_id'} == $budget->{'budget_period_id'}) {
265         $template->{'VARS'}->{'budget_period_description'} = $period->{'budget_period_description'};
266     }
267     next if $period->{'budget_period_locked'} || !$period->{'budget_period_description'};
268     my $budget_hierarchy = GetBudgetHierarchy( $period->{'budget_period_id'} );
269     my @funds;
270     foreach my $r ( @{$budget_hierarchy} ) {
271         next unless ( CanUserUseBudget( $patron, $r, $userflags ) );
272         if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) {
273             next;
274         }
275         push @funds,
276           {
277             b_id  => $r->{budget_id},
278             b_txt => $r->{budget_name},
279             b_sel => ( $r->{budget_id} == $order->{budget_id} ) ? 1 : 0,
280           };
281     }
282
283     @funds = sort { uc( $a->{b_txt} ) cmp uc( $b->{b_txt} ) } @funds;
284
285     push @budget_loop,
286       {
287         'id'          => $period->{'budget_period_id'},
288         'description' => $period->{'budget_period_description'},
289         'funds'       => \@funds
290       };
291 }
292
293 $template->{'VARS'}->{'budget_loop'} = \@budget_loop;
294
295 my $op = $input->param('op');
296 if ($op and $op eq 'edit'){
297     $template->param(edit   =>   1);
298 }
299 output_html_with_http_headers $input, $cookie, $template->output;