- should finish off the part_svc -> part_export s/one-to-many/many-to-many/

  transition (closes: Bug#375)
- fixes a nasty export scoping bug with message catalogs, whew

2 files changed, 6 insertions, 2 deletions

diff --git a/htetc/global.asa b/htetc/global.asa
index 057695183..62f454475 100644
--- a/htetc/global.asa
+++ b/htetc/global.asa
@@ -15,6 +15,7 @@ use FS::Record qw(qsearch qsearchs fields dbdef);
 use FS::Conf;
 use FS::CGI qw(header menubar popurl table itable ntable idiot eidiot
                small_custview myexit);
+use FS::Msgcat qw(gettext geterror);
 
 use FS::agent;
 use FS::agent_type;
@@ -48,7 +49,8 @@ use FS::svc_www;
 use FS::type_pkgs;
 use FS::part_export;
 use FS::part_export_option;
-use FS::msgcat qw(gettext geterror);
+use FS::export_svc;
+use FS::msgcat;
 
 sub Script_OnStart {
   $Response->AddHeader('Pragma' => 'no-cache');
diff --git a/htetc/handler.pl b/htetc/handler.pl
index 2f8146e3e..056efa88b 100644
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -72,6 +72,7 @@ sub handler
       use FS::Conf;
       use FS::CGI qw(header menubar popurl table itable ntable idiot eidiot
                      small_custview myexit);
+      use FS::Msgcat qw(gettext geterror);
 
       use FS::agent;
       use FS::agent_type;
@@ -105,7 +106,8 @@ sub handler
       use FS::type_pkgs;
       use FS::part_export;
       use FS::part_export_option;
-      use FS::msgcat qw(gettext geterror);
+      use FS::export_svc;
+      use FS::msgcat;
 
       *CGI::redirect = sub {
         my( $self, $location ) = @_;