From 40b7d593037b2aa6f0318b107012d0729d55abc0 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 Signed-off-by: Andrew Fuerste-Henry Signed-off-by: Martin Renvoize Signed-off-by: Andrew Fuerste-Henry --- 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