From: Mark Wells <mark@freeside.biz>
Date: Fri, 30 Dec 2016 00:00:18 +0000 (-0800)
Subject: fix coverage map generation on 3.x, #73266
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=fcba1f6878fcfba20e445889ef24856c90ef3f07;p=freeside.git

fix coverage map generation on 3.x, #73266
---

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)