From fa9129cf44304e15b86b4c557e5050b6ac2d9204 Mon Sep 17 00:00:00 2001 From: Alex Buckley Date: Tue, 30 Jul 2019 07:46:41 +0000 Subject: [PATCH] Bug 23352: Display Acquisition unitprice and replacementprice by default in serials/serials-edit.pl Sponsored-By: Brimbank Library, Australia --- C4/Items.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/C4/Items.pm b/C4/Items.pm index 1f52fa2..2ca1f69 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -2352,6 +2352,14 @@ sub PrepareItemrecordDisplay { } my @loop_data; + my $unitprice; + my $replacementprice; + my @orders = C4::Acquisition::GetOrdersByBiblionumber($bibnum); + foreach my $order (@orders) { + $unitprice = $order->{'unitprice'}; + $replacementprice = $order->{'replacementprice'}; + } + my $branch_limit = C4::Context->userenv ? C4::Context->userenv->{"branch"} : ""; my $query = qq{ SELECT authorised_value,lib FROM authorised_values @@ -2441,6 +2449,12 @@ sub PrepareItemrecordDisplay { $defaultvalue = $defaultvalues->{location}; } } + if ( $unitprice && $tagslib->{$tag}->{$subfield}->{kohafield} eq 'items.price' ) { + $defaultvalue = $unitprice; + } + if ( $replacementprice && $tagslib->{$tag}->{$subfield}->{kohafield} eq 'items.replacementprice' ) { + $defaultvalue = $replacementprice; + } if ( $tagslib->{$tag}->{$subfield}->{authorised_value} ) { my @authorised_values; my %authorised_lib; -- 2.1.4