version 1.5, 2012/08/15 01:52:28 |
version 1.6, 2012/08/18 21:21:54 |
|
|
$invoice->{$_} = ymd_to_DateTime( $invoice->{$_} ) |
$invoice->{$_} = ymd_to_DateTime( $invoice->{$_} ) |
for qw/ invdate start end /; |
for qw/ invdate start end /; |
} |
} |
|
foreach my $custid (keys %{ $self->{payment} || {} }) { |
|
foreach my $payment (@{ $self->{payment}->{$custid} || [] }) { |
|
$payment->{date} = ymd_to_DateTime( $payment->{date} ) |
|
if $payment->{date}; |
|
} |
|
} |
} |
} |
|
|
bless $self, $class; |
bless $self, $class; |
|
|
else { |
else { |
delete $invoice->{$k}; |
delete $invoice->{$k}; |
} |
} |
|
} |
|
} |
|
foreach my $custid (keys %{ $self->{payment} || {} }) { |
|
foreach my $payment (@{ $self->{payment}->{$custid} || [] }) { |
|
$payment->{date} = $payment->{date}->ymd |
|
if ref $payment->{date} eq 'DateTime'; |
} |
} |
} |
} |
DumpFile( $file, {%$self} ) or die "Unable to save state: $!"; |
DumpFile( $file, {%$self} ) or die "Unable to save state: $!"; |