Skip to Main Content
HCL Domino Ideas Portal

Welcome to the #dominoforever Product Ideas Forum! The place where you can submit product ideas and enhancement request. We encourage you to participate by voting on, commenting on, and creating new ideas. All new ideas will be evaluated by HCL Product Management & Engineering teams, and the next steps will be communicated. While not all submitted ideas will be executed upon, community feedback will play a key role in influencing which ideas are and when they will be implemented.

For more information and upcoming events around #dominoforever, please visit our Destination Domino Page

Status Assessment
Workspace Domino
Categories General
Created by Guest
Created on May 20, 2023

Speed up saving Internet Site documents

Saving Internet Site documents is pretty slow.

The reason for that is in the QuerySave of the $internetSite sub form, searching for a Certifier document corresponding to the Organization item. The code loops through every view entry in the ($Certifiers) view, looking for the correct one without leaving the loop once found!

The ($Certifiers) view has 142 default documents, plus the Domino registered Organization, and perhaps others.

The view is sorted alphabetically, so before my organization (shown as O=MyCompanyName) I have at least 123 entries starting with: C=..., CN=..., EMAIL=... it would be way faster looping the view starting from the bottom and leaving right after the desired document is found.

I modified the code like this, it does the same thing, reading just a few documents though:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim doc As NotesDocument
Dim vc As NotesViewEntryCollection
Dim db As NotesDatabase
Dim doc2 As NotesDocument
Dim view As NotesView
Dim nm As NotesName
Dim ISiteOrg As String

Set doc = Source.Document
If Not doc.GetItemValue("Type")(0) = "WebSite" And Not doc.GetItemValue("Type")(0) = "GlobalWeb" Then
ISiteOrg = Ucase(doc.GetItemValue("ISiteOrg")(0))
Set db = doc.ParentDatabase
Set view = db.GetView("($Certifiers)")
view.AutoUpdate = False
Set doc2 = view.getlastdocument
Do Until doc2 Is Nothing
Set nm = New NotesName(doc2.GetItemValue("IssuedTo")(0))
If ISiteOrg = Ucase(nm.Organization) Then
Exit Do
End If
Set doc2 = view.GetPrevDocument(doc2)
If Continue = False Then
Msgbox("The Organization field must specify an existing certifier organization name")
End If
End If
End Sub

  • Attach files