From 0070a7f6afb30b6f7ae8bc0eb073a4c39e0f783a Mon Sep 17 00:00:00 2001 From: Janusz Kaczmarek Date: Fri, 31 Jan 2014 16:12:10 +0100 Subject: [PATCH] Bug 11652: ensure that merging authority records corrects biblios When merging authority records in librarian interface biblio records linked to deleted authority are not being corrected (i.e. have still old heading and orpaned link in $9). Test plan: 1. Have two authorities in the catalogue, linked to biblio records. 2. Merge them with the new merge facility (cf. Bug 5202). 3. Have a look a the biblio record(s) previously linked to the removed authority. It should still have the old heading AND orpaned authority link in $9. 4. Apply the patch. 5. Refresh the test records (or use another set). 6. Repeat 1-3. Headings should be refreshed and the correct authid link should be in $9 now. Signed-off-by: Chris Cormack Signed-off-by: Katrin Fischer Passes all tests and QA script. Note: new record count on the authority record will show after reindexing. Signed-off-by: Jared Camins-Esakov Signed-off-by: Galen Charlton --- authorities/merge.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/authorities/merge.pl b/authorities/merge.pl index 315e232934..362838150f 100755 --- a/authorities/merge.pl +++ b/authorities/merge.pl @@ -68,6 +68,7 @@ if ($merge) { require C4::ImportBatch; C4::ImportBatch::SetImportRecordStatus( $recordid2, 'imported' ); } else { + C4::AuthoritiesMarc::merge( $recordid2, GetAuthority($recordid2), $recordid1, $record ); $error = (DelAuthority($recordid2) == 0); } push @errors, $error if ($error); -- 2.39.2