Lines 57-62
BEGIN {
Link Here
|
57 |
&GetAuthorisedValueCategories |
57 |
&GetAuthorisedValueCategories |
58 |
&GetKohaAuthorisedValues |
58 |
&GetKohaAuthorisedValues |
59 |
&GetKohaAuthorisedValuesFromField |
59 |
&GetKohaAuthorisedValuesFromField |
|
|
60 |
&GetKohaAuthorisedValueLib |
60 |
&GetAuthValCode |
61 |
&GetAuthValCode |
61 |
&GetNormalizedUPC |
62 |
&GetNormalizedUPC |
62 |
&GetNormalizedISBN |
63 |
&GetNormalizedISBN |
Lines 1214-1219
sub xml_escape {
Link Here
|
1214 |
return $str; |
1215 |
return $str; |
1215 |
} |
1216 |
} |
1216 |
|
1217 |
|
|
|
1218 |
=head2 GetKohaAuthorisedValueLib |
1219 |
|
1220 |
Takes $category, $authorised_value as parameters. |
1221 |
|
1222 |
If $opac parameter is set to a true value, displays OPAC descriptions rather than normal ones when they exist. |
1223 |
|
1224 |
Returns authorised value description |
1225 |
|
1226 |
=cut |
1227 |
|
1228 |
sub GetKohaAuthorisedValueLib { |
1229 |
my ($category,$authorised_value,$opac) = @_; |
1230 |
my $value; |
1231 |
my $dbh = C4::Context->dbh; |
1232 |
my $sth = $dbh->prepare("select lib, lib_opac from authorised_values where category=? and authorised_value=?"); |
1233 |
$sth->execute($category,$authorised_value); |
1234 |
my $data = $sth->fetchrow_hashref; |
1235 |
$value = ($opac && $$data{'lib_opac'}) ? $$data{'lib_opac'} : $$data{'lib'}; |
1236 |
return $value; |
1237 |
} |
1238 |
|
1217 |
=head2 display_marc_indicators |
1239 |
=head2 display_marc_indicators |
1218 |
|
1240 |
|
1219 |
my $display_form = C4::Koha::display_marc_indicators($field); |
1241 |
my $display_form = C4::Koha::display_marc_indicators($field); |