Subversion Repositories wimsdev

Rev

Rev 10351 | Rev 10651 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10351 Rev 10401
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">
 22 
 <table class="wims_classes_direct">
23 
!! !for typ in portal,group,level,class,course,program,test
 23 
 !for typ in portal,group,level,class,course,program,test
24 
!!  !set nstyle=wims_classes_direct_$typ
 24 
  !set nstyle=wims_classes_direct_$typ
25 
!!  !set ntype_=$typ
 25 
  !set ntype_=$typ
26 
!!  !set ntype_ = !replace internal program by $(CL_Name[3]) in $ntype_
 26 
  !set ntype_ = !replace internal program by $(CL_Name[3]) in $ntype_
27 
!!  !set ntype_ = !replace internal level by $(CL_Name[1])  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_
 28 
  !set ntype_ = !replace internal class by $(CL_Name[2])  in $ntype_
29 
!!  !set ntype_ = !replace internal course by $(CL_Name[4]) 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_
 30 
  !set ntype_ = !replace internal portal by $(CL_Name[6]) in $ntype_
31 
!!  !set ntype_ = !replace internal group 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_
 32 
  !set ntype_ = !replace internal test by $(CL_Name[7]) in $ntype_
33 
!!  !for cl in $(direct$typ)
 33 
  !for cl in $(direct$typ)
34 
!!   !distribute words $cl into c_,u_
 34 
   !distribute words $cl into c_,u_
35 
!!   !set n_=!defof class_institution, class_description in\
 35 
   !set n_=!defof class_institution, class_description in\
36 
!! wimshome/log/classes/$c_/.def
 36 
 wimshome/log/classes/$c_/.def
37 
!!   !if $u_=supervisor
 37 
   !if $u_=supervisor
38 
!!  !set t_=supervisor
 38 
    !set t_=supervisor
39 
!!   !if $c_ notwordof $wims_supervise and $wims_realuser!=$wims_user
 39 
    !if $c_ notwordof $wims_supervise and $wims_realuser!=$wims_user
40 
!!     !goto out
 40 
      !goto out
41 
!!    !endif
 41 
    !endif
42 
!!   !else
 42 
   !else
43 
!!    !set t_=$type
 43 
    !set t_=$type
44 
 !!  !endif
 44 
   !endif
45 
!!  <tr class="$nstyle"><td class="wims_classes_direct_type">$ntype_</td>
 45 
  <tr class="$nstyle"><td class="wims_classes_direct_type">$ntype_</td>
46 
!!  <td class="wims_classes_direct_name">
 46 
  <td class="wims_classes_direct_name">
47 
!!  !set u__=$u_
 47 
  !set u__=$u_
48 
!!   !if $auth_method isitemof $auth_method_list
 48 
   !if $auth_method isitemof $auth_method_list
49 
!!     !if $u_ != supervisor
 49 
     !if $u_ != supervisor
50 
!!      !readproc adm/class/userdef classes,$c_,$u_
 50 
      !readproc adm/class/userdef classes,$c_,$u_
51 
!!      !set u__=!defof user_external_auth in $userdef
 51 
      !set u__=!defof user_external_auth in $userdef
52 
!!     !endif
 52 
     !endif
53 
!!   !endif
 53 
   !endif
54 
!!   !href cmd=reply&type=auth$t_&class=$c_&auth_user=$u__ $n_
 54 
   !href cmd=reply&type=auth$t_&class=$c_&auth_user=$u__ $n_
55 
!!   </td><td class="tt">$u__</td>
 55 
   </td><td class="tt">$u__</td>
56 
!!   </tr>
 56 
   </tr>
57 
:out
 57 
:out
58 
!! !reset c_ u_ t_
 58 
 !reset c_ u_ t_
59 
!!  !next cl
 59 
  !next cl
60 
!! !next typ
 60 
 !next typ
61 
!! </table>
 61 
 </table>
62 
 !if $wims_user=supervisor
 62 
 !if $wims_user=supervisor
63 
   $name_text3
 63 
   $name_text3
64 
 !else
 64 
 !else
65 
   $name_text1
 65 
   $name_text1
66 
 !endif
 66 
 !endif