Subversion Repositories wimsdev

Rev

Rev 539 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 539 Rev 14879
Line 4... Line 4...
4 
!if $search=$empty
 4 
!if $search=$empty
5 
 !exit
 5 
  !exit
6 
!endif
 6 
!endif
7 
 
 7 
 
8 
search=!char 1 to 256 of $search
 8 
search=!char 1 to 256 of $search
9 
srch=!lower $search
 9 
srch=!lower $search
10 
srch=!deaccent $srch
 10 
srch=!deaccent $srch
Line 19... Line 19...
19 
 
 19 
 
20 
dictionary=$module_dir/dic/form
 20 
dictionary=$module_dir/dic/form
21 
!read search.proc
 21 
!read search.proc
22 
 
 22 
 
23 
!if $gotcnt=0
 23 
!if $gotcnt=0
24 
 wims_module_log=Fail: $search
 24 
  wims_module_log=Fail: $search
25 
!else
 25 
!else
26 
 wims_module_log=Found $gotcnt on $search
 26 
  wims_module_log=Found $gotcnt on $search
27 
!endif
 27 
!endif
28 
 
 28