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