SPR

Technote

Problem:
This issue was reported to Quality Engineering as SPR# TKIE5LQ8G2, and is fixed
in Notes 7.0.2 and Notes 6.5.6.

Excerpt from the Lotus Noes and Lotus Domino Release 7.0.2 and 6.5.6 MR fix
lists (available at http://www.ibm.com/developerworks/lotus):

Client UI
SPR# TKIE5LQ8G2 - With this fix, a flag is set to "prohibit the design refresh
or replace to modify" on a newly created image resource, so that the upgrade
will not remove the image. This regression was introduced in 6.0.1.


Refer to the Upgrade Central site for details on upgrading Notes/Domino.


Background on issue:
When an upgrade occurs, the Notes Client checks the Notes.ini parameter,
"templatesetup=" to determine if the design of certain databases such as the
Bookmark database (Bookmark.nsf) and Personal Address Book database (Names.nsf)
need to be updated. Outlines and images associated with the Toolbar buttons
do not have the property, "Prohibit Design Refresh or Replace to Modify"
selected due to the upgrade from 5.x to 6.x. As a result the outlines and
images are removed from the Bookmark.nsf. A workaround to prevent this from
happening is provided below.

This issue can also occur with inserted image resources used for Toolbars
buttons added in the 6.0.1 Bookmark database. To prevent these images from
being removed by the upgrade, open the Bookmark database in Domino Designer and
navigate to Shared Resources, Images. Highlight the image, right-click and
open the resource properties. On the Design tab, enable the property "Prohibit
Design Refresh or Replace To Modify" by selecting its checkbox.

SmartIcons used by the Notes 5.x Client are added automatically to the Bookmark
database when an upgrade of the Notes Client to the 6.x codestream occurs. To
access these icons go to File > Preferences > Toolbar Preferences and select
Customize. If the icons are not available then it may be necessary to import
the SmartIcons via File > Preferences > Toolbar Preferences > Toolbars > Import
> select the W32 directory below the Notes \Data directory. Refer to the
following document for additional information "SmartIcon/Toolbar changes are
lost when upgrading Notes Client to a new release" (# 1096627).

A new 6.x Bookmark database will not exhibit this issue because it has the
property "Prohibit Design Refresh or Replace to Modify" enabled for the
outlines.


Workaround:

1. Open the Bookmark.nsf in Domino Designer and set the "Prohibit Design
Refresh or Replace To Modify" property on the Outlines: UserToolbar,
UserToolbarManager, and UserToolbarPOD.

Note: Any images in shared resources associated with the toolbars should also
have the "Prohibit Design Refresh or Replace to Modify" option set before
upgrading the client.

2. Use this sample code:

IMPORTANT NOTE: The below is a sample script, provided only to illustrate one
way to approach this issue. Notes Support will not be able to customize this
script for a customer's own configuration. While this may work for some
customers it is offered as a suggestion only, and is not something that Lotus
Software supports further.

Create a memo and create a button in it and choose LotusScript. In the
Declarations variable place the following:

Declarations:
Declare Function NSFDbOpen Lib "nnotes.dll" (Byval filename As String, hDB As
Long) As Integer

Declare Function NSFDbClose Lib "nnotes.dll" (Byval hDB As Long) As Integer

Declare Function NIFFindDesignNoteExt Lib "nnotes.dll" (Byval hDB As Long,
Byval SearchValue As String, Byval NClass As Long, Byval bla As String , NoteID
As Long, Byval flags As Long) As Integer

Declare Function NSFNoteOpen Lib "nnotes.dll" (Byval hDB As Long, Byval NoteID
As Long, Byval flags As Long, hNote As Long) As Integer

Declare Function NSFNoteClose Lib "nnotes.dll" (Byval hNote As Long) As Integer

Declare Function NSFItemSetText Lib "nnotes.dll" (Byval hNote As Long,
Byval FieldName As String, Byval NewValue As String, Byval lenth As Long) As
Integer

Declare Function NSFNoteUpdate Lib "nnotes.dll" (Byval hNote As Long, Byval
flag As Long) As Integer

Initialize Event:
In the Initialize event place the following:

%REM
This agent enables the property "Prohibit design refresh or replace to modify"
for all image resources in the current database. This property is set by
appending "P" to the $Flags item of the image resource.

IMPORTANT NOTE: Before running this script make a backup
of any/all databases that will be processed by it.
%END REM

Dim s As New notessession
Dim db As New notesdatabase("","Bookmark.nsf")
Dim nc As NotesNoteCollection
Dim note As notesdocument
Dim noteID As String

Set nc = db.CreateNoteCollection(False)
nc.SelectImageResources = True
Call nc.BuildCollection

noteID = nc.GetFirstNoteId

For i = 1 To nc.Count
Set note = db.getdocumentbyID( noteID )

'only process img reources lacking the protect bit.
If Instr( 1, note.~$Flags(0), "P", 5) < 1 Then
note.~$Flags = note.~$Flags(0) & "P"
Call note.save( False, False )
ModCount% = ModCount% + 1
End If

noteID = nc.GetNextNoteId( noteID )
Next

Msgbox "Modified: " & Cstr( ModCount% ) & " Image Resources in: " &
db.FilePath

End Sub


Click Event:
In the Click event add the following:

Sub Click(Source As Button)

Dim hDB As Long
Dim erro As Integer
Dim dbName As String
Dim NoteID As Long
Dim s1 As String
Dim NClass As Long
Dim flags As Long
Dim hNote As Long
Dim NewValue As String
Dim FieldName As String
Dim Length As Long
Dim i As Integer

NewValue = "m34P"
FieldName = "$Flags"
Length = Len(NewValue)

Dim mysearch(3) As String

mysearch(1) = "UserToolbar"
mysearch(2) = "UserToolbarManager"
mysearch(3) = "UserToolbarPOD"

flags =0

s1 = "+m"
NClass = 32767

DbName = "bookmark.nsf"

erro = NSFDbOpen (dbName, hDB&)

If erro = 0 Then
For i=1 To 3
erro = NIFFindDesignNoteExt (hDB, mysearch(i), NClass,s1 ,NoteID,flags)

If NoteID > 0 Then
erro = NSFNoteOpen(hDb, NoteID, flags, hNote)

If erro = 0 Then
erro = NSFItemSetText(hNote, FieldName, NewValue, Length)
If erro = 0 Then
flags = 1 ''force update
erro = NSFNoteUpdate(hNote, flags)
End If
erro = NSFNoteClose(hNote)
End If
End If
Next
End If

Call NSFDbClose (hDb)

End Sub
More >