diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-06-07 01:14:50 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-06-07 01:14:50 -0700 |
commit | e797703f8c893db9da8c003e41986a31cb576bcc (patch) | |
tree | 5ace0814f673781beb7d6aeb99840418554abbea /FS/FS/access_user_log.pm | |
parent | 747af1b66a1e25325ee610c6f3a82441bddcd711 (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; |