===================================================================
RCS file: /cvs/pta/pta_import.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -p -r1.23 -r1.24
--- pta/pta_import.pl	2020/11/26 19:39:43	1.23
+++ pta/pta_import.pl	2020/11/27 16:17:08	1.24
@@ -23,6 +23,7 @@ our ($opt_I);
 
 my %banks = (
     "bbva_usa"              => \&import_bbva_usa,
+    "capital_one_360"       => \&import_capital_one_360,
     "capital_one_credit"    => \&import_capital_one_credit,
     "chase_credit"          => \&import_chase_credit,
     "etrade_ira"            => \&import_etrade_ira,		
@@ -56,6 +57,16 @@ sub import_chase_credit ($$$) {
 	    get_accounts_by_amount_sign($amount, $account,
 	    $csv_account);
 	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 ($$$) {