Subversion Repositories wimsdev

Rev

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
 !reset c_ u_ t_
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
 
-