From f96adaf19c0097ef8c9d6f29a5541b75381cc05d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 12 Mar 2002 15:33:22 +0000
Subject: abstract stupid HTML layer trick out to HTML::Widgets::SelectLayers

---
 htetc/global.asa | 3 +++
 htetc/handler.pl | 3 +++
 2 files changed, 6 insertions(+)

(limited to 'htetc')

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 ) = @_;
-- 
cgit v1.2.1