From 5173b6cbadea03c8525218f09794b3f74ab12d96 Mon Sep 17 00:00:00 2001
From: miketosh <michael.j.tosh@lmco.com>
Date: Sun, 23 Oct 2011 14:18:04 +0200
Subject: Bug 690173: Cannot delete user accounts due to FK on audit_log
 r/a=mkanat

---
 Bugzilla/User.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'Bugzilla/User.pm')

diff --git a/Bugzilla/User.pm b/Bugzilla/User.pm
index 48ce41a57..849c1d915 100644
--- a/Bugzilla/User.pm
+++ b/Bugzilla/User.pm
@@ -1763,6 +1763,18 @@ sub mail_settings {
     return $self->{'mail_settings'};
 }
 
+sub has_audit_entries {
+    my $self = shift;
+    my $dbh = Bugzilla->dbh;
+
+    if (!exists $self->{'has_audit_entries'}) {
+        $self->{'has_audit_entries'} =
+            $dbh->selectrow_array('SELECT 1 FROM audit_log WHERE user_id = ? ' .
+                                   $dbh->sql_limit(1), undef, $self->id);
+    }
+    return $self->{'has_audit_entries'};
+}
+
 sub is_insider {
     my $self = shift;
 
-- 
cgit v1.2.3-24-g4f1b