Domino Code Fragment

Code Name*
Make the loser the winner		Date*
02/13/1999		Source (or email address if you prefer)*
[email protected]
IP address:.104.23.197.111
Description*
Agent to promote the loser of a replication conflict to be the winner		Type*
LotusScript		Categories*
Diagnostics/Analysis/Debugging
Implementation:
None (plug and play)		Required Client:
Server:
Limitations:
Comments:
Put this code into an agent that runs on selected documents. After running, you can then delete the original "winner" document.
Files/Graphics attachments (if applicable): Code:
Sub Initialize
 ' From Kevin Pauli ([email protected])
 Dim session As New NotesSession
 Set db = session.CurrentDatabase
 Set collection = db.UnprocessedDocuments
 Set doc = collection.GetFirstDocument
 Call doc.RemoveItem( "$Conflict" )
 If doc.IsResponse Then
   Set parent = db.GetDocumentByUNID( doc.ParentDocumentUNID )
   If parent.IsResponse Then
     Dim grandParent As NotesDocument
     Set grandParent = db.GetDocumentByUNID(parent.ParentDocumentUNID )
     Call doc.MakeResponse( grandParent )
   Else
     Call doc.RemoveItem( "$REF" )
   End If
 End If
 Call doc.Save( True, True )
End Sub