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

(-)a/authorities/merge.pl (-1 / +11 lines)
Lines 58-65 if ($merge) { Link Here
58
    $record->leader( GetAuthority($recordid1)->leader() );
58
    $record->leader( GetAuthority($recordid1)->leader() );
59
59
60
    # Modifying the reference record
60
    # Modifying the reference record
61
    # This triggers a merge for the biblios attached to $recordid1
61
    ModAuthority( $recordid1, $record, $typecode );
62
    ModAuthority( $recordid1, $record, $typecode );
62
63
64
    # We still need a merge for biblios attached to $recordid2
65
    if( C4::Context->preference('dontmerge') ne '1' ) {
66
        my $MARCfrom = GetAuthority( $recordid2 );
67
        &merge( $recordid2, $MARCfrom, $recordid1, $record );
68
    } else {
69
        my $dbh = C4::Context->dbh;
70
        my $sqlinsert = "INSERT INTO need_merge_authorities (authid, done) VALUES (?,?)";
71
        $dbh->do( $sqlinsert, undef, ( $recordid1, 0 ) );
72
    }
73
63
    # Deleting the other record
74
    # Deleting the other record
64
    if ( scalar(@errors) == 0 ) {
75
    if ( scalar(@errors) == 0 ) {
65
76
66
- 

Return to bug 16018