Subversion Repositories wimsdev

Rev

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

Rev 2670 Rev 2671
Line 2... Line 2...
2 
!!   il est nécessaire à la définition des mots utilisés dans la form html
2 
!!   il est nécessaire à la définition des mots utilisés dans la form html
3 
!!   permettant de définir les mots clés de recherche
 3 
!!   permettant de définir les mots clés de recherche
4 
 
 - 
 
- 
 
 4 
!set search_lang=$wims_read_parm
5 
rel_A=D,S
 5 
rel_A=D,S
6 
rel_T=X,D,R
 6 
rel_T=X,D,R
7 
rel_D=X,T,S,R
 7 
rel_D=X,T,S,R
8 
rel_X=T,D,S,R
 8 
rel_X=T,D,S,R
9 
rel_R=X,T,D,S
 9 
rel_R=X,T,D,S
10 
rel_P=T,X,D
 10 
rel_P=T,X,D
11 
rel_O=X,S,T,D,R
 11 
rel_O=X,S,T,D,R
12 
rel_S=X,R,T,D
 12 
rel_S=X,R,T,D
13 
 
 13 
 
14 
slist=A D T X R P O S
 14 
slist=A D T X R P O S
15 
!set my_lang=$wims_read_parm
 - 
 
- 
 
 15 
 
16 
module_P=wimshome/public_html/modules/tool/popup
 16 
module_P=wimshome/public_html/modules/tool/popup
17 
wims_trustfile=$module_P.$my_lang/search.phtml $module_P.$my_lang/search.proc
 17 
wims_trustfile=$module_P.$search_lang/search.phtml $module_P.$search_lang/search.proc
18 
test=!record 0 of $module_P.$my_lang/.test
 18 
test=!record 0 of $module_P.$search_lang/.test
19 
!if yes notin $test
 19 
!if yes notin $test
20 
 slist=!translate P to $ $ in $slist
 20 
 slist=!translate P to $ $ in $slist
21 
!endif
 21 
!endif
22 
cnt=!record 0 of wimshome/public_html/bases/sheet/index/count.$my_lang
 22 
cnt=!record 0 of wimshome/public_html/bases/sheet/index/count.$search_lang
23 
!if $cnt<=0
 23 
!if $cnt<=0
24 
 slist=!translate S to $ $ in $slist
 24 
 slist=!translate S to $ $ in $slist
25 
!endif
 25 
!endif
26 
slist=!words2items $slist
 26 
slist=!words2items $slist
27 
plist=
 27 
plist=