|
Lines 184-197
if ( @record_ids and $id_list_file ) {
Link Here
|
| 184 |
|
184 |
|
| 185 |
if ($deleted_barcodes) { |
185 |
if ($deleted_barcodes) { |
| 186 |
for my $record_id ( @record_ids ) { |
186 |
for my $record_id ( @record_ids ) { |
| 187 |
my $q = q| |
187 |
my $barcode = $dbh->selectall_arrayref(q| |
| 188 |
|; |
|
|
| 189 |
my $barcode = $dbh->selectall_arrayref(q| ( |
| 190 |
SELECT DISTINCT barcode |
188 |
SELECT DISTINCT barcode |
| 191 |
FROM deleteditems |
189 |
FROM deleteditems |
| 192 |
WHERE deleteditems.biblionumber = ? |
190 |
WHERE deleteditems.biblionumber = ? |
| 193 |
|, { Slice => {} }, $record_id ); |
191 |
|, { Slice => {} }, $record_id ); |
| 194 |
say $_->{barcode} for @$barcode |
192 |
say $_->{barcode} for @$barcode; |
| 195 |
} |
193 |
} |
| 196 |
} |
194 |
} |
| 197 |
else { |
195 |
else { |
| 198 |
- |
|
|