I am using dxl to remove the hotspot border from some hotspots. What happens is I create a search results form and build a series of images and doclinks in order to produce a results form that looks like the Domain Search results. This has worked fine, until I created a replica of my application on another server. Now, in that replica only, when the search is performed and the user clicks on the link it can’t find the doclink database.
Are there any known issues with using the DXL import export process in replicas?
This is all being performed in the Notes Client…
Below is the DXL code I’m using to remove ther border (based on previous posts on this site…)
Dim session As New NotesSession
Dim iCtr As Integer
Dim rtitem As NotesRichTextItem
Dim sNoteID As String
Dim dxeExporter As NotesDXLExporter
Dim domparParser As NotesDOMParser
Dim dxiImporter As NotesDXLImporter
Const C_FunctionName = "ProcessDocLinksasDXL"
'############################################################################################
On Error Goto ErrorHandler
Set rtitem = docSearch.GetFirstItem("Body")
'Setup an export and import object and a parser to process between them
Set dxeExporter = session.CreateDXLExporter(docSearch)
Set domparParser = session.CreateDOMParser(dxeExporter)
Set dxiImporter = session.CreateDXLImporter(domparParser, dbCurr)
dxiImporter.DocumentImportOption = 10
On Event PostDOMParse From domparParser Call ProcessDOMParser
Call dxeExporter.Process
sNoteID = dxiImporter.GetFirstImportedNoteId
Set docSearch = dbCurr.GetDocumentByID(sNoteID)
Exit Function
Sub ProcessDOMParser(Source As NotesDOMParser)
Dim nodeList As NotesDOMNodeList
Dim iCtr As Integer
Dim jCtr As Integer
Dim docnode As NotesDOMDocumentNode
Dim nodemapAttributes As NotesDOMNamedNodeMap
Dim nodeElement As NotesDOMNode
Dim nodeAttribute As NotesDOMNode
Set docnode = Source.Document
'Get all the elements of type doclink
Set nodeList = docnode.GetElementsByTagName("doclink")
For iCtr = 1 To nodelist.NumberOfEntries
'Get each node
Set nodeElement = nodelist.GetItem(iCtr)
'cycle through the attributes until the showborder one is found and set to false
Set nodemapAttributes = NodeElement.Attributes
For jCtr = 1 To nodemapAttributes.NumberOfEntries
Set nodeAttribute= nodemapAttributes.GetItem(jCtr)
If nodeAttribute.LocalName = "showborder" Then
nodeAttribute.NodeValue = "false"
End If
Next
Next
'Update to the output object
Call Source.Serialize
End Sub