summaryrefslogtreecommitdiffstats
path: root/Bugzilla/Bug.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Bugzilla/Bug.pm')
-rwxr-xr-xBugzilla/Bug.pm18
1 files changed, 18 insertions, 0 deletions
diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm
index b451190e2..9e8e44c55 100755
--- a/Bugzilla/Bug.pm
+++ b/Bugzilla/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) = @_;