===================================================================
RCS file: /cvs/pta/pta_import.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -p -r1.16 -r1.17
--- pta/pta_import.pl	2020/11/19 19:56:48	1.16
+++ pta/pta_import.pl	2020/11/19 23:55:50	1.17
@@ -1,4 +1,4 @@
-#!/usr/bin/perl 
+#!/usr/bin/perl
 
 # Copyright (c) 2020 Freda Bundchen
 
@@ -34,7 +34,7 @@ my %banks = (
 
 sub import_bbva_usa ($$$) {
 	my ($account, $csv_account, $line) = @_;
-	$line =~ 
+	$line =~
 	    m#(\d+)/(\d+)/(\d+),(.*?),\S+,(\(?\d+\.\d+\)?),# or
 	    die "parse error: $line";
 	my ($month, $day, $year, $description, $amount) =
@@ -50,7 +50,7 @@ sub import_chase_credit ($$$) {
 	my ($trans_date, $post_date, $description, $category,
 	    $type, $amount) = split /,/, $line;
 	my ($debit, $credit);
-	$post_date =~ s#(\d+)/(\d+)/(\d+)#$3$1$2#; 
+	$post_date =~ s#(\d+)/(\d+)/(\d+)#$3$1$2#;
 	($amount, $debit, $credit) =
 	    get_accounts_by_amount_sign($amount, $account,
 	    $csv_account);
@@ -62,8 +62,8 @@ sub import_capital_one_credit ($$$) {
 	my ($trans_date, $post_date, $card_num,
 	    $description, $category, $csv_debit,
 	    $csv_credit) = split /,/, $line;
-	$post_date =~ s/(\d+)-(\d+)-(\d+)/$1$2$3/; 
-	my ($amount, $debit, $credit) = 
+	$post_date =~ s/(\d+)-(\d+)-(\d+)/$1$2$3/;
+	my ($amount, $debit, $credit) =
 	    get_accounts_by_csv_col($account, $csv_account,
 	    $csv_debit, $csv_credit);
 	return ($post_date, $amount, $debit, $credit, $description);
@@ -114,10 +114,10 @@ sub get_accounts_by_amount_sign ($$$) {
 	my ($debit, $credit);
 	if ($amount <= 0) {
 		$amount = substr $amount, 1;
-		$credit = $csv_account;	
+		$credit = $csv_account;
 		$debit = $account;
 	} else {
-		$debit = $csv_account;	
+		$debit = $csv_account;
 		$credit = $account;
 	}
 	return ($amount, $debit, $credit);