211d75fee09ed68b257a3e8cad9d3e167897f77a
[working/Evergreen.git] / Open-ILS / src / perlmods / lib / OpenILS / Application / Trigger / Validator / Acq / PurchaseOrderEDIRequired.pm
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';
7
8 sub handler {
9     my $self = shift;
10     my $env  = shift;
11     my $po   = $env->{target};
12
13     my $provider = 
14         ref($po->provider) ? 
15             $po->provider : 
16             new_editor->retrieve_acq_provider($po->provider);
17
18     return 1 if 
19         ($po->state eq 'on-order' or
20          $po->state eq 'retry'      ) and 
21         $provider                     and 
22         $provider->edi_default        and 
23         $U->is_true($provider->active);
24
25     return 0;
26 }
27
28 1;