Bugzilla::Status code style
parent
1eb8f0e64b
commit
e1b83084a1
|
@ -1,5 +1,3 @@
|
||||||
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
|
||||||
#
|
|
||||||
# The contents of this file are subject to the Mozilla Public
|
# The contents of this file are subject to the Mozilla Public
|
||||||
# License Version 1.1 (the "License"); you may not use this file
|
# License Version 1.1 (the "License"); you may not use this file
|
||||||
# except in compliance with the License. You may obtain a copy of
|
# except in compliance with the License. You may obtain a copy of
|
||||||
|
@ -29,7 +27,7 @@ use base qw(Bugzilla::Field::Choice Exporter);
|
||||||
BUG_STATE_OPEN
|
BUG_STATE_OPEN
|
||||||
SPECIAL_STATUS_WORKFLOW_ACTIONS
|
SPECIAL_STATUS_WORKFLOW_ACTIONS
|
||||||
|
|
||||||
is_open_state
|
is_open_state
|
||||||
closed_bug_statuses
|
closed_bug_statuses
|
||||||
);
|
);
|
||||||
|
|
||||||
|
@ -48,11 +46,13 @@ use constant DB_TABLE => 'bug_status';
|
||||||
use constant FIELD_NAME => 'bug_status';
|
use constant FIELD_NAME => 'bug_status';
|
||||||
|
|
||||||
# This has all the standard Bugzilla::Field::Choice columns plus "is_open"
|
# This has all the standard Bugzilla::Field::Choice columns plus "is_open"
|
||||||
sub DB_COLUMNS {
|
sub DB_COLUMNS
|
||||||
|
{
|
||||||
return ($_[0]->SUPER::DB_COLUMNS, 'is_open');
|
return ($_[0]->SUPER::DB_COLUMNS, 'is_open');
|
||||||
}
|
}
|
||||||
|
|
||||||
sub VALIDATORS {
|
sub VALIDATORS
|
||||||
|
{
|
||||||
my $invocant = shift;
|
my $invocant = shift;
|
||||||
my $validators = $invocant->SUPER::VALIDATORS;
|
my $validators = $invocant->SUPER::VALIDATORS;
|
||||||
$validators->{is_open} = \&Bugzilla::Object::check_boolean;
|
$validators->{is_open} = \&Bugzilla::Object::check_boolean;
|
||||||
|
@ -64,7 +64,8 @@ sub VALIDATORS {
|
||||||
# Database Manipulation #
|
# Database Manipulation #
|
||||||
#########################
|
#########################
|
||||||
|
|
||||||
sub create {
|
sub create
|
||||||
|
{
|
||||||
my $class = shift;
|
my $class = shift;
|
||||||
my $self = $class->SUPER::create(@_);
|
my $self = $class->SUPER::create(@_);
|
||||||
delete Bugzilla->request_cache->{status_bug_state_open};
|
delete Bugzilla->request_cache->{status_bug_state_open};
|
||||||
|
@ -72,15 +73,14 @@ sub create {
|
||||||
return $self;
|
return $self;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub remove_from_db {
|
sub remove_from_db
|
||||||
|
{
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $dbh = Bugzilla->dbh;
|
my $dbh = Bugzilla->dbh;
|
||||||
my $id = $self->id;
|
my $id = $self->id;
|
||||||
$dbh->bz_start_transaction();
|
$dbh->bz_start_transaction();
|
||||||
$self->SUPER::remove_from_db();
|
$self->SUPER::remove_from_db();
|
||||||
$dbh->do('DELETE FROM status_workflow
|
$dbh->do('DELETE FROM status_workflow WHERE old_status = ? OR new_status = ?', undef, $id, $id);
|
||||||
WHERE old_status = ? OR new_status = ?',
|
|
||||||
undef, $id, $id);
|
|
||||||
$dbh->bz_commit_transaction();
|
$dbh->bz_commit_transaction();
|
||||||
delete Bugzilla->request_cache->{status_bug_state_open};
|
delete Bugzilla->request_cache->{status_bug_state_open};
|
||||||
}
|
}
|
||||||
|
@ -89,13 +89,13 @@ sub remove_from_db {
|
||||||
##### Accessors ####
|
##### Accessors ####
|
||||||
###############################
|
###############################
|
||||||
|
|
||||||
sub is_active { return $_[0]->{'isactive'}; }
|
sub is_active { return $_[0]->{isactive}; }
|
||||||
sub is_open { return $_[0]->{'is_open'}; }
|
sub is_open { return $_[0]->{is_open}; }
|
||||||
|
|
||||||
sub is_static {
|
sub is_static
|
||||||
|
{
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
if ($self->name eq 'UNCONFIRMED'
|
if ($self->name eq 'UNCONFIRMED' || $self->name eq Bugzilla->params->{duplicate_or_move_bug_status})
|
||||||
|| $self->name eq Bugzilla->params->{'duplicate_or_move_bug_status'})
|
|
||||||
{
|
{
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
@ -106,96 +106,101 @@ sub is_static {
|
||||||
# Validators #
|
# Validators #
|
||||||
##############
|
##############
|
||||||
|
|
||||||
sub _check_value {
|
sub _check_value
|
||||||
|
{
|
||||||
my $invocant = shift;
|
my $invocant = shift;
|
||||||
my $value = $invocant->SUPER::_check_value(@_);
|
my $value = $invocant->SUPER::_check_value(@_);
|
||||||
|
|
||||||
if (grep { lc($value) eq lc($_) } SPECIAL_STATUS_WORKFLOW_ACTIONS) {
|
if (grep { lc($value) eq lc($_) } SPECIAL_STATUS_WORKFLOW_ACTIONS)
|
||||||
ThrowUserError('fieldvalue_reserved_word',
|
{
|
||||||
{ field => $invocant->field, value => $value });
|
ThrowUserError('fieldvalue_reserved_word', { field => $invocant->field, value => $value });
|
||||||
}
|
}
|
||||||
return $value;
|
return $value;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
###############################
|
###############################
|
||||||
##### Methods ####
|
##### Methods ####
|
||||||
###############################
|
###############################
|
||||||
|
|
||||||
sub BUG_STATE_OPEN {
|
sub BUG_STATE_OPEN
|
||||||
|
{
|
||||||
my $dbh = Bugzilla->dbh;
|
my $dbh = Bugzilla->dbh;
|
||||||
my $cache = Bugzilla->request_cache;
|
my $cache = Bugzilla->request_cache;
|
||||||
$cache->{status_bug_state_open} ||=
|
$cache->{status_bug_state_open} ||= $dbh->selectcol_arrayref('SELECT value FROM bug_status WHERE is_open = 1');
|
||||||
$dbh->selectcol_arrayref('SELECT value FROM bug_status
|
|
||||||
WHERE is_open = 1');
|
|
||||||
return @{ $cache->{status_bug_state_open} };
|
return @{ $cache->{status_bug_state_open} };
|
||||||
}
|
}
|
||||||
|
|
||||||
# Tells you whether or not the argument is a valid "open" state.
|
# Tells you whether or not the argument is a valid "open" state.
|
||||||
# FIXME Remove is_open_state
|
# FIXME Remove is_open_state
|
||||||
sub is_open_state {
|
sub is_open_state
|
||||||
|
{
|
||||||
my ($state) = @_;
|
my ($state) = @_;
|
||||||
return (grep($_ eq $state, BUG_STATE_OPEN) ? 1 : 0);
|
return (grep($_ eq $state, BUG_STATE_OPEN) ? 1 : 0);
|
||||||
}
|
}
|
||||||
|
|
||||||
sub closed_bug_statuses {
|
sub closed_bug_statuses
|
||||||
|
{
|
||||||
my @bug_statuses = Bugzilla::Status->get_all;
|
my @bug_statuses = Bugzilla::Status->get_all;
|
||||||
@bug_statuses = grep { !$_->is_open } @bug_statuses;
|
@bug_statuses = grep { !$_->is_open } @bug_statuses;
|
||||||
return @bug_statuses;
|
return @bug_statuses;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub can_change_to {
|
sub can_change_to
|
||||||
|
{
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $dbh = Bugzilla->dbh;
|
my $dbh = Bugzilla->dbh;
|
||||||
|
|
||||||
if (!ref($self) || !defined $self->{'can_change_to'}) {
|
if (!ref($self) || !defined $self->{can_change_to})
|
||||||
|
{
|
||||||
my ($cond, @args, $self_exists);
|
my ($cond, @args, $self_exists);
|
||||||
if (ref($self)) {
|
if (ref($self))
|
||||||
|
{
|
||||||
$cond = '= ?';
|
$cond = '= ?';
|
||||||
push(@args, $self->id);
|
push(@args, $self->id);
|
||||||
$self_exists = 1;
|
$self_exists = 1;
|
||||||
}
|
}
|
||||||
else {
|
else
|
||||||
|
{
|
||||||
$cond = 'IS NULL';
|
$cond = 'IS NULL';
|
||||||
# Let's do it so that the code below works in all cases.
|
# Let's do it so that the code below works in all cases.
|
||||||
$self = {};
|
$self = {};
|
||||||
}
|
}
|
||||||
|
|
||||||
my $new_status_ids = $dbh->selectcol_arrayref("SELECT new_status
|
my $new_status_ids = $dbh->selectcol_arrayref(
|
||||||
FROM status_workflow
|
"SELECT new_status FROM status_workflow".
|
||||||
INNER JOIN bug_status
|
" INNER JOIN bug_status ON id = new_status".
|
||||||
ON id = new_status
|
" WHERE isactive = 1 AND old_status $cond".
|
||||||
WHERE isactive = 1
|
" ORDER BY sortkey", undef, @args
|
||||||
AND old_status $cond
|
);
|
||||||
ORDER BY sortkey",
|
|
||||||
undef, @args);
|
|
||||||
|
|
||||||
# Allow the bug status to remain unchanged.
|
# Allow the bug status to remain unchanged.
|
||||||
push(@$new_status_ids, $self->id) if $self_exists;
|
push(@$new_status_ids, $self->id) if $self_exists;
|
||||||
$self->{'can_change_to'} = Bugzilla::Status->new_from_list($new_status_ids);
|
$self->{can_change_to} = Bugzilla::Status->new_from_list($new_status_ids);
|
||||||
}
|
}
|
||||||
|
|
||||||
return $self->{'can_change_to'};
|
return $self->{can_change_to};
|
||||||
}
|
}
|
||||||
|
|
||||||
sub comment_required_on_change_from {
|
sub comment_required_on_change_from
|
||||||
|
{
|
||||||
my ($self, $old_status) = @_;
|
my ($self, $old_status) = @_;
|
||||||
my ($cond, $values) = $self->_status_condition($old_status);
|
my ($cond, $values) = $self->_status_condition($old_status);
|
||||||
|
|
||||||
my ($require_comment) = Bugzilla->dbh->selectrow_array(
|
my ($require_comment) = Bugzilla->dbh->selectrow_array(
|
||||||
"SELECT require_comment FROM status_workflow
|
"SELECT require_comment FROM status_workflow WHERE $cond", undef, @$values
|
||||||
WHERE $cond", undef, @$values);
|
);
|
||||||
return $require_comment;
|
return $require_comment;
|
||||||
}
|
}
|
||||||
|
|
||||||
# Used as a helper for various functions that have to deal with old_status
|
# Used as a helper for various functions that have to deal with old_status
|
||||||
# sometimes being NULL and sometimes having a value.
|
# sometimes being NULL and sometimes having a value.
|
||||||
sub _status_condition {
|
sub _status_condition
|
||||||
|
{
|
||||||
my ($self, $old_status) = @_;
|
my ($self, $old_status) = @_;
|
||||||
my @values;
|
my @values;
|
||||||
my $cond = 'old_status IS NULL';
|
my $cond = 'old_status IS NULL';
|
||||||
# For newly-filed bugs
|
# For newly-filed bugs
|
||||||
if ($old_status) {
|
if ($old_status)
|
||||||
|
{
|
||||||
$cond = 'old_status = ?';
|
$cond = 'old_status = ?';
|
||||||
push(@values, $old_status->id);
|
push(@values, $old_status->id);
|
||||||
}
|
}
|
||||||
|
@ -204,25 +209,27 @@ sub _status_condition {
|
||||||
return ($cond, \@values);
|
return ($cond, \@values);
|
||||||
}
|
}
|
||||||
|
|
||||||
sub add_missing_bug_status_transitions {
|
sub add_missing_bug_status_transitions
|
||||||
my $bug_status = shift || Bugzilla->params->{'duplicate_or_move_bug_status'};
|
{
|
||||||
|
my $bug_status = shift || Bugzilla->params->{duplicate_or_move_bug_status};
|
||||||
my $dbh = Bugzilla->dbh;
|
my $dbh = Bugzilla->dbh;
|
||||||
my $new_status = new Bugzilla::Status({name => $bug_status});
|
my $new_status = new Bugzilla::Status({ name => $bug_status });
|
||||||
|
|
||||||
# Silently discard invalid bug statuses.
|
# Silently discard invalid bug statuses.
|
||||||
$new_status || return;
|
$new_status || return;
|
||||||
|
|
||||||
my $missing_statuses = $dbh->selectcol_arrayref('SELECT id
|
my $missing_statuses = $dbh->selectcol_arrayref(
|
||||||
FROM bug_status
|
'SELECT id FROM bug_status'.
|
||||||
LEFT JOIN status_workflow
|
' LEFT JOIN status_workflow ON old_status = id AND new_status = ?'.
|
||||||
ON old_status = id
|
' WHERE old_status IS NULL', undef, $new_status->id
|
||||||
AND new_status = ?
|
);
|
||||||
WHERE old_status IS NULL',
|
|
||||||
undef, $new_status->id);
|
|
||||||
|
|
||||||
my $sth = $dbh->prepare('INSERT INTO status_workflow
|
my $sth = $dbh->prepare(
|
||||||
(old_status, new_status) VALUES (?, ?)');
|
'INSERT INTO status_workflow (old_status, new_status) VALUES (?, ?)'
|
||||||
|
);
|
||||||
|
|
||||||
foreach my $old_status_id (@$missing_statuses) {
|
foreach my $old_status_id (@$missing_statuses)
|
||||||
|
{
|
||||||
next if ($old_status_id == $new_status->id);
|
next if ($old_status_id == $new_status->id);
|
||||||
$sth->execute($old_status_id, $new_status->id);
|
$sth->execute($old_status_id, $new_status->id);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue