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

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

Return to bug 7663