Subversion Repositories wimsdev

Rev

Rev 5803 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!distribute items Available references,\
2
        Références disponibles\
3
        into\
4
        tit_en,tit_fr
5
!default tit_$module_language=$tit_en
6
 
7
<center><h1>$(tit_$module_language)</h1>
8
 <b>---- $module_title ----</b>
9
</center> <p>
10
 
11
!set list=!exec reflist
12
!set list=!sort nocase items $list
13
!set list=!listuniq $list
14
!set list=!replace internal , by , $ in $list
15
!set lcnt=!itemcnt $list
16
!if $lcnt=0
17
 !if $module_language=fr
18
  Aucune référence pour les mots dans cette pages. Désolé.
19
  !exit
20
 !endif
21
 !if $module_language=es
22
  No se encuentra ninguna referencia para las palabras de esta página. Lo sentimos.
23
  !exit
24
 !endif
25
 
26
 No reference found for words in this page. Sorry.
27
 !exit
28
!endif
29
 
30
:list
31
!set dictionary=bases/sys/dummydic
32
!set suffix_dictionary=bases/sys/suffix.$module_language
33
!set translator_unknown=leave
34
!set list2=!deaccent $list
35
!set list2=!lower $list2
36
!set list2=!translate internal ()_-' to $           $ in $list2
37
!set list2=!exec translator $list2
38
!set dictionary=bases/sys/words.$module_language
39
!set list3=!exec translator $list2
40
!set dictionary=bases/wikipedia/rep.$module_language
41
!set suffix_dictionary=
42
!set translator_unknown=
43
!set list3=!exec translator $list3
44
!set list3=!singlespace $list3
45
 
46
!reset list4,list5
47
!set par=(
48
!for t=1 to $lcnt
49
 !set ref=$(list[$t])
50
 !set ref2=$(list2[$t])
51
 !set ref3=$(list3[$t])
52
 !if $ref2 notitemof $list4 and \
53
        ($par notin $ref or $ref3 notitemof $list5)
54
  !set list4=!append item $ref2 to $list4
55
  !set list5=!append item $ref3 to $list5
56
  !pedia $ref
57
  &nbsp;
58
 !endif
59
!next ref