Whenever an url is modified or added to the shipping bookmark template, the version it is modified in should be noted in the above field. This will make producing special upgrade logic easier in the future.X
Also, when someone outside of Iris modifies an url, we automatically remove the field so we later don't overide their customization.
LayoutSettingwebhttp://lotus.aol.com/news/home.adphttp://lotus.aol.com/news/home.adphttp://lotus.aol.com/news/home.adphttp://lotus.aol.com/news/home.adphttp://www.notes.net/http://www.lotus.com/http://www.ibm.com/http://lotus.aol.com/news/home.adphttp://www.quickplace.com/noteshttp://www.lotus.com/uklycoshttp://www.lotus.com/uklycoshttp://www.lotus.com/uklycoshttp://www.lotus.com/uklycoshttp://www.lotus.com/uklycoshttp://lotus.aol.com/news/home.adphttp://www.lotus.com/uklycoshttp://www.lotus.com/uklycoshttp://www.lotus.com/uklycoshttp://www.lotus.com/uklycoshttp://www.lotus.com/uklycosinboxcalsearchlinksaa1inboxinboxNotes.netLotusIBMAOL My NewsQuickplacehttp://www.lotus.com/uklycoshttp://lotus.aol.com/news/home.adp11cs-CZ
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Dim layoutSettings As New LayoutSettings( CREATE_NEW_LAYOUT)
If layoutSettings.editWithDialog Then
layoutSettings.save
Set cl.currentLayout = layoutSettings
Dim ws As New NotesUIWorkspace
Call setReloadFocusPlace( "SelectLayout")
ws.reloadwindow
End If
End Sub
Lotus Product
W32I4
Vytvo
it nov
styl str
nky...
ControlToShow
1S2S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim note As NotesDocument
Set note = ws.currentDocument.document
Dim layoutSettings As New LayoutSettings( note.getItemValue( "SelectLayout")(0))
If layoutSettings.editWithDialog Then
If Not layoutSettings.shouldBeDeleted Then
layoutSettings.save
Set cl.currentLayout = layoutSettings
Call setReloadFocusPlace( "dole")
ws.reloadwindow
Else
layoutSettings.deleteDoc
cl.resetCurrentLayout
Call setReloadFocusPlace( "SelectLayout")
ws.reloadwindow
End If
End If
End Sub
Lotus Product
W32I4
< < 0
)\ }|
nosti...
WPIHeaderTab
adit do kategorie
_Upravit dokumente
Odeslat doku_ment
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
adit do kategorie
_Upravit dokument
Odeslat doku_ment
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
?pW0V
;s4GXCO
$Language
$LastBuildTime
$BabelInfo
$BackgroundRepeat
$BackgroundR5
$NoBackgroundOverride
$INFO
$AppHelpFormula
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$V5ACTIONS
$ACTIONS
(GIF89a
*VZ( Z
B1`@W
!^y;
D/8Q N
aiT(@
tQ9+W
nuVha
1}{1wP
`[{pwR
3t(yK
(V"Og
9d/T
]],*l
z<)8AH
|@"7$
w3,W]P'=^
bAGfv+
2BYi7
$yuEv
'&! a
V?*Zfe
^)2 3t5
uhc,)
`rY/.
0E+:a
d8;F+
p<^c@
F|E=!
$CxDK
a`Ku#L=
Vck*c
RK`U^
_UXeZ
:@gHn
>P >R
4'nm=
\&~tH/pJ
6W]Hs
vwq?Q
W'{w7{
lYYN+l{
J']^a
d}:%zTU
*RjEe
yLrLK/
ECLqG
XF*^G|!
|$$#)
|%,c)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
"Small Fonts
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub cleanup ( note As NotesDocument)
Declare Function generateUniqueName( strCurrentPageName As String, strCurrentKey As String) As String
Declare Function generateUniqueNameRecursive( strCurrentPageName As String, strCurrentKey As String, numToAppend As Integer, layoutsViewEntryColl As NotesViewEntryCollection) As String
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const DELETE_PROMPT_TITLE = "Chcete str
nku odstranit?"
Const DELETE_PROMPT_MESSAGE = "Opravdu chcete tuto
nku odstranit ze seznamu styl
Const MAKE_SURE_TITLE_IS_UNIQUE = True
Dim flagIsClosingViaButton As Integer
'++LotusScript Development Environment:2:2:cleanup:1:8
Sub cleanup ( note As NotesDocument)
Dim urlCount As Integer
Dim fieldNumStr As String
For urlCount = 1 To 5
' this loop writes the appropriate url to the right fields so the web frames will load them correctly
fieldNumStr = Cstr(urlCount)
If Len(note.getItemValue( "OwnPage" & fieldNumStr )(0)) >0 Then
'++LotusScript Development Environment:2:1:generateUniqueNameRecursive:1:8
Function generateUniqueNameRecursive( strCurrentPageName As String, strCurrentKey As String, numToAppend As Integer, layoutsViewEntryColl As NotesViewEntryCollection) As String
Dim entry As NotesViewEntry
Dim strPossibleUniqueName As String
If numToAppend = 0 Then
strPossibleUniqueName = strCurrentPageName
numToAppend = 1 'This is so we start with 2 instead of one
(.txt)
