Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Validator/Acq/UserRequestOrdered.pm

   1 package OpenILS::Application::Trigger::Validator::Acq::UserRequestOrdered;
   2 use strict; use warnings;
   3 use OpenSRF::Utils::Logger qw/:logger/;
   4 use OpenILS::Application::Trigger::Validator::Acq;
   5
   6 sub handler {
   7     my $self = shift;
   8     my $env = shift;
   9     return OpenILS::Application::Trigger::Validator::Acq::get_lineitem_from_req($self, $env)->state eq 'on-order';
  10 }
  11
  12 1;