fix new page logging

diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm
index d0a530e..252bf19 100644 (file)
--- a/FS/FS/Mason.pm
+++ b/FS/FS/Mason.pm
@@ -377,6 +377,7 @@ if ( -e $addl_handler_use_file ) {
   use FS::legacy_cust_history;
   use FS::quotation_pkg_tax;
   use FS::cust_pkg_reason_fee;
+  use FS::access_user_log;
   # Sammath Naur
 
   if ( $FS::Mason::addl_handler_use ) {
@@ -435,6 +436,7 @@ if ( -e $addl_handler_use_file ) {
     die $@ if $@;
   }
 
+  no warnings 'redefine';
   *CGI::redirect = sub {
     my $self = shift;
     my $cookie = '';

diff --git a/FS/FS/Mason/Request.pm b/FS/FS/Mason/Request.pm
index 36c46dc..66c69f6 100644 (file)
--- a/FS/FS/Mason/Request.pm
+++ b/FS/FS/Mason/Request.pm
@@ -5,6 +5,7 @@ use warnings;
 use vars qw( $FSURL $QUERY_STRING );
 use base 'HTML::Mason::Request';
 use FS::Trace;
+use FS::access_user_log;
 
 $FSURL = 'http://Set/FS_Mason_Request_FSURL/in_standalone_mode/';
 $QUERY_STRING = '';
@@ -118,6 +119,8 @@ sub freeside_setup {
     
   }
 
+  FS::access_user_log->insert_new_path( $filename );
+
   FS::Trace->log('    done');
 
 }

diff --git a/htetc/handler.pl b/htetc/handler.pl
index f41a3df..dbe3c91 100644 (file)
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -6,7 +6,6 @@ use strict;
 use warnings;
 use FS::Mason qw( mason_interps );
 use FS::Trace;
-use FS::access_user_log;
 
 if ( %%%RT_ENABLED%%% ) {
 
@@ -136,8 +135,6 @@ sub handler
 
     }
 
-    FS::access_user_log->insert_new_path( $r->uri );
-
     FS::Trace->log('handling request');
     my %session;
     my $status;