@@ -, +, @@ merged --- cataloguing/merge.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) --- a/cataloguing/merge.pl +++ a/cataloguing/merge.pl @@ -111,6 +111,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) { @@ -155,7 +158,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); --