Subversion Repositories wimsdev

Rev

Rev 14706 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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