定制ClearQuest以通过所有者、角色或组来分隔记录

sub Defect_RS_AccessControl {

my($result);

my($param) = @_;

# record type name is Defect


if (ref ($param) eq "CQEventObject") {

# add your CQEventObject parameter handling 
code here

} elsif (ref (\$param) eq "SCALAR") {

$sessionObj = $entity->GetSession();


@params = split '\n',$param;

my $username = $params[2];

 
?$fieldInfo = $entity-

>GetFieldValue("Submitter");

$strSubmitterName = $fieldInfo-

>GetValue();


# test if the user belongs to group 
"TestManager"

$userGroups = $sessionObj->GetUserGroups();

$FlagYes = "yes";

$FlagNo = "no";

$AuthorizedUserGroup1 = "TestManager";

$AuthorizedUserGroup2 = "SuperAdmin";


$flag = $FlagNo;

if (!@$userGroups) {

$flag = $FlagNo;

} else {

foreach $strAnGroup (@$userGroups) {

if ( ($strAnGroup eq $AuthorizedUserGroup1) ||

($strAnGroup eq 

$AuthorizedUserGroup2) )

{

$flag = $FlagYes;

last;

}

}

}


# test if the user is same as the 

submitter or belongs to group "TestManager"

if (( $username eq $strSubmitterName)||($flag eq $FlagYes)){

$result = 1;

} else {

$result = 0;

}

} else {

# add your handling code for other type parameters here, for example:

# die("Unknown parameter type");

}

return $result;

}