Subversion Repositories wimsdev

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  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
  60.