made | work to separate barcodes
This commit is contained in:
parent
df51915bcc
commit
2e30d6c2e5
1 changed files with 3 additions and 1 deletions
|
@ -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;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue