View | Details | Raw Unified | Return to bug 16935
Collapse All | Expand All

(-)a/misc/export_records.pl (-5 / +2 lines)
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
- 

Return to bug 16935