=================================================================== RCS file: /cvs/RT/Invoicing/rt_invoices.pl,v retrieving revision 1.55 retrieving revision 1.56 diff -u -r1.55 -r1.56 --- RT/Invoicing/rt_invoices.pl 2020/08/02 18:52:40 1.55 +++ RT/Invoicing/rt_invoices.pl 2020/08/02 18:57:28 1.56 @@ -1,5 +1,5 @@ #!/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 # @@ -616,8 +616,8 @@ my $freq = $cust->{frequency} || 1; my $day_method - = $per eq 'week' ? $day_method = 'dow' - : $per eq 'month' ? $day_method = 'day' + = $per eq 'week' ? 'dow' + : $per eq 'month' ? 'day' : die "Unknown per [$per]\n"; return DateTime::Duration->new( "${per}s" => $freq ), $day_method;