version 1.1, 2011/12/21 02:21:54 |
version 1.2, 2012/01/10 03:52:11 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1$ |
# $AFresh1: fix_state,v 1.1 2011/12/21 02:21:54 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
} |
} |
|
|
$state->{invoice} = \%invoices; |
$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; |
#print Dump $state; |
DumpFile('rt_invoice.state', $state); |
DumpFile('rt_invoice.state', $state); |
|
|