|
Lines 84-90
sub transformMARCXML4XSLT {
Link Here
|
| 84 |
for my $subfield ( $field->subfields() ) { |
84 |
for my $subfield ( $field->subfields() ) { |
| 85 |
my ( $letter, $value ) = @$subfield; |
85 |
my ( $letter, $value ) = @$subfield; |
| 86 |
# Replace the field value with the authorised value *except* for 942$n ( record supression ) |
86 |
# Replace the field value with the authorised value *except* for 942$n ( record supression ) |
| 87 |
if ( $tag ne '942' && $subfield ne 'n' && $marcflavour ne 'UNIMARC' ) { |
87 |
unless ( ( $tag eq '942' && $subfield eq 'n' ) || $marcflavour eq 'UNIMARC' ) { |
| 88 |
$value = GetAuthorisedValueDesc( $tag, $letter, $value, '', $tagslib ) |
88 |
$value = GetAuthorisedValueDesc( $tag, $letter, $value, '', $tagslib ) |
| 89 |
if $av->{ $tag }->{ $letter }; |
89 |
if $av->{ $tag }->{ $letter }; |
| 90 |
} |
90 |
} |
| 91 |
- |
|
|