diff options
| author | Mark Wells <mark@freeside.biz> | 2014-10-31 15:45:50 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2014-10-31 15:45:50 -0700 |
| commit | 7516e3da0f17eeecba27219ef96a8b5f46af2083 (patch) | |
| tree | 772fe13627910a7d0774871633697f2a4d1c6faf /FS/FS/part_svc.pm | |
| parent | f31a9212ab3835b815aa87a86cca3b19babcaaff (diff) | |
tax engine refactoring for Avalara and Billsoft tax vendors, #25718
Diffstat (limited to 'FS/FS/part_svc.pm')
| -rw-r--r-- | FS/FS/part_svc.pm | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 01f3034..9ed56eb 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -722,13 +722,10 @@ Job-queue processor for web interface adds/edits =cut -use Storable qw(thaw); use Data::Dumper; -use MIME::Base64; sub process { my $job = shift; - - my $param = thaw(decode_base64(shift)); + my $param = shift; warn Dumper($param) if $DEBUG; my $old = qsearchs('part_svc', { 'svcpart' => $param->{'svcpart'} }) @@ -802,13 +799,10 @@ Job-queue processor for web interface bulk customer service changes =cut -use Storable qw(thaw); use Data::Dumper; -use MIME::Base64; sub process_bulk_cust_svc { my $job = shift; - - my $param = thaw(decode_base64(shift)); + my $param = shift; warn Dumper($param) if $DEBUG; local($FS::svc_Common::noexport_hack) = 1 |