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