From bd028fcac2796f40fe774407b2472293ce7b653e Mon Sep 17 00:00:00 2001 From: Josef Moravec Date: Mon, 19 Mar 2018 09:33:50 +0000 Subject: [PATCH] Bug 20444: Remove sub GetAttributes 0) Apply this patch 1) git grep GetAttributes should return no occurencies --- C4/Members/Attributes.pm | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/C4/Members/Attributes.pm b/C4/Members/Attributes.pm index ab43a7c..cf9051d 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.1.4