version 1.55, 2020/08/02 18:52:40 |
version 1.56, 2020/08/02 18:57:28 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: rt_invoices.pl,v 1.54 2015/12/08 02:10:43 andrew Exp $ |
# $AFresh1: rt_invoices.pl,v 1.55 2020/08/02 17:52:40 afresh1 Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
my $freq = $cust->{frequency} || 1; |
my $freq = $cust->{frequency} || 1; |
|
|
my $day_method |
my $day_method |
= $per eq 'week' ? $day_method = 'dow' |
= $per eq 'week' ? 'dow' |
: $per eq 'month' ? $day_method = 'day' |
: $per eq 'month' ? 'day' |
: die "Unknown per [$per]\n"; |
: die "Unknown per [$per]\n"; |
|
|
return DateTime::Duration->new( "${per}s" => $freq ), $day_method; |
return DateTime::Duration->new( "${per}s" => $freq ), $day_method; |