===================================================================
RCS file: /cvs/RT/Invoicing/fix_state,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- RT/Invoicing/fix_state	2011/12/21 02:21:54	1.1
+++ RT/Invoicing/fix_state	2012/01/10 03:52:11	1.2
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $AFresh1$
+# $AFresh1: fix_state,v 1.1 2011/12/21 02:21:54 andrew Exp $
 use strict;
 use warnings;
 
@@ -20,7 +20,13 @@
 }
 
 $state->{invoice} = \%invoices;
-$state->{payment} = \%payments;
+
+foreach my $custid (keys %payments) {
+    my $old = $payments{$custid};
+    my @new = sort { $b->{date} cmp $a->{date} } @{ $old };
+    $state->{payment}->{$custid} = \@new;
+}
+
 #print Dump $state;
 DumpFile('rt_invoice.state', $state);