-if ($itemtype =~ /PER/){
-# print "$bibitemno";
- $class="Periodical";
- $bibitemno = &newbiblioitem({
- biblionumber => $biblionumber,
- itemtype => $itemtype?$itemtype:"",
- isbn => $isbn?$isbn:"",
- volumeddesc => $volinf?$volinf:"",
- classification => $class?$class:"" });
-# print "here $bibitemno";
-}
-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:"" });
+#need old recievedate if we update the order, parcel.pl only shows the right parcel this way FIXME
+if ($quantityrec > $origquantityrec ) {
+ # now, add items if applicable
+ if (C4::Context->preference('AcqCreateItem') eq 'receiving') {