Subversion Repositories wimsdev

Rev

Rev 11379 | Rev 12083 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11379 Rev 11407
Line 14... Line 14...
14 
!endif
 14 
!endif
15 
!if $search_and=yes
 15 
!if $search_and=yes
16 
   srch1=!replace internal ,$ $ by , in $srch
 16 
   srch1=!replace internal ,$ $ by , in $srch
17 
   srch1=!items2lines $srch1
 17 
   srch1=!items2lines $srch1
18 
   scnt=!linecnt $srch1
 18 
   scnt=!linecnt $srch1
19 
 
 - 
 
20 
   !for s_ = 1 to $scnt
 19 
   !for s_ = 1 to $scnt
21 
     sout_=!lookup $(srch1[$s_;]) in wimshome/public_html/$dictionary
 20 
     sout_=!lookup $(srch1[$s_;]) in wimshome/public_html/$dictionary
22 
     sout_=!words2items $sout_
 21 
     sout_=!words2items $sout_
23 
     sout_=!replace internal ?4 by ?2 in $sout_
 22 
     sout_=!replace internal ?4 by ?2 in $sout_
24 
     !if $s_ >1
 23 
     !if $s_ >1
Line 38... Line 37...
38 
      sout_=!words2items $sout_
 37 
      sout_=!words2items $sout_
39 
      Sout=!append item $sout_ to $Sout
 38 
      Sout=!append item $sout_ to $Sout
40 
    !next
 39 
    !next
41 
    sout=!listuniq $Sout
 40 
    sout=!listuniq $Sout
42 
    !if $search_level!=$empty
 41 
    !if $search_level!=$empty
- 
 
 42 
      sout=!replace internal ?4 by ?2 in $sout
43 
      sout=!listintersection $sout and $Soutlevel
 43 
      sout=!listintersection $sout and $Soutlevel
44 
    !endif
 44 
    !endif
45 
 !endif
 45 
 !endif
46 
 sout=!items2words $sout
 46 
 sout=!items2words $sout
47 
 sout=!words2lines $sout
 47 
 sout=!words2lines $sout