fix license boilerplate and search sorting

[freeside.git] / htetc / handler.pl

diff --git a/htetc/handler.pl b/htetc/handler.pl
index e37f3cb..c91a0ec 100644 (file)
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -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;
@@ -154,6 +156,9 @@ sub handler
       use FS::part_export_option;
       use FS::export_svc;
       use FS::msgcat;
+      use FS::rate;
+      use FS::rate_region;
+      use FS::rate_prefix;
 
       if ( %%%RT_ENABLED%%% ) {
         eval '
@@ -209,13 +214,13 @@ sub handler
 
       };
       
-      unless ( $r->filename =~ /\/rt\/.*NoAuth/ ) { #RT
+      unless ( $HTML::Mason::r->filename =~ /\/rt\/.*NoAuth/ ) { #RT
         $cgi = new CGI;
         &cgisuidsetup($cgi);
         #&cgisuidsetup($r);
+        $p = popurl(2);
       }
 
-      $p = popurl(2);
 
       sub include {
         use vars qw($m);