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