From bbb41a57d19d5e395e92c42d9852357f56e76635 Mon Sep 17 00:00:00 2001
From: "burnus%gmx.de" <>
Date: Wed, 9 Apr 2003 16:29:15 +0000
Subject: Bug 71790 - Duplicate resolution field should include bug number of
 original r=bbaetz,a=justdave

---
 Bug.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'Bug.pm')

diff --git a/Bug.pm b/Bug.pm
index b451190e2..9e8e44c55 100755
--- a/Bug.pm
+++ b/Bug.pm
@@ -262,6 +262,24 @@ sub initBug  {
   return $self;
 }
 
+sub dup_id {
+    my ($self) = @_;
+
+    return $self->{'dup_id'} if exists $self->{'dup_id'};
+
+    $self->{'dup_id'} = undef;
+    if ($self->{'resolution'} eq 'DUPLICATE') { 
+        my $dbh = Bugzilla->dbh;
+        $self->{'dup_id'} =
+          $dbh->selectrow_array(q{SELECT dupe_of 
+                                  FROM duplicates
+                                  WHERE dupe = ?},
+                                undef,
+                                $self->{'bug_id'});
+    }
+    return $self->{'dup_id'};
+}
+
 sub actual_time {
     my ($self) = @_;
 
-- 
cgit v1.2.3-24-g4f1b