![[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|
Return to rt_invoices.pl CVS log | Up to [local] / RT / Invoicing |
| version 1.26, 2011/04/19 04:19:27 | version 1.27, 2011/04/19 04:21:06 | ||
|---|---|---|---|
|
|
||
| } | } | ||
| 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; |