![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to State.pm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / RT / Invoicing / lib / RTI|
Return to State.pm CVS log | Up to [local] / RT / Invoicing / lib / RTI |
| version 1.7, 2012/11/28 02:24:04 | version 1.8, 2012/11/28 02:25:13 | ||
|---|---|---|---|
|
|
||
| delete $credit{$custid} unless $credit{$custid}; | delete $credit{$custid} unless $credit{$custid}; | ||
| } | } | ||
| foreach my $id ( sort { $b <=> $a } keys %owes ) { | foreach my $id ( sort { $a <=> $b } keys %owes ) { | ||
| my $i = $invoices->{$id}; | my $i = $invoices->{$id}; | ||
| my $custid = $i->{custid} or next; | my $custid = $i->{custid} or next; | ||