1 package OpenILS::Application::Trigger::Validator::Acq;
2 use strict; use warnings;
3 use OpenSRF::Utils::Logger qw/:logger/;
5 sub UserRequestOrdered {
8 return get_lineitem_from_req($self, $env)->state eq 'on-order';
11 sub UserRequestReceived {
14 return get_lineitem_from_req($self, $env)->state eq 'received';
17 sub UserRequestCancelled {
20 return get_lineitem_from_req($self, $env)->state eq 'cancelled';
23 sub get_lineitem_from_req {
25 my $req = $env->{target};
26 return (ref $env->{target}->lineitem) ?
27 $env->{target}->lineitem :
28 $self->editor->retrieve_acq_lineitem($$env->{target}->lineitem);