3 #script to receive orders
6 # Copyright 2000-2002 Katipo Communications
7 # Copyright 2008-2009 BibLibre SARL
9 # This file is part of Koha.
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.
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.
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>.
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.
39 To know the supplier this script has to show orders.
43 is the bookseller invoice number.
51 To filter the results list on this given date.
68 use C4
::Reserves qw
/GetReservesFromBiblionumber/;
70 use Koha
::Acquisition
::Bookseller
;
76 my $sticky_filters = $input->param('sticky_filters') || 0;
78 my ($template, $loggedinuser, $cookie)
79 = get_template_and_user
({template_name
=> "acqui/parcel.tt",
83 flagsrequired
=> {acquisition
=> 'order_receive'},
87 my $op = $input->param('op') // '';
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);
99 my $invoiceid = $input->param('invoiceid');
101 $invoice = GetInvoiceDetails
($invoiceid) if $invoiceid;
103 unless( $invoiceid and $invoice->{invoiceid
} ) {
105 error_invoice_not_known
=> 1,
106 no_orders_to_display
=> 1
108 output_html_with_http_headers
$input, $cookie, $template->output;
112 my $booksellerid = $invoice->{booksellerid
};
113 my $bookseller = Koha
::Acquisition
::Bookseller
->fetch({ id
=> $booksellerid });
115 my @orders = @
{ $invoice->{orders
} };
116 my $countlines = scalar @orders;
117 my @loop_received = ();
120 my $total_tax_excluded = 0;
121 my $total_tax_included = 0;
123 my $subtotal_for_funds;
124 for my $order ( @orders ) {
125 $order->{'unitprice'} += 0;
127 if ( $bookseller->{listincgst
} and not $bookseller->{invoiceincgst
} ) {
128 $order->{ecost
} = $order->{ecost_tax_excluded
};
129 $order->{unitprice
} = $order->{unitprice_tax_excluded
};
131 elsif ( not $bookseller->{listinct
} and $bookseller->{invoiceincgst
} ) {
132 $order->{ecost
} = $order->{ecost_tax_included
};
133 $order->{unitprice
} = $order->{unitprice_tax_included
};
135 $order->{ecost
} = $order->{ecost_tax_excluded
};
136 $order->{unitprice
} = $order->{unitprice_tax_excluded
};
138 $order->{total
} = $order->{unitprice
} * $order->{quantity
};
140 my %line = %{ $order };
141 $line{invoice
} = $invoice->{invoicenumber
};
143 my @itemnumbers = GetItemnumbersFromOrder
( $order->{ordernumber
} );
144 for my $itemnumber ( @itemnumbers ) {
145 my $holds = GetReservesFromBiblionumber
({ biblionumber
=> $line{biblionumber
}, itemnumber
=> $itemnumber });
146 $line{holds
} += scalar( @
$holds );
148 $line{budget
} = GetBudgetByOrderNumber
( $line{ordernumber
} );
150 $line{tax_value
} = $line{tax_value_on_receiving
};
151 $line{tax_rate
} = $line{tax_rate_on_receiving
};
152 $foot{$line{tax_rate
}}{tax_rate
} = $line{tax_rate
};
153 $foot{$line{tax_rate
}}{tax_value
} += $line{tax_value
};
154 $total_tax_excluded += $line{unitprice_tax_excluded
} * $line{quantity
};
155 $total_tax_included += $line{unitprice_tax_included
} * $line{quantity
};
157 my $suggestion = GetSuggestionInfoFromBiblionumber
($line{biblionumber
});
158 $line{suggestionid
} = $suggestion->{suggestionid
};
159 $line{surnamesuggestedby
} = $suggestion->{surnamesuggestedby
};
160 $line{firstnamesuggestedby
} = $suggestion->{firstnamesuggestedby
};
162 if ( $line{parent_ordernumber
} != $line{ordernumber
} ) {
163 if ( grep { $_->{ordernumber
} == $line{parent_ordernumber
} }
167 $line{cannot_cancel
} = 1;
171 my $budget_name = GetBudgetName
( $line{budget_id
} );
172 $line{budget_name
} = $budget_name;
174 $subtotal_for_funds->{ $line{budget_name
} }{ecost
} += $order->{ecost
} * $order->{quantity
};
175 $subtotal_for_funds->{ $line{budget_name
} }{unitprice
} += $order->{total
};
177 push @loop_received, \
%line;
179 push @book_foot_loop, map { $_ } values %foot;
181 my @loop_orders = ();
182 unless( defined $invoice->{closedate
} ) {
184 if ( $op eq "search" or $sticky_filters ) {
185 my ( $search, $ean, $basketname, $orderno, $basketgroupname );
186 if ( $sticky_filters ) {
187 $search = $input->cookie("filter_parcel_summary");
188 $ean = $input->cookie("filter_parcel_ean");
189 $basketname = $input->cookie("filter_parcel_basketname");
190 $orderno = $input->cookie("filter_parcel_orderno");
191 $basketgroupname = $input->cookie("filter_parcel_basketgroupname");
193 $search = $input->param('summaryfilter') || '';
194 $ean = $input->param('eanfilter') || '';
195 $basketname = $input->param('basketfilter') || '';
196 $orderno = $input->param('orderfilter') || '';
197 $basketgroupname = $input->param('basketgroupnamefilter') || '';
199 $pendingorders = SearchOrders
({
200 booksellerid
=> $booksellerid,
201 basketname
=> $basketname,
202 ordernumber
=> $orderno,
205 basketgroupname
=> $basketgroupname,
210 summaryfilter
=> $search,
212 basketfilter
=> $basketname,
213 orderfilter
=> $orderno,
214 basketgroupnamefilter
=> $basketgroupname,
217 $pendingorders = SearchOrders
({
218 booksellerid
=> $booksellerid,
222 my $countpendings = scalar @
$pendingorders;
224 for (my $i = 0 ; $i < $countpendings ; $i++) {
225 my $order = $pendingorders->[$i];
227 if ( $bookseller->{listincgst
} and not $bookseller->{invoiceincgst
} ) {
228 $order->{ecost
} = $order->{ecost_tax_excluded
};
229 } elsif ( not $bookseller->{listinct
} and $bookseller->{invoiceincgst
} ) {
230 $order->{ecost
} = $order->{ecost_tax_included
};
232 $order->{ecost
} = $order->{ecost_tax_excluded
};
234 $order->{total
} = $order->{ecost
} * $order->{quantity
};
238 $line{invoice
} = $invoice;
239 $line{booksellerid
} = $booksellerid;
241 my $biblionumber = $line{'biblionumber'};
242 my $countbiblio = CountBiblioInOrders
($biblionumber);
243 my $ordernumber = $line{'ordernumber'};
244 my @subscriptions = GetSubscriptionsId
($biblionumber);
245 my $itemcount = GetItemsCount
($biblionumber);
246 my $holds = GetHolds
($biblionumber);
247 my @items = GetItemnumbersFromOrder
( $ordernumber );
249 foreach my $item (@items){
250 my $nb = GetItemHolds
($biblionumber, $item);
256 my $suggestion = GetSuggestionInfoFromBiblionumber
($line{biblionumber
});
257 $line{suggestionid
} = $suggestion->{suggestionid
};
258 $line{surnamesuggestedby
} = $suggestion->{surnamesuggestedby
};
259 $line{firstnamesuggestedby
} = $suggestion->{firstnamesuggestedby
};
261 # 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
262 $line{can_del_bib
} = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !(@subscriptions) && !($holds);
263 $line{items
} = ($itemcount) - (scalar @items);
264 $line{left_item
} = 1 if $line{items
} >= 1;
265 $line{left_biblio
} = 1 if $countbiblio > 1;
266 $line{biblios
} = $countbiblio - 1;
267 $line{left_subscription
} = 1 if scalar @subscriptions >= 1;
268 $line{subscriptions
} = scalar @subscriptions;
269 $line{left_holds
} = ($holds >= 1) ?
1 : 0;
270 $line{left_holds_on_order
} = 1 if $line{left_holds
}==1 && ($line{items
} == 0 || $itemholds );
271 $line{holds
} = $holds;
272 $line{holds_on_order
} = $itemholds?
$itemholds:$holds if $line{left_holds_on_order
};
274 my $budget_name = GetBudgetName
( $line{budget_id
} );
275 $line{budget_name
} = $budget_name;
277 push @loop_orders, \
%line;
281 loop_orders
=> \
@loop_orders,
286 invoiceid
=> $invoice->{invoiceid
},
287 invoice
=> $invoice->{invoicenumber
},
288 invoiceclosedate
=> $invoice->{closedate
},
289 datereceived
=> dt_from_string
,
290 name
=> $bookseller->{'name'},
291 booksellerid
=> $bookseller->{id
},
292 loop_received
=> \
@loop_received,
293 loop_orders
=> \
@loop_orders,
294 book_foot_loop
=> \
@book_foot_loop,
295 (uc(C4
::Context
->preference("marcflavour"))) => 1,
296 total_tax_excluded
=> $total_tax_excluded,
297 total_tax_included
=> $total_tax_included,
298 subtotal_for_funds
=> $subtotal_for_funds,
299 sticky_filters
=> $sticky_filters,
301 output_html_with_http_headers
$input, $cookie, $template->output;