суббота, 12 января 2008 г.

Как скрыть библиотеку?

Млин, что только люди не откопают? Задача - скрыть библиотеку от заказчика, но не скрывать остальные элементы дизайна. Как это сделать?
Решени - найти документ библиотеки и в поле "$ScriptLib" написать какую-нибудь ерунду =)
Кстати, не делайте так на боевом шаблоне =)
Sub Initialize
Dim ns As New NotesSession
Dim ndb As NotesDatabase
Dim nc As NotesNoteCollection
Dim nd As NotesDocument
Dim strNoteID As String
Dim i As Integer

Set ndb = ns.CurrentDatabase
Set nc = ndb.CreateNoteCollection(False)
nc.SelectScriptLibraries = True
Call nc.BuildCollection

strNoteID = nc.GetFirstNoteId
For i = 1 To nc.Count
Set nd = ndb.GetDocumentByID(strNoteID)
Call nd.ReplaceItemValue("$ScriptLib", "HelloWorld")
Call nd.Save(True, False)

strNoteID = nc.GetNextNoteId(strNoteID)
Next
End Sub

2 комментария:

Dmytro комментирует...

не помню, где, забыл уже. но видел этот пост, маразмом попахивает как по мне.
уже лучше лсс и файл.

всему есть свой предел :-)

p.s. да, и убери ты на коменты эту проверку :-)

Probka комментирует...

Я это взял из презентации Lotuspher'ы где-то 2007 года... Просто интересная инфа, хотя, конечно мало применима =)