- my $oldtype = $input->param('oldtype');
- &modbibitem(
- {
- biblioitemnumber => $bibitemnum,
- isbn => $isbn,
- publishercode => $publishercode,
- itemtype =>
- $itemtype, # added itemtype, not prev. being changed.
- }
- );
- &modbiblio(
- {
- biblionumber => $bibnum,
- title => $title ? $title : "",
- author => $author ? $author : "",
- copyrightdate => $copyrightdate ? $copyrightdate : "",
- series => $series ? $series : ""
- },
- );
- }
- if ($ordnum) {
-
- # warn "MODORDER $title / $ordnum / $quantity / $bookfund";
- ModOrder(
- $title, $ordnum, $quantity, $listprice,
- $bibnum, $basketno, $booksellerid, $loggedinuser,
- $notes, $bookfund, $bibitemnum, $rrp,
- $ecost, $gst, $budget, $cost,
- $invoice, $sort1, $sort2
- );
- }
- else {
- ( $basketno, $ordnum ) = NewOrder(
- $basketno, $bibnum, $title, $quantity,
- $listprice, $booksellerid, $loggedinuser, $notes,
- $bookfund, $bibitemnum, $rrp, $ecost,
- $gst, $budget, $cost, $sub,
- $invoice, $sort1, $sort2
- );