diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl index ee9f1fa067..873c0e7d41 100755 --- a/cataloguing/merge.pl +++ b/cataloguing/merge.pl @@ -110,6 +110,9 @@ if ($merge) { my $sth_serial = $dbh->prepare(" UPDATE serial SET biblionumber = ? WHERE biblionumber = ? "); + my $sth_suggestions = $dbh->prepare(" + UPDATE suggestions SET biblionumber = ? WHERE biblionumber = ? + "); my $report_header = {}; foreach my $biblionumber ($ref_biblionumber, @biblionumbers) { @@ -154,7 +157,10 @@ if ($merge) { } # Moving serials - $sth_serial->execute($ref_biblionumber, $biblionumber); + $sth_serial->execute($ref_biblionumber, $biblionumber); + + # Moving suggestions + $sth_suggestions->execute($ref_biblionumber, $biblionumber); # Moving orders (orders linked to items of frombiblio have already been moved by MoveItemFromBiblio) my @allorders = GetOrdersByBiblionumber($biblionumber);