Subversion Repositories wimsdev

Rev

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

  1. !set p_=!trim $wims_read_parm
  2. !if $p_=$empty
  3.  !exit
  4. !endif
  5. !set p_=!items2words $p_
  6. !set p_=!words2items $p_
  7.  
  8. !if $module_language notwordof cn fr nl si es ca
  9.  !set prompt1=Useful online tools:
  10.  !set prompt2=(available in another window of your browser)
  11. !else
  12.  !if $module_language=si
  13.   !set prompt1=Uporabna spletna orodja:
  14.   !set prompt2=(na razpolago v novem oknu brskalnika)
  15.  !endif
  16.  !if $module_language=fr
  17.   !set prompt1=Outils en ligne utiles :
  18.   !set prompt2=(disponible dans une autre fenêtre de votre navigateur)
  19.  !endif
  20.  !if $module_language=cn
  21.   !set prompt1=¿ÉÒÔʹÓõŤ¾ß:
  22.   !set prompt2=(»áÔÚÄãµÄä¯ÀÀÆ÷ÀïÁí¿ªÒ»¸ö´°¿Ú)
  23.  !endif
  24.  !if $module_language=nl
  25.   !set prompt1=Handige online tools :
  26.   !set prompt2=(verschijnt in een separaat browser venster)
  27.  !endif
  28.  !if $module_language=es
  29.   !set prompt1=Herramientas en línea útiles:
  30.   !set prompt2=(disponibles en otra ventana de su navegador)
  31.  !endif
  32.  !if $module_language=ca
  33.   !set prompt1=Eines útils en línea:
  34.   !set prompt2=(disponibles en una altra finestra del seu navegador)
  35.  !endif
  36.  
  37. !endif
  38.  
  39. !reset T_
  40. !for t in $p_
  41.   !set tit=!module title tool/$t
  42.   !if $tit!=$empty and $tit!=$module_title
  43.    !set T_=!append line $t,$tit to $T_
  44.   !endif
  45. !next t
  46. !if $T_!=$empty
  47.  !set n_=!linecnt $T_
  48.  <p>$prompt1
  49.  !for i=1 to $n_
  50.    !set l_=!line $i of $T_
  51.    !set t_=!item 1 of $l_
  52.    !set n_=!item 2 to -1 of $l_
  53.    !href target=wims_tool module=tool/$t_ $n_
  54.    &nbsp;
  55.  !next i
  56.  <small>$prompt2</small> <p>
  57. !endif
  58.  
  59.