Subversion Repositories wimsdev

Rev

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

Rev 9506 Rev 10351
Line 2... Line 2...
2 
 
 2 
 
3 
!if $directcnt>0
 3 
!if $directcnt>0
4 
!for i_=1 to $directcnt
 4 
 !for i_=1 to $directcnt
5 
  !set cl=!word 1 of $(directlist[$i_])
 5 
  !set cl=!word 1 of $(directlist[$i_])
6 
   !if /0/ notin $(cl)/
 6 
  !if /0/ notin $(cl)/
7 
    !set type_=!defof class_typename in wimshome/log/classes/$cl/.def
 7 
    !set type_=!defof class_typename in wimshome/log/classes/$cl/.def
8 
    !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_)
 8 
    !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_)
9 
  !else
 9 
  !else
10 
   !set directtest=!append item $(directlist[$i_]) to $directtest
 10 
   !set directtest=!append item $(directlist[$i_]) to $directtest
11 
  !endif
 11 
  !endif
12 
!next
 12 
 !next
- 
 
 13 
!set directlist2=!items2lines $directlist
- 
 
 14 
!set directlist2=!lines2rows $directlist2
- 
 
 15 
!set directlist2=!words2items $directlist2
13 
 
 16 
 
14 
$name_direct:
 17 
$name_direct:
- 
 
 18 
 
- 
 
 19 
<div class="spacer">
- 
 
 20 
!read classgraph $directlist2
- 
 
 21 
</div>
15 
 <table class="wims_classes_direct">
 22 
!! <table class="wims_classes_direct">
16 
 !for typ in portal,group,level,class,course,program,test
 23 
!! !for typ in portal,group,level,class,course,program,test
17 
  !set nstyle=wims_classes_direct_$typ
 24 
!!  !set nstyle=wims_classes_direct_$typ
18 
  !set ntype_=$typ
 25 
!!  !set ntype_=$typ
19 
  !set ntype_ = !replace internal program by $(CL_Name[3]) in $ntype_
 26 
!!  !set ntype_ = !replace internal program by $(CL_Name[3]) in $ntype_
20 
  !set ntype_ = !replace internal level by $(CL_Name[1])  in $ntype_
 27 
!!  !set ntype_ = !replace internal level by $(CL_Name[1])  in $ntype_
21 
  !set ntype_ = !replace internal class by $(CL_Name[2])  in $ntype_
 28 
!!  !set ntype_ = !replace internal class by $(CL_Name[2])  in $ntype_
22 
  !set ntype_ = !replace internal course by $(CL_Name[4]) in $ntype_
 29 
!!  !set ntype_ = !replace internal course by $(CL_Name[4]) in $ntype_
23 
  !set ntype_ = !replace internal portal by $(CL_Name[6]) in $ntype_
 30 
!!  !set ntype_ = !replace internal portal by $(CL_Name[6]) in $ntype_
24 
  !set ntype_ = !replace internal group by $(CL_Name[6]) in $ntype_
 31 
!!  !set ntype_ = !replace internal group by $(CL_Name[6]) in $ntype_
25 
  !set ntype_ = !replace internal test by $(CL_Name[7]) in $ntype_
 32 
!!  !set ntype_ = !replace internal test by $(CL_Name[7]) in $ntype_
26 
  !for cl in $(direct$typ)
 33 
!!  !for cl in $(direct$typ)
27 
   !distribute words $cl into c_,u_
 34 
!!   !distribute words $cl into c_,u_
28 
   !set n_=!defof class_institution, class_description in\
 35 
!!   !set n_=!defof class_institution, class_description in\
29 
 wimshome/log/classes/$c_/.def
 36 
!! wimshome/log/classes/$c_/.def
30 
   !if $u_=supervisor
 37 
!!   !if $u_=supervisor
31 
   !set t_=supervisor
 38 
!!  !set t_=supervisor
32 
    !if $c_ notwordof $wims_supervise and $wims_realuser!=$wims_user
 39 
!!   !if $c_ notwordof $wims_supervise and $wims_realuser!=$wims_user
33 
     !goto out
 40 
!!     !goto out
34 
    !endif
 41 
!!    !endif
35 
   !else
 42 
!!   !else
36 
    !set t_=$type
 43 
!!    !set t_=$type
37 
   !endif
 44 
 !!  !endif
38 
  <tr class="$nstyle"><td class="wims_classes_direct_type">$ntype_</td>
 45 
!!  <tr class="$nstyle"><td class="wims_classes_direct_type">$ntype_</td>
39 
  <td class="wims_classes_direct_name">
 46 
!!  <td class="wims_classes_direct_name">
40 
  !set u__=$u_
 47 
!!  !set u__=$u_
41 
   !if $auth_method isitemof $auth_method_list
 48 
!!   !if $auth_method isitemof $auth_method_list
42 
     !if $u_ != supervisor
 49 
!!     !if $u_ != supervisor
43 
      !readproc adm/class/userdef classes,$c_,$u_
 50 
!!      !readproc adm/class/userdef classes,$c_,$u_
44 
      !set u__=!defof user_external_auth in $userdef
 51 
!!      !set u__=!defof user_external_auth in $userdef
45 
     !endif
 52 
!!     !endif
46 
   !endif
 53 
!!   !endif
47 
   !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_
48 
   </td><td class="tt">$u__</td>
 55 
!!   </td><td class="tt">$u__</td>
49 
   </tr>
 56 
!!   </tr>
50 
:out
 57 
:out
51 
 !reset c_ u_ t_
 58 
!! !reset c_ u_ t_
52 
  !next cl
 59 
!!  !next cl
53 
 !next typ
 60 
!! !next typ
54 
 </table>
 61 
!! </table>
55 
 !if $wims_user=supervisor
 62 
 !if $wims_user=supervisor
56 
   $name_text3
 63 
   $name_text3
57 
 !else
 64 
 !else
58 
   $name_text1
 65 
   $name_text1
59 
 !endif
 66 
 !endif