Bug 339679: describecomponents.cgi doesn't show components of closed products, even...

diff --git a/Bugzilla/User.pm b/Bugzilla/User.pm
index 41ded04679f436814089873a4a97e0cb49e2ab6d..6dbff8e43994576625b85e460b02da5fba0edb42 100644 (file)
--- a/Bugzilla/User.pm
+++ b/Bugzilla/User.pm
@@ -751,6 +751,12 @@ sub get_enterable_products {
     return $self->{enterable_products};
 }
 
+sub can_access_product {
+    my ($self, $product_name) = @_;
+
+    return scalar(grep {$_->name eq $product_name} @{$self->get_accessible_products});
+}
+
 sub get_accessible_products {
     my $self = shift;
     
@@ -1987,6 +1993,20 @@ method should be called in such a case to force reresolution of these groups.
 
  Returns:     an array of product objects.
 
+=item C<can_access_product(product_name)>
+
+Returns 1 if the user can search or enter bugs into the specified product,
+and 0 if the user should not be aware of the existence of the product.
+
+=item C<get_accessible_products>
+
+ Description: Returns an array of product objects the user can search
+              or enter bugs against.
+
+ Params:      none
+
+ Returns:     an array of product objects.
+
 =item C<check_can_admin_product($product_name)>
 
  Description: Checks whether the user is allowed to administrate the product.

diff --git a/describecomponents.cgi b/describecomponents.cgi
index 806183783667bd8b4665cf835645065a7f346702..05bd4e59fc44095db28db76a6b2a9d3fcf479f69 100755 (executable)
--- a/describecomponents.cgi
+++ b/describecomponents.cgi
@@ -43,7 +43,7 @@ print $cgi->header();
 my $product_name = trim($cgi->param('product') || '');
 my $product = new Bugzilla::Product({'name' => $product_name});
 
-unless ($product && $user->can_enter_product($product->name)) {
+unless ($product && $user->can_access_product($product->name)) {
     # Products which the user is allowed to see.
     my @products = @{$user->get_enterable_products};