Subversion Repositories wimsdev

Rev

Rev 15381 | 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
15381 bpr 13
slist=A D T X R P O S G
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
14896 bpr 22
  test=!record 0 of $module_P.fr/.test
23
  !if yes notin $test
24
    slist=!translate P to $ $ in $slist
25
  !else
26
    p_lang=en
27
  !endif
28
!else
29
  p_lang=$search_lang
1532 guerimand 30
!endif
16073 bpr 31
!!the file count.$search_lang is no more generated
32
!!cnt=!record 0 of wimshome/public_html/bases/sheet/index/count.$search_lang
33
!!!if $cnt<=0
34
!!  slist=!translate S to $ $ in $slist
35
!!!endif
1532 guerimand 36
slist=!words2items $slist
37
plist=
38
!for i in $slist
14896 bpr 39
  plist=!append item $(C_$i) to $plist
1532 guerimand 40
!next i