diff options
-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 15437b772..563f3cef0 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; |