fix new page logging

diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm
index 78779d7..6163197 100644 (file)
--- a/FS/FS/Mason.pm
+++ b/FS/FS/Mason.pm
@@ -402,6 +402,7 @@ if ( -e $addl_handler_use_file ) {
   use FS::quotation_pkg_tax;
   use FS::cust_pkg_reason_fee;
   use FS::part_svc_link;
   use FS::quotation_pkg_tax;
   use FS::cust_pkg_reason_fee;
   use FS::part_svc_link;

+  use FS::access_user_log;

   # Sammath Naur
 
   if ( $FS::Mason::addl_handler_use ) {
   # Sammath Naur
 
   if ( $FS::Mason::addl_handler_use ) {


@@ -460,6 +461,7 @@ if ( -e $addl_handler_use_file ) {
     die $@ if $@;
   }
 
     die $@ if $@;
   }
 

+  no warnings 'redefine';

   *CGI::redirect = sub {
     my $self = shift;
     my $cookie = '';
   *CGI::redirect = sub {
     my $self = shift;
     my $cookie = '';

diff --git a/FS/FS/Mason/Request.pm b/FS/FS/Mason/Request.pm
index 5d6fc4c..62bf670 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 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 = '';
 
 $FSURL = 'http://Set/FS_Mason_Request_FSURL/in_standalone_mode/';
 $QUERY_STRING = '';


@@ -119,6 +120,8 @@ sub freeside_setup {
 
     }
 
 
     }
 

+    FS::access_user_log->insert_new_path( $filename );
+

     FS::Trace->log('    done');
 
 }
     FS::Trace->log('    done');
 
 }

diff --git a/htetc/handler.pl b/htetc/handler.pl
index 45afafb..416ea69 100644 (file)
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -7,7 +7,6 @@ use warnings;
 use FS::Mason qw( mason_interps );
 use FS::Trace;
 use FS::Conf;
 use FS::Mason qw( mason_interps );
 use FS::Trace;
 use FS::Conf;

-use FS::access_user_log;

 
 $FS::Conf::conf_cache_enabled = 1; # enable FS::Conf caching for performance
 
 
 $FS::Conf::conf_cache_enabled = 1; # enable FS::Conf caching for performance
 


@@ -139,8 +138,6 @@ sub handler
 
     }
 
 
     }
 

-    FS::access_user_log->insert_new_path( $r->uri );
-

     FS::Trace->log('handling request');
     my %session;
     my $status;
     FS::Trace->log('handling request');
     my %session;
     my $status;