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

(-)a/C4/AuthoritiesMarc.pm (-1 / +5 lines)
Lines 1565-1571 sub merge { Link Here
1565
        }
1565
        }
1566
    }#foreach $marc
1566
    }#foreach $marc
1567
1567
1568
    DelAuthority($mergefrom) if ($mergefrom != $mergeto);
1568
    if ( $mergefrom != $mergeto ) {
1569
        my $number_of_authorities_deleted = DelAuthority($mergefrom);
1570
        die "Authority $mergefrom has not been deleted"
1571
          if $number_of_authorities_deleted == 0;
1572
    }
1569
1573
1570
    return @editedbiblios;
1574
    return @editedbiblios;
1571
}
1575
}
(-)a/authorities/merge.pl (-5 / +4 lines)
Lines 63-77 if ($merge) { Link Here
63
    # Deleting the other record
63
    # Deleting the other record
64
    if ( scalar(@errors) == 0 ) {
64
    if ( scalar(@errors) == 0 ) {
65
65
66
        my $error;
67
        if ($input->param('mergereference') eq 'breeding') {
66
        if ($input->param('mergereference') eq 'breeding') {
68
            require C4::ImportBatch;
67
            require C4::ImportBatch;
69
            C4::ImportBatch::SetImportRecordStatus( $recordid2, 'imported' );
68
            C4::ImportBatch::SetImportRecordStatus( $recordid2, 'imported' );
70
        } else {
69
        } else {
71
            C4::AuthoritiesMarc::merge( $recordid2, GetAuthority($recordid2), $recordid1, $record );
70
            eval {
72
            $error = (DelAuthority($recordid2) == 0);
71
                C4::AuthoritiesMarc::merge( $recordid2, GetAuthority($recordid2), $recordid1, $record );
72
            };
73
            push @errors, 1 if $@;
73
        }
74
        }
74
        push @errors, $error if ($error);
75
    }
75
    }
76
76
77
    # Parameters
77
    # Parameters
78
- 

Return to bug 11700