use strict;
use vars qw( $DEBUG $conf );
-use Storable qw(thaw);
use Data::Dumper;
-use MIME::Base64;
use File::Slurp qw( slurp );
use FS::Misc::DateTime qw( parse_datetime );
use FS::UID qw( dbh );
sub process_batch_import {
my $job = shift;
-
- my $param = thaw(decode_base64(shift));
+ my $param = shift;
warn Dumper($param) if $DEBUG;
my $files = $param->{'uploaded_files'}
@fields = qw( agent_custid refnum
last first address1 address2 city state zip country
daytime night
- ship_last ship_first ship_company ship_address1 ship_address2
+ ship_last ship_first ship_address1 ship_address2
ship_city ship_state ship_zip ship_country
payinfo paycvv paydate
invoicing_list
}
if ( defined $cust_main{'payinfo'} && length $cust_main{'payinfo'} ) {
- $cust_main{'payby'} = 'CARD';
- if ($cust_main{'payinfo'} =~ /\s*([AD]?)(.*)\s*$/) {
- $cust_main{'payby'} = 'DCRD' if $1 eq 'D';
- $cust_main{'payinfo'} = $2;
+
+ if ( $cust_main{'payinfo'} =~ /^\s*(\d+\@[\d\.]+)\s*$/ ) {
+
+ $cust_main{'payby'} = 'CHEK';
+ $cust_main{'payinfo'} = $1;
+
+ } else {
+
+ $cust_main{'payby'} = 'CARD';
+
+ if ($cust_main{'payinfo'} =~ /^\s*([AD]?)(.*)\s*$/) {
+ $cust_main{'payby'} = 'DCRD' if $1 eq 'D';
+ $cust_main{'payinfo'} = $2;
+ }
+
}
+
}
$cust_main{$_} = parse_datetime($cust_main{$_})