Open-ILS/src/perlmods/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;