Developing an advanced settings tool (agtNamePicker agent sidebar)

[Back to Developing an advanced settings tool]

agtNamePicker agent

Sub Initialize 'agtNamePicker

'This agent searches the Address Book for the supplied name and generates an HTML page listing the possible matches on

' that name as radio buttons.

'Sample call (JavaScript in an action hotspot):

'window.open('http://' + document.forms[0].ServerAndPath.value + '/agtNamePicker?OpenAgent&' + document.forms[0].fUserAdd.value + "&fUser&1", 'VerifyUser', 'width=500,height=300,resizable=yes,scrollbars=yes')

'Parameters:

'- You should pass exactly three parameters in the URL calling this agent, in this order:

' - strSearchFor (string): The search value the user typed in

' - strDestField (string): The field in which to store the selected name

' - bMulti (0 or 1): Whether strDestField supports multiple values. If true, new names are separated using commas

'Known bugs:

'- Netscape 6 ignores the OK button

'Sample output:

'<HTML>

'

'<HEAD>

'</HEAD>

'<BODY TEXT="000000">

' <script> function addNames() {

' window.opener.document.forms[0].fValueName.value = Temp.value;

' window.close();

' }

' </script>

'Search for users with name containing the word - duck - found these matches. Please select one:<br><br>

'<INPUT NAME="Temp" TYPE=hidden VALUE="">

'<INPUT TYPE=radio NAME="SelectUser" VALUE="Daffy Duck" onClick="Temp.value='Daffy Duck'">Daffy Duck<br>

'<INPUT TYPE=radio NAME="SelectUser" VALUE="Donald Duck" onClick="Temp.value='Donald Duck'">Donald Duck<br>

'<BR><DIV ALIGN=center><INPUT TYPE=button onClick="addNames()" VALUE="OK">

'<INPUT TYPE=button onClick="window.close()" VALUE="Cancel"><DIV>

'</BODY>

'</HTML>

Dim session As New NotesSession, doc As NotesDocument

Dim strSearchFor As String

Dim varMatches As Variant

Dim varTemp As Variant, strTemp As String, strNewValue As String

Dim varParms As Variant, strDestField As String, bMulti As Integer, bFound As Integer

On Error Goto Errorhandler

Set doc = session.DocumentContext

'Parse out the three parameters from the CGI string.

'Examples: "?OpenAgent&Smith&fUserName&1", "?OpenAgent&&fUserName&0"

strTemp = |@Explode ( @Right("| + doc.Query_String_Decoded(0) + |";"&"); "&" ) |

varParms = Evaluate (strTemp)

bFound=False 'Assume the worst: no match will be found

If Ubound (varParms) = 2 Then

'We got all the parameters

strSearchFor = varParms(0)

strDestField = varParms(1)

bMulti = Cint( varParms(2) )

strNewValue = "Temp.value"

strTemp = |@unique(@NameLookup ( [Exhaustive]; "| + strSearchFor + |" ; "Fullname"))|

varMatches = Evaluate(strTemp)

If (Ubound(varmatches) >= 0) And (varmatches(0) <> "") Then

'Match(es) found! Build JavaScript and radio buttons to present the names and process the user's selection.

bFound = True

'Create the script called by the OK button

Print | <script> function addNames() {|

If bMulti Then

'The OK button should append the selected name to any existing names in the strDestField field.

Print | var strOld = window.opener.document.forms[0].| + strDestField + |.value;|

Print | if ( strOld == "") {|

Print | }|

Print | else {|

Print | }|

Else

'The OK button should write the selected name over any existing name in the strDestField field.

End If

Print | window.close(); } </script>|

'Create the body that displays the matches

Print "Search for users with name containing the word - " & strSearchFor & " - found these matches. Please select one:<br><br>"

Print |<INPUT NAME="Temp" TYPE=hidden VALUE="">|

Forall varMatch In varMatches

'Create a radio button for this match

End Forall

'Create the OK and Cancel buttons

Print |<BR><DIV ALIGN=center><INPUT TYPE=button onClick="addNames()" VALUE="OK">|

Print |<INPUT TYPE=button onClick="window.close()" VALUE="Cancel"><DIV>|

End If

If Not(bFound) Then

'No matches found. Just create a message and a Close button.

If strSearchFor = "" Then

Print "Please enter a name to search for. <br>"

Else

Print "Search for users with name containg the word - " & strSearchFor & " - did not find any matches. <br>"

End If

Print |<BR><DIV ALIGN=center><INPUT TYPE=button onClick="window.close()" VALUE="Close"></DIV>|

End If

Exit Sub

ErrorHandler:

Print "Error " & Str(Err) & ": " & Error$

End Sub 'agtNamePickerS