From d952f0915e933ca1f8651ceb9b5f90ea73694ed6 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 2 Jan 2018 15:42:12 -0300 Subject: [PATCH] Bug 18593: Move suggestions when bibliographic records are merged When bibliographic records are merged, the suggestions.biblionumber field should be replaced with the new record. Ideally we should have kept an history of the merges, to know what was the original record. Now we cannot fix the broken links. Test plan: 1) Create a suggestion in OPAC 2) Accept the suggestion in staff 3) Add order from this suggestion 4) Go to cataloguing search and search for the record and another 5) Merge the suggestion record with the catalog record - catalog record wins (should be the more common case when a patron suggests something that already exists) 6) Verify that after merging, the new title displays in the acquisition record 7) Verify that the suggestion info no longer displays in basket From Katrin's test plan: 8) Verify that the new title doesn't display in suggestions. The old title will still show as suggested (not updated) => This is the title from suggestions.title, I think it makes sense to show this one. Maybe we should open a new bug report to improve the display of the suggestion, and link to the bibliographic record Signed-off-by: Lucie Gay Signed-off-by: Marcel de Rooy Signed-off-by: Jonathan Druart Signed-off-by: Nick Clemens (cherry picked from commit 3f118604af4ff965a1a320656e40762f9958e791) Signed-off-by: Fridolin Somers --- cataloguing/merge.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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); -- 2.39.5