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