RT/Invoicing/rt_invoices.pl - diff

Return to rt_invoices.pl CVS log

Up to [local] / RT / Invoicing

version 1.55, 2020/08/02 18:52:40

version 1.56, 2020/08/02 18:57:28

Line 1

#!/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 $

########################################################################

Line 616

my $freq = $cust->{frequency} || 1;

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";

return DateTime::Duration->new( "${per}s" => $freq ), $day_method;