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;
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}";
'table' => 'cust_svc',
'addl_from' => 'LEFT JOIN svc_broadband USING ( svcnum ) ',
'extra_sql' => " WHERE svcpart in ('".$parts."')",
- });
+ }) unless !$parts;
my $svc_count = scalar @svcs;