X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fsaisei.pm;h=f54e6940c24830dba8dacb269770fa97708163ab;hb=24bf56f635ae27fb6c7fcf8571e3eeedef60936d;hp=1c95081bdcb44575f4758d70d4a057d4430c9e3f;hpb=34e816379204ad4b19d282f5478a566d1465f4ea;p=freeside.git

diff --git a/FS/FS/part_export/saisei.pm b/FS/FS/part_export/saisei.pm
index 1c95081bd..f54e6940c 100644
--- a/FS/FS/part_export/saisei.pm
+++ b/FS/FS/part_export/saisei.pm
@@ -5,6 +5,7 @@ use vars qw( @ISA %info );
 use base qw( FS::part_export );
 use Date::Format 'time2str';
 use Cpanel::JSON::XS;
+use Storable qw(thaw);
 use MIME::Base64;
 use REST::Client;
 use Data::Dumper;
@@ -780,7 +781,7 @@ sub process_sector {
 
 sub export_provisioned_services {
   my $job = shift;
-  my $param = shift;
+  my $param = thaw(decode_base64(shift));
 
   my $part_export = FS::Record::qsearchs('part_export', { 'exportnum' => $param->{export_provisioned_services_exportnum}, } )
   or die "unknown exportnum $param->{export_provisioned_services_exportnum}";
@@ -799,7 +800,7 @@ sub export_provisioned_services {
     'table' => 'cust_svc',
     'addl_from' => 'LEFT JOIN svc_broadband USING ( svcnum  ) ',
     'extra_sql' => " WHERE svcpart in ('".$parts."')",
-  });
+  }) unless !$parts;
 
   my $svc_count = scalar @svcs;