version 1.22, 2011/04/08 18:10:28 |
version 1.23, 2011/04/08 19:00:16 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: rt_invoices.pl,v 1.21 2011/03/24 20:03:49 andrew Exp $ |
# $AFresh1: rt_invoices.pl,v 1.22 2011/04/08 17:10:28 andrew Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
if !$startdate || $startdate > $date; |
if !$startdate || $startdate > $date; |
} |
} |
|
|
return if $billends <= $date; |
# Is the start date more than $freq $per before the end date? |
|
my $diff = $billends - $date; |
|
return unless $diff->subtract( $per => $freq )->is_positive; |
|
|
if ( $cust->{base_rate} ) { |
if ( $cust->{base_rate} ) { |
my ( $project, $hours ) = make_base_project( |
my ( $project, $hours ) = make_base_project( |