From: Josef Moravec <josef.moravec@gmail.com>
Date: Mon, 19 Mar 2018 09:33:50 +0000 (+0000)
Subject: Bug 20444: Remove sub GetAttributes
X-Git-Tag: v18.05.00-rc1~104
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=b7787d1022b5f5c344e7d841a48ea1a2cc8dceed;p=srvgit

Bug 20444: Remove sub GetAttributes

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>
---

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);