|
Lines 154-159
if ( $op eq 'add_form' ) {
Link Here
|
| 154 |
if ( $shelf->can_biblios_be_added( $loggedinuser ) ) { |
154 |
if ( $shelf->can_biblios_be_added( $loggedinuser ) ) { |
| 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/\r$//; # strip any naughty return chars |
158 |
$barcode =~ s/\r$//; # strip any naughty return chars |
| 158 |
next if $barcode eq ''; |
159 |
next if $barcode eq ''; |
| 159 |
my $item = Koha::Items->find({barcode => $barcode}); |
160 |
my $item = Koha::Items->find({barcode => $barcode}); |
| 160 |
- |
|
|