Bug 1164063 - show a warning near the attachments table for sec-high/sec-crit bugs without sec-approval? on patches

1 files changed, 6 insertions, 0 deletions

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'};