abstract stupid HTML layer trick out to HTML::Widgets::SelectLayers

2 files changed, 6 insertions, 0 deletions

diff --git a/htetc/global.asa b/htetc/global.asa
index 339f01dae..083f2253d 100644
--- a/htetc/global.asa
+++ b/htetc/global.asa
@@ -9,6 +9,7 @@ use HTML::Entities;
 use IO::Handle;
 use IO::File;
 use String::Approx qw(amatch);
+use HTML::Widgets::SelectLayers;
 use FS::UID qw(cgisuidsetup dbh getotaker datasrc);
 use FS::Record qw(qsearch qsearchs fields dbdef);
 use FS::Conf;
@@ -45,6 +46,8 @@ use FS::svc_domain;
 use FS::svc_forward;
 use FS::svc_www;
 use FS::type_pkgs;
+use FS::part_export;
+#use FS::part_export_option;
 
 sub Script_OnStart {
   $Response->AddHeader('Pragma' => 'no-cache');
diff --git a/htetc/handler.pl b/htetc/handler.pl
index 680d11ec8..5f244921e 100644
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -66,6 +66,7 @@ sub handler
       use IO::Handle;
       use IO::File;
       use String::Approx qw(amatch);
+      use HTML::Widgets::SelectLayers;
       use FS::UID qw(cgisuidsetup dbh getotaker datasrc);
       use FS::Record qw(qsearch qsearchs fields dbdef);
       use FS::Conf;
@@ -102,6 +103,8 @@ sub handler
       use FS::svc_forward;
       use FS::svc_www;
       use FS::type_pkgs;
+      use FS::part_export;
+      #use FS::part_export_option;
 
       *CGI::redirect = sub {
         my( $self, $location ) = @_;