version 1.6, 2020/11/10 17:25:58 |
version 1.7, 2020/11/10 17:30:31 |
|
|
sub parse_import_file ($) { |
sub parse_import_file ($) { |
my $fn = shift; |
my $fn = shift; |
my (@compiled, %bookings, %accounts, $import_type); |
my (@compiled, %bookings, %accounts, $import_type); |
my $csv_account = ""; |
my $csv_account; |
if ($fn eq "import_chase_credit.txt") { |
if ($fn eq "import_chase_credit.txt") { |
$import_type = "chase_credit"; |
$import_type = "chase_credit"; |
} elsif ($fn eq "import_capital_one_credit.txt") { |
} elsif ($fn eq "import_capital_one_credit.txt") { |
Line 50 sub parse_import_file ($) { |
|
Line 50 sub parse_import_file ($) { |
|
$accounts{$reg} = $account; |
$accounts{$reg} = $account; |
} |
} |
close $in; |
close $in; |
die "CSV account not defined in $fn" if ($csv_account eq ""); |
$csv_account or die "CSV account not defined in $fn"; |
return (\%bookings, \%accounts, \@compiled, $csv_account, $import_type); |
return (\%bookings, \%accounts, \@compiled, $csv_account, $import_type); |
} |
} |
|
|