Subversion Repositories wimsdev

Rev

Rev 15429 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !set p_=!trim $wims_read_parm
  2. !set l_=$(p_[2;])
  3. !if $l_!=$empty
  4.   !set l_=&search_level=$l_
  5. !endif
  6. !set p_=$(p_[1;])
  7. !if $p_=$empty or ($wims_user!=$empty and $wims_user!=supervisor)
  8.   !exit
  9. !endif
  10. !read lang/names.phtml.$lang
  11. !if $lang_script_exists!=yes
  12.   !read lang/names.phtml.en
  13. !endif
  14.  
  15. !set cat_=!listintersect $module_category and exercise,tool,recreation
  16. !for c in $cat_
  17.   <div>
  18.   !if $l_!=$empty
  19.     $name_prompt_related_l
  20.   !else
  21.     $name_prompt_related
  22.   !endif
  23.   <ul class="inline wims_nopuce">
  24.   !for t in $p_
  25.     !reset sup
  26.     !set t=!declosing $t
  27.     !set t_=!lookup $(t[1]) in bases/sys/domain/domain.$lang
  28.     !default t_=$t
  29.     !if $(t[2..-1])!=$empty
  30.       !set sup=&$(t[2..-1])
  31.     !endif
  32.     !set wims_ref_class=wims_label
  33.     <li>
  34.     !href module=home&search_category=$c&search_keywords=$t_$sup$l_ $t_
  35.     </li>
  36.   !next t
  37.   </ul>
  38.   </div>
  39. !next c
  40.