| 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( |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to rt_invoices.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / RT / Invoicing