Private views are buggy in R6

HCL Domino Domino Forum
1

I have encountered a lot of issues with private views on the first use in R6.

First of all, getview method only opens public views and folders.

Secondly, I managed to open the private view via script and when I tried to remove it using something like this:

If theview.IsPrivate Then

If Not Isempty(theview.Readers)Then

Call theview.remove

end if

end if

It removes the private AND the public as well. Probably it does because I am designer, but I believe it should NOT do that. Fortunately I had a backup of the view.

I tried to debug the script, and the debugger does not like the “IsPrivate” property and exit anyway returning to the workspace.

Probably another option is to create a view from a template view or something like it, but I believe that the create view method can be only applied to shared views… isn’t it?

Anyway, just to share my experience and ask how can I remove a private view without removing the original in R6 !!

I appreciate any help you can provide, Thanks

L

2

Subject: Private views still need some work

I agree with your message that the LotusScript tools to create and modify views (particularly private views) are not very mature yet.

It would be great if LotusScript could distinguish between a “private on first use” view and its “source” or “parent” view.

3

Subject: Private views are buggy in R6

Luciano,

Try using this function to identify a private folder and/or view.

Function IsPvtFolder(folder As Variant) As Integer

’ checks if the folder is a private folder

’ this function works for folders and views

’ note : you can’t use the isprivate property

’ of notesview because that won’t distinguish

’ between pvt and ponfu folders.

Dim s As New NotesSession

IsPvtFolder% = False

’ if folder.readers is blank, then this is the

’ public version of the ponfu else it is the

’ private instance of the ponfu

If Isarray(folder.Readers) Then

If folder.Readers(0)=s.UserName Then

IsPvtFolder% = True

Exit Function

End If

End If

End Function

JK