96 lines
3.3 KiB
Perl
96 lines
3.3 KiB
Perl
# -*- 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 Test Runner System.
|
|
#
|
|
# The Initial Developer of the Original Code is Maciej Maczynski.
|
|
# Portions created by Maciej Maczynski are Copyright (C) 2001
|
|
# Maciej Maczynski. All Rights Reserved.
|
|
#
|
|
# Contributor(s): Greg Hendricks <ghendricks@novell.com>
|
|
# Andrew Nelson <anelson@novell.com>
|
|
|
|
package Bugzilla::Extension::Testopia::Classification;
|
|
|
|
use strict;
|
|
|
|
use Bugzilla;
|
|
use Bugzilla::Constants;
|
|
use Bugzilla::Config;
|
|
|
|
# Extends Bugzilla::Classification;
|
|
use base "Bugzilla::Classification";
|
|
|
|
use Bugzilla;
|
|
|
|
sub user_visible_products {
|
|
my $self = shift;
|
|
my $dbh = Bugzilla->dbh;
|
|
|
|
if (!$self->{'products'}) {
|
|
my $query = "SELECT id, name AS pname FROM products " .
|
|
"LEFT JOIN group_control_map " .
|
|
"ON group_control_map.product_id = products.id ";
|
|
if (Bugzilla->params->{'useentrygroupdefault'}) {
|
|
$query .= "AND group_control_map.entry != 0 ";
|
|
} else {
|
|
$query .= "AND group_control_map.membercontrol = " .
|
|
CONTROLMAPMANDATORY . " ";
|
|
}
|
|
if (Bugzilla->user->groups) {
|
|
$query .= "AND group_id NOT IN(" . Bugzilla->user->groups_as_string . ") ";
|
|
}
|
|
$query .= "WHERE group_id IS NULL AND products.classification_id= ? ";
|
|
$query .= "UNION (SELECT id, products.name AS pname FROM products ".
|
|
"INNER JOIN test_plans ON products.id = test_plans.product_id ".
|
|
"INNER JOIN test_plan_permissions ON test_plan_permissions.plan_id = test_plans.plan_id ".
|
|
"WHERE test_plan_permissions.userid = ? AND products.classification_id = ?)";
|
|
|
|
$query .= " ORDER BY pname ";
|
|
my $product_ids = $dbh->selectcol_arrayref($query, undef, $self->id, Bugzilla->user->id, $self->id);
|
|
|
|
my @products;
|
|
foreach my $product_id (@$product_ids) {
|
|
push (@products, new Bugzilla::Extension::Testopia::Product($product_id));
|
|
}
|
|
$self->{'user_visible_products'} = \@products;
|
|
}
|
|
return $self->{'user_visible_products'};
|
|
}
|
|
|
|
sub products_to_json {
|
|
my $self = shift;
|
|
my ($disable_move) = @_;
|
|
my $json = new JSON;
|
|
|
|
$disable_move ||= '';
|
|
$disable_move = ',"addChild","move"' if $disable_move;
|
|
my $products = $self->user_visible_products;
|
|
|
|
my @values;
|
|
|
|
foreach my $product (@$products){
|
|
my $leaf;
|
|
|
|
if(scalar @{$product->environment_categories}> 0){
|
|
$leaf = JSON::false;
|
|
}
|
|
else{
|
|
$leaf = JSON::true;
|
|
}
|
|
push @values, {text=> $product->{'name'}, id=> $product->{'id'} . ' product', type=> 'product', leaf=>$leaf, draggable => JSON::false, cls => 'product'};
|
|
}
|
|
|
|
return $json->encode(\@values);
|
|
|
|
}
|
|
1; |