From f3f052e18d367f622ad128ceb1ae5622b57742aa Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Sun, 16 Aug 2020 23:35:02 -0400 Subject: [PATCH] LP1207533 setting context_user and context_library on action_trigger.event when building the environment Signed-off-by: Jason Etheridge --- .../perlmods/lib/OpenILS/Application/Trigger/Event.pm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Event.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Event.pm index 4291eeb407..91cd00e42b 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Event.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Event.pm @@ -520,6 +520,24 @@ sub build_environment { $self->_object_by_path( $self->event->event_def, undef, [qw/usr_message sending_lib/], ['owner'] ); } } + + if ($self->event->event_def->context_usr_path) { + my @usr_path = split(/\./, $self->event->event_def->context_usr_path); + $self->_object_by_path( $self->target, undef, [qw/context usr/], \@usr_path ); + + if ($self->event->event_def->context_library_path) { + my @library_path = split(/\./, $self->event->event_def->context_library_path); + $self->_object_by_path( $self->target, undef, [qw/context org/], \@library_path ); + } else { + $self->_object_by_path( $self->event->event_def, undef, [qw/context org/], ['owner'] ); + } + $self->update_state( + $self->event->state, { + 'context_user' => $self->environment->{context}->{usr}->id, + 'context_library' => $self->environment->{context}->{org}->id + } + ); + } $self->environment->{complete} = 1; } otherwise { -- 2.11.0