Whitespace. gah.
[working/Evergreen.git] / Open-ILS / src / perlmods / OpenILS / Application / Trigger / Validator / Acq.pm
index 94f278b..06622ab 100644 (file)
@@ -1,24 +1,6 @@
 package OpenILS::Application::Trigger::Validator::Acq;
 use strict; use warnings;
-use OpenSRF::Utils::Logger qw/:logger/;
-
-sub UserRequestOrdered {
-    my $self = shift;
-    my $env = shift;
-    return get_lineitem_from_req($self, $env)->state eq 'on-order';
-}
-
-sub UserRequestReceived {
-    my $self = shift;
-    my $env = shift;
-    return get_lineitem_from_req($self, $env)->state eq 'received';
-}
-
-sub UserRequestCancelled {
-    my $self = shift;
-    my $env = shift;
-    return get_lineitem_from_req($self, $env)->state eq 'cancelled';
-}
+# use OpenSRF::Utils::Logger qw/:logger/;
 
 sub get_lineitem_from_req {
     my($self, $env) = @_;