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

   1 package OpenILS::Application::Trigger::Validator::Acq;
   2 use strict; use warnings;
   3 use OpenSRF::Utils::Logger qw/:logger/;
   4
   5 sub UserRequestOrdered {
   6     my $self = shift;
   7     my $env = shift;
   8     return get_lineitem_from_req($self, $env)->state eq 'on-order';
   9 }
  10
  11 sub UserRequestReceived {
  12     my $self = shift;
  13     my $env = shift;
  14     return get_lineitem_from_req($self, $env)->state eq 'received';
  15 }
  16
  17 sub UserRequestCancelled {
  18     my $self = shift;
  19     my $env = shift;
  20     return get_lineitem_from_req($self, $env)->state eq 'cancelled';
  21 }
  22
  23 sub get_lineitem_from_req {
  24     my($self, $env) = @_;
  25     my $req = $env->{target};
  26     return (ref $env->{target}->lineitem) ?
  27         $env->{target}->lineitem :
  28         $self->editor->retrieve_acq_lineitem($$env->{target}->lineitem);
  29 }
  30
  31 1;