From fcba1f6878fcfba20e445889ef24856c90ef3f07 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Thu, 29 Dec 2016 16:00:18 -0800 Subject: [PATCH] fix coverage map generation on 3.x, #73266 --- FS/FS/tower_sector.pm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/FS/FS/tower_sector.pm b/FS/FS/tower_sector.pm index 2b0efa3da..6ccfe553d 100644 --- a/FS/FS/tower_sector.pm +++ b/FS/FS/tower_sector.pm @@ -1,14 +1,16 @@ package FS::tower_sector; -use Class::Load qw(load_class); -use File::Path qw(make_path); -use Data::Dumper; - use strict; use base qw( FS::Record ); use FS::Record qw( qsearch qsearchs ); use FS::tower; use FS::svc_broadband; +use Class::Load qw(load_class); +use File::Path qw(make_path); +use Data::Dumper; +use Storable qw(thaw); +use MIME::Base64 qw(decode_base64); + =head1 NAME @@ -271,6 +273,9 @@ PARAMS must include 'sectornum'. sub process_generate_coverage { my $job = shift; my $param = shift; + if (!ref($param)) { + $param = thaw(decode_base64($param)); + } $job->update_statustext('0,generating map') if $job; my $sectornum = $param->{sectornum}; my $sector = FS::tower_sector->by_key($sectornum) -- 2.11.0