Subversion Repositories wimsdev

formdir=form

search=!trim $search

!if $search=$empty

  !exit

!endif

search=!char 1 to 256 of $search

srch=!lower $search

srch=!deaccent $srch

srch=!translate internal ()[]{}|`'"\/,;.-?! to \

		        $                    $ in $srch

srch=!singlespace $srch

dictionary=$module_dir/dic/syno

suffix_dictionary=bases/sys/suffix.$module_language

translator_unknown=leave

srch=!exec translator $srch

srch=!singlespace $srch

dictionary=$module_dir/dic/form

!read search.proc

!if $gotcnt=0

  wims_module_log=Fail: $search

!else

  wims_module_log=Found $gotcnt on $search

!endif