version 1.25, 2011/04/19 04:18:13 |
version 1.27, 2011/04/19 04:21:06 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: rt_invoices.pl,v 1.24 2011/04/12 19:32:15 andrew Exp $ |
# $AFresh1: rt_invoices.pl,v 1.25 2011/04/19 03:18:13 andrew Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
|
|
my $iterator = $results->get_iterator; |
my $iterator = $results->get_iterator; |
while ( my $ticket = &$iterator ) { |
while ( my $ticket = &$iterator ) { |
|
if (!$ticket->time_worked) { |
|
say "Ticket " . $ticket->id . " has no time worked"; |
|
next; |
|
} |
|
|
my $cust = find_customer_for_ticket( $ticket ); |
my $cust = find_customer_for_ticket( $ticket ); |
if ( !$cust ) { |
if ( !$cust ) { |
warn "No customer found for ticket " . $ticket->id; |
warn "No customer found for ticket " . $ticket->id; |
|
|
} |
} |
|
|
my $invoice = $cust->{invoice}; |
my $invoice = $cust->{invoice}; |
next |
if ($invoice->{start} && $invoice->{start} > $fee->{date}) { |
if $invoice->{start} |
warn "Ticket " . $ticket->id |
&& $invoice->{start} > $fee->{date}; |
. " has old uninvoiced Transaction " . $txn->id . "\n"; |
|
next; |
|
} |
next if $invoice->{end} < $fee->{date}; |
next if $invoice->{end} < $fee->{date}; |
|
|
push @{ $project{fees} }, $fee; |
push @{ $project{fees} }, $fee; |