RT/Invoicing/fix_state - diff

Return to fix_state CVS log

Up to [local] / RT / Invoicing

version 1.1, 2011/12/21 02:21:54

version 1.2, 2012/01/10 03:52:11

Line 1

#!/usr/bin/perl

# $AFresh1$

# $AFresh1: fix_state,v 1.1 2011/12/21 02:21:54 andrew Exp $

use strict;

use warnings;

Line 20

}

$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);