referral status search, RT#75757

[freeside.git] / FS / FS / access_user_log.pm

diff --git a/FS/FS/access_user_log.pm b/FS/FS/access_user_log.pm
index 884d250..ea7af8d 100644 (file)
--- a/FS/FS/access_user_log.pm
+++ b/FS/FS/access_user_log.pm
@@ -2,6 +2,7 @@ package FS::access_user_log;
 use base qw( FS::Record );
 
 use strict;
+use FS::UID qw( dbh );
 #use FS::Record qw( qsearch qsearchs );
 use FS::CurrentUser;
 
@@ -75,12 +76,19 @@ Adds a log entry for PATH for the current user and timestamp.
 sub insert_new_path {
   my( $class, $path ) = @_;
 
+  return '' unless defined $FS::CurrentUser::CurrentUser;
+
   my $self = $class->new( {
     'usernum' => $FS::CurrentUser::CurrentUser->usernum,
     'path'    => $path,
     '_date'   => time,
   } );
 
+  #so we can still log pages after a transaction-aborting SQL error (and then
+  # show the # error page)
+  local($FS::UID::dbh) = dbh->clone;
+    #if current transaction is aborted (if we had a way to check for it)
+
   my $error = $self->insert;
   die $error if $error;