From 629e9fc4d870ea5b3a03b652c4dbc42595aeda6d Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Thu, 18 Feb 2021 14:49:02 +0100
Subject: [PATCH] Bug 27715: Remove unused dt_build_having
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Joonas Kylmälä <joonas.kylmala@helsinki.fi>

Amended: removed warn.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
(cherry picked from commit c22621e820bff93c3346d26d5769f200f7924f26)

Signed-off-by: Andrew Fuerste-Henry <andrew@bywatersolutions.com>
---
 C4/Utils/DataTables.pm | 80 +-----------------------------------------
 1 file changed, 1 insertion(+), 79 deletions(-)

diff --git a/C4/Utils/DataTables.pm b/C4/Utils/DataTables.pm
index 4a7dafed4f..99be4a1cda 100644
--- a/C4/Utils/DataTables.pm
+++ b/C4/Utils/DataTables.pm
@@ -25,7 +25,7 @@ use vars qw(@ISA @EXPORT);
 BEGIN {
 
     @ISA        = qw(Exporter);
-    @EXPORT     = qw(dt_build_orderby dt_build_having dt_get_params);
+    @EXPORT     = qw(dt_build_orderby dt_get_params);
 }
 
 =head1 NAME
@@ -46,8 +46,6 @@ C4::Utils::DataTables - Utility subs for building query when DataTables source i
         FROM borrowers
         WHERE borrowernumber = ?
     };
-    my ($having, $having_params) = dt_build_having($vars);
-    $query .= $having;
     $query .= dt_build_orderby($vars);
     $query .= " LIMIT ?,? ";
 
@@ -106,82 +104,6 @@ sub dt_build_orderby {
     return $orderby;
 }
 
-=head2 dt_build_having
-
-    my ($having, $having_params) = dt_build_having($dt_params)
-
-    This function takes a reference to a hash containing DataTables parameters
-    and build the corresponding 'HAVING' clause.
-    This hash must contains the following keys:
-        sSearch is the text entered in the global filter
-        iColumns is the number of columns
-        bSearchable_N is a boolean value that is true if the column is searchable
-        mDataProp_N is a mapping between the column index, and the name of a SQL field
-        sSearch_N is the text entered in individual filter for column N
-
-=cut
-
-sub dt_build_having {
-    my $param = shift;
-
-    my @filters;
-    my @params;
-
-    # Global filter
-    if($param->{'sSearch'}) {
-        my $sSearch = $param->{'sSearch'};
-        my $i = 0;
-        my @gFilters;
-        my @gParams;
-        while($i < $param->{'iColumns'}) {
-            if($param->{'bSearchable_'.$i} eq 'true') {
-                my $mDataProp = $param->{'mDataProp_'.$i};
-                my @filter_fields = $param->{$mDataProp.'_filteron'}
-                    ? split(' ', $param->{$mDataProp.'_filteron'})
-                    : ();
-                if(@filter_fields > 0) {
-                    foreach my $field (@filter_fields) {
-                        push @gFilters, " $field LIKE ? ";
-                        push @gParams, "%$sSearch%";
-                    }
-                } else {
-                    push @gFilters, " $mDataProp LIKE ? ";
-                    push @gParams, "%$sSearch%";
-                }
-            }
-            $i++;
-        }
-        push @filters, " (" . join(" OR ", @gFilters) . ") ";
-        push @params, @gParams;
-    }
-
-    # Individual filters
-    my $i = 0;
-    while($i < $param->{'iColumns'}) {
-        my $sSearch = $param->{'sSearch_'.$i};
-        if($sSearch) {
-            my $mDataProp = $param->{'mDataProp_'.$i};
-            my @filter_fields = $param->{$mDataProp.'_filteron'}
-                ? split(' ', $param->{$mDataProp.'_filteron'})
-                : ();
-            if(@filter_fields > 0) {
-                my @localfilters;
-                foreach my $field (@filter_fields) {
-                    push @localfilters, " $field LIKE ? ";
-                    push @params, "%$sSearch%";
-                }
-                push @filters, " ( ". join(" OR ", @localfilters) ." ) ";
-            } else {
-                push @filters, " $mDataProp LIKE ? ";
-                push @params, "%$sSearch%";
-            }
-        }
-        $i++;
-    }
-
-    return (\@filters, \@params);
-}
-
 =head2 dt_get_params
 
     my %dtparam = = dt_get_params( $input )
-- 
2.39.5