Коллеги! - никто не знает ответа на вопрос?
ub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim nc As NotesNoteCollection
Dim doc As NotesDocument
Dim id$
Set db=s.Currentdatabase
Set nc = db.CreateNoteCollection(False)
nc.Selectalldesignelements(True)
nc.Selectdocuments=False
nc.Selectionformula=|$Flags="~C4g" & $FlagsExt="w" & !@Contains($TITLE;"WEB-INF/") & $PublicAccess!="1"|
Call nc.Buildcollection()
Print nc.Count
id=nc.Getfirstnoteid()
While id<>""
Set doc=db.Getdocumentbyid(id)
Print doc.Getitemvalue("$TITLE")(0)
Call doc.ReplaceItemValue("$PublicAccess","1")
Call doc.Sign()
Call doc.Save(True,False)
id=nc.Getnextnoteid(id)
Wend
End Subа шо делать?!
Ну мне главное что эт не я галку профукал, а так сказать даноа шо делать?!
ИБМ считает такой способ секурити надежным
а моглибы на уровень апликейшена вынести... (дефолт)
Потому как не ясно что надо.
Ну почему бы и не ответить, если есть что сказать? )
А вообще назначение и применение Public Access когда-ть читали?
)Так в твоем коде элементы дизайна и обходятся?!
1. Для моего понимания и с точки зрения IBM кста - элемент дизайна обладает неким набором свойств, которым можно манипулировать через UI\cAPI\Dxl\ls.. (есл. не хватает UI например..) и это не возбраняется. И в моем скрипте ничего в итоге не "обходится", а работает очень даже штатно. как например можно через DXL\API черта лысого сгородить с формами. Да и с xpage элементами аналогично - можно корябать как угодно и не через UI.
Вопрос был в том, а не пропустил ли я где в UI назначение Public Access (по аналогии с формами например) _элементам дизайна_ в элементе дизайна WebContent... - да кста, надо поковырять что за фрукт такой...
Вот и подумал - хрень какая... Надо сделать через скрипт.
Ну не согласен я, комрад!
Я любитель костылей (а кто не грешен? но в данном частном случае ИМХО все согласно канонам йбм шизофреников))
