creditcard-less promo code signup

[freeside.git] / htetc / handler.pl

diff --git a/htetc/handler.pl b/htetc/handler.pl
index e37f3cb..a17aff1 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;
@@ -154,6 +155,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 +213,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);