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( |
Lines 206-212
sub XSLTParse4Display {
Link Here
|
206 |
UseControlNumber IntranetBiblioDefaultView BiblioDefaultView |
210 |
UseControlNumber IntranetBiblioDefaultView BiblioDefaultView |
207 |
OPACItemLocation DisplayIconsXSLT |
211 |
OPACItemLocation DisplayIconsXSLT |
208 |
AlternateHoldingsField AlternateHoldingsSeparator |
212 |
AlternateHoldingsField AlternateHoldingsSeparator |
209 |
TrackClicks opacthemes IdRef / ) |
213 |
TrackClicks opacthemes IdRefi OpacSuppression / ) |
210 |
{ |
214 |
{ |
211 |
my $sp = C4::Context->preference( $syspref ); |
215 |
my $sp = C4::Context->preference( $syspref ); |
212 |
next unless defined($sp); |
216 |
next unless defined($sp); |