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

(-)a/virtualshelves/shelves.pl (-2 lines)
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
- 

Return to bug 29114