From c0dda683e952994f9c5f672fb87ed0fba50c2f3e Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Wed, 19 Jun 2019 21:11:20 -0500
Subject: [PATCH] Bug 23166: Remove baskets_deletedorders code

This is never used.
---
 catalogue/ISBDdetail.pl        | 4 ----
 catalogue/MARCdetail.pl        | 4 ----
 catalogue/detail.pl            | 6 ------
 catalogue/imageviewer.pl       | 4 ----
 catalogue/labeledMARCdetail.pl | 4 ----
 catalogue/moredetail.pl        | 4 ----
 6 files changed, 26 deletions(-)

diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl
index d63b833ee4..889c71eda7 100755
--- a/catalogue/ISBDdetail.pl
+++ b/catalogue/ISBDdetail.pl
@@ -145,15 +145,11 @@ $template->param (
 my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
 my @deletedorders_using_biblio;
 my @orders_using_biblio;
-my @baskets_deletedorders;
 
 foreach my $myorder (@allorders_using_biblio) {
     my $basket = $myorder->{'basketno'};
     if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
         push @deletedorders_using_biblio, $myorder;
-        unless (grep{ $_ eq $basket } @baskets_deletedorders){
-            push @baskets_deletedorders,$myorder->{'basketno'};
-        }
     }
     else {
         push @orders_using_biblio, $myorder;
diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl
index 4c175b5268..d7e2854c56 100755
--- a/catalogue/MARCdetail.pl
+++ b/catalogue/MARCdetail.pl
@@ -321,15 +321,11 @@ $template->param (
 my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
 my @deletedorders_using_biblio;
 my @orders_using_biblio;
-my @baskets_deletedorders;
 
 foreach my $myorder (@allorders_using_biblio) {
     my $basket = $myorder->{'basketno'};
     if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
         push @deletedorders_using_biblio, $myorder;
-        unless (grep{ $_ eq $basket } @baskets_deletedorders){
-            push @baskets_deletedorders,$myorder->{'basketno'};
-        }
     }
     else {
         push @orders_using_biblio, $myorder;
diff --git a/catalogue/detail.pl b/catalogue/detail.pl
index cadedab62e..3c2b2dc434 100755
--- a/catalogue/detail.pl
+++ b/catalogue/detail.pl
@@ -515,15 +515,11 @@ if ($StaffDetailItemSelection) {
 my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
 my @deletedorders_using_biblio;
 my @orders_using_biblio;
-my @baskets_deletedorders;
 
 foreach my $myorder (@allorders_using_biblio) {
     my $basket = $myorder->{'basketno'};
     if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
         push @deletedorders_using_biblio, $myorder;
-        unless (grep{ $_ eq $basket } @baskets_deletedorders){
-            push @baskets_deletedorders,$myorder->{'basketno'};
-        }
     }
     else {
         push @orders_using_biblio, $myorder;
@@ -536,6 +532,4 @@ $template->param (countorders => $count_orders_using_biblio);
 my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
 $template->param (countdeletedorders => $count_deletedorders_using_biblio);
 
-$template->param (basketsdeletedorders => \@baskets_deletedorders);
-
 output_html_with_http_headers $query, $cookie, $template->output;
diff --git a/catalogue/imageviewer.pl b/catalogue/imageviewer.pl
index b1d62dd929..b7079fe9f9 100755
--- a/catalogue/imageviewer.pl
+++ b/catalogue/imageviewer.pl
@@ -82,15 +82,11 @@ $template->{VARS}->{'biblio'} = $biblio;
 my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
 my @deletedorders_using_biblio;
 my @orders_using_biblio;
-my @baskets_deletedorders;
 
 foreach my $myorder (@allorders_using_biblio) {
     my $basket = $myorder->{'basketno'};
     if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
         push @deletedorders_using_biblio, $myorder;
-        unless (grep{ $_ eq $basket } @baskets_deletedorders){
-            push @baskets_deletedorders,$myorder->{'basketno'};
-        }
     }
     else {
         push @orders_using_biblio, $myorder;
diff --git a/catalogue/labeledMARCdetail.pl b/catalogue/labeledMARCdetail.pl
index e6bb96c6ca..ce5dc01203 100755
--- a/catalogue/labeledMARCdetail.pl
+++ b/catalogue/labeledMARCdetail.pl
@@ -128,15 +128,11 @@ $template->param (
 my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
 my @deletedorders_using_biblio;
 my @orders_using_biblio;
-my @baskets_deletedorders;
 
 foreach my $myorder (@allorders_using_biblio) {
     my $basket = $myorder->{'basketno'};
     if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
         push @deletedorders_using_biblio, $myorder;
-        unless (grep { $_ eq $basket } @baskets_deletedorders){
-            push @baskets_deletedorders,$myorder->{'basketno'};
-        }
     }
     else {
         push @orders_using_biblio, $myorder;
diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl
index 875b3a9a78..f553512cba 100755
--- a/catalogue/moredetail.pl
+++ b/catalogue/moredetail.pl
@@ -228,15 +228,11 @@ $template->{'VARS'}->{'searchid'} = $query->param('searchid');
 my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
 my @deletedorders_using_biblio;
 my @orders_using_biblio;
-my @baskets_deletedorders;
 
 foreach my $myorder (@allorders_using_biblio) {
     my $basket = $myorder->{'basketno'};
     if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
         push @deletedorders_using_biblio, $myorder;
-        unless (grep{ $_ eq $basket } @baskets_deletedorders){
-            push @baskets_deletedorders,$myorder->{'basketno'};
-        }
     }
     else {
         push @orders_using_biblio, $myorder;
-- 
2.11.0