Rev 9506 | Rev 10401 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
5020 | bpr | 1 | !read adm/class/initclass $wims_class |
1421 | bpr | 2 | |
1467 | bpr | 3 | !if $directcnt>0 |
10351 | bpr | 4 | !for i_=1 to $directcnt |
1304 | bpr | 5 | !set cl=!word 1 of $(directlist[$i_]) |
10351 | bpr | 6 | !if /0/ notin $(cl)/ |
1421 | bpr | 7 | !set type_=!defof class_typename in wimshome/log/classes/$cl/.def |
8 | !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_) |
||
1304 | bpr | 9 | !else |
10 | !set directtest=!append item $(directlist[$i_]) to $directtest |
||
11 | !endif |
||
10351 | bpr | 12 | !next |
13 | !set directlist2=!items2lines $directlist |
||
14 | !set directlist2=!lines2rows $directlist2 |
||
15 | !set directlist2=!words2items $directlist2 |
||
5036 | bpr | 16 | |
1741 | bpr | 17 | $name_direct: |
10351 | bpr | 18 | |
19 | <div class="spacer"> |
||
20 | !read classgraph $directlist2 |
||
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> |
||
4109 | bpr | 57 | :out |
10351 | bpr | 58 | !! !reset c_ u_ t_ |
59 | !! !next cl |
||
60 | !! !next typ |
||
61 | !! </table> |
||
23 | reyssat | 62 | !if $wims_user=supervisor |
9506 | bpr | 63 | $name_text3 |
64 | !else |
||
65 | $name_text1 |
||
23 | reyssat | 66 | !endif |
67 | !else |
||
68 | !if $wims_user=supervisor |
||
9506 | bpr | 69 | $name_text2 |
23 | reyssat | 70 | !else |
9506 | bpr | 71 | $name_noaccount |
23 | reyssat | 72 | !endif |
73 | !endif |
||
74 |