1 package OpenILS::Application::Trigger::Validator::Acq::PurchaseOrderEDIRequired;
2 use strict; use warnings;
3 # use OpenSRF::Utils::Logger qw/:logger/;
4 use OpenILS::Utils::CStoreEditor qw/ new_editor /;
5 use OpenILS::Application::AppUtils;
6 my $U = 'OpenILS::Application::AppUtils';
11 my $po = $env->{target};
16 new_editor->retrieve_acq_provider($po->provider);
19 ($po->state eq 'on-order' || $po->state eq 'retry')
21 and $provider->edi_default
22 and $U->is_true($provider->active)
23 and !$U->is_true($provider->edi_default->use_attrs);