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