|
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 |
- |
|
|