"
CFO -para
CFO -dialogbox
CFO button btn2 "newDocForm fol 100001 cmd358063336" chain
CFO buttonText btn2 "Create New Contact"
CFO buttonBar ok cancel btn2
CFO emit
wim close
}
############################################################
#message contactSearch
#Accepts: margs 1 - context (fol doc mes crossForum crossForumDB notify )
# margs 2 - folder ID
# margs 3 - search type,limit,start (limit=max number to show. start=# to skip)
# margs 4 - from date (optional)
############################################################
forum message contactSearch {
#save the arguments used to call this message
forum_exec task util_saveCallArguments $margs "returnSkip 1"
if {![docshare.checkAclAndIdAccess [wim property get topFolderId]]} {
forum_exec view acl_deny_dialog
return
}
begin_response text/html normal
emitln [avf.htmlHead] [avf.htmlTitle [nlt search/results "Search Results"]]
try { forum_exec task emitCloseDialogBox }
emitln [avf.htmlBody]
#Overload point - modify the uFields before the search starts
Search.setup_uFields {}
defineComposeFormObj CFO
set context [lindex $margs 1]
set folderId [lindex $margs 2]
set searchType [lindex [split [lindex $margs 3] ","] 0]
set resultsLimit [lindex [split [lindex $margs 3] ","] 1]
set resultsStart [lindex [split [lindex $margs 3] ","] 2]
if {[isnull $resultsLimit]} {set resultsLimit [forum_exec task getFolderPageSize]}
if {[isnull $resultsStart]} {set resultsStart 0}
set searchDate [lindex $margs 4]
set searchText ""
set authorText ""
set keywordText ""
set timespec ""
set timeValue ""
set fromDay ""
set fromMonth ""
set fromYear ""
set toDay ""
set toMonth ""
set toYear ""
set sortedBy ""
try { set searchText $uFields(searchText) }
try { set authorText $uFields(author) }
try { set keywordText $uFields(keywords) }
try { set timespec $uFields(timespec) }
try { set timeValue $uFields(time) }
try { set fromDay $uFields(fromDay) }
try { set fromMonth $uFields(fromMonth) }
try { set fromYear $uFields(fromYear) }
try { set toDay $uFields(toDay) }
try { set toMonth $uFields(toMonth) }
try { set toYear $uFields(toYear) }
# default to sort by document number
#
#
#
set sortedBy "docNum"
#
#Get the proper date formats for the fromDate and toDate
set curDate [date_time current]
set fromDate ""
set toDate ""
if {![isnull "$fromDay$fromMonth$fromYear"]} {
if {[isnull $fromDay]} {set fromDay [date_time format $curDate "%d" local]}
if {[isnull $fromMonth]} {set fromMonth [date_time format $curDate "%m" local]}
if {[isnull $fromYear]} {set fromYear [date_time format $curDate "%Y" local]}
set fromDate "$fromMonth/$fromDay/$fromYear"
}
if {(![isnull $fromYear] && $fromYear < 1971) || \
[catch {set fromDateSeconds [clock scan $fromDate]}]} {
emitln "