@@ -, +, @@ MarcItemFieldsToOrder 1 - Have AcqCreateItems set to 'On ordering' (or set in a basket) 2 - Define MARCItemFieldsToOrder homebranch: 975$a holdingbranch: 975$b itype: 975$y nonpublic_note: 975$x public_note: 975$z loc: 975$c ccode: 970$c notforloan: 975$7 uri: 975$u copyno: 975$n quantity: 975$q budget_code: 975$h price: 975$g replacementprice: 975$p 3 - Have a marc record with some order info defined as above, including a replacementprice 4 - Add to basket - > from a new file 5 - Don't check for duplicates, add the order 6 - Note the order has no replacementprice, but the item does 7 - Close basket, receive order, do not enter a new replacement price 8 - Note the items replacement price is clear 9 - Apply patch --- acqui/addorderiso2709.pl | 1 + 1 file changed, 1 insertion(+) --- a/acqui/addorderiso2709.pl +++ a/acqui/addorderiso2709.pl @@ -242,6 +242,7 @@ if ($op eq ""){ for (my $i = 0; $i < $count; $i++) { $budget_hash->{$budget_codes[$i]}->{quantity} += 1; $budget_hash->{$budget_codes[$i]}->{price} = $itemprices[$i]; + $budget_hash->{$budget_codes[$i]}->{replacementprice} = $replacementprices[$i]; $budget_hash->{$budget_codes[$i]}->{itemnumbers} //= []; push @{ $budget_hash->{$budget_codes[$i]}->{itemnumbers} }, $itemnumbers[$i]; } --