1 package FS::part_event::Condition::signupdate_day;
6 use base qw( FS::part_event::Condition );
9 "Customer signed up on the same day of month as today";
14 'delay' => { label => 'Delay additional days',
22 my( $self, $object, %opt ) = @_;
24 my $cust_main = $self->cust_main($object);
26 my ($today) = (localtime($opt{'time'}))[3];
28 my $delay = $self->option('delay') || 0;
29 my $signupday = ((localtime($cust_main->signupdate + $delay * 86400))[3] - 1)
36 my( $class, $table, %opt ) = @_;
38 if ( $opt{'driver_name'} eq 'Pg' ) {
39 $mday = sub{ "EXTRACT( DAY FROM TO_TIMESTAMP($_[0]) )::INTEGER" };
41 elsif ( $opt{'driver_name'} eq 'mysql' ) {
42 $mday = sub{ "DAY( FROM_UNIXTIME($_[0]) )" };
48 my $delay = $class->condition_sql_option_integer('delay',
49 $opt{'driver_name'}); # returns 0 for null
50 $mday->($opt{'time'}) . ' = '.
51 '(' . $mday->("cust_main.signupdate + $delay * 86400") . ' - 1) % 28 + 1';