Subversion Repositories wimsdev

Rev

Rev 10793 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10793 Rev 13057
Line 1... Line 1...
1 
<ul class="wims_subclasses">
 1 
<ul class="wims_subclasses">
2 
 !for typ in portal,group,level,class,course,program,test
 2 
!for typ in portal,group,level,class,course,program,test
3 
  !set nstyle=wims_classes_direct_$typ
 3 
  !set nstyle=wims_classes_direct_$typ
4 
  !set ntype_=$typ
 4 
  !set ntype_=$typ
5 
  !set ntype_ = !replace internal program by $(CL_Name[3]) in $ntype_
 5 
  !set ntype_ = !replace internal program by $(CL_Name[3]) in $ntype_
6 
  !set ntype_ = !replace internal level by $(CL_Name[1])  in $ntype_
 6 
  !set ntype_ = !replace internal level by $(CL_Name[1])  in $ntype_
7 
  !set ntype_ = !replace internal class by $(CL_Name[2])  in $ntype_
 7 
  !set ntype_ = !replace internal class by $(CL_Name[2])  in $ntype_
8 
  !set ntype_ = !replace internal course by $(CL_Name[4]) in $ntype_
 8 
  !set ntype_ = !replace internal course by $(CL_Name[4]) in $ntype_
9 
  !set ntype_ = !replace internal portal by $(CL_Name[6]) in $ntype_
 9 
  !set ntype_ = !replace internal portal by $(CL_Name[6]) in $ntype_
10 
  !set ntype_ = !replace internal group by $(CL_Name[6]) in $ntype_
 10 
  !set ntype_ = !replace internal group by $(CL_Name[6]) in $ntype_
11 
  !set ntype_ = !replace internal test by $(CL_Name[7]) in $ntype_
 11 
  !set ntype_ = !replace internal test by $(CL_Name[7]) in $ntype_
12 
  !for cl in $(direct$typ)
 12 
  !for cl in $(direct$typ)
13 
   !distribute words $cl into c_,u_
 13 
    !distribute words $cl into c_,u_
14 
   !set n_=!defof class_institution, class_description in\
 14 
    !set n_=!defof class_institution, class_description in\
15 
 wimshome/log/classes/$c_/.def
 15 
 wimshome/log/classes/$c_/.def
16 
   !if $u_=supervisor
 16 
    !if $u_=supervisor
17 
    !set t_=supervisor
 17 
      !set t_=supervisor
18 
    !if $c_ notwordof $wims_supervise and $wims_realuser!=$wims_user
 18 
      !if $c_ notwordof $wims_supervise and $wims_realuser!=$wims_user
19 
      !goto out
 19 
        !goto out
- 
 
 20 
      !endif
- 
 
 21 
    !else
- 
 
 22 
      !set t_=$type
20 
    !endif
 23 
    !endif
21 
   !else
 - 
 
22 
    !set t_=$type
 - 
 
23 
   !endif
 - 
 
24 
  <li>
 24 
    <li>
25 
  <span class="$nstyle">
 25 
    <span class="$nstyle">
26 
  !set u__=$u_
 26 
    !set u__=$u_
27 
   !if $auth_method isitemof $auth_method_list
 27 
    !if $auth_method isitemof $auth_method_list
28 
     !if $u_ != supervisor
 28 
      !if $u_ != supervisor
29 
      !readproc adm/class/userdef classes,$c_,$u_
 29 
       !readproc adm/class/userdef classes,$c_,$u_
30 
      !set u__=!defof user_external_auth in $userdef
 30 
       !set u__=!defof user_external_auth in $userdef
31 
     !endif
 31 
      !endif
32 
   !endif
 32 
    !endif
33 
   !href cmd=reply&type=auth$t_&class=$c_&auth_user=$u__ $n_
 33 
    !href cmd=reply&type=auth$t_&class=$c_&auth_user=$u__ $n_
34 
   ($u__)</span>
 34 
    ($u__)</span>
35 
   </li>
 35 
    </li>
36 
:out
 36 
    :out
37 
 !reset c_ u_ t_
 37 
    !reset c_ u_ t_
38 
  !next cl
 38 
  !next cl
39 
 !next typ
 39 
!next typ
40 
 </ul>
 40 
 </ul>