nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Unlocking a file through WorkSite API

abRussB

I need to unlock a file that is checked out through the API, but I don't see any sample code in the COM document.

Can anyone offer a code snippet?

Find more posts tagged with

Comments

abRussB

In the COM Reference Manual for Worksite it says:

"the UnlockDocument method will release a document currently marked as checked out or in use."

This is exactly what I want to do, but it doesn't say anything else on where to find it, a code snippet or anything.

guido1

i think the SDK documentation may not be as up-to-date as it should be..

The UnlockDocument method refers to the legacy object model, specifically the NRTDocument object.

The new namej for this method in the WorkSite 8.x object model is UnlockContent (a method of the IManProfiledContent, a class from which the IManDocument object inherits)

so the following C# code should achieve what you want:

 
IManage.ManDMS dms = new IManage.ManDMSClass(); 

IManage.IManSession session = dms.sessions.Add("[SESSION-NAME]");
session.Trustedlogin();

IManage.IManDatabase db = session.Databases.itemByName("[DATABASE-NAME]");

// get some document in the database
IManage.IManDocument doc = db.GetDocument(12345678, 1);

if (doc.Locked)
doc.UnlockContent();

// etc..

Hope this is what you mean - not sure if I fully understand what you're trying to do

abRussB

This code seems to be working. The problem is I have to specify the library name with
session.Databases.itemByName("ADMIN"). However, we have 3 libraries, so how can
I return a documents library location rather than hard-coding the library ADMIN?

Private Sub btn_unlock_click(ByVal sender As System.Object, ByVal e As System.EventArgs)

     Dim docVersion As Integer = Right(CType(sender, Button).ID, Cint(Len(CType(sender, Button).ID)) - 8)

     Dim dms As IManage.ManDMS = New IManage.ManDMSClass()

     Dim session As IManage.IManSession = dms.sessions.Add("IWSRVATL01-VM")

     session.Login("myLogin", "myPassword")

     Dim db As IManDatabase = session.Databases.itemByName("ADMIN")

     ' get document in the database
     Dim doc As IManDocument = db.GetDocument(Cint(Request.Item("dNum")), docVersion)

     If doc.Locked Then
          doc.UnlockContent()
     End If

End Sub

abRussB

Got it.

dbName = objDocVersion.Profile.GetAttributeValueByID(imProfileAttributeID.imProfileDatabase)