Lines 75-80
sub transformMARCXML4XSLT {
Link Here
|
75 |
@fields = $record->fields(); |
75 |
@fields = $record->fields(); |
76 |
}; |
76 |
}; |
77 |
if ($@) { warn "PROBLEM WITH RECORD"; next; } |
77 |
if ($@) { warn "PROBLEM WITH RECORD"; next; } |
|
|
78 |
my $marcflavour = C4::Context->preference('marcflavour'); |
78 |
my $av = getAuthorisedValues4MARCSubfields($frameworkcode); |
79 |
my $av = getAuthorisedValues4MARCSubfields($frameworkcode); |
79 |
foreach my $tag ( keys %$av ) { |
80 |
foreach my $tag ( keys %$av ) { |
80 |
foreach my $field ( $record->field( $tag ) ) { |
81 |
foreach my $field ( $record->field( $tag ) ) { |
Lines 82-89
sub transformMARCXML4XSLT {
Link Here
|
82 |
my @new_subfields = (); |
83 |
my @new_subfields = (); |
83 |
for my $subfield ( $field->subfields() ) { |
84 |
for my $subfield ( $field->subfields() ) { |
84 |
my ( $letter, $value ) = @$subfield; |
85 |
my ( $letter, $value ) = @$subfield; |
85 |
$value = GetAuthorisedValueDesc( $tag, $letter, $value, '', $tagslib ) |
86 |
# Replace the field value with the authorised value *except* for 942$n ( record supression ) |
86 |
if $av->{ $tag }->{ $letter }; |
87 |
if ( $tag ne '942' && $subfield ne 'n' && $marcflavour ne 'UNIMARC' ) { |
|
|
88 |
$value = GetAuthorisedValueDesc( $tag, $letter, $value, '', $tagslib ) |
89 |
if $av->{ $tag }->{ $letter }; |
90 |
} |
87 |
push( @new_subfields, $letter, $value ); |
91 |
push( @new_subfields, $letter, $value ); |
88 |
} |
92 |
} |
89 |
$field ->replace_with( MARC::Field->new( |
93 |
$field ->replace_with( MARC::Field->new( |
90 |
- |
|
|