Lines 54-60
BEGIN {
Link Here
|
54 |
&GetAuthorisedValues |
54 |
&GetAuthorisedValues |
55 |
&GetAuthorisedValueCategories |
55 |
&GetAuthorisedValueCategories |
56 |
&GetKohaAuthorisedValues |
56 |
&GetKohaAuthorisedValues |
57 |
&GetKohaAuthorisedValuesFromField |
|
|
58 |
&GetKohaAuthorisedValuesMapping |
57 |
&GetKohaAuthorisedValuesMapping |
59 |
&GetAuthorisedValueByCode |
58 |
&GetAuthorisedValueByCode |
60 |
&GetAuthValCode |
59 |
&GetAuthValCode |
Lines 1059-1095
sub GetKohaAuthorisedValues {
Link Here
|
1059 |
} |
1058 |
} |
1060 |
} |
1059 |
} |
1061 |
|
1060 |
|
1062 |
=head2 GetKohaAuthorisedValuesFromField |
|
|
1063 |
|
1064 |
Takes $field, $subfield, $fwcode as parameters. |
1065 |
|
1066 |
If $opac parameter is set to a true value, displays OPAC descriptions rather than normal ones when they exist. |
1067 |
$subfield can be undefined |
1068 |
|
1069 |
Returns hashref of Code => description |
1070 |
|
1071 |
Returns undef if no authorised value category is defined for the given field and subfield |
1072 |
|
1073 |
=cut |
1074 |
|
1075 |
sub GetKohaAuthorisedValuesFromField { |
1076 |
my ($field, $subfield, $fwcode,$opac) = @_; |
1077 |
$fwcode='' unless $fwcode; |
1078 |
my %values; |
1079 |
my $dbh = C4::Context->dbh; |
1080 |
my $avcode = GetAuthValCodeFromField($field, $subfield, $fwcode); |
1081 |
if ($avcode) { |
1082 |
my $sth = $dbh->prepare("select authorised_value, lib, lib_opac from authorised_values where category=? "); |
1083 |
$sth->execute($avcode); |
1084 |
while ( my ($val, $lib, $lib_opac) = $sth->fetchrow_array ) { |
1085 |
$values{$val} = ($opac && $lib_opac) ? $lib_opac : $lib; |
1086 |
} |
1087 |
return \%values; |
1088 |
} else { |
1089 |
return; |
1090 |
} |
1091 |
} |
1092 |
|
1093 |
=head2 GetKohaAuthorisedValuesMapping |
1061 |
=head2 GetKohaAuthorisedValuesMapping |
1094 |
|
1062 |
|
1095 |
Takes a hash as a parameter. The interface key indicates the |
1063 |
Takes a hash as a parameter. The interface key indicates the |
1096 |
- |
|
|