In the CommonFunctionLibrary you need an addition to avoid errors of the GETHASHVALUE-Function
(Declarations)
' Addition Norbert Goeth 8.6.2009: I need a session to replace the @Pasword-Function by
' session.HashPassword, because the @Password-Function leads to errors, if the last character
' of the string is a Backslash
Dim CFL_session As NotesSession
Sub Initialize
Set CFL_session = New NotesSession<br/>
End Sub
%REM
' Addition Norbert Goeth 8.6.2009: I need a session to replace the @Pasword-Function by
' session.HashPassword, because the @Password-Function leads to errors, if the last character
' of the string is a Backslash
Old Code:
'Generate the Hash value on just the first 40 characters<br/>
varTemp = Evaluate( {@Password("} + Left(SearchAndReplace( strTemp, |"|, |\"| ), 40) + {")} )<br/>
<br/>
'IF the evaluate is not successful (ie. generates an error) varTemp will be a scalar (single value)<br/>
If Isscalar( varTemp ) Then getHashValue="" Else getHashValue= varTemp(0) <br/>
<br/>
Err=0 'We don't want to flag this error. If the Hash value is blank if the evaluate fails<br/>
<br/>
%END REM
getHashValue=CFL_Session.HashPassword(Left(strTemp,40))