X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FRecord.pm;h=a667f4e7e1ec8ed511c367f88d304abf7d7f1d8a;hb=7516e3da0f17eeecba27219ef96a8b5f46af2083;hp=51cb6dc8ebd7356bc9a1af2c7f53ba10d64b1599;hpb=3146245f510ef873c4176bc06dc891f990db8f1e;p=freeside.git

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 51cb6dc8e..a667f4e7e 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -1766,17 +1766,14 @@ files.  Currently only supports a single file named "file".
 
 =cut
 
-use Storable qw(thaw);
 use Data::Dumper;
-use MIME::Base64;
 sub process_batch_import {
-  my($job, $opt) = ( shift, shift );
+  my($job, $opt, $param) = @_;
 
   my $table = $opt->{table};
   my @pass_params = $opt->{params} ? @{ $opt->{params} } : ();
   my %formats = %{ $opt->{formats} };
 
-  my $param = thaw(decode_base64(shift));
   warn Dumper($param) if $DEBUG;
   
   my $files = $param->{'uploaded_files'}