-if ($itemtype =~ /PER/){
- $class="Periodical";
- $bibitemno = &newbiblioitem({
- biblionumber => $biblionumber,
- itemtype => $itemtype?$itemtype:"",
- isbn => $isbn?$isbn:"",
- volumeddesc => $volinf?$volinf:"",
- classification => $class?$class:"" });
-}
-warn "qty : $quantity";
-if ($quantity != 0){
- receiveorder($biblionumber,$ordnum,$quantrec,$user,$cost,$invoiceno,$bibitemno,$freight,$bookfund);
- modbiblio($biblio);
- &modbibitem({
- biblioitemnumber => $bibitemno,
- biblionumber => $biblionumber,
- itemtype => $itemtype?$itemtype:"",
- isbn => $isbn?$isbn:"",
- publisher => $publisher?$publisher:"",
- publicationyear => $pubdate?$pubdate:"",
- class => $class?$class:"",
- dewey => $dewey?$dewey:"",
- subclass => $subclass?$subclass:"",
- illus => $illus?$illus:"",
- pages => $pages?$pages:"",
- volumeddesc => $volinf?$volinf:"",
- notes => $notes?$notes:"",
- size => $size?$size:"" });
- my $barcode=$input->param('barcode');
- my @barcodes;
- if ($barcode =~ /\,/){
- @barcodes=split(/\,/,$barcode);
- }elsif ($barcode =~ /\|/){
- @barcodes=split(/\|/,$barcode);
- } else {
- $barcodes[0]=$barcode;
- }
- my ($error) = newitems({ biblioitemnumber => $bibitemno,
- biblionumber => $biblionumber,
- replacementprice => $replacement,
- price => $cost,
- booksellerid => $bookseller,
- homebranch => $branch,
- loan => $loan },
- @barcodes);
- if ($error eq ''){
- if ($itemtype ne 'PER'){
- print $input->redirect("/cgi-bin/koha/acqui/receive.pl?invoice=$invoiceno&id=$id&freight=$freight&gst=$gst");
- } else {
- print $input->redirect("/acquisitions/");
- }
- } else {
- print $input->header;
- print $error;
- }
-} else {
- print $input->header;
- delorder($biblionumber,$ordnum);
- print $input->redirect("/acquisitions/");
-}