Bug 28774: Don't store blank values for rental discount

[koha-ffzg.git] / Koha / Items.pm

diff --git a/Koha/Items.pm b/Koha/Items.pm
index 4d3de57..193e6e5 100644 (file)
--- a/Koha/Items.pm
+++ b/Koha/Items.pm
@@ -121,12 +121,15 @@ Move items to a given biblio.
 sub move_to_biblio {
     my ( $self, $to_biblio ) = @_;
 
-    while (my $item = $self->next()) {
-        $item->move_to_biblio($to_biblio, { skip_record_index => 1 });
+    my $biblionumbers = { $to_biblio->biblionumber => 1 };
+    while ( my $item = $self->next() ) {
+        $biblionumbers->{ $item->biblionumber } = 1;
+        $item->move_to_biblio( $to_biblio, { skip_record_index => 1 } );
     }
     my $indexer = Koha::SearchEngine::Indexer->new({ index => $Koha::SearchEngine::BIBLIOS_INDEX });
-    $indexer->index_records( $self->biblionumber, "specialUpdate", "biblioserver" );
-    $indexer->index_records( $to_biblio->biblionumber, "specialUpdate", "biblioserver" );
+    for my $biblionumber ( keys %{$biblionumbers} ) {
+        $indexer->index_records( $biblionumber, "specialUpdate", "biblioserver" );
+    }
 }