From bbd091bd25c907f6f18fed0b8ccc351429261956 Mon Sep 17 00:00:00 2001
From: Byron Jones <glob@mozilla.com>
Date: Tue, 6 Oct 2015 00:29:02 +0800
Subject: Bug 1164063 - show a warning near the attachments table for
 sec-high/sec-crit bugs without sec-approval? on patches

---
 Bugzilla/Bug.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Bugzilla/Bug.pm')

diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm
index 312039306..73dc98963 100644
--- a/Bugzilla/Bug.pm
+++ b/Bugzilla/Bug.pm
@@ -3621,6 +3621,12 @@ sub keyword_objects {
     return $self->{'keyword_objects'};
 }
 
+sub has_keyword {
+    my ($self, $keyword) = @_;
+    $keyword = lc($keyword);
+    return any { lc($_->name) eq $keyword } @{ $self->keyword_objects };
+}
+
 sub comments {
     my ($self, $params) = @_;
     return [] if $self->{'error'};
-- 
cgit v1.2.3-24-g4f1b