X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_main%2FImport.pm;h=a243b275f735f78b76d84df6e62009960b697a3f;hp=e5a4485f92a83fab777def5bef402e877bae0290;hb=7516e3da0f17eeecba27219ef96a8b5f46af2083;hpb=a72a10f754f7465121d6137bb3dcee0a21ea6443 diff --git a/FS/FS/cust_main/Import.pm b/FS/FS/cust_main/Import.pm index e5a4485f9..a243b275f 100644 --- a/FS/FS/cust_main/Import.pm +++ b/FS/FS/cust_main/Import.pm @@ -2,9 +2,7 @@ package FS::cust_main::Import; 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 ); @@ -67,8 +65,7 @@ Load a batch import as a queued JSRPC job 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'} @@ -152,7 +149,7 @@ sub batch_import { @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