Lines 55-61
BEGIN {
Link Here
|
55 |
&GetAuthorisedValues |
55 |
&GetAuthorisedValues |
56 |
&GetAuthorisedValueCategories |
56 |
&GetAuthorisedValueCategories |
57 |
&GetKohaAuthorisedValues |
57 |
&GetKohaAuthorisedValues |
58 |
&GetKohaAuthorisedValuesFromField |
|
|
59 |
&GetKohaAuthorisedValuesMapping |
58 |
&GetKohaAuthorisedValuesMapping |
60 |
&GetAuthorisedValueByCode |
59 |
&GetAuthorisedValueByCode |
61 |
&GetAuthValCode |
60 |
&GetAuthValCode |
Lines 1133-1169
sub GetKohaAuthorisedValues {
Link Here
|
1133 |
} |
1132 |
} |
1134 |
} |
1133 |
} |
1135 |
|
1134 |
|
1136 |
=head2 GetKohaAuthorisedValuesFromField |
|
|
1137 |
|
1138 |
Takes $field, $subfield, $fwcode as parameters. |
1139 |
|
1140 |
If $opac parameter is set to a true value, displays OPAC descriptions rather than normal ones when they exist. |
1141 |
$subfield can be undefined |
1142 |
|
1143 |
Returns hashref of Code => description |
1144 |
|
1145 |
Returns undef if no authorised value category is defined for the given field and subfield |
1146 |
|
1147 |
=cut |
1148 |
|
1149 |
sub GetKohaAuthorisedValuesFromField { |
1150 |
my ($field, $subfield, $fwcode,$opac) = @_; |
1151 |
$fwcode='' unless $fwcode; |
1152 |
my %values; |
1153 |
my $dbh = C4::Context->dbh; |
1154 |
my $avcode = GetAuthValCodeFromField($field, $subfield, $fwcode); |
1155 |
if ($avcode) { |
1156 |
my $sth = $dbh->prepare("select authorised_value, lib, lib_opac from authorised_values where category=? "); |
1157 |
$sth->execute($avcode); |
1158 |
while ( my ($val, $lib, $lib_opac) = $sth->fetchrow_array ) { |
1159 |
$values{$val} = ($opac && $lib_opac) ? $lib_opac : $lib; |
1160 |
} |
1161 |
return \%values; |
1162 |
} else { |
1163 |
return; |
1164 |
} |
1165 |
} |
1166 |
|
1167 |
=head2 GetKohaAuthorisedValuesMapping |
1135 |
=head2 GetKohaAuthorisedValuesMapping |
1168 |
|
1136 |
|
1169 |
Takes a hash as a parameter. The interface key indicates the |
1137 |
Takes a hash as a parameter. The interface key indicates the |
1170 |
- |
|
|