finish adding a feature to easily list all email addresses for an agent & send them...

[freeside.git] / htetc / handler.pl

diff --git a/htetc/handler.pl b/htetc/handler.pl
index 3d0f359..be6f2f7 100644 (file)
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -91,7 +91,7 @@ sub handler
       use strict;
       use vars qw( $cgi $p $fsurl);
       use vars qw( %session );
-      use CGI 2.47 qw(-private_tempfiles);
+      use CGI 3.29 qw(-private_tempfiles); #3.29 to fix RT attachment problems
       #use CGI::Carp qw(fatalsToBrowser);
       use CGI::Cookie;
       use List::Util qw( max min );
@@ -104,8 +104,11 @@ sub handler
       use DateTime::Format::Strptime;
       use Lingua::EN::Inflect qw(PL);
       use Tie::IxHash;
+      use URI::URL;
       use URI::Escape;
       use HTML::Entities;
+      use HTML::TreeBuilder;
+      use HTML::FormatText;
       use JSON;
       use MIME::Base64;
       use IO::Handle;
@@ -136,8 +139,9 @@ sub handler
       use FS::Record qw(qsearch qsearchs fields dbdef str2time_sql);
       use FS::Conf;
       use FS::CGI qw(header menubar popurl rooturl table itable ntable idiot
-                     eidiot small_custview myexit http_header);
+                     eidiot myexit http_header);
       use FS::UI::Web qw(svc_url);
+      use FS::UI::Web::small_custview qw(small_custview);
       use FS::UI::bytecount;
       use FS::Msgcat qw(gettext geterror);
       use FS::Misc qw( send_email send_fax states_hash counties state_label );
@@ -158,6 +162,8 @@ sub handler
       use FS::part_pkg_taxclass;
       use FS::cust_pkg_reason;
       use FS::cust_refund;
+      use FS::cust_credit_refund;
+      use FS::cust_pay_refund;
       use FS::cust_svc;
       use FS::nas;
       use FS::part_bill_event;
@@ -243,6 +249,11 @@ sub handler
           use Time::HiRes;
           use HTML::Scrubber;
 
+          #blah.  not even in RT::Interface::Web::Handler, just in 
+          #html/NoAuth/css/dhandler and rt-test-dependencies.  ask for it here
+          #to throw a real error instead of just a mysterious unstyled RT
+          use CSS::Squish 0.06;
+
           #slow, unreliable, segfaults and is optional
           #see rt/html/Ticket/Elements/ShowTransactionAttachments
           #use Text::Quoted;