diff options
author | burnus%gmx.de <> | 2003-04-09 18:29:15 +0200 |
---|---|---|
committer | burnus%gmx.de <> | 2003-04-09 18:29:15 +0200 |
commit | bbb41a57d19d5e395e92c42d9852357f56e76635 (patch) | |
tree | 2bf74d97672cc239f3d5fb69aaa3d692966277e7 /Bug.pm | |
parent | 1b071f06dee3e09e8316feadecc0625ed47f01a8 (diff) | |
download | bugzilla-bbb41a57d19d5e395e92c42d9852357f56e76635.tar.gz bugzilla-bbb41a57d19d5e395e92c42d9852357f56e76635.tar.xz |
Bug 71790 - Duplicate resolution field should include bug number of original
r=bbaetz,a=justdave
Diffstat (limited to 'Bug.pm')
-rwxr-xr-x | Bug.pm | 18 |
1 files changed, 18 insertions, 0 deletions
@@ -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) = @_; |