Subversion Repositories wimsdev

Rev

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