From 94429afcde03f43f5fb2e5eca00eb1b940b21ed2 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Wed, 11 Oct 2017 15:58:31 -0300 Subject: [PATCH] Bug 19016: Trigger reindex on fixing biblios Signed-off-by: Tomas Cohen Arazi --- misc/cronjobs/cleanup_database.pl | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/misc/cronjobs/cleanup_database.pl b/misc/cronjobs/cleanup_database.pl index 54ffcf2..336f33b 100755 --- a/misc/cronjobs/cleanup_database.pl +++ b/misc/cronjobs/cleanup_database.pl @@ -34,6 +34,7 @@ BEGIN { eval { require "$FindBin::Bin/../kohalib.pl" }; } +use C4::Biblio; use C4::Context; use C4::Search; use C4::Search::History; @@ -531,6 +532,10 @@ sub FixCorruptedData { $dbh->do( q|UPDATE tmp_holdsqueue SET biblionumber = ? WHERE biblionumber = ?|, undef, $max, $old_id ); $dbh->do( q|UPDATE suggestions SET biblionumber = ? WHERE biblionumber = ?|, undef, $max, $old_id ); $dbh->do( q|UPDATE linktracker SET biblionumber = ? WHERE biblionumber = ?|, undef, $max, $old_id ); + # Delete old record from index + C4::Biblio::ModZebra( $old_id, 'recordDelete', 'biblioserver' ); + # Add/Update new record + C4::Biblio::ModZebra( $max, 'specialUpdate', 'biblioserver' ); } elsif ( $table eq 'items' ) { $dbh->do( q|UPDATE collections_tracking SET itemnumber = ? WHERE itemnumber = ?|, undef, $max, $old_id ); $dbh->do( q|UPDATE import_items SET itemnumber = ? WHERE itemnumber = ?|, undef, $max, $old_id ); -- 2.7.4