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

(-)a/authorities/merge.pl (-13 / +7 lines)
Lines 58-78 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
63
    # Deleting the other record
64
    # Now merge for biblios attached to $recordid2
64
    if ( scalar(@errors) == 0 ) {
65
    # We ignore dontmerge now, since recordid2 is deleted
66
    my $MARCfrom = GetAuthority( $recordid2 );
67
    &merge( $recordid2, $MARCfrom, $recordid1, $record );
65
68
66
        my $error;
69
    # Deleting the other record
67
        if ($input->param('mergereference') eq 'breeding') {
70
    DelAuthority( $recordid2 );
68
            require C4::ImportBatch;
69
            C4::ImportBatch::SetImportRecordStatus( $recordid2, 'imported' );
70
        } else {
71
            C4::AuthoritiesMarc::merge( $recordid2, GetAuthority($recordid2), $recordid1, $record );
72
            $error = (DelAuthority($recordid2) == 0);
73
        }
74
        push @errors, $error if ($error);
75
    }
76
71
77
    # Parameters
72
    # Parameters
78
    $template->param(
73
    $template->param(
79
- 

Return to bug 16018