trailing 1; for perl modules
[working/Evergreen.git] / 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;