Rev 20 | Go to most recent revision | 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 | </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 | |
||
58 | !endif |
||
59 | !next ref |