指定されたレコードが別のレコードの重複 であることの標識を削除します。
このメソッドは、重複とオリジナルの Entity オブジェクトの間のリンクを分断します。このメソッドを呼び出すと、ユーザーによってかまたは MarkEntityAsDuplicate メソッドの呼び出しによって設定されたリンクを分断できます。DUPLICATE アクションを元に戻すと、状態遷移が発生します。この状態遷移は、DUPLICATE アクションの後にその後の状態遷移が発生しなかった場合、元に戻されます。このメソッドから戻されると、レコードは編集可能状態であり、Entity オブジェクトの Validate メソッドを使用して検証し、Commit メソッドを使用してコミットする必要があります。
VBScript
session.UnmarkEntityAsDuplicate duplicate, action_name
Perl
$session->UnmarkEntityAsDuplicate(duplicate, action_name);
VBScript
set sessionObj = GetSession
' Remove the duplicate status of the entity with ID="BUGID00010345".
' Use the action named "unduplicate".
set oldDupEntityObj = sessionObj.GetEntity("defect", "BUGID00010345")
sessionObj.UnmarkEntityAsDuplicate oldDupEntityObj, "unduplicate"
' Validate and commit the entity since it is currently modifiable.
error = oldDupEntityObj.Validate
if error = "" then
oldDupEntityObj.Commit
End If
Perl
#Get a Rational ClearQuest session
$sessionObj = $entity->GetSession();
#Get the entity BUGID00010345
$oldDupEntityObj = $sessionObj->GetEntity( "defect", "BUGID00010345" );
#Remove the duplicate status of the entity with #ID="BUGID00010345"
#using the action "unduplicate"
$sessionObj->UnmarkEntityAsDuplicate( $oldDupEntityObj, "unduplicate" );
#Validate and commit the entity since it is currently modifiable.
$error = $oldDupEntityObj->Validate();
if ( $error eq "" ) {
$oldDupEntityObj->Commit();
}