From 57b027734e3c1a315cd11fedbf94771fa8381a30 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Thu, 25 Apr 2019 16:23:22 +0000 Subject: [PATCH] Bug 22713: Pass replacement price in to order if defined by MarcItemFieldsToOrder To test: 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 10 - Repeat 11 - Note when order added to basket it has a replacement price 12 - Note when order is received the replacement price is populated and passed into item correctly Signed-off-by: Liz Rea Signed-off-by: Katrin Fischer Signed-off-by: Nick Clemens --- acqui/addorderiso2709.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index 1921a5af6e..98e5435aca 100755 --- a/acqui/addorderiso2709.pl +++ b/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]; } -- 2.39.5