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