From b7787d1022b5f5c344e7d841a48ea1a2cc8dceed Mon Sep 17 00:00:00 2001
From: Josef Moravec <josef.moravec@gmail.com>
Date: Mon, 19 Mar 2018 09:33:50 +0000
Subject: [PATCH] Bug 20444: Remove sub GetAttributes
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

0) Apply this patch
1) git grep GetAttributes should return no occurencies

Signed-off-by: Séverine QUEUNE <severine.queune@bulac.fr>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 C4/Members/Attributes.pm | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/C4/Members/Attributes.pm b/C4/Members/Attributes.pm
index ab43a7cb32..cf9051d754 100644
--- a/C4/Members/Attributes.pm
+++ b/C4/Members/Attributes.pm
@@ -95,24 +95,6 @@ sub GetBorrowerAttributes {
     return \@results;
 }
 
-=head2 GetAttributes
-
-  my $attributes = C4::Members::Attributes::GetAttributes([$opac_only]);
-
-Retrieve an arrayref of extended attribute codes
-
-=cut
-
-sub GetAttributes {
-    my ($opac_only) = @_;
-
-    my $dbh = C4::Context->dbh();
-    my $query = "SELECT code FROM borrower_attribute_types";
-    $query .= "\nWHERE opac_display = 1" if $opac_only;
-    $query .= "\nORDER BY code";
-    return $dbh->selectcol_arrayref($query);
-}
-
 =head2 GetBorrowerAttributeValue
 
   my $value = C4::Members::Attributes::GetBorrowerAttributeValue($borrowernumber, $attribute_code);
-- 
2.39.5