var newWindow = window.open(filename + "(IntProfileInstructions)?openForm","secondary_window","toolbar=no,location=no,scrollbars=yes,directories=no,height=600,width=600")
Odebrat posloupnostXj
notes only
variables to translate
0R1S
Title1
posloupnosti
0R1S2S
Vyberte posloupnost, kterou chcete odebrat. (Pozn
mka: Tuto operaci nelze vz
0R1S2S
Title2
Odebrat posloupnost
0R1S2S
Profil z
neobsahuje
posloupnosti. V libovoln
m pohledu vyberte p
kaz P
idat t
ma do profilu z
0R1S2S
END variables to translate
0R1S
RemoveSubject
profilethreads
RemoveSubject
Title1
ProfileThreadSubjects
ProfileThreadSubjects
Title2
0R10R13S14S16S18S20S24S27S37S38S39S
Member
RemoveSubject
ProfileThreadSubjects
0RR1S2S6S
ProfileThreadSubjects
ProfileThreadSubjects
RemoveSubject
0R1S2S3S9S11S
RemoveId
ProfileThreads
Memberk
0R1S2S8S11S
ProfileThreads
ProfileThreads
RemoveId
0R1S2S3S9S11S
ProfileThreadSubjects
1S2S
RemoveThread.gif|RemoveThread.gifX
Odebrat posloupnostXF
web only
RemoveThread
ProfileThreadSubjects
1S2S
RemoveThread.gif|RemoveThread.gifX
Stornof
Notes only
SaveOptions
0R1S2S3S
cancel.gif|cancel.gifX
Storno>
web non-new docs
Hide if 'Author's Profile' button was clckd
QUERY_STRING_DECODED
0R1S2S6S
0R1S2S3S4S
cancel.gif|cancel.gifX
Storno
Hide if 'Author's Profile' button was clckd
QUERY_STRING_DECODED
0R1S2S6S
0R1S2S3S4S
cancel.gif|cancel.gifX
/* web new docs
history.back()
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DiscussionRoutines"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim view As NotesView
Dim profile As NotesDocument
Dim DocWasSaved As Integer
Dim ProfileKey(1) As String
Dim tmpList As Variant
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++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 NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Postrecalc From Source Call Postrecalc
On Event Querysave From Source Call Querysave
On Event Queryclose From Source Call Queryclose
On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
Action = note.Action
If Action(0) = "Maintain" Then
PersonName = note.PersonName
Else
Exit Sub
End If
source.AutoReload = False
Set profile = view.GetDocumentByKey(PersonName(0),False)
If profile Is Nothing Then Exit Sub
ItemList = note.Items
Forall n In ItemList
Print n.Name
note.RemoveItem(n.Name)
End Forall
profile.CopyAllItems note
source.Reload
source.Refresh
source.Refresh
DocWasSaved = False
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
DocWasSaved = True
If profile Is Nothing Then
Exit Sub
Else
note.SaveOptions = "0"
End If
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
' If Profile Is Nothing Then
' note.save True, True
' End If
If (DocWasSaved = False) Or (profile Is Nothing) Then
Exit Sub
End If
ItemList = profile.Items
Forall n In ItemList
profile.RemoveItem(n.Name)
End Forall
note.CopyAllItems profile
profile.SaveOptions = "1"
profile.save True, True
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If Isnewdoc Then Exit Sub
Set note = source.document
'remove all this so it can get resest with default values each time the doc is opened
note.RemoveItem("WebProfileStrings")
note.RemoveItem("WebProfileCategories")
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++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 NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Postrecalc From Source Call Postrecalc
On Event Querysave From Source Call Querysave
On Event Queryclose From Source Call Queryclose
On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
Action = note.Action
If Action(0) = "Maintain" Then
PersonName = note.PersonName
Else
Exit Sub
End If
source.AutoReload = False
Set profile = view.GetDocumentByKey(PersonName(0),False)
If profile Is Nothing Then Exit Sub
ItemList = note.Items
Forall n In ItemList
Print n.Name
note.RemoveItem(n.Name)
End Forall
profile.CopyAllItems note
source.Reload
source.Refresh
source.Refresh
DocWasSaved = False
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
DocWasSaved = True
If profile Is Nothing Then
Exit Sub
Else
note.SaveOptions = "0"
End If
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
' If Profile Is Nothing Then
' note.save True, True
' End If
If (DocWasSaved = False) Or (profile Is Nothing) Then
Exit Sub
End If
ItemList = profile.Items
Forall n In ItemList
profile.RemoveItem(n.Name)
End Forall
note.CopyAllItems profile
profile.SaveOptions = "1"
profile.save True, True
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If Isnewdoc Then Exit Sub
Set note = source.document
'remove all this so it can get resest with default values each time the doc is opened
note.RemoveItem("WebProfileStrings")
note.RemoveItem("WebProfileCategories")
End Sub
Hidden FieldsX
2 @8U
List of threads that the user wants to be notified ofX
ProfileThreads
ProfileThreadsz
ProfileThreads
2 @8U
List of people who can see the documentX
readersXz
readers
2 @8U
Subject for forwarding this note
Profil z
ivatele
PersonName"
1S2S
SubjectXz
Subject
2 @8U
No idea.
HiddenDocumentz
HiddenDocument
2 @8U
Standard Return information for the web clientsX
This $$Return field returns HTML as a result of the successful form submittal.
Warning: Lots of HTML Passthrough in here...
0R1S
resource strings..
0R1S2E
PrevDoc
edchoz
dokument
0R1S2S
AllDoc
echny dokumenty
0R1S2S
ByCat
Podle kategorie
0R1S2S
ByAltName
Podle alternativn
ho jm
0R1S2S
ByAuth
Podle autora
0R1S2S
MainTopic
0R1S2S
Response
odpov
0R1S2S
IntProfile
Profil z
0R1S2S
ArcProfile
Profil archivu
0R1S2S
Message
0R1S2S
ThankYou
kujeme za
0R1S2S
Get the name of this database.
0RR1S
0R1S2S10S
Thank the user, personalize based on the first name.
0RR1S
FormName
MainTopic
MainTopic
Response
Response
ResponseToResponse
response
Profil z
IntProfile
Archive
ArcProfile
Message
0R1S2S5S6S8S10S11S12S14S16S17S18S28S
Thanks
ThankYou"
FormName"
! </h3>
0R1S2S3S4S5S6S7S8S9S10S18S19S
Anchors to discussion views.
0RR1S
existingdoclink
<hr><font size=2><a href=/
/($All)/"
?OpenDocument>"
PrevDoc
</a>
0R11S14S15S16S17S
TopicView
<a href=/
/($All)?OpenView>
AllDoc"
</a> "
0R1S2S3E3S4S5S6S7S8S9S10S
CategoryView
<a href=/
/by+Category?OpenView>"
ByCat
</a> "
0R1S2S3S4S5S6S7S8S9S10S
AuthorView
<a href=/
/by+Author?OpenView>"
ByAuth"
</a>
0R1S2S3S4S5S6S7S8S9S10S
AltNameView
<a href=/
/by+Alternate+Name?OpenView>"
ByAltName
</a><hr> "
0R1S2S3S4S5S6S7S8S9S10S
<body bgcolor="
#ffffff
"+ >"
0RR1S2S3S4S5S6S
Assemble the HTML to be returned
0RR1S
OkMsg
Thanks"
existingdoclink
TopicView
CategoryView"
AuthorView"
AltnameView
DateView"
0R1S2S2E3S4S5S6S9S10S2E11S12S13S14S15S16S
OKMsg
$$Return
2 @8U
Full Hierarchical Name of user
FullPersonNamez
FullPersonName
2 @8U
Web User nameX
TYPE=hidden
Remote_User
Remote_UserXz
Remote_User
2 @8U
Name of person creating the document
FromAutor dokumentuX
2 @8U
for categorization in the Bycategory viewX
- Profil z
Categories
2 @8U
for when when interest profiles are converted to subscriptions
$HLTitle
2 @8U
Zabra
uje tomu, aby bylo mo
u profilu z
t akci Ozna
it jako neplatn
ProtectFromArchive
edvolby profilu z
ivatele
PersonNameRequired: enter a short description of this main topic.z
PersonName
Chci b
t informov
n o nov
ch dokumentech od t
chto autor
0S0E
ProfileAuthors
0S0E
profileauthors
0S0E
ProfileAuthorsz
ProfileAuthors
Chci b
t informov
n o nov
ch dokumentech v t
chto kategori
size=4
WebProfileCategories
ProfileCategories
0S0E
WebProfileCategories
Zadejte nov
kategorie. Jednotliv
polo
ky odd
lte st
kem.X
length = 20
NewCat
Notes
1S2S3S4S
ProfileCategories
Notes
ProfileCategories
WebProfileCategories
webprofilecategories
NewCat
3S4S6S11S12S16S21S22S
WebProfileCategories
Notes
WebProfileCategories
NewCat
1S2S3S6S7S11S16S17S
newCat
0R1S2S3S
ProfileCategories
In the case of reading an existing document, it is not necessary to do the @DbColumn because we don't support the use of Keyword Synonyms in this application, and thus translation doesn't need to be done.
nocache
By Category
0R4S5S7S9S17S19S21SXz
ProfileCategories
Chci b
t informov
n o nov
ch dokumentech, jejich
t obsahuje tato slova nebo fr
ze: X
(zadejte jednotliv
polo
ky na zvl
dky)X
WebProfileStrings
ProfileStrings
0S0E
WebProfileStrings
Zadejte nov
slovo nebo fr
size= 20
NewStringXz
NewString
ProfileStrings
Notes
ProfileStrings
WebProfileStrings
NewString
WebProfileStrings
NewString
3S4S6S11S12S13S18S23S24S
WebProfileStrings
Notes
WebProfileStrings
NewString
1S2S3S6S7S9S11S16S17S
NewString
0R1S2S3S
ProfileStringsz
ProfileStrings
ProfileThreadsj
4S5S
Chci b
t informov
n v p
aktivity u n
sleduj
ch posloupnost
ProfileThreadSubjects
0S0E
ProfileThreadSubjectsXz
ProfileThreadSubjects
Lotus Product
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$INFO
$WEBQuerySave
$WEBQueryOpen
$$ScriptName
$WINDOWTITLE
$ACTIONS
$V5ACTIONS
$Script
$$FormScript
$$FormScript_src
$BODY
$$Script_O
$$$FormScript_O
$Language
$LastBuildTime
$BabelInfo
adit do _kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
Postoupit jako z
Bookmark
4S6S
esunout do slo
ky...X
_Odebrat ze slo
ky...
adit do _kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
Postoupit jako z
Bookmark
4S6S
esunout do slo
ky...X
_Odebrat ze slo
ky...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
E$k3"
$Index
$FormulaClass
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
'Convert My Newsletter Profile to a Subscription:
'Variables to translate
Const msg1 = "V sou
te profil z
. Odb
r z t
to diskusn
datab
ze vytvo
te klepnut
m na p
kaz Odb
r v nab
dce Tvorba."
Const title1 = "Dokument nebyl nalezen"
Const msg2 = "Odb
r byl
vytvo
en! Dal
ry lze vytvo
it klepnut
m na p
kaz Odb
r v nab
dce Tvorba."
Const title2 = "
vytvo
Const error46 = "Tato funkce je k dispozici pouze pro klienty programu Notes, kte
verzi 5.0 nebo vy
Const title3 = "V
straha"
Const msg4 = "Zadejte n
zev odb
ru: "
Const title4 = "P
eveden
profilu z
na odb
Const msg5 = "Bu
jste nezadali n
zev nebo jste klepli na tla
tko Storno. Chcete pokra
ovat?"
Const msg6 = "Profil z
nebyl p
eveden na odb
'++LotusScript Development Environment:2:2:Initialize:2:10
'END variables to translate
Sub Initialize
Dim session As New notessession
Dim uiwork As New notesuiworkspace
Dim db As notesdatabase
Dim interestView As notesview
Dim interestDoc As notesdocument
Dim dbTitle As String
Dim repID As String
Dim key As String
Dim user As Variant
Dim item As Variant
Dim auth As Variant
Dim subj As Variant
Dim cat As Variant
Dim ev As Variant
Dim thr As Variant
Dim title As String
Dim SubscriptionDoc As notesdocument
Dim headDB As New NotesDatabase("", "headline.nsf")
Dim Sver As Variant
Dim Iver As Integer
Dim YN As Integer
Sver = Evaluate("@version")
Iver = Cint(Sver(0))
If Iver < 160 Then
Msgbox error46, 16, title3 'user is running release prior to R5.0
Exit Sub
End If
Set db = session.currentdatabase
repID = db.replicaID
dbTitle = db.title
Set user = New notesname(session.username)
Set interestView = db.getview("($Profiles)")
Call interestView.refresh
key = "Interest Profile" + user.common 'DNT
Set interestDoc = interestView.getdocumentbykey(key)
If interestDoc Is Nothing Then 'user doesn't have an interest profile
Msgbox msg1, 48, title1
Exit Sub
End If
title = Inputbox(msg4, title4, dbTitle)
YN=1
If title = "" Then
YN = uiwork.prompt(PROMPT_YESNO, title3, msg5)
End If
If YN = 0 Then
Msgbox msg6, 64
Exit Sub
End If
Set item = interestDoc.replaceitemvalue("Form", "($Subscription)")
(.txt)