|
Lines 145-150
if ( $op eq 'add_form' ) {
Link Here
|
| 145 |
my @barcodes = split /\n/, $barcodes; # Entries are effectively passed in as a <cr> separated list |
145 |
my @barcodes = split /\n/, $barcodes; # Entries are effectively passed in as a <cr> separated list |
| 146 |
foreach my $barcode (@barcodes){ |
146 |
foreach my $barcode (@barcodes){ |
| 147 |
$barcode =~ s/\r$//; # strip any naughty return chars |
147 |
$barcode =~ s/\r$//; # strip any naughty return chars |
|
|
148 |
next if $barcode eq ''; |
| 148 |
my $item = GetItem( 0, $barcode); |
149 |
my $item = GetItem( 0, $barcode); |
| 149 |
if (defined $item && $item->{itemnumber}) { |
150 |
if (defined $item && $item->{itemnumber}) { |
| 150 |
my $biblio = GetBiblioFromItemNumber( $item->{itemnumber} ); |
151 |
my $biblio = GetBiblioFromItemNumber( $item->{itemnumber} ); |
| 151 |
- |
|
|