version 1.31, 2011/05/07 02:03:55 |
version 1.32, 2011/05/07 02:09:43 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: rt_invoices.pl,v 1.30 2011/05/03 04:41:11 andrew Exp $ |
# $AFresh1: rt_invoices.pl,v 1.31 2011/05/07 01:03:55 andrew Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
my $hours = hours_for_date( $cust->{invoice}, $fee->{date} ); |
my $hours = hours_for_date( $cust->{invoice}, $fee->{date} ); |
|
|
my $type = exists $hours->{ $fee->{type} } |
my $type = exists $hours->{ $fee->{type} } |
&& $hours->{ $fee->{type} } > 0 ? $type : 'default'; |
&& $hours->{ $fee->{type} } > 0 ? $fee->{type} : 'default'; |
|
|
next unless exists $hours->{$type} && $hours->{$type} > 0; |
next unless exists $hours->{$type} && $hours->{$type} > 0; |
|
|