X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htetc%2Fhandler.pl;h=557ec02ed21185719e79c663c218e5b7c7d64542;hb=9f9cfe720ba74e559ab669c68b28d9db820189aa;hp=81c983692b26ade96f302f8da8aca301004f57ec;hpb=48ba2845d0119c56971d5b724661aa37e73b49dd;p=freeside.git

diff --git a/htetc/handler.pl b/htetc/handler.pl
index 81c983692..557ec02ed 100644
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -40,7 +40,7 @@ use vars qw($r);
 
 if ( %%%RT_ENABLED%%% ) {
  eval '
-   use lib ("/opt/rt3/local/lib", "/opt/rt3/lib");
+   use lib ( "/opt/rt3/local/lib", "/opt/rt3/lib" );
    use RT;
    use vars qw($Nobody $SystemUser);
    RT::LoadConfig();
@@ -106,6 +106,7 @@ sub handler
       use String::Approx qw(amatch);
       use Chart::LinesPoints;
       use HTML::Widgets::SelectLayers 0.03;
+      use FS;
       use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name);
       use FS::Record qw(qsearch qsearchs fields dbdef);
       use FS::Conf;
@@ -114,6 +115,7 @@ sub handler
       use FS::Msgcat qw(gettext geterror);
       use FS::Misc qw( send_email );
       use FS::Report::Table::Monthly;
+      use FS::TicketSystem;
 
       use FS::agent;
       use FS::agent_type;
@@ -122,7 +124,7 @@ sub handler
       use FS::cust_bill_pay;
       use FS::cust_credit;
       use FS::cust_credit_bill;
-      use FS::cust_main;
+      use FS::cust_main qw(smart_search);
       use FS::cust_main_county;
       use FS::cust_pay;
       use FS::cust_pkg;
@@ -174,12 +176,14 @@ sub handler
           use RT::CustomFields;
           use RT::CustomFieldValues;
           use RT::TicketCustomFieldValues;
-      
+
           use RT::Interface::Web;
           use MIME::Entity;
           use Text::Wrapper;
           use CGI::Cookie;
           use Time::ParseDate;
+          use HTML::Scrubber;
+          use Text::Quoted;
         ';
         die $@ if $@;
       }
@@ -282,8 +286,8 @@ sub handler
 
       RT::Init();
 
-      # We don't need to handle non-text items
-      return -1 if defined( $r->content_type ) && $r->content_type !~ m|^text/|io;
+      # We don't need to handle non-text, non-xml items
+      return -1 if defined( $r->content_type ) && $r->content_type !~ m!(^text/|\bxml\b)!io;
 
     } else {
       $ah->interp->set_escape( 'h' => sub { ${$_[0]}; } );
@@ -302,7 +306,9 @@ sub handler
 #!!
 #    if ($RT::Handle->TransactionDepth) {
 #	$RT::Handle->ForceRollback;
-#    	$RT::Logger->crit("Transaction not committed. Usually indicates a software fault. Data loss may have occurred") ;
+#    	$RT::Logger->crit(
+#"Transaction not committed. Usually indicates a software fault. Data loss may have occurred"
+#       );
 #    }
 
     $status;