Lines 66-71
if ($merge) {
Link Here
|
66 |
my $MARCfrom = GetAuthority( $recordid2 ); |
66 |
my $MARCfrom = GetAuthority( $recordid2 ); |
67 |
&merge( $recordid2, $MARCfrom, $recordid1, $record ); |
67 |
&merge( $recordid2, $MARCfrom, $recordid1, $record ); |
68 |
} else { |
68 |
} else { |
|
|
69 |
# What follows, is actually useless. Because our cron job cannot handle |
70 |
# it adequately. But it does not harm either. Will just be ignored. |
71 |
# FIXME Restructure need_merge_authorities on bug 9988 |
69 |
my $dbh = C4::Context->dbh; |
72 |
my $dbh = C4::Context->dbh; |
70 |
my $sqlinsert = "INSERT INTO need_merge_authorities (authid, done) VALUES (?,?)"; |
73 |
my $sqlinsert = "INSERT INTO need_merge_authorities (authid, done) VALUES (?,?)"; |
71 |
$dbh->do( $sqlinsert, undef, ( $recordid1, 0 ) ); |
74 |
$dbh->do( $sqlinsert, undef, ( $recordid1, 0 ) ); |
72 |
- |
|
|