--- /dev/null
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is the Bugzilla Bug Tracking System.
+#
+# Contributor(s): Tiago R. Mello <timello@async.com.br>
+#
+
+use strict;
+
+package Bugzilla::Classification;
+
+use Bugzilla;
+use Bugzilla::Util;
+
+###############################
+#### Initialization ####
+###############################
+
+use constant DB_COLUMNS => qw(
+ classifications.id
+ classifications.name
+ classifications.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 $dbh = Bugzilla->dbh;
+
+ my $id = $param unless (ref $param eq 'HASH');
+ my $classification;
+
+ if (defined $id && detaint_natural($id)) {
+
+ $classification = $dbh->selectrow_hashref(qq{
+ SELECT $columns FROM classifications
+ WHERE id = ?}, undef, $id);
+
+ } elsif (defined $param->{'name'}) {
+
+ trick_taint($param->{'name'});
+ $classification = $dbh->selectrow_hashref(qq{
+ SELECT $columns FROM classifications
+ WHERE name = ?}, undef, $param->{'name'});
+ } else {
+ ThrowCodeError('bad_arg',
+ {argument => 'param',
+ function => 'Bugzilla::Classification::_init'});
+ }
+
+ return undef unless (defined $classification);
+
+ foreach my $field (keys %$classification) {
+ $self->{$field} = $classification->{$field};
+ }
+ return $self;
+}
+
+sub product_count {
+ my $self = shift;
+ my $dbh = Bugzilla->dbh;
+
+ if (!defined $self->{'product_count'}) {
+ $self->{'product_count'} = $dbh->selectrow_array(q{
+ SELECT COUNT(*) FROM products
+ WHERE classification_id = ?}, undef, $self->id);
+ }
+ return $self->{'product_count'};
+}
+
+###############################
+#### Accessors ####
+###############################
+
+sub id { return $_[0]->{'id'}; }
+sub name { return $_[0]->{'name'}; }
+sub description { return $_[0]->{'description'}; }
+
+###############################
+#### Subroutines ####
+###############################
+
+sub get_all_classifications () {
+ my $dbh = Bugzilla->dbh;
+
+ my $ids = $dbh->selectcol_arrayref(q{
+ SELECT id FROM classifications});
+
+ my $classifications;
+ foreach my $id (@$ids) {
+ $classifications->{$id} = new Bugzilla::Classification($id);
+ }
+ return $classifications;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Bugzilla::Classification - Bugzilla classification class.
+
+=head1 SYNOPSIS
+
+ use Bugzilla::Classification;
+
+ my $classification = new Bugzilla::Classification(1);
+ my $classification = new Bugzilla::Classification({name => 'Acme'});
+
+ my $id = $classification->id;
+ my $name = $classification->name;
+ my $description = $classification->description;
+ my $product_count = $classification->product_count;
+
+ my $hash_ref = Bugzilla::Classification::get_all_classifications();
+ my $classification = $hash_ref->{1};
+
+=head1 DESCRIPTION
+
+Classification.pm represents a Classification object.
+
+A Classification is a higher-level grouping of Bugzilla Products.
+
+=head1 METHODS
+
+=over
+
+=item C<new($param)>
+
+ Description: The constructor is used to load an existing
+ classification by passing a classification
+ id or classification name using a hash.
+
+ Params: $param - If you pass an integer, the integer is the
+ classification_id from the database that we
+ want to read in. If you pass in a hash with
+ 'name' key, then the value of the name key
+ is the name of a classification from the DB.
+
+ Returns: A Bugzilla::Classification object.
+
+=item C<product_count()>
+
+ Description: Returns the total number of products that belong to
+ the classification.
+
+ Params: none.
+
+ Returns: Integer - The total of products inside the classification.
+
+=back
+
+=head1 SUBROUTINES
+
+=over
+
+=item C<get_all_classifications()>
+
+ Description: Returns all Bugzilla classifications.
+
+ Params: none.
+
+ Returns: A hash with classification id as key and
+ Bugzilla::Classification object as value.
+
+=back
+
+=cut
--- /dev/null
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is the Bugzilla Bug Tracking System.
+#
+# Contributor(s): Tiago R. Mello <timello@async.com.br>
+#
+
+use strict;
+
+package Bugzilla::Component;
+
+use Bugzilla;
+use Bugzilla::Util;
+use Bugzilla::Error;
+
+###############################
+#### Initialization ####
+###############################
+
+use constant DB_COLUMNS => qw(
+ components.id
+ components.name
+ components.product_id
+ components.initialowner
+ components.initialqacontact
+ components.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 $dbh = Bugzilla->dbh;
+
+ my $id = $param unless (ref $param eq 'HASH');
+ my $component;
+
+ if (defined $id && detaint_natural($id)) {
+
+ $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'});
+ }
+
+ return undef unless (defined $component);
+
+ foreach my $field (keys %$component) {
+ $self->{$field} = $component->{$field};
+ }
+ return $self;
+}
+
+###############################
+#### Accessors ####
+###############################
+
+sub id { return $_[0]->{'id'}; }
+sub name { return $_[0]->{'name'}; }
+sub description { return $_[0]->{'description'}; }
+sub product_id { return $_[0]->{'product_id'}; }
+sub default_assignee { return $_[0]->{'initialowner'}; }
+sub default_qa_contact { return $_[0]->{'initialqacontact'}; }
+
+###############################
+#### Subroutines ####
+###############################
+
+sub get_components_by_product ($) {
+ my ($product_id) = @_;
+ my $dbh = Bugzilla->dbh;
+
+ my $stored_product_id = $product_id;
+ unless (detaint_natural($product_id)) {
+ ThrowCodeError(
+ 'invalid_numeric_argument',
+ {argument => 'product_id',
+ value => $stored_product_id,
+ function =>
+ 'Bugzilla::Component::get_components_by_product'}
+ );
+ }
+
+ my $ids = $dbh->selectcol_arrayref(q{
+ SELECT id FROM components
+ WHERE product_id = ?}, undef, $product_id);
+
+ my $components;
+ foreach my $id (@$ids) {
+ $components->{$id} = new Bugzilla::Component($id);
+ }
+ return $components;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Bugzilla::Component - Bugzilla product component class.
+
+=head1 SYNOPSIS
+
+ use Bugzilla::Component;
+
+ my $component = new Bugzilla::Component(1);
+ my $component = new Bugzilla::Component({product_id => 1,
+ name => 'AcmeComp'});
+
+ my $id = $component->id;
+ my $name = $component->name;
+ my $description = $component->description;
+ my $product_id = $component->product_id;
+ my $default_assignee = $component->default_assignee;
+ my $default_qa_contact = $component->default_qa_contact;
+
+ my $hash_ref = Bugzilla::Component::get_components_by_product(1);
+ my $component = $hash_ref->{1};
+
+=head1 DESCRIPTION
+
+Component.pm represents a Product Component object.
+
+=head1 METHODS
+
+=over
+
+=item C<new($param)>
+
+ Description: The constructor is used to load an existing component
+ by passing a component id or a hash with the product
+ id and the component name.
+
+ Params: $param - If you pass an integer, the integer is the
+ component id from the database that we want to
+ read in. If you pass in a hash with 'name' key,
+ then the value of the name key is the name of a
+ component from the DB.
+
+ Returns: A Bugzilla::Component object.
+
+=back
+
+=head1 SUBROUTINES
+
+=over
+
+=item C<get_components_by_product($product_id)>
+
+ Description: Returns all Bugzilla components that belong to the
+ supplied product.
+
+ Params: $product_id - Integer with a Bugzilla product id.
+
+ Returns: A hash with component id as key and Bugzilla::Component
+ object as value.
+
+=back
+
+=cut
EVT_FLAG_REQUESTED EVT_REQUESTED_FLAG
FULLTEXT_BUGLIST_LIMIT
+
+ ADMIN_GROUP_NAME
);
@Bugzilla::Constants::EXPORT_OK = qw(contenttypes);
# a fulltext search.
use constant FULLTEXT_BUGLIST_LIMIT => 200;
+# Default administration group name.
+use constant ADMIN_GROUP_NAME => 'admin';
+
1;
##### Module Subroutines ###
################################
-sub ValidateGroupName {
+sub ValidateGroupName ($$) {
my ($name, @users) = (@_);
my $dbh = Bugzilla->dbh;
my $query = "SELECT id FROM groups " .
return $ret;
}
+sub get_group_controls_by_product ($) {
+ my ($product_id) = @_;
+ my $dbh = Bugzilla->dbh;
+
+ my $query = qq{SELECT
+ $columns,
+ group_control_map.entry,
+ group_control_map.membercontrol,
+ group_control_map.othercontrol,
+ group_control_map.canedit
+ FROM groups
+ LEFT JOIN group_control_map
+ ON groups.id = group_control_map.group_id
+ WHERE group_control_map.product_id = ?
+ AND groups.isbuggroup != 0
+ ORDER BY groups.name};
+ my $groups = $dbh->selectall_hashref($query, 'id', undef,
+ ($product_id));
+ return $groups;
+}
+
1;
__END__
=head1 NAME
-Bugzilla::Group - Object for a Bugzilla group.
+Bugzilla::Group - Bugzilla group class.
=head1 SYNOPSIS
my $user_reg_exp = $group->user_reg_exp;
my $is_active = $group->is_active;
+ my $group_id = Bugzilla::Group::ValidateGroupName('admin', @users);
+
+ my $grops = Bugzilla::Group::get_group_controls_by_product(1);
+
=head1 DESCRIPTION
Group.pm represents a Bugzilla Group object.
=item C<new($param)>
-The constructor is used to load an existing group by passing
-a group id or a hash with the group name.
+ Description: The constructor is used to load an existing group
+ by passing a group id or a hash with the group name.
+
+ Params: $param - If you pass an integer, the integer is the
+ group id from the database that we want to
+ read in. If you pass in a hash with 'name'
+ key, then the value of the name key is the
+ name of a product from the DB.
+
+ Returns: A Bugzilla::Group object.
=back
=over
-=item C<ValidateGroupName($group_name, @users)>
+=item C<ValidateGroupName($name, @users)>
-ValidateGroupName checks to see if ANY of the users in the provided list
-of user objects can see the named group. It returns the group id if
-successful and undef otherwise.
+ Description: ValidateGroupName checks to see if ANY of the users
+ in the provided list of user objects can see the
+ named group.
-=back
+ Params: $name - String with the group name.
+ @users - An array with Bugzilla::User objects.
+
+ Returns: It returns the group id if successful
+ and undef otherwise.
+
+=item C<get_group_controls_by_product($product_id)>
+
+ Description: Returns all group controls of a specific product.
+ It is encouraged to use Bugzilla::Product object
+ instead of directly calling this routine.
-=head1 AUTHOR
-
- Joel Peshkin <bugreport@peshkin.net>
- Erik Stambaugh <erik@dasbistro.com>
- Tiago R. Mello <timello@async.com.br>
+ Params: $product_id - Integer with a Bugzilla product id.
+
+ Returns: A hash with group id as key and hash containing the
+ group data as value.
+
+=back
=cut
--- /dev/null
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is the Bugzilla Bug Tracking System.
+#
+# Contributor(s): Tiago R. Mello <timello@async.com.br>
+
+use strict;
+
+package Bugzilla::Milestone;
+
+use Bugzilla;
+use Bugzilla::Util;
+use Bugzilla::Error;
+
+################################
+##### Initialization #####
+################################
+
+use constant DEFAULT_SORTKEY => 0;
+
+use constant DB_COLUMNS => qw(
+ milestones.value
+ milestones.product_id
+ milestones.sortkey
+);
+
+my $columns = join(", ", DB_COLUMNS);
+
+sub new {
+ my $invocant = shift;
+ my $class = ref($invocant) || $invocant;
+ my $self = {};
+ bless($self, $class);
+ return $self->_init(@_);
+}
+
+sub _init {
+ my $self = shift;
+ my ($product_id, $value) = (@_);
+ my $dbh = Bugzilla->dbh;
+
+ my $milestone;
+
+ if (defined $product_id
+ && detaint_natural($product_id)
+ && defined $value) {
+
+ trick_taint($value);
+ $milestone = $dbh->selectrow_hashref(qq{
+ SELECT $columns FROM milestones
+ WHERE value = ?
+ AND product_id = ?}, undef, ($value, $product_id));
+ } else {
+ ThrowCodeError('bad_arg',
+ {argument => 'product_id/value',
+ function => 'Bugzilla::Milestone::_init'});
+ }
+
+ return undef unless (defined $milestone);
+
+ foreach my $field (keys %$milestone) {
+ $self->{$field} = $milestone->{$field};
+ }
+ return $self;
+}
+
+################################
+##### Accessors ######
+################################
+
+sub value { return $_[0]->{'value'}; }
+sub product_id { return $_[0]->{'product_id'}; }
+sub sortkey { return $_[0]->{'sortkey'}; }
+
+################################
+##### Subroutines #####
+################################
+
+sub get_milestones_by_product ($) {
+ my ($product_id) = @_;
+ my $dbh = Bugzilla->dbh;
+
+ my $stored_product_id = $product_id;
+ unless (detaint_natural($product_id)) {
+ ThrowCodeError(
+ 'invalid_numeric_argument',
+ {argument => 'product_id',
+ value => $stored_product_id,
+ function =>
+ 'Bugzilla::Milestone::get_milestones_by_product'}
+ );
+ }
+
+ my $values = $dbh->selectcol_arrayref(q{
+ SELECT value FROM milestones
+ WHERE product_id = ?}, undef, $product_id);
+
+ my $milestones;
+ foreach my $value (@$values) {
+ $milestones->{$value} = new Bugzilla::Milestone($product_id,
+ $value);
+ }
+ return $milestones;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Bugzilla::Milestone - Bugzilla product milestone class.
+
+=head1 SYNOPSIS
+
+ use Bugzilla::Milestone;
+
+ my $milestone = new Bugzilla::Milestone(1, 'milestone_value');
+
+ my $product_id = $milestone->product_id;
+ my $value = $milestone->value;
+
+ my $hash_ref = Bugzilla::Milestone::get_milestones_by_product(1);
+ my $milestone = $hash_ref->{'milestone_value'};
+
+=head1 DESCRIPTION
+
+Milestone.pm represents a Product Milestone object.
+
+=head1 METHODS
+
+=over
+
+=item C<new($product_id, $value)>
+
+ Description: The constructor is used to load an existing milestone
+ by passing a product id and a milestone value.
+
+ Params: $product_id - Integer with a Bugzilla product id.
+ $value - String with a milestone value.
+
+ Returns: A Bugzilla::Milestone object.
+
+=back
+
+=head1 SUBROUTINES
+
+=over
+
+=item C<get_milestones_by_product($product_id)>
+
+ Description: Returns all Bugzilla product milestones that belong
+ to the supplied product.
+
+ Params: $product_id - Integer with a Bugzilla product id.
+
+ Returns: A hash with milestone value as key and a
+ Bugzilla::Milestone object as hash value.
+
+=back
+
+=cut
--- /dev/null
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is the Bugzilla Bug Tracking System.
+#
+# Contributor(s): Tiago R. Mello <timello@async.com.br>
+
+use strict;
+
+package Bugzilla::Product;
+
+use Bugzilla;
+use Bugzilla::Component;
+use Bugzilla::Classification;
+use Bugzilla::Version;
+use Bugzilla::Milestone;
+
+use Bugzilla::Util;
+use Bugzilla::Group;
+use Bugzilla::Error;
+
+use constant DEFAULT_CLASSIFICATION_ID => 1;
+
+###############################
+#### Initialization ####
+###############################
+
+use constant DB_COLUMNS => qw(
+ products.id
+ products.name
+ products.classification_id
+ products.description
+ products.milestoneurl
+ products.disallownew
+ products.votesperuser
+ products.maxvotesperbug
+ products.votestoconfirm
+ products.defaultmilestone
+);
+
+my $columns = join(", ", DB_COLUMNS);
+
+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 $dbh = Bugzilla->dbh;
+
+ my $id = $param unless (ref $param eq 'HASH');
+ my $product;
+
+ if (defined $id && detaint_natural($id)) {
+
+ $product = $dbh->selectrow_hashref(qq{
+ SELECT $columns FROM products
+ WHERE id = ?}, undef, $id);
+
+ } elsif (defined $param->{'name'}) {
+
+ trick_taint($param->{'name'});
+ $product = $dbh->selectrow_hashref(qq{
+ SELECT $columns FROM products
+ WHERE name = ?}, undef, $param->{'name'});
+ } else {
+ ThrowCodeError('bad_arg',
+ {argument => 'param',
+ function => 'Bugzilla::Product::_init'});
+ }
+
+ return undef unless (defined $product);
+
+ foreach my $field (keys %$product) {
+ $self->{$field} = $product->{$field};
+ }
+ return $self;
+}
+
+###############################
+#### Methods ####
+###############################
+
+sub components {
+ my $self = shift;
+
+ if (!defined $self->{components}) {
+ $self->{components} =
+ Bugzilla::Component::get_components_by_product($self->id);
+ }
+ return $self->{components}
+}
+
+sub classification {
+ my $self = shift;
+
+ if (!defined $self->{'classification'}) {
+ $self->{'classification'} =
+ new Bugzilla::Classification($self->classification_id);
+ }
+ return $self->{'classification'};
+}
+
+sub group_controls {
+ my $self = shift;
+
+ if (!defined $self->{group_controls}) {
+ $self->{group_controls} =
+ Bugzilla::Group::get_group_controls_by_product($self->id);
+ }
+ return $self->{group_controls};
+}
+
+sub versions {
+ my $self = shift;
+
+ if (!defined $self->{versions}) {
+ $self->{versions} =
+ Bugzilla::Version::get_versions_by_product($self->id);
+
+ }
+ return $self->{versions};
+}
+
+sub milestones {
+ my $self = shift;
+
+ if (!defined $self->{milestones}) {
+ $self->{milestones} =
+ Bugzilla::Milestone::get_milestones_by_product($self->id);
+ }
+ return $self->{milestones};
+}
+
+sub bug_count {
+ my $self = shift;
+ my $dbh = Bugzilla->dbh;
+
+ if (!defined $self->{'bug_count'}) {
+ $self->{'bug_count'} = $dbh->selectrow_array(qq{
+ SELECT COUNT(bug_id) FROM bugs
+ WHERE product_id = ?}, undef, $self->id);
+
+ }
+ return $self->{'bug_count'};
+}
+
+###############################
+#### Accessors ######
+###############################
+
+sub id { return $_[0]->{'id'}; }
+sub name { return $_[0]->{'name'}; }
+sub description { return $_[0]->{'description'}; }
+sub milestone_url { return $_[0]->{'milestoneurl'}; }
+sub disallow_new { return $_[0]->{'disallownew'}; }
+sub votes_per_user { return $_[0]->{'votesperuser'}; }
+sub max_votes_per_bug { return $_[0]->{'maxvotesperbug'}; }
+sub votes_to_confirm { return $_[0]->{'votestoconfirm'}; }
+sub default_milestone { return $_[0]->{'defaultmilestone'}; }
+sub classification_id { return $_[0]->{'classification_id'}; }
+
+###############################
+#### Subroutines ######
+###############################
+
+sub get_products_by_classification ($) {
+ my ($class_id) = @_;
+ my $dbh = Bugzilla->dbh;
+ $class_id ||= DEFAULT_CLASSIFICATION_ID;
+
+ my $stored_class_id = $class_id;
+ unless (detaint_natural($class_id)) {
+ ThrowCodeError(
+ 'invalid_numeric_argument',
+ {argument => 'product_id',
+ value => $stored_class_id,
+ function =>
+ 'Bugzilla::Product::get_classification_products'}
+ );
+ }
+
+ my $ids = $dbh->selectcol_arrayref(q{
+ SELECT id FROM products
+ WHERE classification_id = ?}, undef, $class_id);
+
+ my $products;
+ foreach my $id (@$ids) {
+ $products->{$id} = new Bugzilla::Product($id);
+ }
+ return $products;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Bugzilla::Product - Bugzilla product class.
+
+=head1 SYNOPSIS
+
+ use Bugzilla::Product;
+
+ my $product = new Bugzilla::Product(1);
+ my $product = new Bugzilla::Product('AcmeProduct');
+
+ my $components = $product->components();
+ my $classification = $product->classification();
+ my $hash_ref = $product->group_controls();
+ my $hash_ref = $product->milestones();
+ my $hash_ref = $product->versions();
+ my $bugcount = $product->bug_count();
+
+ my $id = $product->id;
+ my $name = $product->name;
+ my $description = $product->description;
+ my $milestoneurl = $product->milestone_url;
+ my disallownew = $product->disallow_new;
+ my votesperuser = $product->votes_per_user;
+ my maxvotesperbug = $product->max_votes_per_bug;
+ my votestoconfirm = $product->votes_to_confirm;
+ my $defaultmilestone = $product->default_milestone;
+ my $classificationid = $product->classification_id;
+
+ my $hash_ref = Bugzilla::Product::get_products_by_classification(1);
+ my $product = $hash_ref->{1};
+
+=head1 DESCRIPTION
+
+Product.pm represents a product object.
+
+=head1 METHODS
+
+=over
+
+=item C<new($param)>
+
+ Description: The constructor is used to load an existing product
+ by passing a product id or a hash.
+
+ Params: $param - If you pass an integer, the integer is the
+ product id from the database that we want to
+ read in. If you pass in a hash with 'name' key,
+ then the value of the name key is the name of a
+ product from the DB.
+
+ Returns: A Bugzilla::Product object.
+
+=item C<components()>
+
+ Description: Returns a hash with all product components.
+
+ Params: none.
+
+ Returns: A hash where component id is the hash key and
+ Bugzilla::Component object is the hash value.
+
+=item C<classification()>
+
+ Description: Returns a Bugzilla::Classification object for
+ the product classification.
+
+ Params: none.
+
+ Returns: A Bugzilla::Classification object.
+
+=item C<group_controls()>
+
+ Description: Returns a hash (group id as key) with all product
+ group controls.
+
+ Params: none.
+
+ Returns: A hash with group id as key and hash containing the
+ group data as value.
+
+=item C<versions()>
+
+ Description: Returns a hash with of all product versions.
+
+ Params: none.
+
+ Returns: A hash with version id as key and a Bugzilla::Version
+ as value.
+
+=item C<milestones()>
+
+ Description: Returns a hash with of all product milestones.
+
+ Params: none.
+
+ Returns: A hash with milestone id as key and a Bugzilla::Milestone
+ as value.
+
+=item C<bug_count()>
+
+ Description: Returns the total of bugs that belong to the product.
+
+ Params: none.
+
+ Returns: Integer with the number of bugs.
+
+=back
+
+=head1 SUBROUTINES
+
+=over
+
+=item C<get_products_by_classification($class_id)>
+
+ Description: Returns all products for a specific classification id.
+
+ Params: none.
+
+ Returns: A hash with product id as key and a Bugzilla::Product
+ object as value.
+
+=back
+
+=cut
--- /dev/null
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is the Bugzilla Bug Tracking System.
+#
+# Contributor(s): Tiago R. Mello <timello@async.com.br>
+
+use strict;
+
+package Bugzilla::Version;
+
+use Bugzilla;
+use Bugzilla::Util;
+use Bugzilla::Error;
+
+################################
+##### Initialization #####
+################################
+
+use constant DEFAULT_VERSION => 'unspecified';
+
+use constant DB_COLUMNS => qw(
+ versions.value
+ versions.product_id
+);
+
+our $columns = join(", ", DB_COLUMNS);
+
+sub new {
+ my $invocant = shift;
+ my $class = ref($invocant) || $invocant;
+ my $self = {};
+ bless($self, $class);
+ return $self->_init(@_);
+}
+
+sub _init {
+ my $self = shift;
+ my ($product_id, $value) = (@_);
+ my $dbh = Bugzilla->dbh;
+
+ my $version;
+
+ if (defined $product_id
+ && detaint_natural($product_id)
+ && defined $value) {
+
+ trick_taint($value);
+ $version = $dbh->selectrow_hashref(qq{
+ SELECT $columns FROM versions
+ WHERE value = ?
+ AND product_id = ?}, undef, ($value, $product_id));
+ } else {
+ ThrowCodeError('bad_arg',
+ {argument => 'product_id/value',
+ function => 'Bugzilla::Version::_init'});
+ }
+
+ return undef unless (defined $version);
+
+ foreach my $field (keys %$version) {
+ $self->{$field} = $version->{$field};
+ }
+ return $self;
+}
+
+###############################
+##### Accessors ####
+###############################
+
+sub value { return $_[0]->{'value'}; }
+sub product_id { return $_[0]->{'product_id'}; }
+
+###############################
+##### Subroutines ###
+###############################
+
+sub get_versions_by_product ($) {
+ my ($product_id) = @_;
+ my $dbh = Bugzilla->dbh;
+
+ my $stored_product_id = $product_id;
+ unless (detaint_natural($product_id)) {
+ ThrowCodeError(
+ 'invalid_numeric_argument',
+ {argument => 'product_id',
+ value => $stored_product_id,
+ function =>
+ 'Bugzilla::Version::get_versions_by_product'}
+ );
+ }
+
+ my $values = $dbh->selectcol_arrayref(q{
+ SELECT value FROM versions
+ WHERE product_id = ?}, undef, $product_id);
+
+ my $versions;
+ foreach my $value (@$values) {
+ $versions->{$value} = new Bugzilla::Version($product_id,
+ $value);
+ }
+ return $versions;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Bugzilla::Version - Bugzilla product version class.
+
+=head1 SYNOPSIS
+
+ use Bugzilla::Version;
+
+ my $version = new Bugzilla::Version(1, 'version_value');
+
+ my $product_id = $version->product_id;
+ my $value = $version->value;
+
+ my $hash_ref = Bugzilla::Version::get_versions_by_product(1);
+ my $version = $hash_ref->{'version_value'};
+
+=head1 DESCRIPTION
+
+Version.pm represents a Product Version object.
+
+=head1 METHODS
+
+=over
+
+=item C<new($product_id, $value)>
+
+ Description: The constructor is used to load an existing version
+ by passing a product id and a version value.
+
+ Params: $product_id - Integer with a Bugzilla product id.
+ $value - String with a version value.
+
+ Returns: A Bugzilla::Version object.
+
+=back
+
+=head1 SUBROUTINES
+
+=over
+
+=item C<get_versions_by_product($product_id)>
+
+ Description: Returns all Bugzilla product versions that belong
+ to the supplied product.
+
+ Params: $product_id - Integer with a Bugzilla product id.
+
+ Returns: A hash with version value as key and a Bugzilla::Version
+ objects as value.
+
+=back
+
+=cut
The active flag was improperly set. There may be
a problem with [% terms.Bugzilla %] or [% terms.abug %] in your browser.
+ [% ELSIF error == "invalid_numeric_argument" %]
+ [% title = "Invalid number argument" %]
+ The argument <code>[% argument FILTER html %] = [% value FILTER html %]</code>
+ of <code>[% function FILTER html %]</code> is not a natural number.
+
[% ELSIF error == "invalid_series_id" %]
[% title = "Invalid Series" %]
The series_id [% series_id FILTER html %] is not valid. It may be that
projects / thirdparty / bugzilla.git / commitdiff
