[BACK]Return to pta_import.pl CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / pta

Diff for /pta/pta_import.pl between version 1.23 and 1.24

version 1.23, 2020/11/26 19:39:43 version 1.24, 2020/11/27 16:17:08
Line 23  our ($opt_I);
Line 23  our ($opt_I);
   
 my %banks = (  my %banks = (
     "bbva_usa"              => \&import_bbva_usa,      "bbva_usa"              => \&import_bbva_usa,
       "capital_one_360"       => \&import_capital_one_360,
     "capital_one_credit"    => \&import_capital_one_credit,      "capital_one_credit"    => \&import_capital_one_credit,
     "chase_credit"          => \&import_chase_credit,      "chase_credit"          => \&import_chase_credit,
     "etrade_ira"            => \&import_etrade_ira,      "etrade_ira"            => \&import_etrade_ira,
Line 56  sub import_chase_credit ($$$) {
Line 57  sub import_chase_credit ($$$) {
             get_accounts_by_amount_sign($amount, $account,              get_accounts_by_amount_sign($amount, $account,
             $csv_account);              $csv_account);
         return ($post_date, $amount, $debit, $credit, $description);          return ($post_date, $amount, $debit, $credit, $description);
   }
   
   sub import_capital_one_360 ($$$) {
           my ($account, $csv_account, $line) = @_;
           my @fields = split /,/, $line;
           $fields[1] =~ s#(\d+)/(\d+)/(\d+)#20$3$1$2#;
           my ($amount, $debit, $credit) =
               get_accounts_by_amount_sign($fields[2], $account,
               $csv_account);
           return ($fields[1], $amount, $debit, $credit, $fields[4]);
 }  }
   
 sub import_capital_one_credit ($$$) {  sub import_capital_one_credit ($$$) {

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

CVSweb