How to create a spotlight page for your Notes database

To maintain the development of a number of standardized applications I use a Notes database where developers/application owners can register ‘new ideas’ for applications, convert them into tasks and include them in planned releases.

One application for example allows the storage of all kinds of documents, define a review cycle, set access restriction et cetera. To offer a more attractive ‘startpage’ that will make it easier for users to scan new contributions or their own latests contributions the idea of a ‘spotlight‘ emerged:

Basically we created a form that will be opened within a classical frameset when launching the application.

Form requirements

SaveOptions field, set to “0” and hidden ofcourse.

Now for each ‘entry’ I have 7 hidden fields:

Tx_TitleSpotDoc1, text, editable

Na_AuthorSpotDoc1, names, editable

Td_ModifiedSpotDoc1, date/time, editable

Tx_ReadableDateSpotDoc1, text, editable

Tx_FileTypeSpotDoc1, text, editable

Tx_FileTypeIconSpotDoc1,text, editable

Tx_UNIDSpotDoc1, text, editable

(for the next entries the fields are called Tx_TitleSpotDoc2, Tx_TitleSpotDoc3 etcetera)

For the entries under the ‘My Latest Documents’ header the fields are named:

Tx_TitleMySpotDoc1, text, editable

Na_AuthorMySpotDoc1, names, editable

Td_ModifiedMySpotDoc1, date/time, editable

Tx_ReadableDateMySpotDoc1, text, editable

Tx_FileTypeMySpotDoc1, text, editable

Tx_FileTypeIconMySpotDoc1,text, editable

Tx_UNIDSpotMyDoc1, text, editable

In the part where I diplay the entries the markup looks like this:

Note that all fields are computed for display.Ā  Here are their values:

Computed image: @Text(Tx_FileTypeIconSpotDoc1)

Title: Tx_TitleSpotDoc1

Author: @Name([CN]; Na_AuthorSpotDoc1)

Modified: Td_ModifiedSpotDoc2

Added: Tx_ReadableDateSpotDoc1

The computed image and the title field have an Action Hotspot, with the onclick value:

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Call OpenDocumentByUNID(ws.CurrentDocument.Document.Tx_UNIDSpotDoc1(0))
End Sub

They also use a Script Library (LotusScript):

Use “StartPageFunctions”

The form has also this library referenced under (Options).

Under the Postopen event we call the initiation function:

Sub Postopen(Source As Notesuidocument)
Call StartPageInit(Source)
End Sub

I will include the script as a file: startpagefunction.dxl

That’s about it! Now you have a much more interesting startpage for your Notes app!

Here are the icons used:


7 thoughts on “How to create a spotlight page for your Notes database

  1. Bernd Webster 2011-January-10 / 7:31 pm

    Wow… thats nice… Can you maybe post an example NSF?

  2. Erik Norfelt 2011-January-10 / 7:38 pm

    Thats just awsome! šŸ˜‰

    • Patrick Kwinten 2011-January-10 / 8:29 pm

      yep, I thought it is better to store this know-how somewhere, so others can re-use it…

      • Erik Norfelt 2011-January-10 / 10:09 pm

        For sure!

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s