version 1.29, 2011/05/03 05:38:56 |
version 1.30, 2011/05/03 05:41:11 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: rt_invoices.pl,v 1.28 2011/04/19 03:35:12 andrew Exp $ |
# $AFresh1: rt_invoices.pl,v 1.29 2011/05/03 04:38:56 andrew Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
} |
} |
|
|
# Is the start date more than $freq $per before the end date? |
# Is the start date more than $freq $per before the end date? |
my $diff = $billend - $date; |
return {} |
return {} if $diff->in_units($per) < 1; |
if DateTime->compare( $date->clone->add( $per => $freq ), $billend ) |
|
> 0; |
|
|
if ( $cust->{base_rate} ) { |
if ( $cust->{base_rate} ) { |
my ( $project, $hours ) = make_base_project( |
my ( $project, $hours ) = make_base_project( |