patch by kiko
r=joel,justdave
a=justdave
$vars->{'dotweak'} = 1;
$vars->{'use_keywords'} = 1 if @::legal_keywords;
- $vars->{'products'} = \@::legal_product;
+ my @enterable_products = GetEnterableProducts();
+ $vars->{'products'} = \@enterable_products;
$vars->{'platforms'} = \@::legal_platform;
$vars->{'priorities'} = \@::legal_priority;
$vars->{'severities'} = \@::legal_severity;
return ($ret);
}
+sub GetEnterableProducts {
+ my @products;
+ # XXX rewrite into pure SQL instead of relying on legal_products?
+ foreach my $p (@::legal_product) {
+ if (CanEnterProduct($p)) {
+ push @products, $p;
+ }
+ }
+ return (@products);
+}
+
#
# This function returns an alphabetical list of product names to which
# the user can enter bugs. If the $by_id parameter is true, also retrieves IDs