Rev 10401 | Rev 10688 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10401 | Rev 10651 | ||
---|---|---|---|
Line 17... | Line 17... | ||
17 | $name_direct: |
17 | $name_direct: |
18 | 18 | ||
19 | <div class="spacer"> |
19 | <div class="spacer"> |
20 | !read classgraph $directlist2 |
20 | !read classgraph $directlist2 |
21 | </div> |
21 | </div> |
22 | <table class="wims_classes_direct"> |
- | |
23 | !for typ in portal,group,level,class,course,program,test |
- | |
24 | !set nstyle=wims_classes_direct_$typ |
- | |
25 | !set ntype_=$typ |
- | |
26 | !set ntype_ = !replace internal program by $(CL_Name[3]) in $ntype_ |
- | |
27 | !set ntype_ = !replace internal level by $(CL_Name[1]) in $ntype_ |
- | |
28 | !set ntype_ = !replace internal class by $(CL_Name[2]) in $ntype_ |
- | |
29 | !set ntype_ = !replace internal course by $(CL_Name[4]) in $ntype_ |
- | |
30 | !set ntype_ = !replace internal portal by $(CL_Name[6]) in $ntype_ |
- | |
31 | !set ntype_ = !replace internal group by $(CL_Name[6]) in $ntype_ |
- | |
32 | !set ntype_ = !replace internal test by $(CL_Name[7]) in $ntype_ |
- | |
33 | !for cl in $(direct$typ) |
- | |
34 | !distribute words $cl into c_,u_ |
- | |
35 | !set n_=!defof class_institution, class_description in\ |
- | |
36 | wimshome/log/classes/$c_/.def |
- | |
37 | !if $u_=supervisor |
- | |
38 | !set t_=supervisor |
- | |
39 | !if $c_ notwordof $wims_supervise and $wims_realuser!=$wims_user |
- | |
40 | !goto out |
- | |
41 | !endif |
- | |
42 | !else |
- | |
43 | !set t_=$type |
- | |
44 | !endif |
- | |
45 | <tr class="$nstyle"><td class="wims_classes_direct_type">$ntype_</td> |
- | |
46 | <td class="wims_classes_direct_name"> |
- | |
47 | !set u__=$u_ |
- | |
48 | !if $auth_method isitemof $auth_method_list |
- | |
49 | !if $u_ != supervisor |
- | |
50 | !readproc adm/class/userdef classes,$c_,$u_ |
- | |
51 | !set u__=!defof user_external_auth in $userdef |
- | |
52 | !endif |
- | |
53 | !endif |
- | |
54 | !href cmd=reply&type=auth$t_&class=$c_&auth_user=$u__ $n_ |
- | |
55 | </td><td class="tt">$u__</td> |
- | |
56 | </tr> |
- | |
57 | :out |
22 | |
58 |
|
23 | !!read tableold.phtml |
59 | !next cl |
- | |
60 | !next typ |
- | |
61 | </table> |
24 | |
62 | !if $wims_user=supervisor |
25 | !if $wims_user=supervisor |
63 | $name_text3 |
26 | $name_text3 |
64 | !else |
27 | !else |
65 | $name_text1 |
28 | $name_text1 |
66 | !endif |
29 | !endif |
67 | !else |
30 | !else |
68 | !if $wims_user=supervisor |
31 | !if $wims_user=supervisor |
69 | $name_text2 |
32 | $name_text2 |
70 | !else |
33 | !else |
71 | $name_noaccount |
34 | $name_noaccount |
72 | !endif |
35 | !endif |
73 | !endif |
36 | !endif |
74 | - |