summaryrefslogtreecommitdiffstats
path: root/Bugzilla
diff options
context:
space:
mode:
Diffstat (limited to 'Bugzilla')
-rw-r--r--Bugzilla/Component.pm92
-rw-r--r--Bugzilla/Object.pm87
-rw-r--r--Bugzilla/Product.pm6
-rw-r--r--Bugzilla/User.pm5
4 files changed, 108 insertions, 82 deletions
diff --git a/Bugzilla/Component.pm b/Bugzilla/Component.pm
index 657d0f728..1b2e8f8d2 100644
--- a/Bugzilla/Component.pm
+++ b/Bugzilla/Component.pm
@@ -21,6 +21,8 @@ use strict;
package Bugzilla::Component;
+use base qw(Bugzilla::Object);
+
use Bugzilla::Util;
use Bugzilla::Error;
use Bugzilla::User;
@@ -30,68 +32,50 @@ use Bugzilla::FlagType;
#### Initialization ####
###############################
+use constant DB_TABLE => 'components';
+
use constant DB_COLUMNS => qw(
- components.id
- components.name
- components.product_id
- components.initialowner
- components.initialqacontact
- components.description
+ id
+ name
+ product_id
+ initialowner
+ initialqacontact
+ description
);
-our $columns = join(", ", DB_COLUMNS);
-
###############################
#### Methods ####
###############################
sub new {
- my $invocant = shift;
- my $class = ref($invocant) || $invocant;
- my $self = {};
- bless($self, $class);
- return $self->_init(@_);
-}
-
-sub _init {
- my $self = shift;
- my ($param) = (@_);
+ my $class = shift;
+ my $param = shift;
my $dbh = Bugzilla->dbh;
- my $id = $param unless (ref $param eq 'HASH');
- my $component;
-
- if (defined $id) {
- detaint_natural($id)
- || ThrowCodeError('param_must_be_numeric',
- {function => 'Bugzilla::Component::_init'});
-
- $component = $dbh->selectrow_hashref(qq{
- SELECT $columns FROM components
- WHERE id = ?}, undef, $id);
-
- } elsif (defined $param->{'product_id'}
- && detaint_natural($param->{'product_id'})
- && defined $param->{'name'}) {
-
- trick_taint($param->{'name'});
-
- $component = $dbh->selectrow_hashref(qq{
- SELECT $columns FROM components
- WHERE name = ? AND product_id = ?}, undef,
- ($param->{'name'}, $param->{'product_id'}));
- } else {
- ThrowCodeError('bad_arg',
- {argument => 'param',
- function => 'Bugzilla::Component::_init'});
+ my $product;
+ if (ref $param) {
+ $product = $param->{product};
+ my $name = $param->{name};
+ if (!defined $product) {
+ ThrowCodeError('bad_arg',
+ {argument => 'product',
+ function => "${class}::new"});
+ }
+ if (!defined $name) {
+ ThrowCodeError('bad_arg',
+ {argument => 'name',
+ function => "${class}::new"});
+ }
+
+ my $condition = 'product_id = ? AND name = ?';
+ my @values = ($product->id, $name);
+ $param = { condition => $condition, values => \@values };
}
- return undef unless (defined $component);
-
- foreach my $field (keys %$component) {
- $self->{$field} = $component->{$field};
- }
- return $self;
+ unshift @_, $param;
+ my $component = $class->SUPER::new(@_);
+ $component->{product} = $product if $product;
+ return $component;
}
sub bug_count {
@@ -204,8 +188,8 @@ sub check_component {
}
my $component =
- new Bugzilla::Component({product_id => $product->id,
- name => $comp_name});
+ new Bugzilla::Component({product => $product,
+ name => $comp_name});
unless ($component) {
ThrowUserError('component_not_valid',
{'product' => $product->name,
@@ -227,8 +211,8 @@ Bugzilla::Component - Bugzilla product component class.
use Bugzilla::Component;
my $component = new Bugzilla::Component(1);
- my $component = new Bugzilla::Component({product_id => 1,
- name => 'AcmeComp'});
+ my $component = new Bugzilla::Component({product => $product,
+ name => 'AcmeComp'});
my $bug_count = $component->bug_count();
my $bug_ids = $component->bug_ids();
diff --git a/Bugzilla/Object.pm b/Bugzilla/Object.pm
index a2ca8ff94..30ecc77e2 100644
--- a/Bugzilla/Object.pm
+++ b/Bugzilla/Object.pm
@@ -60,6 +60,8 @@ sub _init {
my $object;
if (defined $id) {
+ # We special-case if somebody specifies an ID, so that we can
+ # validate it as numeric.
detaint_natural($id)
|| ThrowCodeError('param_must_be_numeric',
{function => $class . '::_init'});
@@ -67,23 +69,40 @@ sub _init {
$object = $dbh->selectrow_hashref(qq{
SELECT $columns FROM $table
WHERE $id_field = ?}, undef, $id);
- } elsif (defined $param->{'name'}) {
- trick_taint($param->{'name'});
- $object = $dbh->selectrow_hashref(qq{
- SELECT $columns FROM $table
- WHERE } . $dbh->sql_istrcmp($name_field, '?'),
- undef, $param->{'name'});
} else {
- ThrowCodeError('bad_arg',
- {argument => 'param',
- function => $class . '::_init'});
+ unless (defined $param->{name} || (defined $param->{'condition'}
+ && defined $param->{'values'}))
+ {
+ ThrowCodeError('bad_arg', { argument => 'param',
+ function => $class . '::new' });
+ }
+
+ my ($condition, @values);
+ if (defined $param->{name}) {
+ $condition = $dbh->sql_istrcmp($name_field, '?');
+ push(@values, $param->{name});
+ }
+ elsif (defined $param->{'condition'} && defined $param->{'values'}) {
+ caller->isa('Bugzilla::Object')
+ || ThrowCodeError('protection_violation',
+ { caller => caller,
+ function => $class . '::new',
+ argument => 'condition/values' });
+ $condition = $param->{'condition'};
+ push(@values, @{$param->{'values'}});
+ }
+
+ map { trick_taint($_) } @values;
+ $object = $dbh->selectrow_hashref(
+ "SELECT $columns FROM $table WHERE $condition", undef, @values);
}
return $object;
}
sub new_from_list {
- my $class = shift;
+ my $invocant = shift;
+ my $class = ref($invocant) || $invocant;
my ($id_list) = @_;
my $dbh = Bugzilla->dbh;
my $columns = join(',', $class->DB_COLUMNS);
@@ -363,17 +382,47 @@ the L</ID_FIELD> usually can't be updated.)
=item C<new($param)>
- Description: The constructor is used to load an existing object
- from the database, by id or by name.
+=over
+
+=item B<Description>
+
+The constructor is used to load an existing object from the database,
+by id or by name.
- Params: $param - If you pass an integer, the integer is the
- id of the object, from the database, that we
- want to read in. If you pass in a hash with
- C<name> key, then the value of the name key
- is the case-insensitive name of the object from
- the DB.
+=item B<Params>
+
+If you pass an integer, the integer is the id of the object,
+from the database, that we want to read in. (id is defined
+as the value in the L</ID_FIELD> column).
+
+If you pass in a hash, you can pass a C<name> key. The
+value of the C<name> key is the case-insensitive name of the object
+(from L</NAME_FIELD>) in the DB.
+
+B<Additional Parameters Available for Subclasses>
+
+If you are a subclass of C<Bugzilla::Object>, you can pass
+C<condition> and C<values> as hash keys, instead of the above.
+
+C<condition> is a set of SQL conditions for the WHERE clause, which contain
+placeholders.
+
+C<values> is a reference to an array. The array contains the values
+for each placeholder in C<condition>, in order.
- Returns: A fully-initialized object.
+This is to allow subclasses to have complex parameters, and then to
+translate those parameters into C<condition> and C<values> when they
+call C<$self->SUPER::new> (which is this function, usually).
+
+If you try to call C<new> outside of a subclass with the C<condition>
+and C<values> parameters, Bugzilla will throw an error. These parameters
+are intended B<only> for use by subclasses.
+
+=item B<Returns>
+
+A fully-initialized object.
+
+=back
=item C<new_from_list(\@id_list)>
diff --git a/Bugzilla/Product.pm b/Bugzilla/Product.pm
index 4edc7ef85..465d12515 100644
--- a/Bugzilla/Product.pm
+++ b/Bugzilla/Product.pm
@@ -65,12 +65,8 @@ sub components {
WHERE product_id = ?
ORDER BY name}, undef, $self->id);
- my @components;
require Bugzilla::Component;
- foreach my $id (@$ids) {
- push @components, new Bugzilla::Component($id);
- }
- $self->{components} = \@components;
+ $self->{components} = Bugzilla::Component->new_from_list($ids);
}
return $self->{components};
}
diff --git a/Bugzilla/User.pm b/Bugzilla/User.pm
index 05b96dd29..a4ff44331 100644
--- a/Bugzilla/User.pm
+++ b/Bugzilla/User.pm
@@ -931,10 +931,7 @@ sub product_responsibilities {
# We cannot |use| it, because Component.pm already |use|s User.pm.
require Bugzilla::Component;
- my @components;
- push(@components, new Bugzilla::Component($_)) foreach (@$comp_ids);
-
- $self->{'product_resp'} = \@components;
+ $self->{'product_resp'} = Bugzilla::Component->new_from_list($comp_ids);
return $self->{'product_resp'};
}