| Lines 2196-2204
          sub TransformKohaToMarc {
      
      
        Link Here | 
        
          | 2196 |         my @sfl = @{$tag_hr->{$tag}}; | 2196 |         my @sfl = @{$tag_hr->{$tag}}; | 
        
          | 2197 |         @sfl = sort { $a->[0] cmp $b->[0]; } @sfl; | 2197 |         @sfl = sort { $a->[0] cmp $b->[0]; } @sfl; | 
        
          | 2198 |         @sfl = map { @{$_}; } @sfl; | 2198 |         @sfl = map { @{$_}; } @sfl; | 
          
            
              | 2199 |         $record->insert_fields_ordered( | 2199 |         # Special care for control fields: remove the subfield indication @ | 
            
              | 2200 |             MARC::Field->new($tag, " ", " ", @sfl) | 2200 |         # and do not insert indicators. | 
            
              | 2201 |         ); | 2201 |         my @ind = $tag < 10 ? () : ( " ", " " ); | 
            
              |  |  | 2202 |         @sfl = grep { $_ ne '@' } @sfl if $tag < 10; | 
            
              | 2203 |         $record->insert_fields_ordered( MARC::Field->new($tag, @ind, @sfl) ); | 
        
          | 2202 |     } | 2204 |     } | 
        
          | 2203 |     return $record; | 2205 |     return $record; | 
        
          | 2204 | } | 2206 | } | 
            
              | 2205 | -  |  |  |