add passive event validator to stop events that are too far past the delay_field...
[working/Evergreen.git] / Open-ILS / src / perlmods / OpenILS / Application / Trigger / Validator.pm
1 package OpenILS::Application::Trigger::Validator;
2 use strict; use warnings;
3 use DateTime;
4 use DateTime::Format::ISO8601;
5 use OpenSRF::Utils qw/:datetime/;
6 use OpenSRF::Utils::Logger qw/:logger/;
7 use OpenILS::Const qw/:const/;
8 sub fourty_two { return 42 }
9 sub NOOP_True { return 1 }
10 sub NOOP_False { return 0 }
11
12 sub CircIsOpen {
13     my $self = shift;
14     my $env = shift;
15
16     return defined($env->{target}->checkin_time) ? 0 : 1;
17 }
18
19 sub MaxPassiveDelayAge {
20     my $self = shift;
21     my $env = shift;
22     my $target = $env->{target};
23     my $delay_field = $env->{event}->event_def->delay_field;
24
25     my $delay_field_ts = DateTime::Format::ISO8601->new->parse_datetime(clense_ISO8601($target->$delay_field()));
26     $delay_field_ts->add( seconds => interval_to_seconds( $env->{params}->{max_delay_age} ) );
27
28     return 0 if $delay_field_ts > DateTime->now;
29     return 1;
30 }
31
32 sub CircIsOverdue {
33     my $self = shift;
34     my $env = shift;
35     my $circ = $env->{target};
36
37     return 0 if $circ->checkin_time;
38     return 0 if $circ->stop_fines and not $circ->stop_fines =~ /MAXFINES|LONGOVERDUE/;
39
40     my $due_date = DateTime::Format::ISO8601->new->parse_datetime(clense_ISO8601($circ->due_date));
41     return 0 if $due_date > DateTime->now;
42
43     return 1;
44 }
45
46 sub HoldIsAvailable {
47     my $self = shift;
48     my $env = shift;
49
50     my $hold = $env->{target};
51
52     return 1 if 
53         !$hold->cancel_time and
54         $hold->capture_time and 
55         $hold->current_copy and
56         $hold->current_copy->status == OILS_COPY_STATUS_ON_HOLDS_SHELF;
57
58     return 0;
59 }
60
61 1;