From b7787d1022b5f5c344e7d841a48ea1a2cc8dceed 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 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 Signed-off-by: Marcel de Rooy Signed-off-by: Jonathan Druart --- 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