made | work to separate barcodes

This commit is contained in:
chris 2000-04-03 23:01:04 +00:00
parent df51915bcc
commit 2e30d6c2e5

View file

@ -48,8 +48,10 @@ modbiblio($biblio,$title,$author,$copyright);
modbibitem($bibitemno,$itemtype,$isbn);
my $barcode=$input->param('barcode');
my @barcodes;
if ($quantrec > 1){
if ($barcode =~ /\,/){
@barcodes=split(',',$barcode);
}elsif ($barcode =~ /\|/){
@barcodes=split('|',$barcode);
} else {
$barcodes[0]=$barcode;
}