View | Details | Raw Unified | Return to bug 14377
Collapse All | Expand All

(-)a/C4/XSLT.pm (-3 / +5 lines)
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
                    if ( $tag ne '942' && $subfield ne 'n' && $marcflavour ne 'UNIMARC' ) {
86
                        if $av->{ $tag }->{ $letter };
87
                        $value = GetAuthorisedValueDesc( $tag, $letter, $value, '', $tagslib )
88
                            if $av->{ $tag }->{ $letter };
89
                    }
87
                    push( @new_subfields, $letter, $value );
90
                    push( @new_subfields, $letter, $value );
88
                } 
91
                } 
89
                $field ->replace_with( MARC::Field->new(
92
                $field ->replace_with( MARC::Field->new(
90
- 

Return to bug 14377