Bug 7329 [Followup] : when reverting an import, keep matching biblionumber in batch...

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>

diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm
index c133b5d..f82617b 100644 (file)
--- a/C4/ImportBatch.pm
+++ b/C4/ImportBatch.pm
@@ -687,7 +687,7 @@ sub BatchRevertBibRecords {
             $num_items_deleted += BatchRevertItems($rowref->{'import_record_id'}, $rowref->{'matched_biblionumber'});
             SetImportRecordStatus($rowref->{'import_record_id'}, 'reverted');
         }
-        my $sth2 = $dbh->prepare_cached("UPDATE import_biblios SET matched_biblionumber = NULL WHERE import_record_id = ?");
+        my $sth2 = $dbh->prepare_cached("UPDATE import_biblios LEFT JOIN import_items USING (import_record_id) SET matched_biblionumber = NULL WHERE import_record_id = ? AND status != 'imported'" );
         $sth2->execute($rowref->{'import_record_id'});
     }