diff options
| author | Jonathan Prykop <jonathan@freeside.biz> | 2015-03-04 21:29:30 -0600 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2015-03-04 21:29:30 -0600 |
| commit | 61ea51152f19edd37043f6c29303bfe16809f0f6 (patch) | |
| tree | 25bd53ce6a630573d8b250163f05a8b53dbc85ab /FS/FS | |
| parent | 7c7d54475dcdb041af4b42b13d3d4084627a8e9f (diff) | |
RT#30825 Modernize Bulk payment importing [fixed format handling]
Diffstat (limited to 'FS/FS')
| -rw-r--r-- | FS/FS/cust_pay.pm | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index ce8a3552f..8b4c98ad6 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -1170,8 +1170,6 @@ sub process_upgrade_paybatch { sub process_batch_import { my $job = shift; - #agent_custid isn't a cust_pay field, see hash callback - my $format = [ qw(custnum agent_custid paid payinfo invnum) ]; my $hashcb = sub { my %hash = @_; my $custnum = $hash{'custnum'}; @@ -1225,19 +1223,11 @@ sub process_batch_import { my $opt = { 'table' => 'cust_pay', 'params' => [ '_date', 'agentnum', 'payby', 'paybatch' ], - 'formats' => { - 'simple-csv' => $format, - 'simple-xls' => $format, - }, - 'format_types' => { - 'simple-csv' => 'csv', - 'simple-xls' => 'xls', - }, - 'default_csv' => 1, - 'format_hash_callbacks' => { - 'simple-csv' => $hashcb, - 'simple-xls' => $hashcb, - }, + #agent_custid isn't a cust_pay field, see hash callback + 'formats' => { 'simple' => [ qw(custnum agent_custid paid payinfo invnum) ] }, + 'format_types' => { 'simple' => '' }, #force infer from file extension + 'default_csv' => 1, #if it's not .xls, it'll read as csv, regardless of extension + 'format_hash_callbacks' => { 'simple' => $hashcb }, 'postinsert_callback' => sub { my $cust_pay = shift; my $cust_main = $cust_pay->cust_main || |