Subversion Repositories wimsdev

Rev

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

Rev 11483 Rev 14896
Line 17... Line 17...
17 
 
 17 
 
18 
module_P=wimshome/public_html/modules/tool/popup
 18 
module_P=wimshome/public_html/modules/tool/popup
19 
wims_trustfile=$module_P.$search_lang/search.phtml $module_P.$search_lang/search.proc
 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
 20 
test=!record 0 of $module_P.$search_lang/.test
21 
!if yes notin $test
 21 
!if yes notin $test
- 
 
 22 
  test=!record 0 of $module_P.fr/.test
- 
 
 23 
  !if yes notin $test
22 
 slist=!translate P to $ $ in $slist
 24 
    slist=!translate P to $ $ in $slist
- 
 
 25 
  !else
- 
 
 26 
    p_lang=en
- 
 
 27 
  !endif
- 
 
 28 
!else
- 
 
 29 
  p_lang=$search_lang
23 
!endif
 30 
!endif
24 
cnt=!record 0 of wimshome/public_html/bases/sheet/index/count.$search_lang
 31 
cnt=!record 0 of wimshome/public_html/bases/sheet/index/count.$search_lang
25 
!if $cnt<=0
 32 
!if $cnt<=0
26 
 slist=!translate S to $ $ in $slist
 33 
  slist=!translate S to $ $ in $slist
27 
!endif
 34 
!endif
28 
slist=!words2items $slist
 35 
slist=!words2items $slist
29 
plist=
 36 
plist=
30 
!for i in $slist
 37 
!for i in $slist
31 
 plist=!append item $(C_$i) to $plist
 38 
  plist=!append item $(C_$i) to $plist
32 
!next i
 39 
!next i