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