Copy the code below into an agent and change the "SERVERNAME" to your Domino Quickr servers to add back in implicit versioning to any and all places on the server. It will also add implicit versioning to any and all documents added to Quickr so these will be versioned from that point on.

Use at your own risk, and always backup place NSF files before running code like this!



 
       Dim s As New NotesSession
       Dim dbdir As New NotesDbDirectory("SERVERNAME")
       Dim db As NotesDatabase
       Dim view As NotesView
       Dim doc As NotesDocument
       
       Set db = dbdir.GetFirstDatabase(DATABASE)
       
       Do Until db Is Nothing
               If db.Open("","") Then
                       If Ucase( db.FileName) = "MAIN.NSF" Then
                               Set view = db.GetView("System\Forms")
                               Set doc = view.GetFirstDocument
                               Do Until doc Is Nothing
                                       doc.h_VersionType = "implicit"
                                       Call doc.Save( False, False )
                                       Set doc = view.GetNextDocument(doc)
                               Loop
                               
                               Set view = db.GetView("System\Docs By Folder")
                               If Not(view Is Nothing) Then
                                       Set doc = view.GetFirstDocument
                                       Do Until doc Is Nothing
                                               doc.h_VersionType = "implicit"
                                               Call doc.Save( False, False )
                                               Set doc = view.GetNextDocument(doc)
                                       Loop
                               End If
                       End If
               End If
               
               
               Set db = dbdir.GetNextDatabase
       Loop
Darren Duke   |   April 11 2009 11:34:30 AM   |    quickr    |  
  |   Next Document   |   Previous Document

Discussion for this entry is now closed.

Comments (0)

No Comments Found