Subversion Repositories wimsdev

Rev

Rev 6038 | Rev 16205 | 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. !read lang/names.phtml.$lang
  9. !if $lang_script_exists!=yes
  10.  !read lang/names.phtml.en
  11. !endif
  12.  
  13. !reset T_
  14. !for t in $p_
  15.   !set tit=!module title_$lang tool/$t
  16.   !if $tit=
  17.     !set tit=!module title tool/$t
  18.   !endif
  19.   !if $tit!=$empty and $tit!=$module_title
  20.    !set T_=!append line $t,$tit to $T_
  21.   !endif
  22. !next t
  23. !if $T_!=$empty
  24.  !set n_=!linecnt $T_
  25.  <p>$name_prompt_tool1
  26.  !for i=1 to $n_
  27.    !set l_=!line $i of $T_
  28.    !set t_=!item 1 of $l_
  29.    !set n__=!item 2 to -1 of $l_
  30.    !href target=wims_tool$i module=tool/$t_ $n__
  31.    &nbsp;
  32.  !next i
  33.  <span class="small">$name_prompt_tool2</span>
  34.  </p>
  35. !endif
  36.  
  37. !reset lang_script_exists
  38.