From 826c1987cc6157d547fa377d9aa61e6b4809cee1 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Mon, 23 Nov 2015 15:08:36 -0500 Subject: [PATCH] KMAIN-1837 Add PO activation lineitem notes When a PO is activated, add a note to each lineitem containing the username of the staff which activated the PO. Note format is "ORD: " Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm index decc68ecb9..a89d122361 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm @@ -2819,6 +2819,17 @@ sub activate_purchase_order_impl { create_lineitem_debits($mgr, $li, $options) or return $e->die_event; update_lineitem($mgr, $li) or return $e->die_event; $mgr->post_process( sub { create_lineitem_status_events($mgr, $li->id, 'aur.ordered'); }); + + # ----------------------------------------------- + # KCLS create lineitem note containing PO activator + my $note = Fieldmapper::acq::lineitem_note->new; + $note->lineitem($li->id); + $note->creator($e->requestor->id); + $note->editor($e->requestor->id); + $note->value('ordered: ' . $e->requestor->usrname); + $e->create_acq_lineitem_note($note) or return $e->die_event; + # ----------------------------------------------- + $mgr->respond; } -- 2.11.0