지정된 레코드가 다른 레코드의 중복임을 나타내는 표시를 제거합니다.
이 메소드는 중복 및 원본 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();
}