Lines 1059-1065
sub GetImportBatchRangeDesc {
Link Here
|
1059 |
sub GetItemNumbersFromImportBatch { |
1059 |
sub GetItemNumbersFromImportBatch { |
1060 |
my ($batch_id) = @_; |
1060 |
my ($batch_id) = @_; |
1061 |
my $dbh = C4::Context->dbh; |
1061 |
my $dbh = C4::Context->dbh; |
1062 |
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=?"); |
1062 |
my $sql = q| |
|
|
1063 |
SELECT itemnumber FROM import_items |
1064 |
INNER JOIN items USING (itemnumber) |
1065 |
INNER JOIN import_records USING (import_record_id) |
1066 |
WHERE import_batch_id = ?|; |
1067 |
my $sth = $dbh->prepare( $sql ); |
1063 |
$sth->execute($batch_id); |
1068 |
$sth->execute($batch_id); |
1064 |
my @items ; |
1069 |
my @items ; |
1065 |
while ( my ($itm) = $sth->fetchrow_array ) { |
1070 |
while ( my ($itm) = $sth->fetchrow_array ) { |
1066 |
- |
|
|