X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htetc%2Fhandler.pl;h=26cdaf49fc053465d68dc59b1f9eefdf091d7bd6;hb=1d920e3661c29398763d05c82bbe3a493a19fbae;hp=9605b8f488c7050d73d91524f0c024b7687ce281;hpb=0ceaaf5af7d83754aa4b1a775071e85b3139bbbf;p=freeside.git

diff --git a/htetc/handler.pl b/htetc/handler.pl
index 9605b8f48..26cdaf49f 100644
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -37,6 +37,8 @@ if ( %%%RT_ENABLED%%% ) {
 my %interp = (
   request_class        => 'HTML::Mason::Request::ApacheHandler',
   data_dir             => '%%%MASONDATA%%%',
+  error_mode           => 'output',
+  error_format         => 'html',
   ignore_warnings_expr => '.',
   comp_root            => [
                             [ 'freeside' => '%%%FREESIDE_DOCUMENT_ROOT%%%'    ],
@@ -118,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;
@@ -146,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;
@@ -226,7 +230,8 @@ sub handler
           use Text::Wrapper;
           use Time::ParseDate;
           use HTML::Scrubber;
-          use Text::Quoted;
+          #use Text::Quoted; #slow, unreliable, segfaults and is optional
+          use Time::HiRes;
         ';
         die $@ if $@;
       }
@@ -335,8 +340,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__};
@@ -360,6 +363,7 @@ sub handler
 #    if ( $@ ) {
 #	$RT::Logger->crit($@);
 #    }
+    warn $@ if $@;
 
     undef %session;