| 
      
            Lines 1419-1424
          sub merge {
      
      
        Link Here
      
     | 
  
        
          | 1419 | 
              my $authfrom = Koha::Authorities->find($mergefrom);  | 
          1419 | 
              my $authfrom = Koha::Authorities->find($mergefrom);  | 
        
        
          | 1420 | 
              my $authto = Koha::Authorities->find($mergeto);  | 
          1420 | 
              my $authto = Koha::Authorities->find($mergeto);  | 
        
        
          | 1421 | 
              my $authtypefrom = $authfrom ? Koha::Authority::Types->find($authfrom->authtypecode) : undef;  | 
          1421 | 
              my $authtypefrom = $authfrom ? Koha::Authority::Types->find($authfrom->authtypecode) : undef;  | 
        
            
               | 
               | 
              1422 | 
                  # If it is a mod ($authfrom == $authto) and there was a change of a heading tag $authtypefrom read from the database is of the current version of the auth rec., which is misleading, so we ignore it  | 
            
            
              | 1423 | 
                  if ($mergeto && $mergefrom == $mergeto && $MARCfrom && $MARCto &&  | 
            
            
              | 1424 | 
                      $MARCfrom->field('1..', '2..') && $MARCto->field('1..', '2..') && ($MARCfrom->field('1..', '2..'))[0]->tag ne ($MARCto->field('1..', '2..'))[0]->tag) { | 
            
            
              | 1425 | 
              	undef $authtypefrom;  | 
            
            
              | 1426 | 
              	undef $authfrom;  | 
            
            
              | 1427 | 
                  }  | 
            
            
              | 1428 | 
               | 
            
        
          | 1422 | 
              my $authtypeto   = $authto ? Koha::Authority::Types->find($authto->authtypecode) : undef;  | 
          1429 | 
              my $authtypeto   = $authto ? Koha::Authority::Types->find($authto->authtypecode) : undef;  | 
        
        
          | 1423 | 
              my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : '';  | 
          1430 | 
              my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : '';  | 
        
        
          | 1424 | 
              my $auth_tag_to_report_to   = $authtypeto ? $authtypeto->auth_tag_to_report : '';  | 
          1431 | 
              my $auth_tag_to_report_to   = $authtypeto ? $authtypeto->auth_tag_to_report : '';  | 
        
            
              | 1425 | 
              -   | 
               | 
               |