Subversion Repositories wimsdev

Rev

Rev 6470 | Rev 14896 | 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
11483 bpr 2
!!   il est necessaire à la definition des mots utilises dans la form html
3
!!   permettant de definir les mots cles 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
slist=A D T X R P O S
6470 bpr 14
!if $wims_class=$empty
15
  slist=$slist C
16
!endif
2671 bpr 17
 
2898 bpr 18
module_P=wimshome/public_html/modules/tool/popup
2671 bpr 19
wims_trustfile=$module_P.$search_lang/search.phtml $module_P.$search_lang/search.proc
20
test=!record 0 of $module_P.$search_lang/.test
1532 guerimand 21
!if yes notin $test
22
 slist=!translate P to $ $ in $slist
23
!endif
2671 bpr 24
cnt=!record 0 of wimshome/public_html/bases/sheet/index/count.$search_lang
1532 guerimand 25
!if $cnt<=0
26
 slist=!translate S to $ $ in $slist
27
!endif
28
slist=!words2items $slist
29
plist=
30
!for i in $slist
31
 plist=!append item $(C_$i) to $plist
32
!next i