From c36bf85d323ee2c4b87fc18ea3012769171349a0 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Wed, 11 Mar 2020 17:10:10 -0300 Subject: [PATCH] Bug 20212: Clean parcel.pl MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Tomas Cohen Arazi Signed-off-by: Séverine QUEUNE --- acqui/parcel.pl | 100 -------------------------------------------------------- 1 file changed, 100 deletions(-) diff --git a/acqui/parcel.pl b/acqui/parcel.pl index d6024a0bf6..3705dfc833 100755 --- a/acqui/parcel.pl +++ b/acqui/parcel.pl @@ -180,105 +180,6 @@ for my $order ( @orders ) { } push @book_foot_loop, map { $_ } values %foot; -my @loop_orders = (); -unless( defined $invoice->{closedate} ) { - my $pendingorders; - if ( $op eq "search" or $sticky_filters ) { - my ( $search, $ean, $basketname, $orderno, $basketgroupname ); - if ( $sticky_filters ) { - $search = $input->cookie("filter_parcel_summary"); - $ean = $input->cookie("filter_parcel_ean"); - $basketname = $input->cookie("filter_parcel_basketname"); - $orderno = $input->cookie("filter_parcel_orderno"); - $basketgroupname = $input->cookie("filter_parcel_basketgroupname"); - } else { - $search = $input->param('summaryfilter') || ''; - $ean = $input->param('eanfilter') || ''; - $basketname = $input->param('basketfilter') || ''; - $orderno = $input->param('orderfilter') || ''; - $basketgroupname = $input->param('basketgroupnamefilter') || ''; - } - $pendingorders = SearchOrders({ - booksellerid => $booksellerid, - basketname => $basketname, - ordernumber => $orderno, - search => $search, - ean => $ean, - basketgroupname => $basketgroupname, - pending => 1, - ordered => 1, - }); - $template->param( - summaryfilter => $search, - eanfilter => $ean, - basketfilter => $basketname, - orderfilter => $orderno, - basketgroupnamefilter => $basketgroupname, - ); - }else{ - $pendingorders = SearchOrders({ - booksellerid => $booksellerid, - ordered => 1 - }); - } - my $countpendings = scalar @$pendingorders; - - for (my $i = 0 ; $i < $countpendings ; $i++) { - my $order = $pendingorders->[$i]; - - if ( $bookseller->invoiceincgst ) { - $order->{ecost} = $order->{ecost_tax_included}; - } else { - $order->{ecost} = $order->{ecost_tax_excluded}; - } - $order->{total} = get_rounded_price($order->{ecost}) * $order->{quantity}; - - my %line = %$order; - - $line{invoice} = $invoice; - $line{booksellerid} = $booksellerid; - - my $biblionumber = $line{'biblionumber'}; - my $biblio = Koha::Biblios->find( $biblionumber ); - my $countbiblio = $biblio ? $biblio->active_orders->count : 0; - my $ordernumber = $line{'ordernumber'}; - my $order_object = Koha::Acquisition::Orders->find($ordernumber); - my $cnt_subscriptions = $biblio ? $biblio->subscriptions->count: 0; - my $itemcount = $biblio ? $biblio->items->count : 0; - my $holds_count = $biblio ? $biblio->holds->count : 0; - my @itemnumbers = $order_object->items->get_column('itemnumber'); - my $itemholds = $biblio ? $biblio->holds->search({ itemnumber => { -in => \@itemnumbers } })->count : 0; - - my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber}); - $line{suggestionid} = $suggestion->{suggestionid}; - $line{surnamesuggestedby} = $suggestion->{surnamesuggestedby}; - $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby}; - - # 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 - $line{can_del_bib} = 1 if $countbiblio <= 1 && $itemcount == scalar @itemnumbers && !($cnt_subscriptions) && !($holds_count); - $line{items} = ($itemcount) - (scalar @itemnumbers); - $line{left_item} = 1 if $line{items} >= 1; - $line{left_biblio} = 1 if $countbiblio > 1; - $line{biblios} = $countbiblio - 1; - $line{left_subscription} = 1 if $cnt_subscriptions; - $line{subscriptions} = $cnt_subscriptions; - $line{left_holds} = ($holds_count >= 1) ? 1 : 0; - $line{left_holds_on_order} = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds ); - $line{holds} = $holds_count; - $line{holds_on_order} = $itemholds?$itemholds:$holds_count if $line{left_holds_on_order}; - $line{basket} = Koha::Acquisition::Baskets->find( $line{basketno} ); - - my $budget_name = GetBudgetName( $line{budget_id} ); - $line{budget_name} = $budget_name; - - push @loop_orders, \%line; - } - - $template->param( - loop_orders => \@loop_orders, - ); -} - $template->param( invoiceid => $invoice->{invoiceid}, invoice => $invoice->{invoicenumber}, @@ -287,7 +188,6 @@ $template->param( name => $bookseller->name, booksellerid => $bookseller->id, loop_received => \@loop_received, - loop_orders => \@loop_orders, book_foot_loop => \@book_foot_loop, (uc(C4::Context->preference("marcflavour"))) => 1, total_tax_excluded => $total_tax_excluded, -- 2.11.0