Subversion Repositories wimsdev

Rev

Rev 2882 | Rev 6470 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2670 bpr 1
!!   ce fichier est une partie du fichier search.proc du module home
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
2671 bpr 4
!set search_lang=$wims_read_parm
1532 guerimand 5
rel_A=D,S
6
rel_T=X,D,R
7
rel_D=X,T,S,R
8
rel_X=T,D,S,R
9
rel_R=X,T,D,S
10
rel_P=T,X,D
11
rel_O=X,S,T,D,R
12
rel_S=X,R,T,D
13
 
14
slist=A D T X R P O S
2671 bpr 15
 
2898 bpr 16
module_P=wimshome/public_html/modules/tool/popup
2671 bpr 17
wims_trustfile=$module_P.$search_lang/search.phtml $module_P.$search_lang/search.proc
18
test=!record 0 of $module_P.$search_lang/.test
1532 guerimand 19
!if yes notin $test
20
 slist=!translate P to $ $ in $slist
21
!endif
2671 bpr 22
cnt=!record 0 of wimshome/public_html/bases/sheet/index/count.$search_lang
1532 guerimand 23
!if $cnt<=0
24
 slist=!translate S to $ $ in $slist
25
!endif
26
slist=!words2items $slist
27
plist=
28
!for i in $slist
29
 plist=!append item $(C_$i) to $plist
30
!next i
31