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