better indication of why these things are the way they are

[freeside.git] / htetc / handler.pl

diff --git a/htetc/handler.pl b/htetc/handler.pl
index 4d566c2..caa266d 100644 (file)
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -120,6 +120,7 @@ sub handler
       use Text::CSV_XS;
       use Spreadsheet::WriteExcel;
       use Business::CreditCard 0.30; #for mask-aware cardtype()
+      use NetAddr::IP;
       use String::Approx qw(amatch);
       use Chart::LinesPoints;
       use Chart::Mountain;
@@ -148,6 +149,7 @@ sub handler
       use FS::cust_credit_bill;
       use FS::cust_main qw(smart_search);
       use FS::cust_main_county;
+      use FS::part_pkg_taxclass;
       use FS::cust_pay;
       use FS::cust_pkg;
       use FS::cust_pkg_reason;
@@ -223,12 +225,22 @@ sub handler
           use RT::CustomFieldValues;
           use RT::ObjectCustomFieldValues;
 
+          #blah.  manually updated from RT::Interface::Web::Handler
           use RT::Interface::Web;
           use MIME::Entity;
           use Text::Wrapper;
           use Time::ParseDate;
+          use Time::HiRes;
           use HTML::Scrubber;
-          use Text::Quoted;
+
+          #slow, unreliable, segfaults and is optional
+          #see rt/html/Ticket/Elements/ShowTransactionAttachments
+          #use Text::Quoted;
+
+          #?#use File::Path qw( rmtree );
+          #?#use File::Glob qw( bsd_glob );
+          #?#use File::Spec::Unix;
+
         ';
         die $@ if $@;
       }
@@ -337,8 +349,6 @@ sub handler
     if ( $r->filename =~ /\/rt\// ) { #RT
 
       $ah->interp($rt_interp);
-      # MasonX::Request::ExtendedCompRoot
-      #$ah->interp->comp_root( '/rt'. $ah->interp->comp_root() );
 
       local $SIG{__WARN__};
       local $SIG{__DIE__};