2016 holidays for EFT canada, RT#18117

[freeside.git] / FS / FS / pay_batch / eft_canada.pm

diff --git a/FS/FS/pay_batch/eft_canada.pm b/FS/FS/pay_batch/eft_canada.pm
index 0c09321..2e89322 100644 (file)
--- a/FS/FS/pay_batch/eft_canada.pm
+++ b/FS/FS/pay_batch/eft_canada.pm
@@ -15,7 +15,7 @@ $name = 'eft_canada';
 
 %import_info = ( filetype  => 'NONE' ); # see FS/bin/freeside-eftca-download
 
-my ($trans_code, $process_date);
+my ($business_trans_code, $personal_trans_code, $trans_code, $process_date);
 
 #ref http://gocanada.about.com/od/canadatravelplanner/a/canada_holidays.htm
 my %holiday_yearly = (
@@ -25,24 +25,6 @@ my %holiday_yearly = (
   12 => { map {$_=>1} 26 }, #boxing day
 );
 my %holiday = (
-  2013 => {  2 => { map {$_=>1} 18 }, #family day
-             3 => { map {$_=>1} 29 }, #good friday
-             4 => { map {$_=>1}  1 }, #easter monday
-             5 => { map {$_=>1} 20 }, #victoria day
-             7 => { map {$_=>1}  1 }, #canada day
-             8 => { map {$_=>1}  5 }, #First Monday of August Civic Holiday
-             9 => { map {$_=>1}  2 }, #labour day
-            10 => { map {$_=>1} 14 }, #thanksgiving
-          },
-  2014 => {  2 => { map {$_=>1} 17 }, #family day
-             4 => { map {$_=>1} 18 }, #good friday
-             4 => { map {$_=>1} 21 }, #easter monday
-             5 => { map {$_=>1} 19 }, #victoria day
-             7 => { map {$_=>1}  1 }, #canada day
-             8 => { map {$_=>1}  4 }, #First Monday of August Civic Holiday
-             9 => { map {$_=>1}  1 }, #labour day
-            10 => { map {$_=>1} 13 }, #thanksgiving
-          },
   2015 => {  2 => { map {$_=>1} 16 }, #family day
              4 => { map {$_=>1}  3 }, #good friday
              4 => { map {$_=>1}  6 }, #easter monday
@@ -52,6 +34,15 @@ my %holiday = (
              9 => { map {$_=>1}  7 }, #labour day
             10 => { map {$_=>1} 12 }, #thanksgiving
           },
+  2016 => {  2 => { map {$_=>1} 15 }, #family day
+             3 => { map {$_=>1} 25 }, #good friday
+             3 => { map {$_=>1} 28 }, #easter monday
+             5 => { map {$_=>1} 23 }, #victoria day
+             7 => { map {$_=>1}  1 }, #canada day
+             8 => { map {$_=>1}  1 }, #First Monday of August Civic Holiday
+             9 => { map {$_=>1}  5 }, #labour day
+            10 => { map {$_=>1} 10 }, #thanksgiving
+          },
 );
 
 %export_info = (
@@ -66,7 +57,8 @@ my %holiday = (
       @config = $conf->config('batchconfig-eft_canada');
     }
     # SFTP login, password, trans code, delay time
-    ($trans_code) = $config[2];
+    ($business_trans_code) = $config[2];
+    ($personal_trans_code) = $config[3];
 
     $process_date = time2str('%D', process_date($conf, $agentnum));
   },
@@ -82,12 +74,14 @@ my %holiday = (
     my $company = sprintf('%.64s', $cust_pay_batch->cust_main->company);
     if ( $company ) {
       push @fields, 'Business';
-      push @fields, $company, ''
+      push @fields, $company, '';
+      $trans_code = $business_trans_code;
     }
     else {
       push @fields, 'Personal';
       push @fields, map { sprintf('%.64s', $_) } 
         $cust_pay_batch->first, $cust_pay_batch->last;
+        $trans_code = $personal_trans_code;
     }
     my ($account, $aba) = split('@', $cust_pay_batch->payinfo);
     my($bankno, $branch);
@@ -146,7 +140,7 @@ sub process_date {
     @config = $conf->config('batchconfig-eft_canada');
   }
 
-  my $process_delay = $config[3] || 1;
+  my $process_delay = $config[4] || 1;
 
   if ( (localtime(time))[2] >= 10 and $process_delay == 1 ) {
     # If downloading the batch after 10:00 local time, it likely won't make