perl - 从迭代 ClearQuest API 中删除缺陷

Question

一个迭代可以附加多个缺陷。如何使用 ClearQuest Perl API 从迭代中删除特定缺陷？

$bfSession = CQSession::Build();
$bfSession->UserLogon($userID,$passwd,$dbname,$dbset);

#Get iteration Entity
$iterationEntity = $bfSession->GetEntity("tmiteration", $iteration);

#Now to add defect to Iteration i can do the following
$bfSession->EditEntity($iterationEntity, "modify");
$result = $iterationEntity->AddFieldValue("Defects", $defect);
$valResult = $iterationEntity->Validate();

if($valResult eq "")
    {
        $iterationEntity->Commit();
    }
    else
    {
        $iterationEntity->Revert();
    }

就像 AddFieldValue 是否有任何 API 可以从迭代中删除缺陷？

编辑：我无法在 IBM ClearQuest文档中找到这样的 API

Answer 1

我们可以使用DeleteFieldValue API 从父记录中删除子记录。

$bfSession->EditEntity($IterationEntity, "modify");
$result = $IterationEntity->DeleteFieldValue("Defects", $defectId);