View | Details | Raw Unified | Return to bug 20444
Collapse All | Expand All

(-)a/C4/Members/Attributes.pm (-19 lines)
Lines 95-118 sub GetBorrowerAttributes { Link Here
95
    return \@results;
95
    return \@results;
96
}
96
}
97
97
98
=head2 GetAttributes
99
100
  my $attributes = C4::Members::Attributes::GetAttributes([$opac_only]);
101
102
Retrieve an arrayref of extended attribute codes
103
104
=cut
105
106
sub GetAttributes {
107
    my ($opac_only) = @_;
108
109
    my $dbh = C4::Context->dbh();
110
    my $query = "SELECT code FROM borrower_attribute_types";
111
    $query .= "\nWHERE opac_display = 1" if $opac_only;
112
    $query .= "\nORDER BY code";
113
    return $dbh->selectcol_arrayref($query);
114
}
115
116
=head2 GetBorrowerAttributeValue
98
=head2 GetBorrowerAttributeValue
117
99
118
  my $value = C4::Members::Attributes::GetBorrowerAttributeValue($borrowernumber, $attribute_code);
100
  my $value = C4::Members::Attributes::GetBorrowerAttributeValue($borrowernumber, $attribute_code);
119
- 

Return to bug 20444