[BACK]Return to State.pm CVS log [TXT][DIR] Up to [local] / RT / Invoicing / lib / RTI

Diff for /RT/Invoicing/lib/RTI/State.pm between version 1.4 and 1.6

version 1.4, 2012/01/03 06:23:18 version 1.6, 2012/08/18 21:21:54
Line 7 
Line 7 
 use DateTime;  use DateTime;
 use Carp;  use Carp;
   
 use YAML::Any qw/ LoadFile DumpFile /;  use YAML::XS qw/ LoadFile DumpFile /;
   $YAML::XS::QuoteNumericStrings = 0;
 use RTI::Util qw/ ymd_to_DateTime /;  use RTI::Util qw/ ymd_to_DateTime /;
   
 my $file = '';  my $file = '';
Line 28 
Line 29 
             $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;
Line 135 
Line 142 
             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: $!";
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>