diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-06-07 01:14:49 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-06-07 01:14:49 -0700 |
commit | 9539d3f490cba4738a40025fcd241d1cb2372ad9 (patch) | |
tree | 23be95b9ed4b6214618c069651dd12f84f77cb3e /FS/FS/access_user_log.pm | |
parent | a1d1dc9edcb57c0295689203de577c670f947b60 (diff) |
log with a separate db connection
Diffstat (limited to 'FS/FS/access_user_log.pm')
-rw-r--r-- | FS/FS/access_user_log.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/FS/FS/access_user_log.pm b/FS/FS/access_user_log.pm index 15437b7..563f3ce 100644 --- 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; @@ -85,6 +86,11 @@ sub insert_new_path { 'render_seconds' => $render_seconds, } ); + #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; |