@@ -, +, @@ --- virtualshelves/shelves.pl | 1 - 1 file changed, 1 deletion(-) --- a/virtualshelves/shelves.pl +++ a/virtualshelves/shelves.pl @@ -155,7 +155,6 @@ if ( $op eq 'add_form' ) { my @barcodes = split /\n/, $barcodes; # Entries are effectively passed in as a separated list foreach my $barcode (@barcodes){ $barcode =~ s/^\s*|\s*$//g; # remove leading/trailing whitespace - $barcode =~ s/\r$//; # strip any naughty return chars next if $barcode eq ''; my $item = Koha::Items->find({barcode => $barcode}); if ( $item ) { --