|
Lines 155-161
if ( $op eq 'add_form' ) {
Link Here
|
| 155 |
my @barcodes = split /\n/, $barcodes; # Entries are effectively passed in as a <cr> separated list |
155 |
my @barcodes = split /\n/, $barcodes; # Entries are effectively passed in as a <cr> separated list |
| 156 |
foreach my $barcode (@barcodes){ |
156 |
foreach my $barcode (@barcodes){ |
| 157 |
$barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace |
157 |
$barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace |
| 158 |
$barcode =~ s/\r$//; # strip any naughty return chars |
|
|
| 159 |
next if $barcode eq ''; |
158 |
next if $barcode eq ''; |
| 160 |
my $item = Koha::Items->find({barcode => $barcode}); |
159 |
my $item = Koha::Items->find({barcode => $barcode}); |
| 161 |
if ( $item ) { |
160 |
if ( $item ) { |
| 162 |
- |
|
|