===================================================================
RCS file: /cvs/pta/pta_import.pl,v
retrieving revision 1.20
retrieving revision 1.23
diff -u -p -r1.20 -r1.23
--- pta/pta_import.pl	2020/11/23 14:14:23	1.20
+++ pta/pta_import.pl	2020/11/26 19:39:43	1.23
@@ -25,6 +25,7 @@ my %banks = (
     "bbva_usa"              => \&import_bbva_usa,
     "capital_one_credit"    => \&import_capital_one_credit,
     "chase_credit"          => \&import_chase_credit,
+    "etrade_ira"            => \&import_etrade_ira,		
     "optum_hsa"             => \&import_optum_hsa,
     "sparkasse_camt"        => \&import_sparkasse_camt,
     "wellsfargo"            => \&import_wellsfargo,
@@ -69,6 +70,20 @@ sub import_capital_one_credit ($$$) {
 	return ($post_date, $amount, $debit, $credit, $description);
 }
 
+sub import_etrade_ira ($$$) {
+	my ($account, $csv_account, $line) = @_;
+	my @fields = split /,/, $line;
+	$fields[0] =~ s#(\d+)/(\d+)/(\d+)#20$3$1$2#;
+	my ($amount, $debit, $credit) =
+	    get_accounts_by_amount_sign($fields[5], $account,
+	    $csv_account);
+	if ($fields[2] eq 'EQ') {
+		$fields[8] .= " [$fields[3]]"; 
+	}
+	return ($fields[0], $amount, $debit, $credit, 
+	    join ' quantity ', $fields[8], $fields[4]);
+}
+
 sub import_optum_hsa ($$$) {
         my ($account, $csv_account, $line) = @_;
         my ($date, $description, $amount,
@@ -154,7 +169,7 @@ my $account_name = $opt_I;
 $banks{$account_name} or die "unknown accountname: $account_name";
 
 # Parse the configuration file.
-my $fn = "import_" . $account_name . ".txt";
+my $fn = "import/" . $account_name . ".txt";
 open my $in, '<', $fn or die "$fn: $!";
 my ($csv_account, $delim, $header, $quote, @compiled, @ignored);
 while (<$in>) {
@@ -198,7 +213,10 @@ close $in;
 $csv_account or die "no ACCOUNT line in $fn";
 
 # Parse the CSV file from the bank.
-LINE: while (<>) {
+if (@ARGV) {
+	open STDIN, '<', $ARGV[0] or die "$ARGV[0]: $!";
+}
+LINE: while (<STDIN>) {
 	chomp;
 	next if (/^$/);
 	foreach my $ignore (@ignored) {