Matt White

I am writing a session authentication tool which checks that your session is valid before trying to submit a document to the server as we have users who lose data quite frequently (a combination of short session times, SSL and their inability to learn!). Rather than extend the session timeouts we check to see if the session is valid by trying to open a page before submitting the form to the server. But to test this I need to expire my session quickly and often so enter a one line scriptlet:

javascript:document.cookie=”DomAuthSessId=; expires=Saturday, 01-Apr-1980 08:00:00 GMT ; path=/”;alert(“Session has been terminated.”);

You just save this as a favourite (or bookmark in Mozilla) and click it when you want to terminate your session.

One of the most annoying things I have found in list operations is how to only return elements that contain a value. Here is a solution:

To return entries in a list that contain “B”:

1: ABCX
DEFY
ABDC
DBXY

2: Replacesubstring of B with |||
A|||CX
DEFY
A|||DC
D|||XY

3: @Right of |
||CX

||DC
||XY

4: @LeftBack of 3 at |
|

|
|

5: 4 + Original List
|ABCX
DEFY
|ABDC
|DBXY

6: @Trim and @Right of 5
ABCX
ABDC
DBXY

initiallist:=”ABCX”:”DEFY”:”ABDC”:”DBXY”;
step1:=@ReplaceSubstring(initiallist; “B”; “|||”);
step2:=@Right(step1; “|”);
step3:=@LeftBack(step2; “|”);
step4:=step3 + initiallist;
step5:=@Right(step4; “|”);
step6:=@Trim(step5);

Just about the simplest bit of LotusScript ever but one I use again and again. It converts a UNID (32 character hex string) into a GUID (for use in SQL Server in my case but pretty universal).

Function convertUNIDToGUID(strUNID) As String
  Dim strGuid As String
  If Instr(strUNID, “-“) = 0 Then
    strGuid = Mid$(strUNID, 1, 8) & “-“
    strGuid = strGuid & Mid$(strUNID, 9, 4) & “-“
    strGuid = strGuid & Mid$(strUNID, 13, 4) & “-“
    strGuid = strGuid & Mid$(strUNID, 17, 4) & “-“
    strGuid = strGuid & Mid$(strUNID, 21)
  End If
  convertXRDominoIDToGUID = strGuid
End Function

Just a useful little javascript function which will get a URL parameter and return it to you. For example if the current URL is “…?opendocument&id=testid” then calling getURLParam(“id”) will return “testid”.

function getURLParam(strParamName){
  var strReturn = “”;
  var strHref = window.location.href;
  if ( strHref.indexOf(“?”) > -1 ){
    var strQueryString = strHref.substr(strHref.indexOf(“?”)).toLowerCase();
    var aQueryString = strQueryString.split(“&”);
    for ( var iParam = 0; iParam < aQueryString.length; iParam++ ){
      if (
aQueryString[iParam].indexOf(strParamName.toLowerCase() + “=”) > -1 ){
        var aParam = aQueryString[iParam].split(“=”);
        strReturn = aParam[1];
        break;
      }
    }
  }
  return unescape(strReturn);
}

Update (31st December 2006)
This posting has been around for a long time now and gets a lot of traffic. Although it will still work fine as long as you know its limitations, several people have pointed to this article as being a better solution. I totally agree, it’s well worth a look.

Update (27th February 2007)
A couple of bug fixes raised via email. Thanks to Oliver Bryant for those.

This is a really useful formula. Not one to let your users have access to but put it into an action button on an admin view and it will let you edit any field value on a document when used in a view icon or smart icon.

List := @DocFields; DataTypes := “Text” : “Text List” : “Date” : “Number”;
EditField := @Prompt( [OKCANCELLIST] ; “Select a field to alter” ; “Select the field you wish to alter:” ; “CustomerReply” ; List ) ;

Edit := @Prompt( [YESNO] ; “Confirm” ; “Are you sure you want to alter the current contents of field \”” + EditField + “\”.” );

RawValue := @If( Edit = 1 ; @Prompt( [OKCANCELEDIT] ;
“New Value” ; “Please enter the new desired value.” ; NULL ) ;
@Return(NULL) );

DataType := @Prompt( [OKCANCELLIST] ; “Data Type” ;
“Please Select the correct DataType” ; “Text” ; DataTypes );

@If( DataType = “Date” ; @SetField( EditField ;
@TextToTime( RawValue )) ; DataType = “Number” ;
@SetField( EditField ; @TextToNumber( RawValue )) ;
DataType = “Text List”; @SetField(EditField; @Explode(RawValue; “,;:”));
@SetField( EditField ; RawValue ) )