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

(-)a/authorities/merge.pl (-2 / +10 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
    ModAuthority( $recordid1, $record, $typecode );
62
61
62
    my $dbh=C4::Context->dbh;
63
    my $overwrite = C4::Context->preference('overwriteSubfieldsOnMerge');
64
    my $MARCto = GetAuthority($recordid1);
65
    my $MARCfrom = GetAuthority($recordid2);
66
    if(C4::Context->preference('dontmerge') ne '1'){
67
        &merge($recordid2,$MARCfrom,$recordid1,$MARCto);
68
    }else{
69
        my $sqlinsert="INSERT INTO need_merge_authorities (authid, done) "."VALUES (?,?)";
70
        $dbh->do($sqlinsert,undef,($recordid1,0));
71
    }
63
    # Deleting the other record
72
    # Deleting the other record
64
    if ( scalar(@errors) == 0 ) {
73
    if ( scalar(@errors) == 0 ) {
65
74
66
- 

Return to bug 16018