Subversion Repositories wimsdev

Rev

Rev 2798 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
539 bpr 1
 
2
formdir=form
3
search=!trim $search
4
!if $search=$empty
5
 !exit
6
!endif
7
 
8
search=!char 1 to 256 of $search
9
srch=!lower $search
10
srch=!deaccent $srch
11
srch=!translate internal ()[]{}|`'"\/,;.-?! to \
12
		        $                    $ in $srch
13
srch=!singlespace $srch
14
dictionary=$module_dir/dic/syno
15
suffix_dictionary=bases/sys/suffix.$module_language
16
translator_unknown=leave
17
srch=!exec translator $srch
18
srch=!singlespace $srch
19
 
20
dictionary=$module_dir/dic/form
21
!read search.proc
22
 
23
!if $gotcnt=0
24
 wims_module_log=Fail: $search
25
!else
26
 wims_module_log=Found $gotcnt on $search
27
!endif
28