===================================================================
RCS file: /cvs/RT/Invoicing/rt_invoices.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- RT/Invoicing/rt_invoices.pl	2011/04/19 04:19:27	1.26
+++ RT/Invoicing/rt_invoices.pl	2011/04/19 04:21:06	1.27
@@ -487,9 +487,11 @@
         }
 
         my $invoice = $cust->{invoice};
-        next
-            if $invoice->{start}
-                && $invoice->{start} > $fee->{date};
+        if ($invoice->{start} && $invoice->{start} > $fee->{date}) {
+            warn "Ticket " . $ticket->id 
+                . " has old uninvoiced Transaction " .  $txn->id . "\n";
+            next;
+        }
         next if $invoice->{end} < $fee->{date};
 
         push @{ $project{fees} },         $fee;