From b37df275b85114ccd23986d94af7ed21544269e6 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 26 May 2017 10:20:00 +0200 Subject: [PATCH] Bug 18611: [QA Follow-up] Make SQL query more readable Make it more explicit by adding join statements. Test plan: See next patch for adding a unit test. Signed-off-by: Marcel de Rooy Signed-off-by: Kyle M Hall --- C4/ImportBatch.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm index 4ac56188a7..1b598c7e9d 100644 --- a/C4/ImportBatch.pm +++ b/C4/ImportBatch.pm @@ -1059,7 +1059,12 @@ sub GetImportBatchRangeDesc { sub GetItemNumbersFromImportBatch { my ($batch_id) = @_; my $dbh = C4::Context->dbh; - my $sth = $dbh->prepare("SELECT items.itemnumber FROM import_batches,import_records,import_items, items WHERE import_batches.import_batch_id=import_records.import_batch_id AND import_records.import_record_id=import_items.import_record_id AND items.itemnumber=import_items.itemnumber AND import_batches.import_batch_id=?"); + my $sql = q| +SELECT itemnumber FROM import_items +INNER JOIN items USING (itemnumber) +INNER JOIN import_records USING (import_record_id) +WHERE import_batch_id = ?|; + my $sth = $dbh->prepare( $sql ); $sth->execute($batch_id); my @items ; while ( my ($itm) = $sth->fetchrow_array ) { -- 2.39.5