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

(-)a/tools/batchMod.pl (-2 / +2 lines)
Lines 34-39 use C4::ClassSource; Link Here
34
use C4::Dates;
34
use C4::Dates;
35
use C4::Debug;
35
use C4::Debug;
36
use MARC::File::XML;
36
use MARC::File::XML;
37
use List::MoreUtils qw/uniq/;
37
38
38
my $input = new CGI;
39
my $input = new CGI;
39
my $dbh = C4::Context->dbh;
40
my $dbh = C4::Context->dbh;
Lines 237-243 if ($op eq "show"){ Link Here
237
            }
238
            }
238
        }
239
        }
239
        if ( my $list=$input->param('barcodelist')){
240
        if ( my $list=$input->param('barcodelist')){
240
            push my @barcodelist, split(/\s\n/, $list);
241
            push my @barcodelist, uniq( split(/\s\n/, $list) );
241
242
242
            foreach my $barcode (@barcodelist) {
243
            foreach my $barcode (@barcodelist) {
243
244
244
- 

Return to bug 9509